HERO引擎脚本-第一行会竞标

GM版本库

[@main]
#IF
CHECKLEVELEX > 0
#ACT
CloseBigDialogBox
#SAY
【说明】
<土城天下第一行会,可以代替掌门招收会员/SCOLOR=125>\
<竞标方式:采用元宝竞标，只要你给出的价格高于上一个行会的竞/SCOLOR=125>\
<标价格，你的行会就可以中标，直到下一位竞争对手出现./SCOLOR=125>\
<┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ /SCOLOR=250>\
?<当前竞标行会:/SCOLOR=154> <$STR(A109)>  <竞标价格:/SCOLOR=154> <$STR(G107)> <元宝/SCOLOR=154>\
?<竞标时间:/SCOLOR=154> <$STR(A110)>\
<┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛ /SCOLOR=250>\
?[<我要竞标/@竞标开始>]<←只有行会掌门人才可以参与竞标>    [<返回首页/@main>]

[@竞标开始]
#if
ISGUILDMASTER
#act
goto @竞标开始2
#elseact
messagebox 对不起，你不是行会掌门
[@竞标开始2]
#if
equal a109 <$GUILDNAME>
#act
messagebox 错误，你所在的行会已经是中标行会！
break
#elsesay
?\ \ \
→<输入竞标价格/@@InPutInteger70> <(只能为整数)>\ \
→<返回/@行会服务>

[@InPutInteger70]
#if
large n70 <$STR(G107)>
#act
goto @竞标3
#elseact
messagebox 对不起，你的出价太低！

[@竞标3]
#if
CHECKGAMEGOLD < <$STR(n70)>
#act
messagebox 对不起，你没有那么多元宝！
#elsesay
你给出的价格为<$STR(n70)>元宝,请填写完整以下信息：\ \
→<输入招收会员的最低等级要求/@@InPutInteger71>  <(35-100)/SCOLOR=253>\
→<输入一段简短公告/@@InPutString11> <(在雕像上显示)/SCOLOR=253>\
?<[公告]/SCOLOR=250><$STR(s11)>\ \

→<提交信息/@竞标4>

[@InPutInteger71]
#if
large n71 35
small n71 100
#act
messagebox 设定成功，加入你的行会的最低等级要求是<$STR(n71)>级！
#elseact
messagebox 请输入一个35－100间的整数！
goto @竞标3

[@InPutString11]
#act
goto @竞标3

[@竞标4]
#If
small n71 35
#act
messagebox 请设定招收会员的最低等级要求！
goto @竞标3
#elsesay
<以下是你的全部信息，点击确定提交信息：/SCOLOR=250>\
<行会名称：/SCOLOR=154><$GUILDNAME>\
<行会掌门：/SCOLOR=154><$USERNAME>\
<竞标价格：/SCOLOR=154><$STR(n70)>元宝\
<竞标时间：/SCOLOR=154><$DATETIME>\
<加入该行会的最低等级要求是：/SCOLOR=154><$STR(n71)>级\
<公告内容：/SCOLOR=154><$STR(s11)>\ \

→[<确定提交信息/@竞标5>]              [<返回重新填写/@竞标开始>]

[@竞标5]
#if
CHECKGAMEGOLD > <$STR(n70)>
large n70 <$STR(G107)>
#act
GAMEGOLD - <$STR(n70)>
mov a109 <$GUILDNAME>
mov g107 <$STR(n70)>
mov a110 <$DATETIME>
mov g108 <$STR(n71)>
mov a119 <$STR(s11)>
mov a121 <$USERNAME>
mov g109 0
mov g110 0
SENDMSG 0 [系统]<$USERNAME>为自己的行会竞标成功！
close
#elseact
SENDMSG 7 [超时]
goto @main