改名卡传奇脚本
数据库28;人物改名卡;31;0;0;10;0;0;10079;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;251;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
;---------------------------------------------------------人物改名
[@StdModeFunc10]
#ACT
GIVE 人物改名卡
MESSAGEBOX 是否需要修改当前游戏名字？\ \点击确定，打开修改人物名字窗口 @是的要修改名字
[@是的要修改名字]
#ACT
OPENMERCHANTBIGDLG 8 100 0 0 0 0 1 370 0
#SAY
<-------------------------------------------------------------/SCOLOR=85>\
<人物名字修改系统：/SCOLOR=254>\
<-------------------------------------------------------------/SCOLOR=85>\
<当前人物名字：/SCOLOR=254><$Username>\
<-------------------------------------------------------------/SCOLOR=85>\
<输入新的名字/@@InputString27(请输入新的名称：)>：<$str(S27)>\
<-------------------------------------------------------------/SCOLOR=85>\
<查询名字是否可用{SCOLOR=250}/@查询新名字可用否>\
<-------------------------------------------------------------/SCOLOR=85>\
<我已取好新名字，立即改名/@更名改姓_1>
[@更名改姓_1]
#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 改名失败！
页:
[1]