xiaoyu2520 发表于 2020-2-12 01:49:46

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


爱在 发表于 2020-2-12 03:05:44

这么强,支持楼主，佩服

尼玛说我帅的一 发表于 2020-2-15 20:28:43

支持，赞一个

蕞后旳牵强 发表于 2020-2-17 04:29:01

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

超人琴i 发表于 2020-2-18 13:12:45

回个帖子，下班咯~

家世界小陶 发表于 2020-2-21 18:37:50

楼下的接上。。。。

Chaos六旪 发表于 2020-2-23 17:56:53

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

547062473 发表于 2020-2-26 14:23:15

确实不错，顶先

断了铉 发表于 2020-2-26 21:27:58

确实不错，顶先

hubin 发表于 2020-3-15 06:36:04

不错 支持一个了
页: [1] 2 3 4 5 6 7
查看完整版本: GOM引擎在传奇开区里如何实现在线改名系统