竞价天下第一会行会自助招人功能脚本(GOM引擎)

技术员

竞价天下第一会行会自助招人功能脚本(GOM引擎)

(@@InPutInteger @@InPutString @InPutInteger @InPutString @storage @getback @getnextpage @getPreviouspage)
[@main]
#IF
#ACT

#SAY
　\　
<>天下第一会:<$STR(A30)>    　　　　　  <行会自助招人/AUTOCOLOR=250>\　\

<><您支付比目前竞价多50个元宝,即可让你行会成为天下第一会./AUTOCOLOR=250>\　\

<>  <【行会名称】/AUTOCOLOR=250>：<$STR(A30)>　　　　　<【收人状态】/AUTOCOLOR=250>：<$STR(S10)>\　

<><【行会掌门】/AUTOCOLOR=250>：<$STR(A31)>　　　　　<【竞标价格】/AUTOCOLOR=250>：<$STR(G131)>\　\　

<><加入行会/@jrxh>  　<参加竞价/@cyjj>　　 <管理选项/@竞标台管理>      <行会对战皇宫/@上限>

;
[@上限]
#IF
CHECKLEVELEX > 39
#ACT
MAPMOVE huanggong
give 回城卷
SENDMSG 0 {ぐ〖游戏提示〗:|245:0:0}{玩家|222:0}{『<$USERNAME>』|70:0}{独自闯入了|255:0}{『行会对战皇宫』|251:0}{开启了传奇旅程|249:0}
break
#ELSEACT
MESSAGEBOX [进入失败]小子你没有39级还想进去？





[@cyjj]
#IF
HAVEGUILD
ISGUILDMASTER
CHECKGAMEGOLD > <$STR(G131)>
#ACT
INC G131 50
GAMEGOLD - <$STR(G131)>
mov A30 <$GUILDNAME>
mov A31 <$USERNAME>
Messagebox [成功]：您在行会竞价板上花了【<$STR(G131)>】个元宝竞得。
GuildNoticeMsg  241 161 【<$USERNAME>】在竞价板为行会【<$STR(A30)>】竞得，大家赶快来加入这个有实力的行会吧!
GOTO @Main
BREAK
#ELSEACT
Messagebox [失败]：您的元宝不足或者您没有行会
[@jrxh]
#if
equal G109 1
#act
messagebox 对不起，本行会暂时不收人
break
#if
CHECKLEVELEX < <$STR(G108)>
#act
messagebox 等级不够！
break
#IF
ISGUILDMASTER
#ACT
Messagebox [失败]：您现在是行会掌门不能在加入其他行会！！
break
#IF
equal A30 <$GUILDNAME>
#ACT
Messagebox [失败]：您现在已经是【<$STR(A30)>】的行会成员了！！
break
#ELSEACT
goto @jrxh3
[@jrxh3]
#IF
HAVEGUILD
#ACT
Messagebox [失败]：你已经有行会了，请先出退行会！
#ELSEACT
goto @jrxh4
[@jrxh4]
#IF
equal A30
#ACT
Messagebox [失败]：现在还没行会竟价格
#ELSEACT
AddGuildMember <$STR(A30)>
GuildNoticeMsg   70 161  恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A30)>】
break
[@竞标台管理]
#if
ISGUILDMASTER
equal A30 <$GUILDNAME>
#act
goto @竞标台管理2
#elseact
SENDMSG 7 [只有本行会掌门才可以进行管理]
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
#say
?\
→<行会收人状态/SCOLOR=254>  当前状态为：<$STR(s1)>  [<更改/@gg1>]\ \
→<返回/@Main>
[@gg1]
#if
equal g109 0
#act
mov g109 1
messagebox 行会收人状态→关闭
mov S10 关闭
goto @竞标台管理
break
#if
equal g109 1
#act
mov g109 0
messagebox 行会收人状态→开放
mov S10 开放
goto @竞标台管理
break
[@InPutString5]
#if
#act
mov S5 <$STR(S5)>
goto @竞标台管理
messagebox 你已修改公告内容！
break
[@InPutInteger71]
#if
#act
goto @竞标台管理
messagebox 修改等级要求成功！
break