Gom引擎脚本-自助改名

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