hero引擎竞价行会收人脚本

[复制链接]
查看3818 | 回复18 | 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


下一篇:hero引擎天下第一脚本
GM论坛 | 2015-9-15 01:34:34 | 显示全部楼层
有竞争才有进步嘛
香香公主 | 2015-9-15 05:02:09 | 显示全部楼层
找到好贴不容易,我顶你了,谢了
mongyejs | 2015-9-15 06:49:07 | 显示全部楼层
学习下
xiaosage | 2015-9-15 08:34:23 | 显示全部楼层
帮你顶下哈!!
yuyuyuko | 2015-9-15 10:36:35 | 显示全部楼层
OMG!介是啥东东!!!
我是男神 | 2015-9-15 12:35:08 | 显示全部楼层
我是个凑数的。。。
qpexcgt | 2015-9-15 13:55:19 | 显示全部楼层
very good 好内容。。。
牛B的人 | 2015-9-15 16:40:28 | 显示全部楼层
没人回帖。。。我来个吧
lxoelgjvbnds | 2015-9-15 21:59:33 | 显示全部楼层
顶起出售广告位
懒得打字嘛,点击右侧快捷回复 快捷回复框
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

16

主题

701

回帖

735

积分

常驻会员Lv4

积分
735