传奇服务端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