hero引擎竞价行会收人脚本
(@@InPutString @@InPutInteger )[@main]
#IF
EQUAL G161 0
#ACT
MOV A165 暂无
MOV A166 暂无
MOV S4 关闭
GOTO @main2
BREAK
#IF
equal G163 0
#ACT
MOV S4 开放
GOTO @main2
BREAK
#IF
equal G163 1
#ACT
MOV S4 关闭
GOTO @main2
BREAK
#ELSEACT
GOTO @main2
[@main2]
━━━━━━━━━━━━━━━━━━━━━━━━━━━━\
<天下英雄气 千秋沿凛然 龙行征服路 傲视凡尘间/SCOLOR=151>\ \
┏╮/／ <[第一行会]/SCOLOR=250>：</SCOLOR=253> <[收人状态]/SCOLOR=250>：</SCOLOR=253>\
╰◆╮ <[行会掌门]/SCOLOR=250>：</SCOLOR=253>\
／/╰┛ <[竞拍价位]/SCOLOR=250>：</SCOLOR=253>+</SCOLOR=253><元宝/SCOLOR=249>\ \
<【加入行会】/@加入> <【我要竞标】/@竞标> \
━━━━━━━━━━━━━━━━━━━━━━━━━━━━\
[@竞标]
#IF
#SAY
<竞标说明：/SCOLOR=250><天下第一行会，可以代替掌门招收会员！/SCOLOR=249>\
<竞标方式：/SCOLOR=250>采用<元宝竞标/SCOLOR=253>，只要你给出的价格高于上一个行会的\
竞标价格<+5000元宝/SCOLOR=254>，你的行会就可以中标，直到下\
一位竞争行会出现！\ \
<当前竞标行会/SCOLOR=250>：<$STR(A165)><竞标价格/SCOLOR=250>：<$STR(G162)> 元宝\
<竞标时间/SCOLOR=250>：<$STR(A168)>\ \
<我要竞标/@竞标开始> <←只有行会掌门人才可以参与竞标> <返回首页/@main>\
[@竞标开始]
#IF
ISGUILDMASTER
#ACT
MOV N70 0
MOV N71 0
MOV S6
GOTO @信息输入
#ELSEACT
MESSAGEBOX [失败]：你不是行会掌门，不能发起第一行会竞标！
[@信息输入]
#IF
EQUAL A165 <$GUILDNAME>
#ACT
MESSAGEBOX [竞标失败]：你所在的行会已经是中标行会，无需再次竞标！
BREAK
#IF
ISGUILDMASTER
#SAY
<你拥有的元宝/SCOLOR=254>：</SCOLOR=253> <当前竞拍价位/SCOLOR=254>：</SCOLOR=253>+</SCOLOR=253><元宝/SCOLOR=249>\ \
<请输入你要要竞标的价格/@@InPutInteger70> <(只能输入整数)/SCOLOR=250> 元宝：<$str(N70)>\
<请输入招收成员最低等级/@@InPutInteger71> <(60级→100级)/SCOLOR=250> 等级：<$str(N71)>\
<请输入一段简短的公告/@@InPutString18> <(在雕像上显示)/SCOLOR=250> 公告可以留空\ \
;<公告内容：/SCOLOR=250><$STR(S18)>\
\ \
<确定竞标/@提交> <返回/@main> <关闭/@exit>
#ELSEACT
MESSAGEBOX [失败]：你的元宝不足或者你不是行会掌门！
[@InPutInteger70]
#IF
CHECKGAMEGOLD < <$STR(N70)>
#ACT
MESSAGEBOX 对不起，你没有那么多元宝！
MOV N70 0
GOTO @信息输入
BREAK
#IF
random 1
#ACT
MOV D0 <$STR(G162)>
#IF
random 1
#ACT
INC D0 5000
#IF
large N70 D0
#ACT
GOTO @信息输入
#ELSEACT
MESSAGEBOX 对不起，你的出价太低，无法参与竞标。
MOV N70 0
GOTO @信息输入
[@InPutInteger71]
#IF
large N71 59
small N71 99
#ACT
MESSAGEBOX 等级设定成功，加入你的行会的最低等级要求是<$STR(N71)>级！
GOTO @信息输入
#elseact
MESSAGEBOX 招收的成员要求在60级~100级之间，请输入一个符合的值！
MOV N71 0
GOTO @信息输入
[@CallInPutString18]
#IF
EQUAL S18
#ACT
MESSAGEBOX 你输入的公告为空，这样别人无法看到你的公告信息哦！\ \如果你不需要公告信息，那么请点击[确定竞标]立即竞标！
GOTO @信息输入
#ELSEACT
MESSAGEBOX 公告输入成功，请点击[确定竞标]立即竞标！
GOTO @信息输入
[@提交]
#IF
EQUAL N70 0
#ACT
MESSAGEBOX 对不起，你还没有输入竞标价格！
GOTO @信息输入
BREAK
#IF
EQUAL N71 0
#ACT
MESSAGEBOX 对不起，你还没有输入招收成员等级！
GOTO @信息输入
BREAK
#IF
random 1
#ACT
MOV D0 <$STR(G162)>
#IF
random 1
#ACT
INC D0 5000
#IF
EQUAL N70 < <$STR(D0)>
#ACT
MESSAGEBOX 对不起，你的出价太低，无法参与竞标。
GOTO @信息输入
BREAK
#IF
CHECKGAMEGOLD < <$STR(N70)>
#ACT
MESSAGEBOX 对不起，你没有那么多元宝！
GOTO @信息输入
BREAK
#IF
large N71 59
small N71 99
#ACT
GOTO @最后判断
#ELSEACT
MESSAGEBOX 招收的成员要求在60级~100级之间，请输入一个符合的值！
MOV N71 0
GOTO @信息输入
BREAK
[@最后判断]
#if
ISGUILDMASTER
CHECKGAMEGOLD > <$STR(N70)>
large N70 D0
#act
GAMEGOLD - <$STR(N70)>
mov A165 <$GUILDNAME>
mov G162 <$STR(N70)>
mov A168 <$DATETIME>
mov G164 <$STR(N71)>
mov A167 <$STR(S6)>
mov A166 <$USERNAME>
mov G163 0
MOV G161 1
GuildNoticeMsg 255 252 恭喜『<$USERNAME>』成功抢夺第一行会的位置，大家可以通过土城(324:340)加入第一行会！ 1 5
GuildNoticeMsg 255 252 恭喜『<$USERNAME>』成功抢夺第一行会的位置，大家可以通过土城(324:340)加入第一行会！ 1 5
GuildNoticeMsg 255 252 恭喜『<$USERNAME>』成功抢夺第一行会的位置，大家可以通过土城(324:340)加入第一行会！ 1 5
GuildNoticeMsg 255 252 恭喜『<$USERNAME>』成功抢夺第一行会的位置，大家可以通过土城(324:340)加入第一行会！ 1 5
GuildNoticeMsg 255 252 恭喜『<$USERNAME>』成功抢夺第一行会的位置，大家可以通过土城(324:340)加入第一行会！ 1 5
close
#elseact
MESSAGEBOX [竞标失败]： \1.可能你的元宝不足！\ 2.可能你不是行会掌门！\ 3.可能你的出价太低！
GOTO @main
[@加入]
#if
EQUAL G161 0
#act
SENDMSG 6 [当前还没有竞价行会，暂时无法加入]
goto @main
break
#if
equal G163 1
#act
messagebox 对不起，本行会暂时不收人
break
#IF
HAVEGUILD
#ACT
MESSAGEBOX [失败]:您已经有行会了。无法申请!\请先退出你当前的行会！
break
#if
CHECKLEVELEX < <$STR(G164)>
#act
messagebox 等级不够！
break
#if
EQUAL G161 1
#act
AddGuildMember <$STR(A165)> <$USERNAME>
GuildNoticeMsg 245 146 勇士[%s]通过行会招人直接加入了★<$STR(A165)>★行会 1 5
GuildNoticeMsg 245 146 勇士[%s]通过行会招人直接加入了★<$STR(A165)>★行会 1 5
GuildNoticeMsg 245 146 勇士[%s]通过行会招人直接加入了★<$STR(A165)>★行会 1 5
GuildNoticeMsg 245 146 勇士[%s]通过行会招人直接加入了★<$STR(A165)>★行会 1 5
goto @main
[@竞标台管理]
#if
ISGUILDMASTER
equal A165 <$GUILDNAME>
#act
goto @竞标台管理2
#elseact
MESSAGEBOX 只有本行会掌门才可以进行管理!
goto @main
[@竞标台管理2]
#if
equal G163 0
#act
mov S4 开放
mov S5 允许
#if
equal G163 1
#act
mov S4 关闭
mov S5 禁止
#if
#say
<公告内容/SCOLOR=250>：<$STR(A167)>\ \
<修改公告内容/@@InPutString7>\ \
<当前收人等级要求/SCOLOR=250>:<$STR(G164)>级\ \
<修改等级要求/@@InPutInteger72>\ \
<当前行会收人状态/SCOLOR=254>：<$STR(S1)> [<更改/@gg1>] <返回/@main>
[@InPutInteger72]
#IF
large N72 59
small N72 99
#ELSEACT
MESSAGEBOX 招收的成员要求在60级~100级之间，请输入一个符合的值！
GOTO @竞标台管理
BREAK
#IF
ISGUILDMASTER
equal A165 <$GUILDNAME>
#ACT
mov G164 <$STR(N72)>
messagebox 等级设定成功，加入你的行会的最低等级要求是<$STR(N72)>级！
MOV N72 0
goto @竞标台管理
#ELSEACT
MESSAGEBOX 只有本行会掌门才可以进行管理!
CLOSE
BREAK
[@InPutString7]
#IF
ISGUILDMASTER
equal A165 <$GUILDNAME>
#ACT
MOV A167 <$STR(S7)>
MESSAGEBOX 公告修改成功！
MOV S7
GOTO @竞标台管理
#ELSEACT
MESSAGEBOX 只有本行会掌门才可以进行管理!
CLOSE
BREAK
[@gg1]
#if
ISGUILDMASTER
equal A165 <$GUILDNAME>
equal G163 0
#act
mov G163 1
messagebox 收人状态修改成功，目前收人状态：【关闭】
goto @竞标台管理
break
#if
ISGUILDMASTER
equal A165 <$GUILDNAME>
equal G163 1
#act
mov G163 0
messagebox 收人状态修改成功，目前收人状态：【开放】
goto @竞标台管理
break
有竞争才有进步嘛 找到好贴不容易，我顶你了，谢了 学习下 帮你顶下哈！！ OMG！介是啥东东！！！ 我是个凑数的。。。 very good 好内容。。。 没人回帖。。。我来个吧 顶起出售广告位
页:
[1]
2