QF中的触发脚本
[@STDMODEFUNC126]
#if
#act
#say
<Img|x=0.0|y=0.0|width=750|height=395|scale9l=50|bg=1|scale9r=50|scale9b=50|reset=1|move=0|img=public/1900020020.png|esc=1|scale9t=50>
<Layout|x=674.0|y=68.0|width=80|height=80|link=@exit>
<Button|x=688.0|y=73.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
<Text|a=0|x=107.0|y=100.0|tipsx=10|tipsy=80|color=255|size=18|text=发现空格名字一律删除！请尽快修改名字!\>
<Text|a=0|x=214.0|y=210.0|tipsx=10|tipsy=80|color=251|size=18|text=查询名称是否被占用|link=@@INPUTSTRING1(请输入查询的名称：)>
<Text|a=0|x=551.0|y=210.0|tipsx=10|tipsy=80|color=251|size=18|text=我要改名|link=@@INPUTSTRING2(请输入新的名称：)>
;<Text|a=0|x=107.0|y=210.0|tipsx=10|tipsy=80|color=255|size=18|text=改名后您的捐献爵位和天下第一将失效！>
;<Text|a=0|x=107.0|y=246.0|tipsx=10|tipsy=80|color=255|size=18|text=杀人数据和被杀数据会清空>
;<Text|a=0|x=107.0|y=285.0|tipsx=10|tipsy=80|color=250|size=18|text=改名每次收费100W元宝>
<Text|a=0|x=620.0|y=331.0|tipsx=10|tipsy=80|color=251|size=25|text=返回|link=@MAIN>
[@InputString1]
#IF
Equal S1
#ACT
SENDMSG 6 请输入一个正确的名称
Break
#OR
CheckStringlength S1 > 14
CheckStringlength S1 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break
#IF
#ACT
QUERYHUMNAMEEXIST S1
[@InputString2]
#IF
Equal S2
#ACT
SENDMSG 6 请输入一个正确的名称
Break
#OR
CheckStringlength S2 > 14
CheckStringlength S2 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break
#IF
#ACT
ADDTextList ..\QuestDiary\临时数据\改名记录.txt 改名前:<$USERNAME>,改名后:<$STR(S2)>,时间:<$DATETIME>
CHANGEHUMNAME S2
[@ChangeHumNameOK]
#ACT
#SAY
你的名字修改成功，旧名称：<$USERNAME> 新名称：<$USERNEWNAME>！\ \
<关闭/@exit>\
[@NameLengthFail]
sendmsg 5 名字长度不允许超过30个字符！
[@HumNameFilter]
sendmsg 5 该名字存在非法字符！
[@HumNameExists]
#act
sendmsg 5 该名字已经被其他玩家占用，请选择其他名字
[@ChangeHumNameFail]
sendmsg 5 改名失败！
