2024-05-07
适用于GOM引擎的传奇行会竞价脚本，来自西风烈版本，此脚本需要补丁支持，有时间的朋友自己去提取下脚本跟补丁素材吧。
https://www.7bbz.com/fwd/mfbb/7883.html
(@@InPutString @@InPutInteger )
%100
[@main]
#IF
#Act
OPENMERCHANTBIGDLG 12 580 1 4 0 -100 0
#say
<ImgEx:12:1996:1997:1998:540:20/@EXIT>
< > <创建行会/@创建行会>
<> {<$STR(A109)>/FCOLOR=253}
<> {<$STR(A121)>/FCOLOR=250}
<> {<$STR(G107)>/FCOLOR=254}<元宝/FCOLOR=250>
<> {<$STR(A119)>/FCOLOR=70}
<> {<$STR(A110)>/FCOLOR=249}
<> {<$STR(G108)>/FCOLOR=251}<级/FCOLOR=250>
< >
<ImgEx:12:591:592:593:430:-300/@加入>
<ImgEx:12:594:595:596:430:-250/@介绍查询>
<ImgEx:12:600:601:602:430:-200/@竞标>
<ImgEx:12:588:589:590:430:-150/@竞标管理>
<PlayImg:8:3310:20:80:145:-575:0>
<PlayImg:66:45:35:200:-78:-570:0>
[@XX]
<> <━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=69>
<> 【<加入该会/@加入>】 <←想入会的门兄弟点此/SCOLOR=253> 【<介绍查询/@介绍查询>】
<> 【<我要竞标/@竞标>】 <设置加入行会一些要求/SCOLOR=253> 【<管理选项/@竞标管理>】
[@竞标]
#IF
#Act
OPENMERCHANTBIGDLG 12 581 1 4 0 -100 0
#say
<ImgEx:12:1996:1997:1998:540:20/@EXIT>
< >
<> <土城天下一号行会,可以代替掌门招收人员进入本行会!/SCOLOR=125>
<> <竞标方式:采用元宝竞标，只要你出的价格高于上一个行会/SCOLOR=125>
<> <的竞标价格，你行会就可以中标，直到下一位竞争对手出现/SCOLOR=125>
<> <当前竞标行会:/SCOLOR=154> {<$STR(A109)>/FCOLOR=253}
<> <竞标价格:/SCOLOR=154> {<$STR(G107)>/FCOLOR=251} <元宝/SCOLOR=251>
<> <竞标时间:/SCOLOR=154> {<$STR(A110)>/FCOLOR=230}
< >
<ImgEx:12:591:592:593:430:-300/@加入>
<ImgEx:12:594:595:596:430:-250/@介绍查询>
<ImgEx:12:600:601:602:430:-200/@竞标>
<ImgEx:12:588:589:590:430:-150/@竞标管理>
<ImgEx:12:600:601:602:110:-120|^254#只有行会掌门人才可以参与竞标/@竞标开始E><ImgEx:12:582:583:584:140:-120/@main>
<PlayImg:8:3310:20:80:145:-575:0>
<PlayImg:66:45:35:200:-78:-570:0>
[@竞标开始E]
#if
ISGUILDMASTER
#act
goto @竞标开始2
#elseact
messagebox 对不起，你不是行会掌门
[@竞标开始2]
#if
equal a109 <$GUILDNAME>
#act
messagebox 错误，你所在的行会已经是中标行会！
break
#ELSEACT
OPENMERCHANTBIGDLG 12 581 1 4 0 -100 0
#elsesay
<ImgEx:12:1996:1997:1998:540:20/@EXIT>
< >
<>
<>
<> <输入竞标价格/@@InPutInteger70> <(只能为整数)>
< >
<ImgEx:12:591:592:593:430:-300/@加入>
<ImgEx:12:594:595:596:430:-250/@介绍查询>
<ImgEx:12:600:601:602:430:-200/@竞标>
<ImgEx:12:588:589:590:430:-150/@竞标管理>
<ImgEx:12:582:583:584:180:-120/@main>
<PlayImg:8:3310:20:80:145:-575:0>
<PlayImg:66:45:35:200:-78:-570:0>
[@InPutInteger70]
#if
large n70 <$STR(G107)>
#act
goto @竞标3
#elseact
messagebox 对不起，你的出价太低！
[@竞标3]
#if
CHECKGAMEGOLD < <$STR(n70)>
#act
messagebox 对不起，你没有那么多元宝！
#ELSEACT
OPENMERCHANTBIGDLG 12 581 1 4 0 -100 0
#elsesay
<ImgEx:12:1996:1997:1998:540:20/@EXIT>
< >
<> 你给出的价格为<$STR(n70)>元宝,请填写完整以下信息：
<> <输入招收会员的低等级要求/@@InPutInteger72> <(36-60)/SCOLOR=253>
<> <输入一段简短公告/@@InPutString12> <(在公告牌上显示)/SCOLOR=253>
<> <[公告]/SCOLOR=250><$STR(s12)>
<> <提交信息/@竞标4>
< >
<ImgEx:12:591:592:593:430:-300/@加入>
<ImgEx:12:594:595:596:430:-250/@介绍查询>
<ImgEx:12:600:601:602:430:-200/@竞标>
<ImgEx:12:588:589:590:430:-150/@竞标管理>
<ImgEx:12:582:583:584:180:-120/@main>
<PlayImg:8:3310:20:80:145:-575:0>
<PlayImg:66:45:35:200:-78:-570:0>
[@InPutInteger72]
#if
large n72 36
small n72 100
#act
messagebox 设定成功，加入你的行会的低等级要求是<$STR(n72)>级！
#elseact
messagebox 请输入一个36级--60级之间的整数！
goto @竞标3
[@InPutString12]
#act
goto @竞标3
[@竞标4]
#If
small n72 35
#act
messagebox 请设定招收会员的低等级要求！
goto @竞标3
#ELSEACT
OPENMERCHANTBIGDLG 12 581 1 4 0 -100 0
#elsesay
<ImgEx:12:1996:1997:1998:540:20/@EXIT>
< >
<> <以下是你的大部分信息，前往确定提交信息：/SCOLOR=250>
<> <行会名称：/SCOLOR=154><$GUILDNAME>
<> <行会掌门：/SCOLOR=154><$USERNAME>
<> <竞标价格：/SCOLOR=154><$STR(n70)>元宝
<> <竞标时间：/SCOLOR=154><$DATETIME>
<> <加入该行会的低等级要求是：/SCOLOR=154><$STR(n72)>级
<> [<确定提交信息/@竞标5>] [<返回重新填写/@竞标开始E>]
< >
<ImgEx:12:591:592:593:430:-300/@加入>
<ImgEx:12:594:595:596:430:-250/@介绍查询>
<ImgEx:12:600:601:602:430:-200/@竞标>
<ImgEx:12:588:589:590:430:-150/@竞标管理>
<ImgEx:12:582:583:584:180:-120/@main>
<PlayImg:8:3310:20:80:145:-575:0>
<PlayImg:66:45:35:200:-78:-570:0>
[@竞标5]
#if
CHECKGAMEGOLD > <$STR(n70)>
large n70 <$STR(G107)>
#act
GAMEGOLD - <$STR(n70)>
mov a109 <$GUILDNAME>
mov g107 <$STR(n70)>
mov a110 <$DATETIME>
mov g108 <$STR(n72)>
mov a119 <$STR(s12)>
mov a121 <$USERNAME>
mov g109 0
mov g110 0
SENDMSG 0 <$USERNAME>为自己的行会竞标成功、欢迎全服大部分兄弟加入本行会！
close
#elseact
SENDMSG 7 [超时]
goto @main
[@介绍查询]
#IF
#Act
OPENMERCHANTBIGDLG 12 581 1 4 0 -100 0
#say
<ImgEx:12:1996:1997:1998:540:20/@EXIT>
< >
<> <行会公告牌介绍：/SCOLOR=250>
<> <①/SCOLOR=254>.<醉底竞标价格为1元宝!/SCOLOR=251>
<> <②/SCOLOR=254>.<须行会掌门人才可以竞标行会公告牌!/SCOLOR=251>
<> <③/SCOLOR=254>.<行会掌门人竞标成功.可以随意打招募内容!/SCOLOR=251>
<> <④/SCOLOR=254>.<玩家不需要面对掌门人.可以直接加入本行会!/SCOLOR=251>
<> <⑤/SCOLOR=254>.<掌门人进入管理选项.可以随时开启招募,或是关闭招募!/SCOLOR=251>
<> <⑥/SCOLOR=254>.<掌门人进入管理选项.可以随时更改招募信息和招募等级!/SCOLOR=251>
< >
<ImgEx:12:591:592:593:430:-300/@加入>
<ImgEx:12:594:595:596:430:-250/@介绍查询>
<ImgEx:12:600:601:602:430:-200/@竞标>
<ImgEx:12:588:589:590:430:-150/@竞标管理>
<ImgEx:12:582:583:584:180:-120/@main>
<PlayImg:8:3310:20:80:145:-575:0>
<PlayImg:66:45:35:200:-78:-570:0>
[@加入]
#if
equal A109
#act
SENDMSG 6 [对不起,暂时还没有行会在此竞标呢.....]
goto @main
break
#if
equal g109 1
#act
messagebox 对不起，本行会暂时不收人
break
#IF
HAVEGUILD
#ACT
MESSAGEBOX [失败]:您已经有行会了。无法申请!请先退出你当前的行会！
break
#if
CHECKLEVELEX < <$STR(g108)>
#act
messagebox 等级不够！
break
#if
#act
AddGuildMember <$STR(A109)> <$USERNAME>
messagebox 恭喜你已经成功加入到<$STR(A109)>
goto @main
[@竞标管理]
#if
ISGUILDMASTER
equal a109 <$GUILDNAME>
#act
goto @竞标管理2
#elseact
SENDMSG 5 [只有本行会掌门才可以进行管理]
goto @main
[@竞标管理2]
#if
equal g109 0
#act
mov s1 <允许收人/SCOLOR=250>
#if
equal g109 1
#act
mov s1 <关闭收人>
#if
equal g110 0
#act
mov s2 <允许/SCOLOR=250>
#if
equal g110 1
#act
mov s2 <禁止>
#IF
#Act
OPENMERCHANTBIGDLG 12 581 1 4 0 -100 0
#say
<ImgEx:12:1996:1997:1998:540:20/@EXIT>
< >
<> <修改公告内容/@@InPutString11> 当前公告内容:<$STR(A119)>
<> <修改等级要求/@@InPutInteger71> 当前等级要求:<$STR(G108)>级
<> <行会收人状态/SCOLOR=254> 当前状态为：<$STR(s1)> [<更改/@gg1>]
< >
<ImgEx:12:591:592:593:430:-300/@加入>
<ImgEx:12:594:595:596:430:-250/@介绍查询>
<ImgEx:12:600:601:602:430:-200/@竞标>
<ImgEx:12:588:589:590:430:-150/@竞标管理>
<ImgEx:12:582:583:584:180:-120/@main>
<PlayImg:8:3310:20:80:145:-575:0>
<PlayImg:66:45:35:200:-78:-570:0>
[@gg1]
#if
equal g109 0
#act
mov g109 1
messagebox 行会收人状态→关闭
goto @竞标管理
break
#if
equal g109 1
#act
mov g109 0
messagebox 行会收人状态→开放
goto @竞标管理
break
[@InPutInteger71]
#if
large n71 35
small n71 100
#act
mov g108 <$STR(n71)>
messagebox 设定成功，加入你的行会的低等级要求是<$STR(n71)>级！
goto @竞标管理
#elseact
messagebox 请输入一个35－100间的整数！
goto @竞标管理
[@InPutString11]
#if
equal s11
#act
messagebox 非法字符
#elseact
mov a119 <$STR(s11)>
messagebox 修改成功
goto @竞标管理
[@创建行会]
#ACT
mapmove 0122 27 35
break
上一篇:
传奇GOM引擎沙城捐献脚本，增加人物倍攻增加物
下一篇:
传奇战斗之神任务泡点值换取经验脚本
