传奇无错改名服务器脚本

[@Main]

#IF
smallU31
#ACT
MOVU320000
goto@改名
#ELSEACT
goto@改名
Break

[@改名]
#IF
#ACT
CloseBigDialogBox
#SAY
\\
\<嫌自己的名字太丑？还是做了什么见不得人的事情？/SCOLOR=250>\\

\<好吧，给我20000无赦币我给你换一个身份！！！/SCOLOR=250>\\

\<提示：第2次改名50000，第3次100000，第4次150000已此类推！！/SCOLOR=250>\\

\<≮更换名字≯/@更换名字>\\


[@更换名字]
\\
\<嫌自己的名字太丑？还是做了什么见不得人的事情？/SCOLOR=253>\\

\<≮查询名称是否可以使用≯/@@InputString1(请输入新的名称：)>\\

\<你已经更换/SCOLOR=255><[<$STR(U4)>]次/SCOLOR=250><了，再次更改名字需要无赦币/SCOLOR=255><[<$STR(U3)>]/SCOLOR=250>\\

\<≮我要改名≯/@开始改名>\

[@开始改名]
\\
\<请改名之前确认名字是否可以使用，如果因你未查询清楚改名失败/SCOLOR=250>\\

\<管理概不负责！！/SCOLOR=250>\\

\<≮查询名称是否可以使用≯/@@InputString1(请输入新的名称：)>\\

\<≮确认改名≯/@@InputString2(请输入新的名称：)>\

[@InputString1]
#IF
EqualS1
#ACT
SENDMSG6请输入一个正确的名称
Break

#OR
CheckStringlengthS1>20
CheckStringlengthS1<2
#ACT
SENDMSG6输入名称长度不正确
Break

#IF
#ACT
QUERYHUMNAMEEXISTS1

[@InputString2]
#IF
EqualS2
#ACT
SENDMSG6请输入一个正确的名称
Break

#OR
CheckStringlengthS2>20
CheckStringlengthS2<2
#ACT
SENDMSG6输入名称长度不正确
Break

#IF
smallU350000
#ACT
goto@第一次改名
#ELSEACT
goto@第N次改名
break

[@第一次改名]
#IF
CHECKGAMEDIAMOND>19999
#ACT
CHANGEHUMNAMES2
GAMEDIAMOND-20000
MOVU350000
INCU41
#ELSEACT
MESSAGEBOX[提示]:你没有20000无赦币
break



[@第N次改名]
#IF
CHECKGAMEDIAMOND><$STR(U3)>
#ACT
GAMEDIAMOND-<$STR(U3)>
CHANGEHUMNAMES2
INCU350000
INCU41
#ELSEACT
MESSAGEBOX[提示]:你无赦币数量不够
break