145z

[@Main]
<查询名称是否可以使用/@@InputString1(请输入新的名称：)>\
<我要改名/@@InputString2(请输入新的名称：)>>\

[@InputString1]
#IF
Equal S1
#ACT
SENDMSG 6 请输入一个正确的名称
Break

#OR
CheckStringlength S1 > 14
CheckStringlength S1 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break

;无需检测名字是否可用
;#IF
;CheckHumNameCanUse S1
;#SAY
;<$STR(S1)>可以使用
;#ELSESAY
;<$STR(S1)>不能使用！！！

[@InputString2]
#IF
Equal S2
#ACT
SENDMSG 6 请输入一个正确的名称
Break

#OR
CheckStringlength S2 > 14
CheckStringlength S2 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break

#IF
#ACT
CHANGEHUMNAME S2