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

激动人心，无法言表！

强烈支持楼主ing……

激动人心，无法言表！

真是被感动的痛哭流涕……

楼主加油，我们都看好你哦。

太生气了，无法HOLD啦 >_<......

真是难得给力的帖子啊。

我只是路过打酱油的。

无回帖，不论坛，这才是人道。