用户名: 密码: 验证码: 注册帐号 忘记密码?
当前位置:主页 > 传奇教程 > 传奇脚本 >
下载地址

【Legend】引擎行会竞价收人可设置收人等级要求脚本

(@@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
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
用户名: 验证码: 点击我更换图片
☉推荐使用第三方专业下载工具下载本站软件,使用 WinRAR v3.10 以上版本解压本站软件。...
☉解压本站软件如果提示需要解压密码:www.2dlq.com
☉如果这个软件总是不能下载的请点击联系站长,谢谢合作!!...
☉下载本站资源,如果服务器暂不能下载请刷新重试!...
☉如果遇到什么问题,请咨询网站在线客服QQ619774941获取帮助...
☉本站版本资源仅供个人学习与参考,请勿用于商业买卖用途,后果由使用者自己承担...

传奇服务端_传奇版本下载_传奇开区教程 - 爱登陆器Gm论坛_传奇服务端_GM基地_传奇一条龙_IP传奇版本下载 -传奇万能登陆器-IP传奇发布网-武易传奇-嘟嘟传奇-我本沉默-【爱登陆器】全球最全传奇游戏资源站-www.2dlq.com
返回顶部