传奇服务端NPC脚本中行会竞价收人脚本是怎么制作的？
[@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)>
#IF
equal A304 允许收人
#ACT
MOV S$收人状态1 <允许加入/SCOLOR=250>
#IF
equal A305 允许收人
#ACT
MOV S$收人状态2 <允许加入/SCOLOR=250>
#IF
equal A306 允许收人
#ACT
MOV S$收人状态3 <允许加入/SCOLOR=250>
#IF
equal A304
#ACT
MOV S$收人状态1 <禁止加入/SCOLOR=249>
#IF
equal A305
#ACT
MOV S$收人状态2 <禁止加入/SCOLOR=249>
#IF
equal A306
#ACT
MOV S$收人状态3 <禁止加入/SCOLOR=249>
#IF
#ACT
;为了加空格才转换
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
#IF
ISGUILDMASTER
#ACT
MOV S$第一行会竞标 <出价竞标/@竞标1>
MOV S$第二行会竞标 <出价竞标/@竞标2>
MOV S$第三行会竞标 <出价竞标/@竞标3>
;为了加空格才转换
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
#IF
ISGUILDMASTER
equal <$GUILDNAME> <$STR(A300)>
#ACT
MOV S$等级要求1 <$STR(G304)><设置/@@InPutInteger85>
#IF
ISGUILDMASTER
equal <$GUILDNAME> <$STR(A301)>
#ACT
MOV S$等级要求2 <$STR(G305)><设置/@@InPutInteger86>
#IF
ISGUILDMASTER
equal <$GUILDNAME> <$STR(A302)>
#ACT
MOV S$等级要求3 <$STR(G306)><设置/@@InPutInteger87>
#IF
ISGUILDMASTER
equal A304 允许收人
equal <$GUILDNAME> <$STR(A300)>
#ACT
MOV S$收人状态1 <允许/SCOLOR=250><设置/@收人1>
#IF
ISGUILDMASTER
equal A305 允许收人
equal <$GUILDNAME> <$STR(A301)>
#ACT
MOV S$收人状态2 <允许/SCOLOR=250><设置/@收人2>
#IF
ISGUILDMASTER
equal A306 允许收人
equal <$GUILDNAME> <$STR(A302)>
#ACT
MOV S$收人状态3 <允许/SCOLOR=250><设置/@收人3>
#IF
ISGUILDMASTER
equal A304
equal <$GUILDNAME> <$STR(A300)>
#ACT
MOV S$收人状态1 <禁止/SCOLOR=249><设置/@收人1>
#IF
ISGUILDMASTER
equal A305
equal <$GUILDNAME> <$STR(A301)>
#ACT
MOV S$收人状态2 <禁止/SCOLOR=249><设置/@收人2>
#IF
ISGUILDMASTER
equal A306
equal <$GUILDNAME> <$STR(A302)>
#ACT
MOV S$收人状态3 <禁止/SCOLOR=249><设置/@收人3>
#IF
#ACT
goto @字符1
#IF
#ACT
OPENMERCHANTBIGDLG 10 48 1 0 0 16 1 523 11
#SAY
{<$STR(S$行会名字1)>/SCOLOR=251} {<$STR(S$行会名字2)>/SCOLOR=254} <$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)>\
\
<[收人状态]/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]
#IF
ISGUILDMASTER
equal <$GUILDNAME> <$STR(A300)>
equal <$GUILDNAME> <$STR(A301)>
#ACT
SetStringBlank S$收人状态1 20 1
SetStringBlank S$收人状态2 20 1
SetStringBlank S$等级要求1 35 1
SetStringBlank S$等级要求2 36 1
BREAK
#IF
ISGUILDMASTER
equal <$GUILDNAME> <$STR(A300)>
#ACT
SetStringBlank S$收人状态1 20 1
SetStringBlank S$收人状态2 20 1
SetStringBlank S$等级要求1 35 1
SetStringBlank S$等级要求2 17 1
BREAK
#IF
ISGUILDMASTER
equal <$GUILDNAME> <$STR(A301)>
#ACT
SetStringBlank S$收人状态1 20 1
SetStringBlank S$收人状态2 20 1
SetStringBlank S$等级要求1 16 1
SetStringBlank S$等级要求2 36 1
BREAK
#IF
#ACT
SetStringBlank S$收人状态1 20 1
SetStringBlank S$收人状态2 20 1
SetStringBlank S$等级要求1 16 1
SetStringBlank S$等级要求2 17 1
BREAK
[@收人3]
#if
equal A306 允许收人
#act
messagebox \\\您将关闭行会招募状态.确定关闭么？@禁止3 @取消
#elseact
messagebox \\\您将开启行会招募状态.确定开启么？@允许3 @取消
[@允许3]
#act
MOV A306 允许收人
Messagebox 当前收人设置为允许收人
goto @main
[@禁止3]
#act
MOV A306
Messagebox 当前收人设置为禁止收人
goto @main
[@收人2]
#if
equal A305 允许收人
#act
messagebox \\\您将关闭行会招募状态.确定关闭么？@禁止2 @取消
#elseact
messagebox \\\您将开启行会招募状态.确定开启么？@允许2 @取消
[@允许2]
#act
MOV A305 允许收人
Messagebox 当前收人设置为允许收人
goto @main
[@禁止2]
#act
MOV A305
Messagebox 当前收人设置为禁止收人
goto @main
[@收人1]
#if
equal A304 允许收人
#act
messagebox \\\您将关闭行会招募状态.确定关闭么？@禁止1 @取消
#elseact
messagebox \\\您将开启行会招募状态.确定开启么？@允许1 @取消
[@允许1]
#act
MOV A304 允许收人
Messagebox 当前收人设置为允许收人
goto @main
[@禁止1]
#act
MOV A304
Messagebox 当前收人设置为禁止收人
goto @main
[@InPutInteger85]
#if
large N85 0
CheckStringlength <$STR(N85)> < 4
CheckStringlength <$STR(N85)> > 0
#ACT
MOV <$STR(G304)> <$STR(N85)>
Messagebox 当前收人设置为<$STR(N85)>级
GOTO @main
BREAK
#ELSEACT
Messagebox 请输入正确的等级
[@InPutInteger86]
#if
large N86 0
CheckStringlength <$STR(N86)> < 4
CheckStringlength <$STR(N86)> > 0
#ACT
MOV <$STR(G305)> <$STR(N86)>
Messagebox 当前收人设置为<$STR(N86)>级
GOTO @main
BREAK
#ELSEACT
Messagebox 请输入正确的等级
[@InPutInteger87]
#if
large N87 0
CheckStringlength <$STR(N87)> < 4
CheckStringlength <$STR(N87)> > 0
#ACT
MOV <$STR(G306)> <$STR(N87)>
Messagebox 当前收人设置为<$STR(N87)>级
GOTO @main
BREAK
#ELSEACT
Messagebox 请输入正确的等级
[@竞标1]
#if
equal <$GUILDNAME> <$STR(A300)>
#act
messagebox 您已竞标了第一行会竞标版.无需再次竞标.
break
#IF
CheckGameGold > <$STR(G300)>
#ACT
INC G300 1000
GameGold - <$STR(G300)>
INC G445 1000
mov A300 <$GUILDNAME>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A300)>】荣登【第一行会竞拍版】
mov A304 允许收人
GOTO @main
BREAK
#ELSEACT
MOV N$第一行会价格 <$STR(G300)>
inc N$第一行会价格 1000
Messagebox 抱歉，本次竞拍需要<$STR(N$第一行会价格)>元宝，您的元宝不足
[@加入1]
#IF
HAVEGUILD
#ACT
Messagebox 您当前已经加入行会.请退出后在加入.
break
#if
equal <$STR(A300)>
#act
messagebox 当前天下第一行会竞标版会无人竞标
break
#if
equal A304
#act
messagebox 当前<$STR(A300)>行会禁止收人
break
#if
CHECKLEVELEX < <$STR(G304)>
#act
messagebox <$STR(A300)>行会禁止收人需要人物达到<$STR(G304)>级
break
#if
#act
ADDGUILDMEMBER <$STR(A300)>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【行会竞标版】加入了【<$STR(A300)>】
break
[@竞标2]
#if
equal <$GUILDNAME> <$STR(A301)>
#act
messagebox 您已竞标了第二行会竞标版.无需再次竞标.
break
#IF
CheckGameGold > <$STR(G301)>
#ACT
INC G301 1000
GameGold - <$STR(G301)>
INC G445 1000
mov A301 <$GUILDNAME>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A301)>】荣登【第二行会竞拍版】
mov A305 允许收人
GOTO @main
BREAK
#ELSEACT
MOV N$第二行会价格 <$STR(G301)>
inc N$第二行会价格 1000
Messagebox 抱歉，本次竞拍需要<$STR(N$第二行会价格)>元宝，您的元宝不足
[@加入2]
#IF
HAVEGUILD
#ACT
Messagebox 您当前已经加入行会.请退出后在加入.
break
#if
equal <$STR(A301)>
#act
messagebox 当前天下第二行会竞标版会无人竞标
break
#if
equal A305
#act
messagebox 当前<$STR(A301)>行会禁止收人
break
#if
CHECKLEVELEX < <$STR(G305)>
#act
messagebox <$STR(A301)>行会禁止收人需要人物达到<$STR(G305)>级
break
#if
#act
ADDGUILDMEMBER <$STR(A301)>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【第二行会竞标版】加入了【<$STR(A301)>】
break
[@竞标3]
#if
equal <$GUILDNAME> <$STR(A302)>
#act
messagebox 您已竞标了第三行会竞标版.无需再次竞标.
break
#IF
CheckGameGold > <$STR(G302)>
#ACT
INC G302 1000
GameGold - <$STR(G302)>
INC G445 1000
mov A302 <$GUILDNAME>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A302)>】荣登【第三行会竞拍版】
mov A306 允许收人
GOTO @main
BREAK
#ELSEACT
MOV N$第三行会价格 <$STR(G302)>
inc N$第三行会价格 1000
Messagebox 抱歉，本次竞拍需要<$STR(N$第三行会价格)>元宝，您的元宝不足
[@加入3]
#IF
HAVEGUILD
#ACT
Messagebox 您当前已经加入行会.请退出后在加入.
break
#if
equal <$STR(A302)>
#act
messagebox 当前天下第三行会竞标版会无人竞标
break
#if
equal A306
#act
messagebox 当前<$STR(A302)>行会禁止收人
break
#if
CHECKLEVELEX < <$STR(G306)>
#act
messagebox <$STR(A302)>行会禁止收人需要人物达到<$STR(G306)>级
break
#if
#act
ADDGUILDMEMBER <$STR(A302)>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【第三行会竞标版】加入了【<$STR(A302)>】
break 喜欢这里的东西，方便又好用！ 很专业的很全面的gm论坛 比较全的传奇脚本分享网站，站长辛苦了。 喜欢这里的东西，方便又好用！ 传奇论坛里面相对来说比较好的一个！ 楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！ 传奇论坛里面相对来说比较好的一个！ 谢谢.脚本收到.很好用 谢谢.脚本收到.很好用