人物改名
[@StdModeFunc10] ;///触发ID#ACT
GIVE 人物改名卡
MESSAGEBOX 是否需要修改当前游戏名字?\ \点击确定,打开修改人物名字窗口 @是的要修改名字
[@是的要修改名字]
#ACT
OPENMERCHANTBIGDLG 8 100 0 0 0 0 1 370 0
#SAY
<人物名字修改系统:/SCOLOR=254>\
<当前人物名字:/SCOLOR=254><$Username>\
<输入新的名字/@@InputString27(请输入新的名称:)>:<$str(S27)>\
<查询名字是否可用{SCOLOR=250}/@查询新名字可用否>\
<我已取好新名字,立即改名/@更名改姓>\\\\
[@更名改姓]
#IF
CHECKITEM 人物改名卡
#ACT
TAKE 人物改名卡
CHANGEHUMNAME S27
BREAK
#ELSEACT
MESSAGEBOX 你的人物改名卡呢?
[@查询新名字可用否]
#IF
Equal S27
#ACT
MESSAGEBOX 请输入一个正确的名称
Break
#OR
CheckStringlength S27 > 14
CheckStringlength S27 < 4
#ACT
MESSAGEBOX 最多只能取7个字符的名字
Break
#IF
#ACT
QUERYHUMNAMEEXIST S27
[@InputString27]
#IF
Equal S27
#ACT
MESSAGEBOX 请输入新名字
Break
#IF
CheckContainsText <$STR(S27)> @
#ACT
MESSAGEBOX 包含非法字符
BREAK
#IF
CheckContainsText <$STR(S27)> /
#ACT
MESSAGEBOX 包含非法字符
BREAK
#IF
CheckContainsText <$STR(S27)> 垃圾
#ACT
MESSAGEBOX 包含非法字符
BREAK
#IF
CheckContainsText <$STR(S27)> 私服
#ACT
MESSAGEBOX 包含非法字符
BREAK
#IF
CheckContainsText <$STR(S27)> 管理员
#ACT
MESSAGEBOX 包含非法字符
BREAK
#IF
CheckContainsText <$STR(S27)> 托
#ACT
MESSAGEBOX 包含非法字符
BREAK
#IF
CheckContainsText <$STR(S27)> 拖
#ACT
MESSAGEBOX 包含非法字符
BREAK
#IF
CheckContainsText <$STR(S27)> GM
#ACT
MESSAGEBOX 包含非法字符
BREAK
#IF
CheckContainsText <$STR(S27)> 传奇私服
#ACT
MESSAGEBOX 包含非法字符
BREAK
#IF
CheckContainsText <$STR(S27)>
#ACT
MESSAGEBOX 包含非法字符
BREAK
#OR
CheckStringlength S27 > 14
CheckStringlength S27 < 4
#ACT
MESSAGEBOX 输入名称长度不正确
Break
#IF
#ACT
GOTO @是的要修改名字
[@QueryingHumName]
#ACT
MESSAGEBOX 正在查询请稍后。。。
[@QueryHumNameOK]
#ACT
MESSAGEBOX 查询成功,该名称可以使用
[@ChangeingHumName]
#ACT
MESSAGEBOX 正在修改请稍后。。。
[@ChangeHumNameOK]
#ACT
CLOSE
MOV s27
MESSAGEBOX 名字修改成功:\ \旧名字:<$USERNAME>\ \新名字:<$USERNEWNAME>
BREAK
[@NameLengthFail]
#ACT
MESSAGEBOX 名字长度不允许超过7个字符
[@HumNameFilter]
#ACT
MESSAGEBOX 该名字存在非法字符
[@HumNameExists]
#ACT
MESSAGEBOX 该名字已经被其他玩家占用,请选择其他名字
[@ChangeHumNameFail]
#ACT
MESSAGEBOX 改名失败!
顶顶顶顶顶大大大 呵呵。。。不错啊 路过 帮顶 嘿嘿 呵呵。。。不错啊 呵呵。。。不错啊 纯粹路过,没任何兴趣,仅仅是看在老用户份上回复一下 回的人少,我来小顶一下! 纯粹路过,没任何兴趣,仅仅是看在老用户份上回复一下 路过 帮顶 嘿嘿