NPC

[@改名显示a]
#IF
EQUAL S2
#ACT
MOV S$玩家现显示 
SetStringBlank S$玩家现显示 15 1
#ELSEACT
MOV S$玩家现显示 <$STR(S2)>
SetStringBlank S$玩家现显示 15 1

#IF
EQUAL S1
#ACT
MOV S$玩家新显示 
SetStringBlank S$玩家新显示 15 1
#ELSEACT
MOV S$玩家新显示 <$STR(S1)>
SetStringBlank S$玩家新显示 15 1


#IF
#ACT
#SAY
\
<输入玩家现在的名字/@@InputString2>\ \
<玩家现在的名字:/FCOLOR=146><$STR(S$玩家现显示)>        <清理当前输入/@清理输入1>\ \
<输入玩家更改的名字/@@InputString1> <名字提示:><$STR(S$改名提示)>\ \
<玩家更改的名字:/FCOLOR=223><$STR(S$玩家新显示)>        <清理当前输入/@清理输入2> \  \

<我    要   改   名/@改名匹配>   

[@改名匹配]
#if
EQUAL S2 
#ACT
MESSAGEBOX 对不起！请先验证玩家现在得名字
break

#IF
EQUAL S1
#ACT
MESSAGEBOX 对不起！请先输入玩家更改的名字
break

#IF
#ACT
MOV A488 <$STR(S2)>
MOV A489 <$STR(S1)>
MOV S1
MOV S2
MOV S$改名提示 
Gmexecute 开始提问 @玩家改名
GOTO @MAIN
MESSAGEBOX 您已经成功的执行了改名操作.
break