[@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 
 
 |