传奇服务端NPC脚本中行会竞价收人脚本是制作的?_传奇服务器脚本

admin 2026-03-03 11:16 141 传奇脚本

[@main]

#IF

#ACT

MOV S$第一行会竞标 <加入行会/@加入1>

MOV S$第二行会竞标 <加入行会/@加入2>

MOV S$第三行会竞标 <加入行会/@加入3>

MOV S$等级要求1 <$STR(G304)>

MOV S$等级要求2 <$STR(G305)>

MOV S$等级要求3 <$STR(G306)>

equal A304 允许收人

MOV S$收人状态1 <允许加入/SCOLOR=250>

equal A305 允许收人

MOV S$收人状态2 <允许加入/SCOLOR=250>

equal A306 允许收人

MOV S$收人状态3 <允许加入/SCOLOR=250>

equal A304

MOV S$收人状态1 <禁止加入/SCOLOR=249>

equal A305

MOV S$收人状态2 <禁止加入/SCOLOR=249>

equal A306

MOV S$收人状态3 <禁止加入/SCOLOR=249>

;为了加空格才转换

MOV S$行会名字1 <$STR(A300)>

MOV S$行会名字2 <$STR(A301)>

MOV S$行会名字3 <$STR(A302)>

SetStringBlank S$行会名字1 20 1

SetStringBlank S$行会名字2 20 1

MOV S$竞标价格1 <$STR(G300)>

MOV S$竞标价格2 <$STR(G301)>

MOV S$竞标价格3 <$STR(G302)>

SetStringBlank S$竞标价格1 16 1

SetStringBlank S$竞标价格2 16 1

ISGUILDMASTER

MOV S$第一行会竞标 <出价竞标/@竞标1>

MOV S$第二行会竞标 <出价竞标/@竞标2>

MOV S$第三行会竞标 <出价竞标/@竞标3>

equal <$GUILDNAME> <$STR(A300)>

MOV S$等级要求1 <$STR(G304)><设置/@@InPutInteger85>

equal <$GUILDNAME> <$STR(A301)>

MOV S$等级要求2 <$STR(G305)><设置/@@InPutInteger86>

equal <$GUILDNAME> <$STR(A302)>

MOV S$等级要求3 <$STR(G306)><设置/@@InPutInteger87>

MOV S$收人状态1 <允许/SCOLOR=250><设置/@收人1>

MOV S$收人状态2 <允许/SCOLOR=250><设置/@收人2>

MOV S$收人状态3 <允许/SCOLOR=250><设置/@收人3>

MOV S$收人状态1 <禁止/SCOLOR=249><设置/@收人1>

MOV S$收人状态2 <禁止/SCOLOR=249><设置/@收人2>

MOV S$收人状态3 <禁止/SCOLOR=249><设置/@收人3>

goto @字符1

OPENMERCHANTBIGDLG 10 48 1 0 0 16 1 523 11

#SAY

<[竞价元宝]/SCOLOR=116> <$STR(S$竞标价格1)><[竞价元宝]/SCOLOR=116> <$STR(S$竞标价格2)> <[竞价元宝]/SCOLOR=116> <$STR(S$竞标价格3)>\

<[需要等级]/SCOLOR=116> <$STR(S$等级要求1)><[需要等级]/SCOLOR=116> <$STR(S$等级要求2)><[需要等级]/SCOLOR=116> <$STR(S$等级要求3)>\

<[收人状态]/SCOLOR=116> <$STR(S$收人状态1)>　　　　<[收人状态]/SCOLOR=116> <$STR(S$收人状态2)>　　　　 <[收人状态]/SCOLOR=116> <$STR(S$收人状态3)>\

<$STR(S$第一行会竞标)>　　　　　　　　　<$STR(S$第二行会竞标)>　　　　　　　　　<$STR(S$第三行会竞标)>　\

<行会掌门可竞拍以上3个选项，每次需在当前竞价上加1000元宝！(每个位置分别竞拍)/SCOLOR=7>

[@字符1]

SetStringBlank S$收人状态1 20 1

SetStringBlank S$收人状态2 20 1

SetStringBlank S$等级要求1 35 1

SetStringBlank S$等级要求2 36 1

BREAK

SetStringBlank S$等级要求2 17 1

SetStringBlank S$等级要求1 16 1

[@收人3]

#if

#act

messagebox \\\您将关闭行会招募状态.确定关闭么？@禁止3 @取消

#elseact

messagebox \\\您将开启行会招募状态.确定开启么？@允许3 @取消

[@允许3]

MOV A306 允许收人

Messagebox 　当前收人设置为允许收人

goto @main

[@禁止3]

MOV A306

Messagebox 　当前收人设置为禁止收人

[@收人2]

messagebox \\\您将关闭行会招募状态.确定关闭么？@禁止2 @取消

messagebox \\\您将开启行会招募状态.确定开启么？@允许2 @取消

[@允许2]

MOV A305 允许收人

[@禁止2]

MOV A305

[@收人1]

messagebox \\\您将关闭行会招募状态.确定关闭么？@禁止1 @取消

messagebox \\\您将开启行会招募状态.确定开启么？@允许1 @取消

[@允许1]

MOV A304 允许收人

[@禁止1]

MOV A304

[@InPutInteger85]

large N85 0

CheckStringlength <$STR(N85)> < 4

CheckStringlength <$STR(N85)> > 0

MOV <$STR(G304)> <$STR(N85)>

Messagebox 　当前收人设置为<$STR(N85)>级

GOTO @main

#ELSEACT

Messagebox 　请输入正确的等级

[@InPutInteger86]

large N86 0

CheckStringlength <$STR(N86)> < 4

CheckStringlength <$STR(N86)> > 0

MOV <$STR(G305)> <$STR(N86)>

Messagebox 　当前收人设置为<$STR(N86)>级

[@InPutInteger87]

large N87 0

CheckStringlength <$STR(N87)> < 4

CheckStringlength <$STR(N87)> > 0

MOV <$STR(G306)> <$STR(N87)>

Messagebox 　当前收人设置为<$STR(N87)>级

[@竞标1]

messagebox 　您已竞标了第一行会竞标版.无需再次竞标.

break

CheckGameGold > <$STR(G300)>

INC G300 1000

GameGold - <$STR(G300)>

INC G445 1000

mov A300 <$GUILDNAME>

GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A300)>】荣登【第一行会竞拍版】

mov A304 允许收人

MOV N$第一行会价格 <$STR(G300)>

inc N$第一行会价格 1000

Messagebox 　抱歉，本次竞拍需要<$STR(N$第一行会价格)>元宝，您的元宝不足

[@加入1]

HAVEGUILD

Messagebox 　您当前已经加入行会.请退出后在加入.

equal <$STR(A300)>

messagebox 　当前天下第一行会竞标版会无人竞标

messagebox 　当前<$STR(A300)>行会禁止收人

CHECKLEVELEX < <$STR(G304)>

messagebox 　<$STR(A300)>行会禁止收人需要人物达到<$STR(G304)>级

ADDGUILDMEMBER <$STR(A300)>

GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【行会竞标版】加入了【<$STR(A300)>】

[@竞标2]

messagebox 　您已竞标了第二行会竞标版.无需再次竞标.

CheckGameGold > <$STR(G301)>

INC G301 1000

GameGold - <$STR(G301)>

mov A301 <$GUILDNAME>

GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A301)>】荣登【第二行会竞拍版】

mov A305 允许收人

MOV N$第二行会价格 <$STR(G301)>

inc N$第二行会价格 1000

Messagebox 　抱歉，本次竞拍需要<$STR(N$第二行会价格)>元宝，您的元宝不足

[@加入2]

equal <$STR(A301)>

messagebox 　当前天下第二行会竞标版会无人竞标

messagebox 　当前<$STR(A301)>行会禁止收人

CHECKLEVELEX < <$STR(G305)>

messagebox 　<$STR(A301)>行会禁止收人需要人物达到<$STR(G305)>级

ADDGUILDMEMBER <$STR(A301)>

GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【第二行会竞标版】加入了【<$STR(A301)>】

[@竞标3]

messagebox 　您已竞标了第三行会竞标版.无需再次竞标.

CheckGameGold > <$STR(G302)>

INC G302 1000

GameGold - <$STR(G302)>

mov A302 <$GUILDNAME>

GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A302)>】荣登【第三行会竞拍版】

mov A306 允许收人

MOV N$第三行会价格 <$STR(G302)>

inc N$第三行会价格 1000

Messagebox 　抱歉，本次竞拍需要<$STR(N$第三行会价格)>元宝，您的元宝不足

[@加入3]

equal <$STR(A302)>

messagebox 　当前天下第三行会竞标版会无人竞标

messagebox 　当前<$STR(A302)>行会禁止收人

CHECKLEVELEX < <$STR(G306)>

messagebox 　<$STR(A302)>行会禁止收人需要人物达到<$STR(G306)>级

ADDGUILDMEMBER <$STR(A302)>

GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【第三行会竞标版】加入了【<$STR(A302)>】