hero引擎竞价行会收人脚本

显示全部楼层 · 2015-9-15 00:02:00

(@@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><$STR(A165)><]/SCOLOR=253>　<[收人状态]/SCOLOR=250>：<[/SCOLOR=253><$STR(S4)><]/SCOLOR=253>\
　　╰◆╮ 　<[行会掌门]/SCOLOR=250>：<[/SCOLOR=253><$STR(A166)><]/SCOLOR=253>\
　／/╰┛ 　<[竞拍价位]/SCOLOR=250>：<[/SCOLOR=253><$STR(G162)><]/SCOLOR=253>+<[/SCOLOR=253>5000<]/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><$GAMEGOLD><]/SCOLOR=253>　<当前竞拍价位/SCOLOR=254>：<[/SCOLOR=253><$STR(G162)><]/SCOLOR=253>+<[/SCOLOR=253>5000<]/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