(@@InputString )
[@main]
<1.为防止游戏乱改名现象，改名服务将收取10000金刚石/SCOLOR=253> <Hot~/SCOLOR=249> \  \
<2.修改名字之前，请先输入新的游戏名，查询是否可用！/SCOLOR=253><Hot~/SCOLOR=249>  \  \
<(第⒈步)><查询名称是否可以使用/@@InputString1(请输入新的名称：)>\
<(第⒉步)><我要改名/@@InputString2(请输入新的名称：)>\

[@InputString1]
#IF
Equal S1
#ACT
SENDMSG 6 请输入一个正确的名称
Break

#OR
CheckStringlength S1 > 20
CheckStringlength S1 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break

#IF
#ACT
QUERYHUMNAMEEXIST S1

[@InputString2]
#IF
Equal S2
#ACT
SENDMSG 6 请输入一个正确的名称
Break

#OR
CheckStringlength S2 > 20
CheckStringlength S2 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break

#IF
CHECKGAMEDIAMOND > 9999
#ACT
GAMEDIAMOND - 10000
CHANGEHUMNAME S2
SENDMSG 6 提示：改名成功！
#ELSEACT
MESSAGEBOX \对不起,你并没有10000点金刚石！！
break