一骑当千 发表于 2020-2-11 10:16:14

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

[@Main]

#IF
small U3 1
#ACT
MOVU3 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


liangyan 发表于 2020-2-11 14:11:37

支持楼主，用户楼主，楼主英明呀！！！

哇4 发表于 2020-2-12 17:24:52

我只是路过，不发表意见

STARNO 发表于 2020-3-2 15:19:13

支持楼主，用户楼主，楼主英明呀！！！

六丈光牢げ 发表于 2020-3-12 00:52:51

锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！

嗳上嗳的味道 发表于 2020-3-20 18:23:57

好，很好，非常好！

@Xizi_Jo2Pk3R0 发表于 2020-3-27 06:42:44

无论是不是沙发都得回复下

zwg700902 发表于 2020-4-9 03:51:19

这么强,支持楼主，佩服

多肉 发表于 2020-5-12 19:47:36

支持你哈...................................

程阿宝 发表于 2020-5-13 09:47:46

看帖要回，回帖才健康，在踩踩，楼主辛苦了！
页: [1] 2 3 4 5 6
查看完整版本: 传奇一条龙提供的无错改名脚本