玩传奇论坛

标题: 改名卡传奇脚本 [打印本页]

作者: admin 时间: 2020-10-19 05:46
标题: 改名卡传奇脚本
数据库
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 改名失败！

欢迎光临玩传奇论坛 (http://www.wanmirbbs.com/)