传奇一条龙提供的无错改名脚本

[@Main]#IFsmall U3 1#ACTMOV U3 20000goto @改名#ELSEACTgoto @改名Break[@改名]#IF#ACTCloseBigDialogBox#SAY\ \\ 嫌自己的名字太丑？还是做了什么见不得人的事情？/SCOLOR=250 \ \\ 好吧，给我20000无赦币我给你换一个身份！！！/SCOLOR=250 \ \\ 提示：第2次改名50000，第3次100000，第4次150000已此类推！！/SCOLOR=250 \ \\ 新出的游戏 ≮更换名字≯/@更换名字 \ \[@更换名字]\ \\ 嫌自己的名字太丑？还是做了什么见不得人的事情？/SCOLOR=253 \ \\ ≮查询名称是否可以使用≯/@@InputString1(请输入新的名称：)\ \\ 你已经更换/SCOLOR=255[$STR(U4)]次/SCOLOR=250了，再次更改名字需要无赦币/SCOLOR=255[$STR(U3)]/SCOLOR=250\ \\ ≮我要改名≯/@开始改名\[@开始新开传奇sf发布网改名]\ \\ 请改名之前确认名字是否可以使用，如果因你未查询清楚改名失败/SCOLOR=250\ \\ 管理概不负责！！/SCOLOR=250\ \\ ≮查询名称是sf180否可以使用≯/@@InputString1(请输入新的名称：)\ \\ ≮确认改名≯/@@InputString2(请输入新的名称：)\[@InputString1]#IFEqual S1#ACTSENDMSG 6 请输入一个正确的名称Break#ORCheckStringlength S1 20CheckStringlength S1 2#ACTSENDMSG 6 输入名称长度不正确Break#IF#ACTQUERYHUMNAMEEXIST S1[@InputString2]#IFEqual S2#ACTSENDMSG 6 请输入一个正确的名称Break#ORCheckStringlezhaosfngth S2 20CheckStringlength S2 鬼吹灯外传好玩吗 2#ACTSENDMSG 6 输入名称长度不正确Break#IFsmall U3 50000#ACTgoto @第一次改名#ELSEACTgoto @第N次改名break[@第一次改名]#IFCHECKGAMEDIAMOND 19999#ACTCHANGEHUMNAME S2GAMEDIAMOND - 20000MOV U3 50000INC U4 1#ELSEACTMESSAGEBOX [提示]:你没有20000无赦币break[@第N次改名]#IFCHECKGAMEDIAMOND $STR(U3)#ACTGAMEDIAMOND - $STR(U3)CHANGEHUMNAME S2INC U3 50000INC U4 1#ELSEACTMESSAGEBOX [提示]:你无赦币数量不够break