人物在线改名系统

-----------------------------------人物在线改名------------------------------
[@Main]
<查询名称是否可以使用/@@InputString1(请输入新的名称：)>
<我要改名/@@InputString2(请输入新的名称：)>>

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

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

#IF
CheckHumNameCanUse S1
#SAY
<$STR(S1)>可以使用
#ELSESAY
<$STR(S1)>不能使用！！！

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

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

#IF
#ACT
CHANGEHUMNAME S2


-----------------------------------------------------------------------------


QFunction-0.txt脚本相关触发

[@ChangeingHumName]
正在修改请稍后。。。
<关闭/@exit>

[@ChangeHumNameOK]
#ACT
;这个命令是用来修改，你的变量保存文件和人物名称列表文件里面的人物名称的，如果没有这些可以不使用这个命令
;这个命令也只能放在这个地方，放其他地方无效
CHANGEHUMNAMEFILE ..QuestDiary变量文件HQCQAS呵呵e.txt
CHANGEHUMNAMEFILE ..QuestDiary会员名称.txt
#SAY
你的名字修改成功，旧名称：<$USERNAME> 新名称：<$USERNEWNAME>！
<关闭/@exit>

[@NameLengthFail]
名字长度不允许超过30个字符！
<关闭/@exit>

[@HumNameFilter]
该名字存在非法字符！
<关闭/@exit>

[@HumNameExists]
该名字已经被其他玩家占用，请选择其他名字
<关闭/@exit>

[@ChangeHumNameFail]
改名失败！
<关闭/@exit>