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
