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

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。