Gom引擎脚本-行会收人

(@@InPutString @@InPutInteger)
[@main]
#ACT
OPENMERCHANTBIGDLG 0 17 0 0 0 0 0
#SAY
<Img:1:0:460:33/@EXIT>
<Img:18:0:-80:-35>
<Img:19:0:95:70/@jrxh>
<Img:20:0:-3:120/@cyjj>
<Img:21:0:-102:170/@竞标台管理>
<PlayImg:0:22:3:200:-222:78:1>
<PlayImg:0:22:3:200:-114:78:1>
<PlayImg:0:22:3:200:-254:128:1>
<PlayImg:0:22:3:200:-146:128:1>
<PlayImg:0:22:3:200:-286:178:1>
<PlayImg:0:22:3:200:-178:178:1>
\ \
\ \
\ \
\ \
<>                             <当前求贤行会/SCOLOR=254> → <【/SCOLOR=224><$STR(A21)><】/SCOLOR=224>\
<>                             <当前行会掌门/SCOLOR=254> → <【/SCOLOR=224><$STR(A22)><】/SCOLOR=224>\
<>                             <最低等级要求/SCOLOR=253> → <【/SCOLOR=224><$STR(G7)><】/SCOLOR=224>\
<>                             <当前掌门致辞/SCOLOR=251> → <【/SCOLOR=224><$STR(A23)><】/SCOLOR=224>\
<>                             <当前竞标价格/SCOLOR=249> → <【/SCOLOR=249><$STR(G8)><灵石】/SCOLOR=249>\ \
<>                            <支付比竞价多10000灵石即可/AUTOCOLOR=250,253,254>\
<>                            <抢占行会招贤榜壮大您的行会/AUTOCOLOR=250,253,254>\ \
<>                            <进入管理您的行会招贤要求/SCOLOR=210> <也可以更改您的行会招贤致辞/SCOLOR=210>\


[@cyjj]
#IF
HAVEGUILD
ISGUILDMASTER
CHECKGAMEGOLD > <$STR(G8)>
#ACT
INC G8 10000
GAMEGOLD - <$STR(G8)>
mov A21 <$GUILDNAME>
mov A22 <$USERNAME>
set [198] 1
Messagebox [成功]：您在行会竞价板上花了【<$STR(G8)>】个灵石竞得。
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得，大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得，大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得，大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得，大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得，大家赶快来加入这个有实力的行会吧!
GOTO @main
BREAK
#ELSEACT
GOTO @检测提示
break
[@检测提示]
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<竞价失败：>\ \
　         <您的灵石不足或者您没有行会.../SCOLOR=151>
[@jrxh]
#if
equal G109 1
#act
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<加入失败：>\ \
　         <对不起，本行会暂时不收人.../SCOLOR=151>
#ACT
break

#if
CHECKLEVELEX < <$STR(G7)>
#act
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<加入失败：>\ \
　         <对不起，等级不够.../SCOLOR=151>
#ACT
break

#IF
ISGUILDMASTER
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<加入失败：>\ \
　         <您现在是行会掌门不能在加入其他行会.../SCOLOR=151>
#ACT
break

#IF
equal A21 <$GUILDNAME>
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<加入失败：>\ \
　         <您现在已经是【<$STR(A21)>】的行会成员了.../SCOLOR=151>
#ACT
break
#ELSEACT
goto @jrxh3

[@jrxh3]
#IF
HAVEGUILD
#ACT
Gmexecute 退出行会
DELAYGOTO 3 @jrxh4
#ELSEACT
goto @jrxh4

[@jrxh4]
#IF
equal A21
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<失败：>\ \
　      <现在还没行会竟价格.../SCOLOR=151>
#ACT
BREAK
#ELSEACT
AddGuildMember <$STR(A21)>
set [198] 1
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
break




[@竞标台管理]
#if
ISGUILDMASTER
equal A21 <$GUILDNAME>
#act
goto @竞标台管理2
#elseact
SENDMSG 5 [只有本行会掌门才可以进行管理]
goto @main

[@竞标台管理2]
#if
equal g109 0
#act
mov s1 <开启/SCOLOR=250>
#if
equal g109 1
#act
mov s1 <关闭>
#if
equal g110 0
#act
mov s2 <允许/SCOLOR=250>
#if
equal g110 1
#act
mov s2 <禁止>
#if
#ACT
OPENMERCHANTBIGDLG 0 17 0 0 0 0 0
#SAY
<Img:1:0:501:20/@EXIT>
<Img:18:0:-80:-35>\
\ \ \ \ \ \
<>                              →<修改公告内容/@@InPutString5> 当前公告内容:<$STR(S5)>\ \
<>                              →<修改等级要求/@@InPutInteger71> 当前等级要求:<$STR(G7)>级\ \
<>                              →<行会收人状态/SCOLOR=254> 当前状态为：<$STR(s1)> [<更改/@gg1>]\ \
<>                              →<提交信息/@竞标4>\ \

[@gg1]
#if
equal g109 0
#act
mov g109 1
goto @竞标台管理
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<提示：>\ \
　     <行会收人状态→关闭.../SCOLOR=151>
#ACT
break
#if
equal g109 1
#act
mov g109 0
goto @竞标台管理
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<提示：>\ \
　     <行会收人状态→开放.../SCOLOR=151>
#ACT
break
;------------------------------------
[@InPutInteger71]
#if
large n71 400
small n71 5000
#act
mov G7 <$STR(n71)>
goto @竞标台管理2
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<设定成功：>\ \
　         <加入你的行会的最低等级要求是<$STR(n71)>级.../SCOLOR=151>
#ACT
BREAK
#elseact
goto @竞标台管理31
[@竞标台管理31]
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<错误提示：>\ \
　         <请输入一个500－4000间的整数.../SCOLOR=151>
[@InPutString5]
#if
#act
mov A23 <$STR(S5)>
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<修改成功：>\ \
　         <公告内容为<$STR(S5)>.../SCOLOR=151>
#ACT
BREAK
goto @竞标台管理2
#elseact
goto @竞标台管理3
[@竞标台管理3]
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<错误提示：>\ \
　         <非法字符，请输入一段文本，勿输入其它字符.../SCOLOR=151>

[@竞标4]
#If
small n71 20
#act
goto @竞标3
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
　<提示：>\ \
　     <请设定招收会员的最低等级要求.../SCOLOR=151>
#ACT
BREAK
#elseact
#ACT
OPENMERCHANTBIGDLG 0 17 0 0 0 0 0
#SAY
<Img:1:0:501:20/@EXIT>
<Img:18:0:-80:-35>\
\ \ \ \
<>                         <以下是你的全部信息，点击确定提交信息：/SCOLOR=250>\
<>                         <行会名称：/SCOLOR=154><$GUILDNAME>\
<>                         <行会掌门：/SCOLOR=154><$USERNAME>\
<>                         <竞标价格：/SCOLOR=154><$STR(G8)>灵石\
<>                         <加入该行会的最低等级要求是：/SCOLOR=154><$STR(n71)>级\
<>                         <公告内容：/SCOLOR=154><$STR(A23)>\ \

<>                         →[<确定提交信息/@竞标5>]              [<返回重新填写/@竞标台管理2>]

[@竞标5]
#if
#act
mov A21 <$GUILDNAME>
mov G7 <$STR(n71)>
mov A23 <$STR(s5)>
SENDMSG 7 修改成功！
close
#elseact
SENDMSG 7 [超时]
goto @main
;------------------------------------------------------------------