【Legend】引擎行会竞价收人可设置收人等级要求脚本 - 传奇服务端_传奇版本下载_传奇开区教程 - 爱登陆器Gm论坛_传奇服务端_GM基地_传奇一条龙_IP传奇版本下载 -传奇万能登陆器-IP传奇发布网-武易传奇-嘟嘟传奇-我本沉默-【爱登陆器】全球最全传奇游戏资源站-www.2dlq.com

(@@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)>]个元宝\ \

第一次竞标最少需要５０００元宝以上，把握机会吧！\ \

→<输入竞标价格/@@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 [提示]：\　\　　你已经成功竟标得到公告栏１号位置\　\　　可以开启行会收人和关闭收人，默认是开启状态！

SENDMSG 0 [行会竞标公告]：[<$USERNAME>]成功竟标得到公告栏１号位置，其行会[<$STR(A66)>]成为本区最牛行会！ 249 251

SENDMSG 0 [行会竞标公告]：[<$USERNAME>]成功竟标得到公告栏１号位置，其行会[<$STR(A66)>]成为本区最牛行会！ 249 251 30

#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)>]个元宝\ \

第一次竞标最少需要３０００元宝以上，把握机会吧！\ \

→<输入竞标价格/@@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 [提示]：\　\　　你已经成功竟标得到公告栏２号位置\　\　　可以开启行会收人和关闭收人，默认是开启状态！

SENDMSG 0 [行会竞标公告]：[<$USERNAME>]成功竟标得到公告栏２号位置，其行会[<$STR(A61)>]成为本区第二行会！ 249 251

SENDMSG 0 [行会竞标公告]：[<$USERNAME>]成功竟标得到公告栏２号位置，其行会[<$STR(A61)>]成为本区第二行会！ 249 251 30

#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