## 调整人物名
>[success]* 检查人物名是否存在： QUERYHUMNAMEEXIST `字符串`
>* 执行改名： CHANGEHUMNAME `字符串`
>[danger] 改名后，`\QuestDiary`文本中还是旧的人物名，可能导致会员、排行等与人物名相关的系统，判断为是新玩家，可以使用 CHANGEHUMNAMEFILE `文本路径` 替换成新的人物名
示例
```
;人物在线改名系统
[@Main]
<查询人物名是否可以使用/@@InputString1(请输入新的人物名：)>\
<我要改名/@@InputString2(请输入新的人物名：)>\
[@InputString1]
#IF
EQUAL S1
#ACT
SENDMSG 6 请输入一个正确的人物名
BREAK
#OR
CheckStringlength S1 > 20
CheckStringlength S1 < 4
#ACT
SENDMSG 6 输入人物名长度不正确
Break
#IF
#ACT
QUERYHUMNAMEEXIST S1
[@InputString2]
#IF
Equal S2
#ACT
SENDMSG 6 请输入一个正确的人物名
Break
#OR
CheckStringlength S2 > 20
CheckStringlength S2 < 4
#ACT
SENDMSG 6 输入人物名长度不正确
Break
#IF
#ACT
CHANGEHUMNAME S2
```
`\Market_def\QFunction-0.txt`
```
[@QueryingHumName]
#SAY
正在查询请稍候...\
<关闭/@exit>
[@QueryHumNameOK]
#SAY
该人物名可以使用！\
<关闭/@exit>
[@ChangeingHumName]
#SAY
正在修改请稍候...\
<关闭/@exit>
[@ChangeHumNameOK]
#ACT
;这个方法是将一些保存在文档中的旧人物名，替换成新的人物名，如果不需要替换可以去掉
CHANGEHUMNAMEFILE ..\QuestDiary\会员名称.txt
#SAY
人物名修改成功，旧人物名：<$USERNAME> 新人物名：<$USERNEWNAME>！\
<关闭/@exit>
[@NameLengthFail]
人物名长度不允许超过30个字符！\
<关闭/@exit>
[@HumNameFilter]
该人物名存在非法字符！\
<关闭/@exit>
[@HumNameExists]
该人物名已经被其他玩家占用，请选择其他名字！\
<关闭/@exit>
[@ChangeHumNameFail]
改名失败！\
<关闭/@exit>
```
