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