Gm版本库

 找回密码
 立即注册

Gom引擎脚本-自助改名 - 传奇私服脚本

查看: 980|回复: 0

Gom引擎脚本-自助改名

[复制链接]
发表于 2019-10-21 11:12:31 | 显示全部楼层 |阅读模式
(@@InPutInteger @@InPutString )
[@main]
#IF
CHECKLEVELEX > 0
#ACT
#say
   <◆◆◆◆◆ 玛法情缘自助改名系统 ◆◆◆◆◆/AUTOCOLOR=249>\
 \
<查询名称是否可用/@@InputString11(请输入新的名称:)>(<重复角色名、系统禁用关键字不能使用/AUTOCOLOR=250>)\ 
<改名前一定要查询好是否能用,否则改名失败扣除费用后果自负!/AUTOCOLOR=253>\
<我要开始改角色名/@@InputString21(请输入新的名称:)>(<为防止骗子频繁换名字,每次收费2000情缘币/AUTOCOLOR=255>)\ \

<改名系统需注意:/AUTOCOLOR=249>\
<改名后行会、累积充值等数据会跟着角色名变化,天下第一需重新申请/AUTOCOLOR=254>\




[@InputString11]
#IF
Equal S11
#ACT
Messagebox 请输入一个正确的名称
Break

#OR
CheckStringlength S11 > 14
CheckStringlength S11 < 3
#ACT
Messagebox 输入名称长度不正确
Break

#IF
#ACT
QUERYHUMNAMEEXIST <$STR(S11)>

[@InputString21]
#IF
Equal S21
#ACT
Messagebox 请输入一个正确的名称
Break

#OR
CheckStringlength S21 > 14
CheckStringlength S21 < 3
#ACT
Messagebox 名字长度不正确,请输入2-7个汉字!
Break

#IF
CHECKGAMEDIAMOND > 1999
#ACT
GAMEDIAMOND - 2000
CHANGEHUMNAME S21
messagebox 你的名字修改成功,旧名:<$USERNAME>,新名:<$USERNEWNAME>
close
break
#ELSEACT
MessageBox 提示:你的情缘币不足2000,无法改名!
break





[@土豪更换]
#if
equal A8 <$USERNAME>
#act
mov A8 <$USERNEWNAME>
break

#if
equal A9 <$USERNAME>
#act
mov A9 <$USERNEWNAME>
break

#if
equal A10 <$USERNAME>
#act
mov A10 <$USERNEWNAME>
break


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver/手机版/Gm版本库 ( 蜀ICP备20007044号-1 )|网站地图

GMT+8, 2022-6-26 13:37 , Processed in 0.124800 second(s), 19 queries .

Powered by GM版本库 X3.4

© 2001-2011 Comsenz Inc.>  template by gmbbk.com