[@Main]
#if
equal <$CLIENTFLAG> 2
#say
<Img|ay=1|x=1.0|y=0|width=460|height=200|scale9l=10|scale9r=10|bg=1|scale9b=10|reset=1|move=0|img=public/bg_npc_01.png|scale9t=10>
<Layout|x=597.0|y=2.0|width=80|height=80|link=@exit>
<Button|x=458.0|y=0.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
<Img|x=11.0|y=23.0|width=440|esc=0|img=public/1900000667_1.png>
<Text|x=128|y=28.0|color=254|size=16|text=使用非法特殊字符的无法更改>
<Text|x=123.0|y=61.0|color=254|size=16|text=改名后您的捐献爵位和天下第一将失效>
<Text|x=129|y=92.0|color=251|size=16|text=使用其他玩家名字的无法更改>
<Text|x=154.0|y=124.0|color=250|size=16|text=改名需要10000元宝>
<Img|x=11.0|y=150.0|width=440|esc=0|img=public/1900000667_1.png>
<Button|x=181.0|y=156.0|width=120|height=30|pimg=public/image5.png|nimg=public/image7.png|mimg=public/image7.png|outline=0|color=251|size=18|text=我要改名|link=@@INPUTSTRING60(请输入新的名称：)>
#elsesay
<Img|ay=1|x=1.0|y=-1.0|width=460|height=200|scale9l=10|scale9r=10|bg=1|scale9b=10|reset=1|move=0|img=public/bg_npc_01.png|scale9t=10>
<Layout|x=597.0|y=2.0|width=80|height=80|link=@exit>
<Button|x=458.0|y=0.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
<Img|x=11.0|y=23.0|width=440|esc=0|img=public/1900000667_1.png>
<Text|x=128.0|y=27.0|color=254|size=16|text=使用非法特殊字符的无法更改>
<Text|x=123.0|y=61.0|color=254|size=16|text=改名后您的捐献爵位和天下第一将失效>
<Text|x=129|y=92.0|color=251|size=16|text=使用其他玩家名字的无法更改>
<Text|x=154.0|y=124.0|color=250|size=16|text=改名需要10000元宝>
<Img|x=11.0|y=150.0|width=440|esc=0|img=public/1900000667_1.png>
; <Input|x=100.0|y=161.0|width=100|height=25|placecolor=10|type=1|color=255|inputid=1|size=16|mincount=2|maxcount=14|isChatInput=1|onlyCh=1|errortips=1|place=新的名字>
<Text|x=181.0|y=161.0|color=251|size=18|text=我要改名|link=@@INPUTSTRING60(请输入新的名称：)>
[@InputString60]
#if
checkgamegold < 10000
#act
messagebox 你没有1W元宝,无法改名
break
#IF
Equal S60
#ACT
messagebox 请输入一个正确的名称
Break
#if
checktextlist ..\QuestDiary\系统功能\服务功能\过滤字符.txt <$STR(S60)>
#act
messagebox 请不要使用非法特殊字符
break
#OR
CheckStringlength S60 > 14
CheckStringlength S60 < 4
#ACT
messagebox 输入名称长度不正确
Break
#IF
checkgamegold ? 10000
#ACT
CHANGEHUMNAME S60
QF
[@改名服务QF]
{
[@QueryingHumName]
正在查询请稍后。。。\ \
<关闭/@exit>\
[@QueryHumNameOK]
查询成功，该名称可以使用\ \
<关闭/@exit>\
[@ChangeingHumName]
正在修改请稍后。。。\ \
<关闭/@exit>\
[@ChangeHumNameOK]
#if
#ACT
gamegold - 10000
ADDTextList ..\QuestDiary\数据文件\改名记录.txt 改名前:<$USERNAME>,改名后:<$STR(S60)>,时间:<$DATETIME>,分区:<$servername>
#SAY
你的名字修改成功，旧名称：<$USERNAME> 新名称：<$USERNEWNAME>\ \
<关闭/@exit>\
[@NameLengthFail]
名字长度不允许超过30个字符！\ \
<关闭/@exit>\
[@HumNameFilter]
该名字存在非法字符！\ \
<关闭/@exit>\
[@HumNameExists]
该名字已经被其他玩家占用，请选择其他名字\ \
<关闭/@exit>\
[@ChangeHumNameFail]
改名失败！\ \
<关闭/@exit>\
}
