传奇私服一条龙制作传奇玩家改名系统脚本教程
[@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
页:
[1]