设为首页收藏本站我的广告
开启辅助访问 邀请注册

一一素材网

 找回密码
 立即注册
搜索
返回列表 发新帖
查看: 15|回复: 0

最强行会

[复制链接]
一一素材
累计签到：420 天
连续签到：1 天

868

主题

915

帖子

2664

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2664
发表于 2023-6-28 19:22:18 | 显示全部楼层 |阅读模式
(@@InPutInteger @@InPutString)
[@main]
#IF
HAVEGUILD
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会变量开关\<$GUILDNAME>开关.txt 关闭
#ACT
VAR Integer GUILD 行会繁荣度
LOADVAR GUILD 行会繁荣度 ..\QuestDiary\龙炎界面脚本\行会\行会繁荣度.txt
CALCVAR GUILD 行会繁荣度 + 0
SAVEVAR GUILD 行会繁荣度 ..\QuestDiary\龙炎界面脚本\行会\行会繁荣度.txt
DelTextList ..\QuestDiary\龙炎界面脚本\行会\行会变量开关\<$GUILDNAME>开关.txt 关闭
DelTextList ..\QuestDiary\龙炎界面脚本\行会\行会变量开关\<$GUILDNAME>开关.txt 开启
AddTextListEx ..\QuestDiary\龙炎界面脚本\行会\行会变量开关\<$GUILDNAME>开关.txt 开启
#IF
HAVEGUILD
CHECKVAR GUILD 行会繁荣度 = 0
#ACT
mov N0 100
#IF
equal N$行会繁荣度开关 0
#ACT
mov N$行会繁荣度开关 1
#IF
#ACT
CreateFile ..\QuestDiary\龙炎界面脚本\行会\行会密码\　　　--　　　密码.txt
AddTextListEx ..\QuestDiary\龙炎界面脚本\行会\行会密码\　　　--　　　密码.txt 0 0
mov A50 　
mov A51 　
mov A52 　
mov A53 　
mov A54 　
GetListString ..\QuestDiary\龙炎界面脚本\行会\排行行会繁荣度.txt 0 A30 A35
GetListString ..\QuestDiary\龙炎界面脚本\行会\排行行会繁荣度.txt 1 A31 A36
GetListString ..\QuestDiary\龙炎界面脚本\行会\排行行会繁荣度.txt 2 A32 A37
GetListString ..\QuestDiary\龙炎界面脚本\行会\排行行会繁荣度.txt 3 A33 A38
GetListString ..\QuestDiary\龙炎界面脚本\行会\排行行会繁荣度.txt 4 A34 A39
GetStringPos ..\QuestDiary\龙炎界面脚本\行会\排行行会繁荣度.txt <$GUILDNAME>:<$GUILDFLOURISHPOINT>
inc N0 1
#IF
CheckStringlength A30 = 0
#ACT
mov A30 　　　--　　　
#IF
CheckStringlength A31 = 0
#ACT
mov A31 　　　--　　　
#IF
CheckStringlength A32 = 0
#ACT
mov A32 　　　--　　　
#IF
CheckStringlength A33 = 0
#ACT
mov A33 　　　--　　　
#IF
CheckStringlength A34 = 0
#ACT
mov A34 　　　--　　　
#IF
CheckStringlength A30 = 4
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 7 0
SetStringBlank <$STR(A50)> 7 0
#IF
CheckStringlength A31 = 4
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 7 0
SetStringBlank <$STR(A51)> 7 0
#IF
CheckStringlength A32 = 4
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 7 0
SetStringBlank <$STR(A52)> 7 0
#IF
CheckStringlength A33 = 4
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 7 0
SetStringBlank <$STR(A53)> 7 0
#IF
CheckStringlength A34 = 4
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 7 0
SetStringBlank <$STR(A54)> 7 0
#IF
CheckStringlength A30 = 5
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 7 0
SetStringBlank <$STR(A50)> 7 0
#IF
CheckStringlength A31 = 5
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 7 0
SetStringBlank <$STR(A51)> 7 0
#IF
CheckStringlength A32 = 5
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 7 0
SetStringBlank <$STR(A52)> 7 0
#IF
CheckStringlength A33 = 5
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 7 0
SetStringBlank <$STR(A53)> 7 0
#IF
CheckStringlength A34 = 5
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 7 0
SetStringBlank <$STR(A54)> 7 0
#IF
CheckStringlength A30 = 6
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 6 0
SetStringBlank <$STR(A50)> 6 0
#IF
CheckStringlength A31 = 6
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 6 0
SetStringBlank <$STR(A51)> 6 0
#IF
CheckStringlength A32 = 6
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 6 0
SetStringBlank <$STR(A52)> 6 0
#IF
CheckStringlength A33 = 6
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 6 0
SetStringBlank <$STR(A53)> 6 0
#IF
CheckStringlength A34 = 6
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 6 0
SetStringBlank <$STR(A54)> 6 0
#IF
CheckStringlength A30 = 7
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 6 0
SetStringBlank <$STR(A50)> 6 0
#IF
CheckStringlength A31 = 7
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 6 0
SetStringBlank <$STR(A51)> 6 0
#IF
CheckStringlength A32 = 7
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 6 0
SetStringBlank <$STR(A52)> 6 0
#IF
CheckStringlength A33 = 7
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 6 0
SetStringBlank <$STR(A53)> 6 0
#IF
CheckStringlength A34 = 7
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 6 0
SetStringBlank <$STR(A54)> 6 0
#IF
CheckStringlength A30 = 8
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 5 0
SetStringBlank <$STR(A50)> 5 0
#IF
CheckStringlength A31 = 8
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 5 0
SetStringBlank <$STR(A51)> 5 0
#IF
CheckStringlength A32 = 8
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 5 0
SetStringBlank <$STR(A52)> 5 0
#IF
CheckStringlength A33 = 8
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 5 0
SetStringBlank <$STR(A53)> 5 0
#IF
CheckStringlength A34 = 8
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 5 0
SetStringBlank <$STR(A54)> 5 0
#IF
CheckStringlength A30 = 9
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 5 0
SetStringBlank <$STR(A50)> 5 0
#IF
CheckStringlength A31 = 9
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 5 0
SetStringBlank <$STR(A51)> 5 0
#IF
CheckStringlength A32 = 9
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 5 0
SetStringBlank <$STR(A52)> 5 0
#IF
CheckStringlength A33 = 9
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 5 0
SetStringBlank <$STR(A53)> 5 0
#IF
CheckStringlength A34 = 9
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 5 0
SetStringBlank <$STR(A54)> 5 0
#IF
CheckStringlength A30 = 10
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 4 0
SetStringBlank <$STR(A50)> 4 0
#IF
CheckStringlength A31 = 10
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 4 0
SetStringBlank <$STR(A51)> 4 0
#IF
CheckStringlength A32 = 10
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 4 0
SetStringBlank <$STR(A52)> 4 0
#IF
CheckStringlength A33 = 10
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 4 0
SetStringBlank <$STR(A53)> 4 0
#IF
CheckStringlength A34 = 10
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 4 0
SetStringBlank <$STR(A54)> 4 0
#IF
CheckStringlength A30 = 11
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 4 0
SetStringBlank <$STR(A50)> 4 0
#IF
CheckStringlength A31 = 11
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 4 0
SetStringBlank <$STR(A51)> 4 0
#IF
CheckStringlength A32 = 11
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 4 0
SetStringBlank <$STR(A52)> 4 0
#IF
CheckStringlength A33 = 11
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 4 0
SetStringBlank <$STR(A53)> 4 0
#IF
CheckStringlength A34 = 11
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 4 0
SetStringBlank <$STR(A54)> 4 0
#IF
CheckStringlength A30 = 12
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 3 0
SetStringBlank <$STR(A50)> 3 0
#IF
CheckStringlength A31 = 12
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 3 0
SetStringBlank <$STR(A51)> 3 0
#IF
CheckStringlength A32 = 12
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 3 0
SetStringBlank <$STR(A52)> 3 0
#IF
CheckStringlength A33 = 12
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 3 0
SetStringBlank <$STR(A53)> 3 0
#IF
CheckStringlength A34 = 12
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 3 0
SetStringBlank <$STR(A54)> 3 0
#IF
CheckStringlength A30 = 13
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 3 0
SetStringBlank <$STR(A50)> 3 0
#IF
CheckStringlength A31 = 13
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 3 0
SetStringBlank <$STR(A51)> 3 0
#IF
CheckStringlength A32 = 13
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 3 0
SetStringBlank <$STR(A52)> 3 0
#IF
CheckStringlength A33 = 13
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 3 0
SetStringBlank <$STR(A53)> 3 0
#IF
CheckStringlength A34 = 13
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 3 0
SetStringBlank <$STR(A54)> 3 0
#IF
CheckStringlength A30 = 14
#ACT
mov S$一行前 　
SetStringBlank <$STR(S$一行前)> 2 0
SetStringBlank <$STR(A50)> 2 0
#IF
CheckStringlength A31 = 14
#ACT
mov S$二行前 　
SetStringBlank <$STR(S$二行前)> 2 0
SetStringBlank <$STR(A51)> 2 0
#IF
CheckStringlength A32 = 14
#ACT
mov S$三行前 　
SetStringBlank <$STR(S$三行前)> 2 0
SetStringBlank <$STR(A52)> 2 0
#IF
CheckStringlength A33 = 14
#ACT
mov S$四行前 　
SetStringBlank <$STR(S$四行前)> 2 0
SetStringBlank <$STR(A53)> 2 0
#IF
CheckStringlength A34 = 14
#ACT
mov S$五行前 　
SetStringBlank <$STR(S$五行前)> 2 0
SetStringBlank <$STR(A54)> 2 0

#IF
equal A35
#ACT
mov A35 ----
#IF
equal A36
#ACT
mov A36 ----
#IF
equal A37
#ACT
mov A37 ----
#IF
equal A38
#ACT
mov A38 ----
#IF
equal A39
#ACT
mov A39 ----
#IF
equal A30 　　　--　　　
#ACT
mov S$第一行会加入图 <Img:4798:-1:356:-486>
mov S$第一行会加入锁 <Img:4802:-1:356:-486>
#IF
equal A31 　　　--　　　
#ACT
mov S$第二行会加入图 <Img:4798:-1:356:-485>
mov S$第二行会加入锁 <Img:4802:-1:356:-485>
#IF
equal A32 　　　--　　　
#ACT
mov S$第三行会加入图 <Img:4798:-1:356:-485>
mov S$第三行会加入锁 <Img:4802:-1:356:-485>
#IF
equal A33 　　　--　　　
#ACT
mov S$第四行会加入图 <Img:4798:-1:356:-485>
mov S$第四行会加入锁 <Img:4802:-1:356:-485>
#IF
equal A34 　　　--　　　
#ACT
mov S$第五行会加入图 <Img:4798:-1:356:-485>
mov S$第五行会加入锁 <Img:4802:-1:356:-485>
#IF
#ACT
GetListString ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A30)>密码.txt 0 <$STR(S$第1行会密码)>
GetListString ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A31)>密码.txt 0 <$STR(S$第2行会密码)>
GetListString ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A32)>密码.txt 0 <$STR(S$第3行会密码)>
GetListString ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A33)>密码.txt 0 <$STR(S$第4行会密码)>
GetListString ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A34)>密码.txt 0 <$STR(S$第5行会密码)>
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A30)>密码.txt 0
#ACT
mov S$第1行会密码说明 |
mov S$第一行会加入锁 <Img:4802:-1:356:-486>
#IF
equal S$第一行会加入锁 <Img:4802:-1:356:-486>
#ACT
mov S$加入一行会钮 @加入行会钮1
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A31)>密码.txt 0
#ACT
mov S$第2行会密码说明 |
mov S$第二行会加入锁 <Img:4802:-1:356:-485>
#IF
equal S$第二行会加入锁 <Img:4802:-1:356:-485>
#ACT
mov S$加入二行会钮 @加入行会钮2
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A32)>密码.txt 0
#ACT
mov S$第3行会密码说明 |
mov S$第三行会加入锁 <Img:4802:-1:356:-485>
#IF
equal S$第三行会加入锁 <Img:4802:-1:356:-485>
#ACT
mov S$加入三行会钮 @加入行会钮3
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A33)>密码.txt 0
#ACT
mov S$第4行会密码说明 |
mov S$第四行会加入锁 <Img:4802:-1:356:-485>
#IF
equal S$第四行会加入锁 <Img:4802:-1:356:-485>
#ACT
mov S$加入四行会钮 @加入行会钮4
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A34)>密码.txt 0
#ACT
mov S$第5行会密码说明 |
mov S$第五行会加入锁 <Img:4802:-1:356:-485>
#IF
equal S$第五行会加入锁 <Img:4802:-1:356:-485>
#ACT
mov S$加入五行会钮 @加入行会钮5
#IF
NOT equal S$第1行会密码 0
NOT equal A30 　　　--　　　
#ACT
mov S$第1行会密码说明 |251#输入3位数字密码，才能加入此会
mov S$第一行会加入锁 <Img:4802:21:356:-486>
#IF
equal S$第一行会加入锁 <Img:4802:21:356:-486>
#ACT
mov S$加入一行会钮 @@InPutString53
#IF
NOT equal S$第2行会密码 0
NOT equal A31 　　　--　　　
#ACT
mov S$第2行会密码说明 |251#输入3位数字密码，才能加入此会
mov S$第二行会加入锁 <Img:4802:21:356:-485>
#IF
equal S$第二行会加入锁 <Img:4802:21:356:-485>
#ACT
mov S$加入二行会钮 @@InPutString54
#IF
NOT equal S$第3行会密码 0
NOT equal A32 　　　--　　　
#ACT
mov S$第3行会密码说明 |251#输入3位数字密码，才能加入此会
mov S$第三行会加入锁 <Img:4802:21:356:-485>
#IF
equal S$第三行会加入锁 <Img:4802:21:356:-485>
#ACT
mov S$加入三行会钮 @@InPutString55
#IF
NOT equal S$第4行会密码 0
NOT equal A33 　　　--　　　
#ACT
mov S$第4行会密码说明 |251#输入3位数字密码，才能加入此会
mov S$第四行会加入锁 <Img:4802:21:356:-485>
#IF
equal S$第四行会加入锁 <Img:4802:21:356:-485>
#ACT
mov S$加入四行会钮 @@InPutString56
#IF
NOT equal S$第5行会密码 0
NOT equal A34 　　　--　　　
#ACT
mov S$第5行会密码说明 |251#输入3位数字密码，才能加入此会
mov S$第五行会加入锁 <Img:4802:21:356:-485>
#IF
equal S$第五行会加入锁 <Img:4802:21:356:-485>
#ACT
mov S$加入五行会钮 @@InPutString57
#IF
NOT equal A30 　　　--　　　
#ACT
mov S$第一行会加入图 <Img:4798:21:356:-486<$STR(S$第1行会密码说明)>/<$STR(S$加入一行会钮)>>
#IF
NOT equal A31 　　　--　　　
#ACT
mov S$第二行会加入图 <Img:4798:21:356:-485<$STR(S$第2行会密码说明)>/<$STR(S$加入二行会钮)>>
#IF
NOT equal A32 　　　--　　　
#ACT
mov S$第三行会加入图 <Img:4798:21:356:-485<$STR(S$第3行会密码说明)>/<$STR(S$加入三行会钮)>>
#IF
NOT equal A33 　　　--　　　
#ACT
mov S$第四行会加入图 <Img:4798:21:356:-485<$STR(S$第4行会密码说明)>/<$STR(S$加入四行会钮)>>
#IF
NOT equal A34 　　　--　　　
#ACT
mov S$第五行会加入图 <Img:4798:21:356:-485<$STR(S$第5行会密码说明)>/<$STR(S$加入五行会钮)>>

#IF
HAVEGUILD
small N0 6
#ACT
mov S$个人行会密码 <Img:4801:21:232:-300|251#点击(取消密码)按钮^254#取消密码，可以直接加入本会^254#忘记密码，点击取消密码即可/@取消密码><Img:4800:21:255:-300|251#点击(设置密码)按钮^254#设置一个3位数字密码^254#加入本会时需要此密码/@@InPutString52>

#IF
HAVEGUILD
large N0 5
#ACT
mov S$个人行会密码 <Img:4801:-1:232:-300|251#点击(取消密码)按钮^254#取消密码，可以直接加入本会^254#忘记密码，点击取消密码即可/@取消密码><Img:4800:-1:255:-300|251#点击(设置密码)按钮^254#设置一个3位数字密码^254#加入本会时需要此密码/@@InPutString52>
GUILDSTABILITYPOINT = 0
AddTextListEx ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$GUILDNAME>密码.txt <$GUILDSTABILITYPOINT> 0

#IF
NOT HAVEGUILD
#ACT
OPENMERCHANTBIGDLG 21 4796 1 4 0 -170 0
break
#SAY
<>\<>\
<>     <排行      行会名字               繁荣度               申请加入/AUTOCOLOR=31>\ \
<>      <1./AUTOCOLOR=253><$STR(S$一行前)>  {<$STR(A30)>/AUTOCOLOR=89}           <$STR(A50)>{<$STR(A35)>/AUTOCOLOR=89}                        \ \
<>      <2./AUTOCOLOR=154><$STR(S$二行前)>  {<$STR(A31)>/AUTOCOLOR=89}           <$STR(A51)>{<$STR(A36)>/AUTOCOLOR=89}                        \ \
<>      <3./AUTOCOLOR=218><$STR(S$三行前)>  {<$STR(A32)>/AUTOCOLOR=89}           <$STR(A52)>{<$STR(A37)>/AUTOCOLOR=89}                        \ \
<>      <4./AUTOCOLOR=89><$STR(S$四行前)>  {<$STR(A33)>/AUTOCOLOR=89}           <$STR(A53)>{<$STR(A38)>/AUTOCOLOR=89}                         \ \
<>      <5./AUTOCOLOR=89><$STR(S$五行前)>  {<$STR(A34)>/AUTOCOLOR=89}           <$STR(A54)>{<$STR(A39)>/AUTOCOLOR=89}                       \ \ \
<>    <繁荣度越多排名越高,建会需要/AUTOCOLOR=89><「一根金条」/AUTOCOLOR=70><+/AUTOCOLOR=106><「沃玛号角」/AUTOCOLOR=70>　　　<创建行会/AUTOCOLOR=150>\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
<Img:4803:21:435:-522/@exit>\
<Img:4799:21:352:-279|251#请输入2-7个汉字,否则无效^247#━━━━━━━━━━━━^254#带有空白名称系统自动删除/@@InPutString50>\ \
<$STR(S$第一行会加入图)><$STR(S$第一行会加入锁)>\ \
<$STR(S$第二行会加入图)><$STR(S$第二行会加入锁)>\ \
<$STR(S$第三行会加入图)><$STR(S$第三行会加入锁)>\ \
<$STR(S$第四行会加入图)><$STR(S$第四行会加入锁)>\ \
<$STR(S$第五行会加入图)><$STR(S$第五行会加入锁)>\ \
#IF
ISGUILDMASTER
#ACT
GetListString ..\QuestDiary\龙炎界面脚本\行会\行会老大\<$GUILDNAME>.txt 0 S$行会老大
OPENMERCHANTBIGDLG 21 4796 1 4 0 -170 0
break
#SAY
<>\<>\
<>     <排行      行会名字               繁荣度               申请加入/AUTOCOLOR=31>\ \
<>      <1./AUTOCOLOR=253><$STR(S$一行前)>  {<$STR(A30)>/AUTOCOLOR=89}           <$STR(A50)>{<$STR(A35)>/AUTOCOLOR=89}                        \ \
<>      <2./AUTOCOLOR=154><$STR(S$二行前)>  {<$STR(A31)>/AUTOCOLOR=89}           <$STR(A51)>{<$STR(A36)>/AUTOCOLOR=89}                        \ \
<>      <3./AUTOCOLOR=218><$STR(S$三行前)>  {<$STR(A32)>/AUTOCOLOR=89}           <$STR(A52)>{<$STR(A37)>/AUTOCOLOR=89}                        \ \
<>      <4./AUTOCOLOR=89><$STR(S$四行前)>  {<$STR(A33)>/AUTOCOLOR=89}           <$STR(A53)>{<$STR(A38)>/AUTOCOLOR=89}                         \ \
<>      <5./AUTOCOLOR=89><$STR(S$五行前)>  {<$STR(A34)>/AUTOCOLOR=89}           <$STR(A54)>{<$STR(A39)>/AUTOCOLOR=89}                       \ \ \
<>\
<>                         {<$GUILDFLOURISHPOINT>/AUTOCOLOR=89}\ \ \ \
<>      <行会繁荣度越多排名越高，行会老大可设置加入密码/AUTOCOLOR=89>  <1点繁荣度=100元宝/AUTOCOLOR=70>\ \
<>      <行会老大:/AUTOCOLOR=150> <$STR(S$行会老大)>\
<>                                          <行会战争/AUTOCOLOR=150>          <捐献繁荣/AUTOCOLOR=150>\
<>      <行会名称:/AUTOCOLOR=150> <$GUILDNAME>\ \
<>      <行会排名:/AUTOCOLOR=150> 第 <$STR(N0)> 名\ \ \ \ \
<Img:4803:21:435:-522/@exit>\
<Img:4797:21:-20:-292>\
<Img:4799:21:232:-167|251#开启行会战杀人不红名/@去皇宫开启><Img:4799:21:255:-167|251#请输入捐献数量^254#1点繁荣度=100元宝^253#一次性最多捐献1000点/@@InPutString51>\
<$STR(S$第一行会加入图)><$STR(S$第一行会加入锁)>\ \
<$STR(S$第二行会加入图)><$STR(S$第二行会加入锁)>\ \
<$STR(S$第三行会加入图)><$STR(S$第三行会加入锁)>\ \
<$STR(S$第四行会加入图)><$STR(S$第四行会加入锁)>\ \
<$STR(S$第五行会加入图)><$STR(S$第五行会加入锁)>\ \
<$STR(S$个人行会密码)>\
#IF
HAVEGUILD
#ACT
GetListString ..\QuestDiary\龙炎界面脚本\行会\行会老大\<$GUILDNAME>.txt 0 S$行会老大
OPENMERCHANTBIGDLG 21 4796 1 4 0 -170 0
#SAY
<>\<>\
<>     <排行      行会名字               繁荣度               申请加入/AUTOCOLOR=31>\ \
<>      <1./AUTOCOLOR=253><$STR(S$一行前)>  {<$STR(A30)>/AUTOCOLOR=89}           <$STR(A50)>{<$STR(A35)>/AUTOCOLOR=89}                        \ \
<>      <2./AUTOCOLOR=154><$STR(S$二行前)>  {<$STR(A31)>/AUTOCOLOR=89}           <$STR(A51)>{<$STR(A36)>/AUTOCOLOR=89}                        \ \
<>      <3./AUTOCOLOR=218><$STR(S$三行前)>  {<$STR(A32)>/AUTOCOLOR=89}           <$STR(A52)>{<$STR(A37)>/AUTOCOLOR=89}                        \ \
<>      <4./AUTOCOLOR=89><$STR(S$四行前)>  {<$STR(A33)>/AUTOCOLOR=89}           <$STR(A53)>{<$STR(A38)>/AUTOCOLOR=89}                         \ \
<>      <5./AUTOCOLOR=89><$STR(S$五行前)>  {<$STR(A34)>/AUTOCOLOR=89}           <$STR(A54)>{<$STR(A39)>/AUTOCOLOR=89}                       \ \ \
<>\
<>                         {<$GUILDFLOURISHPOINT>/AUTOCOLOR=89}\ \ \ \
<>      <行会繁荣度越多排名越高，行会老大可设置加入密码/AUTOCOLOR=89>  <1点繁荣度=100元宝/AUTOCOLOR=70>\ \
<>      <行会老大:/AUTOCOLOR=150> <$STR(S$行会老大)>\
<>                                          <行会战争/AUTOCOLOR=150>          <捐献繁荣/AUTOCOLOR=150>\
<>      <行会名称:/AUTOCOLOR=150> <$GUILDNAME>\ \
<>      <行会排名:/AUTOCOLOR=150> 第 <$STR(N0)> 名\ \ \ \ \
<Img:4803:21:435:-522/@exit>\
<Img:4797:21:-20:-292>\
<Img:4799:21:232:-167|251#开启行会战杀人不红名/@去皇宫开启><Img:4799:21:255:-167|251#请输入捐献数量^254#1点繁荣度=100元宝^253#一次性最多捐献1000点/@@InPutString51>\
<$STR(S$第一行会加入图)><$STR(S$第一行会加入锁)>\ \
<$STR(S$第二行会加入图)><$STR(S$第二行会加入锁)>\ \
<$STR(S$第三行会加入图)><$STR(S$第三行会加入锁)>\ \
<$STR(S$第四行会加入图)><$STR(S$第四行会加入锁)>\ \
<$STR(S$第五行会加入图)><$STR(S$第五行会加入锁)>\ \

[@去皇宫开启]
#ACT
map 0122

[@InPutString51]
#IF
#ACT
mov N51 <$STR(S51)>
#IF
SMALL N51 1
#ACT
MESSAGEBOX [提示]：请输入1以上的数值！
MOV N51 0
GOTO @MAIN
BREAK
#IF
LARGE N51 1000
#ACT
MESSAGEBOX [提示]：请输入1000以下的数值！
MOV N51 0
GOTO @MAIN
BREAK
#IF
#ACT
MUL N61 N51 100
dec N60 N61 1
#IF
CHECKGAMEGOLD > <$STR(N60)>
#ACT
GAMEGOLD - <$STR(N61)>
GUILDFLOURISHPOINT + <$STR(N51)>
CALCVAR GUILD 行会繁荣度 = <$GUILDFLOURISHPOINT>
SAVEVAR GUILD 行会繁荣度 ..\QuestDiary\龙炎界面脚本\行会\行会繁荣度.txt
SortVarToList 行会繁荣度 ..\QuestDiary\龙炎界面脚本\行会\行会繁荣度.txt ..\QuestDiary\龙炎界面脚本\行会\排行行会繁荣度.txt 0 1
GetStringPos ..\QuestDiary\龙炎界面脚本\行会\排行行会繁荣度.txt <$GUILDNAME>:<$GUILDFLOURISHPOINT>
goto @main

[@InPutString50]
#IF
EQUAL A71 系统已开启
#ELSEACT
messagebox \　\〖操作提示〗\　\新区开区半个小时后开启行会创建!
break
#IF
CheckStringlength <$STR(S50)> < 4
#ACT
messagebox \　\〖操作提示〗\　\你输入的[行会名]不得小于2个字
break
#IF
CheckStringlength <$STR(S50)> > 14
#ACT
messagebox \　\〖操作提示〗\　\你输入的[行会名]不得大于7个字
break
#IF
checkcontainstext <$STR(S50)> 　
#ACT
messagebox \　\〖操作提示〗\　\你输入的[行会名]带有“非法字符”或“空格”\　\请重新输入.
break
#IF
CHECKTEXTLIST GuildList.txt <$STR(S50)>
#ACT
messagebox \　\〖操作提示〗\　\你输入的[行会名]已经存在\　\请重新输入.
break
#IF
checkitem 金条 1
checkitem 沃玛号角 1
#ACT
take 金条 1
take 沃玛号角 1
AddGuild <$STR(S50)> <$USERNAME>
CreateFile ..\QuestDiary\龙炎界面脚本\行会\行会老大\<$STR(S50)>.txt
AddTextListEx ..\QuestDiary\龙炎界面脚本\行会\行会老大\<$STR(S50)>.txt <$USERNAME> 0
CreateFile ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$GUILDNAME>密码.txt
AddTextListEx ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$GUILDNAME>密码.txt 0 0
CreateFile ..\QuestDiary\龙炎界面脚本\行会\行会变量开关\<$GUILDNAME>开关.txt
AddTextListEx ..\QuestDiary\龙炎界面脚本\行会\行会变量开关\<$GUILDNAME>开关.txt 关闭
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{建会成功|255:241}{『行会繁荣度:0』|149:241}{繁荣度1点以上加入排行比拼|255:241}
goto @main
#ELSEACT
messagebox \　\〖操作提示〗\　\你没有创建行会需要的费用[金条]和[沃玛号角]\　\新区开区后系统会２个小时后开启行会创建

[@InPutString52]
#IF
#ACT
mov N52 <$STR(S52)>
#IF
SMALL N52 100
#ACT
MESSAGEBOX \　\〖操作提示〗\　\输入错误！请输入3位数字，作为本会密码
GOTO @MAIN
BREAK
#IF
LARGE N52 1000
#ACT
MESSAGEBOX \　\〖操作提示〗\　\输入错误！请输入3位数字，作为本会密码
GOTO @MAIN
BREAK
#IF
#ACT
CreateFile ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$GUILDNAME>密码.txt
AddTextListEx ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$GUILDNAME>密码.txt <$STR(N52)> 0
GUILDSTABILITYPOINT = <$STR(N52)>
SENDMSG 6 当前行会密码：<$GUILDSTABILITYPOINT>　请记住此密码，如有忘记请直接『取消密码』
GOTO @MAIN
[@取消密码]
#IF
#ACT
GUILDSTABILITYPOINT = 0
AddTextListEx ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$GUILDNAME>密码.txt <$GUILDSTABILITYPOINT> 0
SENDMSG 6 『取消密码』成功，如需密码请点击『设置密码』按钮
GOTO @MAIN

[@加入行会钮1]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
equal S$第1行会密码 0
#ACT
AddGuildMember <$STR(A30)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN
[@加入行会钮2]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
equal S$第2行会密码 0
#ACT
AddGuildMember <$STR(A31)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN
[@加入行会钮3]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
equal S$第3行会密码 0
#ACT
AddGuildMember <$STR(A32)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN
[@加入行会钮4]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
equal S$第4行会密码 0
#ACT
AddGuildMember <$STR(A33)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN
[@加入行会钮5]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
equal S$第5行会密码 0
#ACT
AddGuildMember <$STR(A34)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN

[@InPutString53]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A30)>密码.txt <$STR(S53)>
#ACT
AddGuildMember <$STR(A30)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN
#ELSEACT
inc N$密码错误 1
MESSAGEBOX \　\〖操作提示〗\　\行会密码输入错误
GOTO @关进监狱

[@InPutString54]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A31)>密码.txt <$STR(S54)>
#ACT
AddGuildMember <$STR(A31)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN
#ELSEACT
MESSAGEBOX \　\〖操作提示〗\　\行会密码输入错误\　\


[@InPutString55]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A32)>密码.txt <$STR(S55)>
#ACT
AddGuildMember <$STR(A32)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN
#ELSEACT
MESSAGEBOX \　\〖操作提示〗\　\行会密码输入错误\　\

[@InPutString56]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A33)>密码.txt <$STR(S56)>
#ACT
AddGuildMember <$STR(A33)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN
#ELSEACT
MESSAGEBOX \　\〖操作提示〗\　\行会密码输入错误\　\


[@InPutString57]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \　\〖操作提示〗\　\你已经加入其它行会，无法加入此会
break
#IF
CHECKTEXTLIST ..\QuestDiary\龙炎界面脚本\行会\行会密码\<$STR(A34)>密码.txt <$STR(S57)>
#ACT
AddGuildMember <$STR(A34)> <$USERNAME>
SENDMSG 0 {〖系统〗|149:241}{ぐ游戏提示:|154:241}<$USERNAME>{加入了|255:241}{『<$GUILDNAME>』|149:241}{成为行会成员|255:241}
GOTO @MAIN
#ELSEACT
MESSAGEBOX \　\〖操作提示〗\　\行会密码输入错误\　\
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|一一素材网 |网站地图

GMT+8, 2025-8-3 04:56 , Processed in 0.128331 second(s), 43 queries .

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表