GOM引擎改人物名脚本

75kf论坛

[@改名系统]
{
　\
　\
　<查询名称是否可以使用/@@InputString11(请输入新的名称：)>\ \
　<我要改名/@@InputString21(请输入新的名称：)>\ \ \
　<关闭/@exit>\


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

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

#IF
#ACT
QUERYHUMNAMEEXIST S11

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

#OR
CheckStringlength S21 > 14
CheckStringlength S21 < 3
#ACT
SENDMSG 6 输入名称长度不正确
Break

#IF
CHECKGAMEGOLD > 4999
#ACT
CHANGEHUMNAME S21
close
break
#ELSEACT
MessageBox 提示：你的会员币不足！
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

}