传奇西风烈服务端行会竞价脚本

本脚本适用于GOM引擎的传奇游戏，源自西风烈服务端。该脚本需配合特定补丁使用，有兴趣的玩家可以自行提取脚本和补丁素材。

脚本的主要功能是实现行会的竞价机制，允许行会通过元宝竞标的方式争夺游戏内的特定资源或位置。以下是脚本的主要流程和功能：

竞价界面：玩家可以通过特定的NPC打开竞价界面，查看当前的竞价情况，包括竞标价格、竞标时间等信息。

竞标操作：玩家作为行会掌门人，可以参与竞标。竞标时需要输入竞标价格，并且需要有足够的元宝。

竞标成功：如果玩家的出价高于当前最高出价，则竞标成功，行会中标。成功竞标的行会可以在游戏中招收成员。

竞标管理：成功竞标的行会掌门人可以管理行会的竞标信息，包括修改招收会员的等级要求和公告内容。

加入行会：玩家可以根据竞价界面上的信息，决定是否加入竞标成功的行会。

竞标时间：脚本中设置了竞标时间的限制，确保竞标过程的公平性。

元宝扣除：在竞标成功后，系统会自动扣除玩家所承诺的元宝数量。

竞标结束：当新的行会掌门人出价高于当前最高出价时，原行会掌门的竞价结束，新的行会掌门人成为新的中标行会。

适用于GOM引擎的传奇行会竞价脚本，来自西风烈版本，此脚本需要补丁支持，有时间的朋友自己去提取下脚本跟补丁素材吧。

脚本：

(@@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