独创传奇改名脚本给玩家隐姓埋名机会

[@Main] #IF small U3 1 #ACT MOV  U3 20000 goto @改名 #ELSEACT goto @改名 Break [@改名] #IF #ACT CloseBigDialogBox #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>\ \ \  <≮我要改名≯/@开始改名>\ [@开始改名] \ \ \  <请改名之前确认名字是否可以使用，如果因你未查询清楚改名失败/SCOLOR=250>\ \ \  <管理概不负责！！/SCOLOR=250>\ \ \  <≮查询名称是否可以使用≯/@@InputString1(请输入新的名称：)>\ \ \  <≮确认改名≯/@@InputString2(请输入新的名称：)>\ [@InputString1] #IF Equal S1 #ACT SENDMSG 6 请输入一个正确的名称 Break #OR CheckStringlength S1 > 20 CheckStringlength S1 < 2 #ACT SENDMSG 6 输入名称长度不正确 Break #IF #ACT QUERYHUMNAMEEXIST S1 [@InputString2] #IF Equal S2 #ACT SENDMSG 6 请输入一个正确的名称 Break #OR CheckStringlength S2 > 20 CheckStringlength S2 < 2 #ACT SENDMSG 6 输入名称长度不正确 Break #IF small U3 50000 #ACT goto @第一次改名 #ELSEACT goto  @第N次改名 break [@第一次改名] #IF CHECKGAMEDIAMOND > 19999 #ACT CHANGEHUMNAME S2 GAMEDIAMOND - 20000 MOV U3 50000 INC U4 1 #ELSEACT MESSAGEBOX [提示]:你没有20000无赦币 break [@第N次改名] #IF CHECKGAMEDIAMOND > <$STR(U3)> #ACT GAMEDIAMOND - <$STR(U3)> CHANGEHUMNAME S2 INC U3 50000 INC U4 1 #ELSEACT MESSAGEBOX [提示]:你无赦币数量不够 break