|
登录后可查看完整内容和下载
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
- ()
- %100
- [@main]
- #say
- \<本服务可更改你的名字,但需要40000元宝手续费!!/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
- \ \
- \ <查询名称是否可以使用/@@InputString1(请输入新的名称:)>\
- \ \
- \ <我要改名/@@InputString2(请输入新的名称:)>>\
- [@InputString1]
- #IF
- Equal S1
- #ACT
- SENDMSG 6 请输入一个正确的名称
- Break
- #OR
- CheckStringlength S1 > 14
- CheckStringlength S1 < 4
- #ACT
- SENDMSG 6 输入名称长度不正确
- Break
- [@InputString2]
- #IF
- Equal S2
- #ACT
- SENDMSG 6 请输入一个正确的名称
- Break
- #OR
- CheckStringlength S2 > 14
- CheckStringlength S2 < 4
- #ACT
- SENDMSG 6 输入名称长度不正确
- Break
- #IF
- checkgamegold > 39999
- #ACT
- CHANGEHUMNAME S2
- gamegold - 40000
- SENDMSG 6 你现在已经是<$STR(S2)>了
- SENDMOVEMSG 0 253 255 350 2 某人改名字为<$STR(S2)>了,开启了全新的人生 12 10 0
- #elseact
- messagebox 元宝不够改毛名字啊
复制代码 |
|