◇逍遥◆MIR2◇ 发表于 2022-9-16 11:35:54

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


jamiezhao 发表于 2022-9-16 11:50:41

激动人心，无法言表！

jinxun 发表于 2022-9-18 21:15:39

强烈支持楼主ing……

猫小灰 发表于 2022-9-23 11:32:38

激动人心，无法言表！

roach_work 发表于 2022-9-24 00:19:35

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

kuake2002 发表于 2022-9-28 15:20:11

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

myselfjo 发表于 2022-9-29 19:36:24

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

回忆Childhoo 发表于 2022-10-4 17:35:54

真是难得给力的帖子啊。

trulytry 发表于 2022-10-7 01:09:41

我只是路过打酱油的。

dhxmeidou 发表于 2022-10-8 16:51:02

无回帖，不论坛，这才是人道。
页: [1] 2
查看完整版本: GOM引擎在传奇开区里如何实现在线改名系统