|
|
楼主 |
发表于 2026-3-27 09:59:28
|
显示全部楼层
;改名NPC
(@@InPutString)
[@Main]
#IF
ISADMIN
#ELSEACT
BREAK
#ELSESAY
\\ \\ \\
< >这里需要管理操作权限。
#IF
#SAY
\\ \\ \\
< ><请输入需要改名的玩家名/@@InputString1>\\ \\
[@InputString1]
#IF
CheckOnline <$STR(S1)>
#SAY
\\ \\ \\
玩家：{<$STR(S1)>/FCOLOR=253}< >状态：<在线/FCOLOR=250>\\ \\ \\
<请输入新的角色名/@@InputString2>\\
#ELSESAY
\\ \\ \\
< >[<$STR(S1)>]不在线，无法操作
[@InputString2]
#IF
CheckOnline <$STR(S1)>
#ELSEACT
SENDMSG 5 提示：[<$STR(S1)>]不在线，改名失败。
BREAK
#IF
Equal S2
#ACT
SENDMSG 6 请输入一个正确的名称
Break
#OR
CheckStringlength S2 > 14
CheckStringlength S2 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break
#IF
#ACT
SetHumVar <$STR(S1)> S2 <$STR(S2)>
SetHumVar <$STR(S1)> S3 <$USERNAME>
<$STR(S1)>.CHANGEHUMNAME S2
;QFunction-0.txt脚本相关触发
[@ChangeingHumName]
#ACT
SENDMSG 7 角色名修改中
<$STR(S3)>.SENDMSG 7 正在修改中
[@ChangeHumNameOK]
#ACT
SENDMSG 6 角色名修改成功
<$STR(S3)>.SENDMSG 6 修改成功
[@NameLengthFail]
#ACT
<$STR(S3)>.SENDMSG 5 名字长度不允许超过30个字符！
[@HumNameFilter]
#ACT
<$STR(S3)>.SENDMSG 5 该名字存在非法字符！
[@HumNameExists]
#ACT
<$STR(S3)>.SENDMSG 5 该名字已经被其他玩家占用
[@ChangeHumNameFail]
#ACT
<$STR(S3)>.SENDMSG 5 改名失败！ |
|
发表于 2026-3-27 09:59:28