GOM引擎在传奇开区里如何实现在线改名系统

[@main]
#if
#ACT
OPENMERCHANTBIGDLG 61 151 1 4 0 -80 1 440 13
#SAY
\
<PLAYIMG:56:2200:20:200:70:-80:>\ \  \ \ \
<                  欢迎使用『逆水寒』在线改名系统:/SCOLOR=253>\  \ 
<>　                        <查询名称|249#注意:请勿使用特殊字符或者空白字符，发现立即封号处理/@@InputString1>            <确定改名|249#注意:改名需要花费：45人民币点/@@InputString2> \  \ \

<>                          <为了账号数据改名后不出现异常/SCOLOR=251> \
<>                        <请尽量不要输入疑难字符，空白字符等/SCOLOR=251>\ 
<>                       <新角色名字请尽量保持在2-6个汉子之间/SCOLOR=251> \
     





[@InputString1]
#IF
CHECKGAMEPOINT < 45
#ACT
SENDMSG 6 为了游戏公平公正，改名需花费45人民币点
BREAK








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

#OR
CheckStringlength S1 > 10
CheckStringlength S1 < 4
#ACT
SENDMSG 6 角色改名字符大小在4-10之间.一个符号或者汉字占用2个字符.字母占用1个字符.
Break


#IF
CheckContainsText <$STR(S1)> @
CheckContainsText <$STR(S1)> ~
CheckContainsText <$STR(S1)> [
CheckContainsText <$STR(S1)> ]
CheckContainsText <$STR(S1)> <
CheckContainsText <$STR(S1)> >
CheckContainsText <$STR(S1)> {
CheckContainsText <$STR(S1)> }
CheckContainsText <$STR(S1)> 【
CheckContainsText <$STR(S1)> 】
CheckContainsText <$STR(S1)> PARAM
CheckContainsText <$STR(S1)> 信
CheckContainsText <$STR(S1)> 微
CheckContainsText <$STR(S1)> 垃圾
CheckContainsText <$STR(S1)> 拖
CheckContainsText <$STR(S1)> 托
CheckContainsText <$STR(S1)> 待遇
CheckContainsText <$STR(S1)> 待
CheckContainsText <$STR(S1)> 遇
CheckContainsText <$STR(S1)> 垃
CheckContainsText <$STR(S1)> 提现
CheckContainsText <$STR(S1)> 提
CheckContainsText <$STR(S1)> 现
CheckContainsText <$STR(S1)>  
CheckContainsText <$STR(S1)> Q
#ACT 
SENDMSG 6 您输入的名称有特殊符号或者屏蔽汉字，请重新输入！
break

#IF
#ACT
QUERYHUMNAMEEXIST S1


[@InputString2]
#IF
CHECKGAMEPOINT < 45
#ACT
SENDMSG 6 为了游戏公平公正，改名需花费45人民币点.
BREAK








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

#OR
CheckStringlength S1 > 10
CheckStringlength S1 < 4
#ACT
SENDMSG 6 角色改名字符大小在4-10之间.一个符号或者汉字占用2个字符.字母占用1个字符.
Break


#IF
CheckContainsText <$STR(S1)> @
CheckContainsText <$STR(S1)> ~
CheckContainsText <$STR(S1)> [
CheckContainsText <$STR(S1)> ]
CheckContainsText <$STR(S1)> <
CheckContainsText <$STR(S1)> >
CheckContainsText <$STR(S1)> {
CheckContainsText <$STR(S1)> }
CheckContainsText <$STR(S1)> 【
CheckContainsText <$STR(S1)> 】
CheckContainsText <$STR(S1)> PARAM
CheckContainsText <$STR(S1)> 信
CheckContainsText <$STR(S1)> 微
CheckContainsText <$STR(S1)> 垃圾
CheckContainsText <$STR(S1)> 拖
CheckContainsText <$STR(S1)> 托
CheckContainsText <$STR(S1)> 待遇
CheckContainsText <$STR(S1)> 待
CheckContainsText <$STR(S1)> 遇
CheckContainsText <$STR(S1)> 垃
CheckContainsText <$STR(S1)> 提现
CheckContainsText <$STR(S1)> 提
CheckContainsText <$STR(S1)> 现
CheckContainsText <$STR(S1)>  
CheckContainsText <$STR(S1)> Q
#ACT 
SENDMSG 6 您输入的名称有特殊符号或者屏蔽汉字，请重新输入！
break

#IF
#ACT
CHANGEHUMNAME S2