[@Main]

#IF

small U3 1

#ACT

MOV U3 20000

goto @改名

#ELSEACT

Break

[@改名]

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>

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

[@InputString1]

Equal S1

SENDMSG 6 请输入一个正确的名称

#OR

CheckStringlength S1 > 20

CheckStringlength S1 < 2

SENDMSG 6 输入名称长度不正确

QUERYHUMNAMEEXIST S1

[@InputString2]

Equal S2

CheckStringlength S2 > 20

CheckStringlength S2 < 2

small U3 50000

goto @第一次改名

goto @第N次改名

break

[@第一次改名]

CHECKGAMEDIAMOND > 19999

CHANGEHUMNAME S2

GAMEDIAMOND - 20000

MOV U3 50000

INC U4 1

MESSAGEBOX [提示]:你没有20000无赦币

[@第N次改名]

CHECKGAMEDIAMOND > <$STR(U3)>

GAMEDIAMOND - <$STR(U3)>

INC U3 50000

MESSAGEBOX [提示]:你无赦币数量不够