[@Main]
<>\ \
<新老区修改名字：每次收费40R点点，改名之后请极速修改二级密保！切记/AUTOCOLOR=69>\ \
<空白名字和符号须改为：带有汉字，不听劝告，封号处理！/AUTOCOLOR=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
CHECKGAMEPOINT < 40
#ACT
messagebox 当前R点点不足40点！！
Break
#IF
CHECKGAMEPOINT > 39
#ACT
GAMEPOINT - 40
CHANGEHUMNAME S2