(@@InPutString @@InPutInteger )
[@main]
<COLOR=clFuchsia ──────────行会收人公告栏系统──────────>\
<COLOR=clAqua [①号收人掌门]>:<$STR(A68)> <[收人系统管理]/@系统管理>\
<COLOR=clAqua [①号收人行会]>:<$STR(A66)> <COLOR=clAqua [公告]>:<$STR(A62)>\
<COLOR=clLime →>[<加入该行会/@加入>]<COLOR=clLime ←>最低等级要求为<$STR(G67)>级!\
─────────────────────────────\
<COLOR=clAqua [②号收人掌门]>:<$STR(A60)> <[收人系统管理]/@系统管理1>\
<COLOR=clAqua [②号收人行会]>:<$STR(A61)> <COLOR=clAqua [公告]>:<$STR(A63)>\
<COLOR=clLime →>[<加入该行会/@加入1>]<COLOR=clLime ←>最低等级要求为<$STR(G57)>级!\
<COLOR=clLime ────────────────><[招收兵买马公告栏竞标]/@我要竞><COLOR=clLime ──>\ \
;=====================================================================================================
[@我要竞]
#SAY
┌─────┐ ──────────────────\
│<COLOR=clAqua 行>◣─◢<COLOR=clAqua 会>│ <COLOR=clFuchsia 天下英雄出我辈 一入江湖岁月催,>\
│<COLOR=clAqua 竞>◤─◥<COLOR=clAqua 标>│ <COLOR=clFuchsia 皇图霸业谈笑中 不如人生一场醉。>\
└─────┘ ──────────────────\
<COLOR=clFuchsia [公告栏①名位置掌门为]>:<$STR(A68)> →<[我要竞标①名位置]/@竞标开始>\
<COLOR=clLime [公告栏①名位置行会为]>:<$STR(A66)> <COLOR=clLime [竞标价格]>:<$STR(G68)><COLOR=clLime 元宝>\
<COLOR=clAqua ────────────────────────────>\
<COLOR=clFuchsia [公告栏②名位置掌门为]>:<$STR(A60)> →<[我要竞标②名位置]/@竞标开始1>\
<COLOR=clLime [公告栏②名位置行会为]>:<$STR(A61)> <COLOR=clLime [竞标价格]>:<$STR(G58)><COLOR=clLime 元宝>\
[@竞标规则]
#act
messagebox [竞标规则提示]:\ \竞标成为公告栏持有行会,招募NPC可以代替你收人。\ \竞标方式:采用元宝值竞标,只要你给出的价格高于上一个行会。
break
[@竞标开始]
#if
ISGUILDMASTER
equal a66 <$GUILDNAME>
#act
messagebox [竞标规则提示]:\ \ 你已经获得公告栏①名位置,不能在进行竞标了!
break
#if
ISGUILDMASTER
equal a61 <$GUILDNAME>
#act
messagebox [竞标规则提示]:\ \ 你已经获得公告栏②名位置,不能在进行竞标了!
break
#if
ISGUILDMASTER
#say
<COLOR=clLime 当前竞标价为>:[<$STR(G68)>]个元宝\ \
第一次竞标最少需要5000元宝以上,把握机会吧!\ \
→<输入竞标价格/@@InPutInteger70> <COLOR=clAqua (只能为整数)>\ \
→<返回/@main>
#elseact
messagebox [提示]:\ \ 对不起,你不满足以下条件:你不是行会掌门!
break
[@@InPutInteger70]
#If
CHECKGAMEGOLD > 1
#Act
DelayGoto 1 ~InPutInteger70
#ELSEAct
MessageBox [提示]:\ \ 你的元宝数量不足!请冲值。
[~InPutInteger70]
#IF
LARGE M70 5000000
#ACT
MESSAGEBOX [提示]:\ \ 请输入5001-5000000之间的数值!
MOV M70 0
GOTO @竞标开始
BREAK
#IF
SMALL M70 5000
#ACT
MESSAGEBOX [提示]:\ \ 请输入5001-5000000之间的数值!
MOV M70 0
GOTO @竞标开始
BREAK
#if
large M70 <$STR(G68)>
#act
goto @竞标后续
#elseact
messagebox [提示]:\ \ 对不起,你的出价太低!
[@竞标后续]
#if
CHECKGAMEGOLD < <$STR(M70)>
#act
messagebox [提示]:\ \ 对不起,你没有那么多元宝!
#elsesay
你给出的价格为<$STR(M70)>元宝,请填写完整以下信息:\ \
→<输入招收人物的最低等级要求/@@InPutInteger71> <COLOR=clAqua (35-100)>\ \
→<提交信息/@竞标成功> <COLOR=clRed 输入招收人物的最低等级完成后点提交信息>\ \
[@@InPutInteger71]
#If
CheckLevelEx > 0
#Act
DELAYGOTO 1 ~InPutInteger71
[~InPutInteger71]
#if
large M71 34
small M71 100
#act
messagebox [提示]:\ \ 设定成功,加入你的行会的最低等级要求是<$STR(M71)>级!
#elseact
messagebox [提示]:\ \ 请输入一个35-100间的整数!
goto @竞标后续
[@竞标成功]
<COLOR=clAqua 以下是你的全部信息,点击确定提交信息:>\
<COLOR=clFuchsia 行会名称:><$GUILDNAME>\
<COLOR=clLime 行会掌门:><$USERNAME>\
<COLOR=clLime 竞标价格:><$STR(M70)>元宝\
<COLOR=clLime 竞标时间:><$DATETIME>\
<COLOR=clFuchsia 加入该行会的最低等级要求是:><$STR(M71)>级\ \
→<[确定提交信息]/@竞标完成> <[返回重新填写]/@竞标开始>
[@竞标完成]
#if
CHECKGAMEGOLD > <$STR(M70)>
#act
GAMEGOLD - <$STR(M70)>
mov G74 1
mov A62 此人很懒,什么都没写下!
mov G68 <$STR(M70)>
mov G67 <$STR(M71)>
mov A68 <$USERNAME>
mov A66 <$GUILDNAME>
MOV A70 已经开启收人
messagebox [提示]:\ \ 你已经成功竟标得到公告栏1号位置\ \ 可以开启行会收人和关闭收人,默认是开启状态!
SENDMSG 0 [行会竞标公告]:[<$USERNAME>]成功竟标得到公告栏1号位置,其行会[<$STR(A66)>]成为本区最牛行会! 249 251
SENDMSG 0 [行会竞标公告]:[<$USERNAME>]成功竟标得到公告栏1号位置,其行会[<$STR(A66)>]成为本区最牛行会! 249 251
SENDMSG 0 [行会竞标公告]:[<$USERNAME>]成功竟标得到公告栏1号位置,其行会[<$STR(A66)>]成为本区最牛行会! 249 251 30
SENDMSG 0 [行会竞标公告]:[<$USERNAME>]成功竟标得到公告栏1号位置,其行会[<$STR(A66)>]成为本区最牛行会! 249 251 30
close
#elseact
SENDMSG 7 [超时]竞标失败!
goto @main
[@竞标开始1]
#if
ISGUILDMASTER
equal a66 <$GUILDNAME>
#act
messagebox [竞标规则提示]:\ \ 你已经获得公告栏①名位置,不能在进行竞标了!
break
#if
ISGUILDMASTER
equal a61 <$GUILDNAME>
#act
messagebox [竞标规则提示]:\ \ 你已经获得公告栏②名位置,不能在进行竞标了!
break
#if
ISGUILDMASTER
#say
<COLOR=clLime 当前竞标价为>:[<$STR(G58)>]个元宝\ \
第一次竞标最少需要3000元宝以上,把握机会吧!\ \
→<输入竞标价格/@@InPutInteger73> <COLOR=clAqua (只能为整数)>\ \
→<返回/@main>
#elseact
messagebox [提示]:\ \ 对不起,你不满足以下条件:你不是行会掌门!
break
[@@InPutInteger73]
#If
CHECKGAMEGOLD > 1
#Act
DelayGoto 1 ~InPutInteger73
#ELSEAct
MessageBox [提示]:\ \ 你的元宝数量不足!请冲值。
[~InPutInteger73]
#IF
LARGE M73 5000000
#ACT
MESSAGEBOX [提示]:\ \ 请输入3001-5000000之间的数值!
MOV M73 0
GOTO @竞标开始1
BREAK
#IF
SMALL M73 3000
#ACT
MESSAGEBOX [提示]:\ \ 请输入3001-5000000之间的数值!
MOV M73 0
GOTO @竞标开始1
BREAK
#if
large M73 <$STR(G58)>
#act
goto @竞标后续1
#elseact
messagebox [提示]:\ \ 对不起,你的出价太低!
[@竞标后续1]
#if
CHECKGAMEGOLD < <$STR(M73)>
#act
messagebox [提示]:\ \ 对不起,你没有那么多元宝!
#elsesay
你给出的价格为<$STR(M73)>元宝,请填写完整以下信息:\ \
→<输入招收人物的最低等级要求/@@InPutInteger74> <COLOR=clAqua (35-100)>\ \
→<提交信息/@竞标成功1> <COLOR=clRed 输入招收人物的最低等级完成后点提交信息>\ \
[@@InPutInteger74]
#If
CheckLevelEx > 0
#Act
DELAYGOTO 1 ~InPutInteger74
[~InPutInteger74]
#if
large M74 34
small M74 100
#act
messagebox [提示]:\ \ 设定成功,加入你的行会的最低等级要求是<$STR(M74)>级!
#elseact
messagebox [提示]:\ \ 请输入一个35-100间的整数!
goto @竞标后续1
[@竞标成功1]
<COLOR=clAqua 以下是你的全部信息,点击确定提交信息:>\
<COLOR=clFuchsia 行会名称:><$GUILDNAME>\
<COLOR=clLime 行会掌门:><$USERNAME>\
<COLOR=clLime 竞标价格:><$STR(M73)>元宝\
<COLOR=clLime 竞标时间:><$DATETIME>\
<COLOR=clFuchsia 加入该行会的最低等级要求是:><$STR(M74)>级\ \
→<[确定提交信息]/@竞标完成1> <[返回重新填写]/@竞标开始>
[@竞标完成1]
#if
CHECKGAMEGOLD > <$STR(M73)>
#act
GAMEGOLD - <$STR(M73)>
mov G75 1
mov A63 此人很懒,什么都没写下!
mov G58 <$STR(M73)>
mov G57 <$STR(M74)>
mov A60 <$USERNAME>
mov A61 <$GUILDNAME>
MOV A64 已经开启收人
messagebox [提示]:\ \ 你已经成功竟标得到公告栏2号位置\ \ 可以开启行会收人和关闭收人,默认是开启状态!
SENDMSG 0 [行会竞标公告]:[<$USERNAME>]成功竟标得到公告栏2号位置,其行会[<$STR(A61)>]成为本区第二行会! 249 251
SENDMSG 0 [行会竞标公告]:[<$USERNAME>]成功竟标得到公告栏2号位置,其行会[<$STR(A61)>]成为本区第二行会! 249 251
SENDMSG 0 [行会竞标公告]:[<$USERNAME>]成功竟标得到公告栏2号位置,其行会[<$STR(A61)>]成为本区第二行会! 249 251 30
SENDMSG 0 [行会竞标公告]:[<$USERNAME>]成功竟标得到公告栏2号位置,其行会[<$STR(A61)>]成为本区第二行会! 249 251 30
close
#elseact
SENDMSG 7 [超时]竞标失败!
goto @main
[@加入]
#IF
HAVEGUILD
#ACT
MESSAGEBOX [提示]:\ \ 您已经有行会了,请先退出你当前的行会!
break
#if
CHECKLEVELEX < <$STR(G67)>
#act
messagebox [提示]:\ \ 等级不够!
break
#if
equal G74 1
#act
GMEXECUTE 加入门派 <$USERNAME>
AFFILIATEGUILD <$STR(A66)> <$USERNAME>
messagebox [提示]:\ \ 恭喜你已经成功加入到<$STR(A66)>
SENDMSG 0 [系统]:玩家[<$USERNAME>]在土城行会招人栏处加入到:<$STR(A68)>的行会[<$STR(A66)>]。
SENDMSG 0 [系统]:玩家[<$USERNAME>]在土城行会招人栏处加入到:<$STR(A68)>的行会[<$STR(A66)>]。 249 251
SENDMSG 0 [系统]:玩家[<$USERNAME>]在土城行会招人栏处加入到:<$STR(A68)>的行会[<$STR(A66)>]。 249 251 5
#ELSEAct
MessageBox [提示]:\ \ 当前行会不收人!
[@系统管理]
#if
ISGUILDMASTER
equal a66 <$GUILDNAME>
#act
goto @竞标台管理
#elseact
SENDMSG 5 [只有本行会掌门才可以进行管理]
goto @main
[@竞标台管理]
#if
#say
→<修改公告内容/@@InPutString21> 当前公告内容:<$STR(A62)>\ \
→<修改等级要求/@@InPutInteger71> 当前等级要求:<$STR(G67)>级\ \
→<COLOR=clFuchsia 当前收人状态为:> <$STR(A70)>\ \
→<COLOR=clAqua 收人状态管理> <开启行会收人/@开启> <关闭行会收人/@关闭>\ \
[@@InPutInteger71]
#If
CheckLevelEx > 0
#Act
DELAYGOTO 1 ~InPutInteger71
[~InPutInteger71]
#if
large M71 100
small M71 500
#act
mov g67 <$STR(M71)>
messagebox [提示]:\ \ 设定成功,加入你的行会的最低等级要求是<$STR(M71)>级!
goto @竞标台管理
#elseact
messagebox [提示]:\ \ 请输入一个100-500间的整数!
goto @竞标台管理
[@@InPutString21]
#IF
CHECKLEVELEX > 0
#Act
DelaYGoto 1 ~InPutString21
[~InPutString21]
#IF
CHECKLEVELEX > 0
#ACT
MOV A62 <$STR(S21)>
MESSAGEBOX [提示]:公告已修改为:<$STR(S21)>
goto @竞标台管理
BREAK
[@IsInFilterList]
#IF
CHECKLEVELEX > 0
#Act
MessageBox [提示]:\ \ 输入数据中包含了非法符号,请重新编辑。
Break
[@关闭]
#IF
ISGUILDMASTER
equal a66 <$GUILDNAME>
#ACT
MOV G74 0
MOV A70 等待开启收人
MessageBox [提示]:\ \ 已经关闭收人。
goto @竞标台管理
[@开启]
#IF
ISGUILDMASTER
equal a66 <$GUILDNAME>
#ACT
MOV G74 1
MOV A70 已经开启收人
MessageBox [提示]:\ \ 已经开启收人。
goto @竞标台管理
;======================================================================================================================
[@加入1]
#IF
HAVEGUILD
#ACT
MESSAGEBOX [提示]:\ \ 您已经有行会了,请先退出你当前的行会!
break
#if
CHECKLEVELEX < <$STR(G57)>
#act
messagebox [提示]:\ \ 等级不够!
break
#if
equal G75 1
#act
GMEXECUTE 加入门派 <$USERNAME>
AFFILIATEGUILD <$STR(A61)> <$USERNAME>
messagebox [提示]:\ \ 恭喜你已经成功加入到<$STR(A61)>
SENDMSG 0 [系统]:玩家[<$USERNAME>]在土城行会招人栏处加入到:<$STR(A60)>的行会[<$STR(A61)>]。
SENDMSG 0 [系统]:玩家[<$USERNAME>]在土城行会招人栏处加入到:<$STR(A60)>的行会[<$STR(A61)>]。 249 251
SENDMSG 0 [系统]:玩家[<$USERNAME>]在土城行会招人栏处加入到:<$STR(A60)>的行会[<$STR(A61)>]。 249 251 5
#ELSEAct
MessageBox [提示]:\ \ 当前行会不收人!
[@系统管理1]
#if
ISGUILDMASTER
equal a61 <$GUILDNAME>
#act
goto @竞标台管理1
#elseact
SENDMSG 5 [只有本行会掌门才可以进行管理]
goto @main
[@竞标台管理1]
#if
#say
→<修改公告内容/@@InPutString22> 当前公告内容:<$STR(A63)>\ \
→<修改等级要求/@@InPutInteger72> 当前等级要求:<$STR(G57)>级\ \
→<COLOR=clFuchsia 当前收人状态为:> <$STR(A64)>\ \
→<COLOR=clAqua 收人状态管理> <开启行会收人/@开启1> <关闭行会收人/@关闭1>\ \
[@@InPutInteger72]
#If
CheckLevelEx > 0
#Act
DELAYGOTO 1 ~InPutInteger72
[~InPutInteger72]
#if
large M72 100
small M72 500
#act
mov g57 <$STR(M72)>
messagebox [提示]:\ \ 设定成功,加入你的行会的最低等级要求是<$STR(M72)>级!
goto @竞标台管理1
#elseact
messagebox [提示]:\ \ 请输入一个500-500间的整数!
goto @竞标台管理1
[@@InPutString22]
#IF
CHECKLEVELEX > 0
#Act
DelaYGoto 1 ~InPutString22
[~InPutString22]
#IF
CHECKLEVELEX > 0
#ACT
MOV A63 <$STR(S22)>
MESSAGEBOX [提示]:公告已修改为:<$STR(S22)>
goto @竞标台管理1
BREAK
[@IsInFilterList]
#IF
CHECKLEVELEX > 0
#Act
MessageBox [提示]:\ \ 输入数据中包含了非法符号,请重新编辑。
Break
[@关闭1]
#IF
ISGUILDMASTER
equal a61 <$GUILDNAME>
#ACT
MOV G75 0
MOV A64 等待开启收人
MessageBox [提示]:\ \ 已经关闭收人。
goto @竞标台管理1
[@开启1]
#IF
ISGUILDMASTER
equal a66 <$GUILDNAME>
#ACT
MOV G75 1
MOV A64 已经开启收人
MessageBox [提示]:\ \ 已经开启收人。
goto @竞标台管理1
[@发布公告]
#IF
ISGUILDMASTER
#ACT
QUERYVALUE 2 2 10 @发布公告1 尊敬的行会掌门,是不是想多收点行会成员啊?\ \ 我可以帮你哦,这个可是弹窗收人广告哦,收不到人不要钱! NPC
#ELSEACT
MessageBox [提示]:\ \ 你不是行会掌门,不能发布公告!
Break
[@发布公告1]
#IF
CHECKGAMEGOLD > 4999
#ACT
GAMEGOLD - 5000
MOV A78 <$GUILDNAME>
MOV A89 <$USERNAME>
GMEXECUTE 开始提问 @招兵买马
SENDMSG 6 您的广告已经成功发布!
GOTO @main
BREAK
#ELSEACT
MESSAGEBOX [失败]:\ \ 您帐户的元宝数量不足5000个,无法完成本次广告发布!
GOTO @main
链接: https://pan.baidu.com/s/1JRjyMb95xAZS6IGY5zHtSg 密码: 5dvu
链接: https://pan.baidu.com/s/1JRjyMb95xAZS6IGY5zHtSg 密码: 5dvu