[@main]
　　\\\\
　　　　　<COLOR=clRed 改人物名费用为500金币,改名前请先退出行会,英雄下线.>\\\
　　　　　　【<更换我的角色名/@@InputString35>】　　　【<更换英雄的名字/@@InputString36>】\\

[@@InPutString35]
#if
#act
SENDMSG 7 正在为检测.请勿关闭对话框......请稍后.....
SENDMSG 7 正在为检测.请勿关闭对话框......请稍后.....
SENDMSG 7 正在为检测.请勿关闭对话框......请稍后.....
DelayCall 1000 @InPutString35

[@InPutString35]
#IF
CHECKGOLD 500
#ACT
#ELSEACT
MESSAGEBOX 你没有500金币,无法为你服务！
BREAK

#if
haveGuild
#say

失败，行会成员不能变更角色名！\ \
<关闭/@exit>
#act
SENDMSG 5 行会成员不能变更角色名！
break

#if
haveHero
checkHeroOnline
#say

失败，英雄需下线才能更名！\ \
<关闭/@exit>
#act
SENDMSG 5 英雄需下线才能更名！
break

#if
#act
changeCharName <$STR(S35)>
BREAK

[@@InPutString36]
#if
#act
SENDMSG 7 正在为检测.请勿关闭对话框......请稍后.....
SENDMSG 7 正在为检测.请勿关闭对话框......请稍后.....
SENDMSG 7 正在为检测.请勿关闭对话框......请稍后.....
DelayCall 1000 @InPutString36

[@InPutString36]
#IF
CHECKGOLD 500
#ACT
#ELSEACT
MESSAGEBOX 你没有500金币,无法为你服务！
BREAK

#if
!haveHero
#act
SENDMSG 5 你还没有英雄！
break

#if
!checkHeroOnline
#act
SENDMSG 5 失败，英雄在线才能更名！
break

#if
#act
h.changeCharName <$STR(S36)>
break