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

xiaoyu2520

[@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

爱在

这么强,支持楼主，佩服

尼玛说我帅的一

支持，赞一个

蕞后旳牵强

报告！别开枪，我就是路过来看看的。。。

超人琴i

回个帖子，下班咯~

家世界小陶

楼下的接上。。。。

Chaos六旪

为保住菊花，这个一定得回复！

547062473

确实不错，顶先

断了铉

确实不错，顶先

hubin

不错 支持一个了