天下第一行会完整脚本HERO引擎
;HERO引擎天下第一行会完整脚本(@@InPutString @@InPutInteger)
[@main]
#ACT
OPENMERCHANTBIGDLG 0 1006 1 4 0 0 1
#SAY
<> <Img:1010:0:-103:-3/@EXIT>\
<> <Img:1007:0:-395:30/@jrxh>\
<> <Img:1008:0:-395:145/@cyjj>\
<> <Img:1009:0:-395:175/@竞标台管理> \ \
<> <当前求贤行会/SCOLOR=254> → <【/SCOLOR=224><$STR(A30)><】/SCOLOR=224>\
<> <当前行会掌门/SCOLOR=254> → <【/SCOLOR=224><$STR(A31)><】/SCOLOR=224>\
<> <最低等级要求/SCOLOR=253> → <【/SCOLOR=224><$STR(G108)><】/SCOLOR=224>\
<> <当前掌门致辞/SCOLOR=251> → <【/SCOLOR=224><$STR(A5)><】/SCOLOR=224>\
<> <当前竞标价格/SCOLOR=249> → <【/SCOLOR=249><$STR(G88)><元宝】/SCOLOR=249>\ \
<> <支付比竞价多5000元宝即可/AUTOCOLOR=250,253,254>\
<> <抢占行会招贤榜壮大您的行会/AUTOCOLOR=250,253,254>\ \
<> <进入管理您的行会招贤要求/SCOLOR=210>\
<> <也可以更改您的行会招贤致辞/SCOLOR=210>\
[@cyjj]
#IF
HAVEGUILD
ISGUILDMASTER
CHECKGAMEGOLD > <$STR(G88)>
#ACT
INC G88 5000
GAMEGOLD - <$STR(G88)>
mov A30 <$GUILDNAME>
mov A31 <$USERNAME>
set 1
Messagebox [成功]：您在行会竞价板上花了【<$STR(G88)>】个元宝竞得。
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A30)>】竞得，大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A30)>】竞得，大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A30)>】竞得，大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A30)>】竞得，大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$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
Gmexecute 退出行会
DELAYGOTO 3 @jrxh4
#ELSEACT
goto @jrxh4
[@jrxh4]
#IF
equal A30
#ACT
Messagebox [失败]：现在还没行会竟价格
#ELSEACT
AddGuildMember <$STR(A30)>
set 1
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A30)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A30)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A30)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A30)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A30)>】
break
[@竞标台管理]
#if
ISGUILDMASTER
equal A30 <$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
#say
<> <Img:1010:0:-108:-3/@EXIT>\ \ \ \ \
<> →<修改公告内容/@@InPutString5> 当前公告内容:<$STR(S5)>\
<> →<修改等级要求/@@InPutInteger71> 当前等级要求:<$STR(G108)>级\ \
<> →<行会收人状态/SCOLOR=254> 当前状态为：<$STR(s1)> [<更改/@gg1>]\ \
;<> →<提交信息/@竞标4>\ \
<> →<返回/@main>
;-------------------------------------
[@gg1]
#if
equal g109 0
#act
mov g109 1
messagebox 行会收人状态→关闭
goto @竞标台管理
break
#if
equal g109 1
#act
mov g109 0
messagebox 行会收人状态→开放
goto @竞标台管理
break
;------------------------------------
[@InPutInteger71]
#if
large n71 20
small n71 999
#act
mov g108 <$STR(n71)>
messagebox 设定成功，加入你的行会的最低等级要求是<$STR(n71)>级！
goto @竞标台管理2
#elseact
messagebox 请输入一个20－999间的整数！
goto @竞标3
[@InPutString5]
#if
#act
mov A5 <$STR(S5)>
messagebox 修改成功，公告内容为<$STR(S5)>！
goto @竞标台管理2
#elseact
messagebox 【错误提示】:非法字符，请输入一段文本，勿输入其它字符！
goto @竞标台管理2
[@竞标4]
#If
small n71 20
#act
messagebox 请设定招收会员的最低等级要求！
goto @竞标3
#elsesay
<> <Img:1010:0:-103:-3/@EXIT>\
\ \ \ \
<> <以下是你的全部信息，点击确定提交信息：/SCOLOR=250>\
<> <行会名称：/SCOLOR=154><$GUILDNAME>\
<> <行会掌门：/SCOLOR=154><$USERNAME>\
<> <竞标价格：/SCOLOR=154><$STR(G88)>元宝\
<> <加入该行会的最低等级要求是：/SCOLOR=154><$STR(n71)>级\
<> <公告内容：/SCOLOR=154><$STR(A5)>\ \
<> →[<确定提交信息/@竞标5>] [<返回重新填写/@竞标台管理2>]
[@竞标5]
#if
#act
mov a30 <$GUILDNAME>
mov g108 <$STR(n71)>
mov a5 <$STR(s5)>
SENDMSG 7 修改成功！
close
#elseact
SENDMSG 7 [超时]
goto @main
页:
[1]