传奇私服一条龙制作传奇玩家改名系统脚本教程

[@main]
#if
#ACT
OPENMERCHANTBIGDLG 0 106 1 4 0 -80 1 375 1
#Say
\ \

<>                      <【无欲·单职业】/SCOLOR=249>\  \
<>        <欢迎您体验全新独家打造精品玩法:【改名系统】/AUTOCOLOR=151,215,146,180,191,249>\   

<============================================================/FCOLOR=11>\ \
<>      <嫌自己的名字太丑？还是做了什么见不得人的事情？/SCOLOR=254> \ \

<>      <或者说想换一个非常牛逼的名字？好好找我就对了！/SCOLOR=250> \ \
<============================================================/FCOLOR=11>\ \

<>  <修改一次名字需要/FCOLOR=253><10RMB/FCOLOR=249><点/FCOLOR=253>  <不过之前杀人.被杀的记录将被清除/FCOLOR=254>\ \
<>      <√查询名称是否可以使用/@@InputString1(请输入新的名称：)>          <√我要改名/@@InputString2(请输入新的名称：)> \ \


[@InputString1]
#IF
Equal S1
#ACT
OPENMERCHANTBIGDLG 0 106 1 4 0 -80 1 375 1
SENDMSG 6 请输入一个正确的名称
Break

#OR
CheckStringlength S1 > 20
CheckStringlength S1 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break

#IF
#ACT
QUERYHUMNAMEEXIST S1

[@InputString2]
#IF
Equal S2
#ACT
SENDMSG 6 请输入一个正确的名称
Break

#OR
CheckStringlength S2 > 20
CheckStringlength S2 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break


#OR
CHECKGamePoint < 10
#ACT
MESSAGEBOX \你的RMB点不足10！
Break

#IF
#ACT
GamePoint - 10
CHANGEHUMNAME S2
MESSAGEBOX \你现在已经是<$STR(S2)>了
SENDMOVEMSG 0 253 255 350 2 某人改名字为<$STR(S2)>了，开启了全新的人生 12 10 0