玩传奇论坛
标题:
改名卡传奇脚本
[打印本页]
作者:
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://wanmirbbs.com/)
Powered by Discuz! X3.2