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