Hero引擎竞标员NPC传奇脚本

畅游

Hero引擎竞标员NPC传奇脚本

(@@InPutString @@InPutInteger )
[@main]
< ━━━━━━━━/SCOLOR=69><天下第一行会招兵1买马/SCOLOR=253><━━━━━━/SCOLOR=69>【<介绍查询/@介绍查询>】\
< 【行会名称】/SCOLOR=154><$STR(A109)>\
< 【竟标掌门】/SCOLOR=154><$STR(A121)>\
< 【竟标价格】/SCOLOR=154><$STR(G107)>元宝\
< 【行会宣言】/SCOLOR=154><$STR(A119)>\
< 【竞标时间】/SCOLOR=154><$STR(A110)>\
< 【要求成员最低等级要求为/SCOLOR=154><$STR(G108)>级\
< ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=69>\
【<加入该会/@加入>】<←想入会的门兄弟点此/SCOLOR=253>　【<我要竞标/@我也要竞标>】　【<管理选项/@竞标台管理>】 \

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

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

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

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

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

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

[@CALLInPutString12]
#act
goto @竞标3

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

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

[@竞标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(n72)>
mov a119 <$STR(s12)>
mov a121 <$USERNAME>
mov g109 0
mov g110 0
SENDMSG 0 <$USERNAME>为自己的行会竞标成功、欢迎全服所有兄弟加入本行会！
close
#elseact
SENDMSG 7 [超时]
goto @main

[@介绍查询]
行会公告牌介绍：\
①.最底竞标价格为1元宝!\
②.必须行会掌门人才可以竞标行会公告牌!\
③.行会掌门人竞标成功.可以随意打招募内容!\
④.玩家不需要面对掌门人.可以直接加入本行会!\
⑤.掌门人进入管理选项.可以随时开启招募,或是关闭招募!\
⑥.掌门人进入管理选项.可以随时更改招募信息和招募等级!\ \
　　　　　<返回上&#1211;&#1203;/@main>　　　　　<关　　闭/@exit>\

[@加入]
#if
equal A109
#act
SENDMSG 6 [对不起,暂时还没有行会在此竞标呢.....]
goto @main
break
#if
equal g109 1
#act
messagebox 对不起，本行会暂时不收人
break
#IF
HAVEGUILD
#ACT
MESSAGEBOX [失败]:您已经有行会了。无法申请!\请先退出你当前的行会！
break
#if
CHECKLEVELEX < <$STR(g108)>
#act
messagebox 等级不够！
break
#if
#act
AddGuildMember <$STR(A109)> <$USERNAME>
messagebox 恭喜你已经成功加入到<$STR(A109)>
goto @main

[@竞标台管理]
#if
ISGUILDMASTER
equal a109 <$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
?\
→<修改公告内容/@@InPutString11>  当前公告内容:<$STR(A119)>\
→<修改等级要求/@@InPutInteger71>  当前等级要求:<$STR(G108)>级\ \
→<行会收人状态/SCOLOR=254>  当前状态为：<$STR(s1)>  [<更改/@gg1>]\ \
→<返回/@main>

[@gg1]
#if
equal g109 0
#act
mov g109 1
messagebox 行会收人状态→关闭
goto @竞标台管理
break
#if
equal g109 1
#act
mov g109 0
messagebox 行会收人状态→开放
goto @竞标台管理
break

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

[@CALLInPutString11]
#if
equal s11
#act
messagebox 非法字符
#elseact
mov a119 <$STR(s11)>
messagebox 修改成功
goto @竞标台管理