[@Main]
#IF
small U3 1
#ACT
MOV U3 20000
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
Equal S1
#ACT
SENDMSG 6 请输入一个正确的名称
Break
#OR
CheckStringlength S1 20
CheckStringlength S1 2
#ACT
SENDMSG 6七彩神龙传奇 输入名称长度不正确
Break
#IF
#ACT
传奇私服合击发布网QUERYHUMNAMEEXIST S1
[@InputString2]
#IF
Equal S2
#ACT
SENDMSG 6 请输入一个正确的名称
Break
#OR
CheckStringlength S2 20
CheckStringlength S2 2
#ACT
SENDMSG 30ok6 输入名称长度不正确
Break
#IF
small U3 50000
#ACT
goto @第一次改名
#ELSEACT
goto @第N次改名
break
[@第一次改名]
#IF
CHECKGAMEDIAMOND 19999
#ACT
CHANGEHUMNAME S2
GAMEDIAMOND - 20000
MOV U3 50000
INC U4 1
#ELSEACT
MESSAGEBOX [提示]:你没有20000无赦币
break

[@第N次改名]
#IF
CHECKGAMEDIAMOND $STR(U3)
#ACT
GAMEDIAMOND - $STR(U3)
CHANGEHUMNAME S2
INC U3 50000
INC U4 1
#ELSEACT
MESSAGEBOX [提示]:你无赦币数量不够
break