[@传奇sf一条龙行会招人脚本]
〓〓〓〓〓〓〓〓〓〓〓〓〓<【说明】>〓〓〓〓〓〓〓〓〓〓〓〓\
〓〓〓〓〓<土城天下第一行会, 可以代替掌门招收会员>〓〓〓〓〓\
<竞标方式>:采用元宝竞标,只要你给出的价格高于上一个行会的竞\
标价格,你的行会就可以中标,直到下一位竞争对手出现.\ \
<我要竞标①号位置/@竞标开始>←只有掌门才可竞标 <当前价格>:<$STR(G107)>元宝\
<我要竞标②号位置/@竞标开始aa>←只有掌门才可竞标 <当前价格>:<$STR(G180)>元宝\
<我要竞标③号位置/@竞标开始ab>←只有掌门才可竞标 <当前价格>:<$STR(G190)>元宝\
[@传奇私服服务端]
#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
[@竞标开始aa]
#if
ISGUILDMASTER
#act
goto @竞标开始a2
#elseact
messagebox 对不起,你不是行会掌门
[@竞标开始a2]
#if
equal a131 <$GUILDNAME>
#act
messagebox 错误,你所在的行会已经是中标行会!
break
#elsesay
\ \ \
→<输入竞标价格/@@InPutInteger80> <(只能为整数)>\ \
→<返回/@行会服务>
[@InPutInteger80]
#if
large n80 <$STR(G180)>
#act
goto @竞标a3
#elseact
messagebox 对不起,你的出价太低!
[@竞标a3]
#if
CHECKGAMEGOLD < <$STR(n80)>
#act
messagebox 对不起,你没有那么多元宝!
#elsesay
你给出的价格为<$STR(n80)>元宝,请填写完整以下信息:\ \
→<输入招收会员的最低等级要求/@@InPutInteger73> <(35-150)/SCOLOR=253>\
→<输入一段简短公告/@@InPutString13> <(在雕像上显示)/SCOLOR=253>\
<[公告]/SCOLOR=250><$STR(s13)>\ \
→<提交信息/@竞标a4>
[@InPutInteger73]
#if
large n73 35
small n73 150
#act
messagebox 设定成功,加入你的行会的最低等级要求是<$STR(n73)>级!
#elseact
messagebox 请输入一个35-150间的整数!
goto @竞标a3
[@InPutString13]
#act
goto @竞标a3
[@竞标a4]
#If
small n73 35
#act
messagebox 请设定招收会员的最低等级要求!
goto @竞标a3
#elsesay
<以下是你的全部信息,点击确定提交信息:/SCOLOR=250>\
<行会名称:/SCOLOR=154><$GUILDNAME>\
<行会掌门:/SCOLOR=154><$USERNAME>\
<竞标价格:/SCOLOR=154><$STR(n80)>元宝\
<加入该行会的最低等级要求是:/SCOLOR=154><$STR(n73)>级\
<公告内容:/SCOLOR=154><$STR(s13)>\ \
→[<确定提交信息/@竞标a5>] [<返回重新填写/@竞标开始aa>]
[@竞标a5]
#if
CHECKGAMEGOLD > <$STR(n80)>
large n80 <$STR(G180)>
#act
GAMEGOLD - <$STR(n80)>
mov A131 <$GUILDNAME>
mov g180 <$STR(n80)>
mov G128 <$STR(n73)>
mov A139 <$STR(s13)>
mov A135 <$USERNAME>
mov g119 0
mov g120 0
SENDMSG 0 [系统]<$USERNAME>为自己的行会竞标成功,该行会的所有成员可以每天领取工资了!
close
#elseact
SENDMSG 7 [超时]
goto @main
[@竞标开始ab]
#if
ISGUILDMASTER
#act
goto @竞标开始b2
#elseact
messagebox 对不起,你不是行会掌门
[@竞标开始b2]
#if
equal A141 <$GUILDNAME>
#act
messagebox 错误,你所在的行会已经是中标行会!
break
#elsesay
\ \ \
→<输入竞标价格/@@InPutInteger90> <(只能为整数)>\ \
→<返回/@行会服务>
[@InPutInteger90]
#if
large n90 <$STR(G190)>
#act
goto @竞标b3
#elseact
messagebox 对不起,你的出价太低!
[@竞标b3]
#if
CHECKGAMEGOLD < <$STR(n90)>
#act
messagebox 对不起,你没有那么多元宝!
#elsesay
你给出的价格为<$STR(n90)>元宝,请填写完整以下信息:\ \
→<输入招收会员的最低等级要求/@@InPutInteger72> <(35-150)/SCOLOR=253>\
→<输入一段简短公告/@@InPutString12> <(在雕像上显示)/SCOLOR=253>\
<[公告]/SCOLOR=250><$STR(s12)>\ \
→<提交信息/@竞标b4>
[@InPutInteger72]
#if
large n73 35
small n73 150
#act
messagebox 设定成功,加入你的行会的最低等级要求是<$STR(n72)>级!
#elseact
messagebox 请输入一个35-150间的整数!
goto @竞标b3
[@InPutString12]
#act
goto @竞标b3
[@竞标b4]
#If
small n72 35
#act
messagebox 请设定招收会员的最低等级要求!
goto @竞标b3
#elsesay
<以下是你的全部信息,点击确定提交信息:/SCOLOR=250>\
<行会名称:/SCOLOR=154><$GUILDNAME>\
<行会掌门:/SCOLOR=154><$USERNAME>\
<竞标价格:/SCOLOR=154><$STR(n90)>元宝\
<加入该行会的最低等级要求是:/SCOLOR=154><$STR(n72)>级\
<公告内容:/SCOLOR=154><$STR(s12)>\ \
→[<确定提交信息/@竞标b5>] [<返回重新填写/@竞标开始ab>]
[@竞标b5]
#if
CHECKGAMEGOLD > <$STR(n90)>
large n90 <$STR(G190)>
#act
GAMEGOLD - <$STR(n90)>
mov A141 <$GUILDNAME>
mov g190 <$STR(n90)>
mov G118 <$STR(n72)>
mov A145 <$STR(s12)>
mov A143 <$USERNAME>
mov g129 0
mov g130 0
SENDMSG 0 [系统]<$USERNAME>为自己的行会竞标成功,该行会的所有成员可以每天领取工资了!
close
#elseact
SENDMSG 7 [超时]
goto @main