[GOM脚本] 传奇改名使者功能脚本

此脚本功能：可查询名称是否被占用，进行更改新名字。

(@@InPutInteger @@InPutString @InPutInteger @InPutString @storage @getback @getnextpage @getPreviouspage)

[@main]

#IF

#ACT

OPENMERCHANTBIGDLG 24 318 1 0 0 0 1 580 1000

#say

<>\

<>\

<>\

<         ><您是否得罪过很多人？/SCOLOR=103>\

<         ><快来改头换面，换个新名字继续去杀人吧。/SCOLOR=70>\

<         ><哈哈，你只需要付我30金就成../SCOLOR=70>\ \

<         ><查询名称是否被占用/@@InputString1(请输入查询的名称：)>\ \

<         ><我要改名/@@InputString2(请输入新的名称：)> \ \

<>                                          <关 闭×/@exit>

[@InputString1]

#IF

Equal S1

#ACT

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

#IF

CHECKGOLD 30

#ACT

GOTO @开始修改

#ELSEACT

SENDMSG 6 你的金不足！

Break

[@开始修改]

#IF

#ACT

TAKE 金币 30

CHANGEHUMNAME S2