传奇GM教程 传奇NPC留言版脚本系统

(@@InPutString) 
[@MAIN] 
<$STR(A2)>
<$STR(A3)> 
<$STR(A4)> 
<$STR(A5)>
<$STR(A6)> 
<$STR(A7)> 
<$STR(A8)> 
<$STR(A9)> 
每发表一次留言需要80万金币<确定发表留言/@@InPutString20>，只显示8条留言。 

[@InPutString20] 
#IF 
EQUAL S20 
#ACT 
Messagebox [失败]：请输入所要发表的文字。不能发空消息。
GOTO @MAIN 
BREAK 

#IF 
Checkgold 800000 
#ACT 
take 金币 800000 
MOV S3 <
INC S3 <$USERNAME>
INC S3 /AUTOCOLOR= 
GetRandomName ..QuestDiary变量颜色.txt S30
INC S3 <$STR(S30)> 
INC S3 >说：< 
INC S3 <$STR(S20)> 
INC S3 /AUTOCOLOR= 
GetRandomName ..QuestDiary变量颜色.txt S30 
INC S3 <$STR(S30)> 
INC S3 >
MOV A9 <$STR(A8)> 
MOV A8 <$STR(A7)> 
MOV A7 <$STR(A6)>
MOV A6 <$STR(A5)> 
MOV A5 <$STR(A4)> 
MOV A4 <$STR(A3)> 
MOV A3 <$STR(A2)> 
MOV A2 <$STR(S3)> 
MOV S3 
MOV S20 
MOV S20 
GOTO @MAIN 
BREAK
#ELSEACT 
Messagebox [失败]：发表留言需要80万金币。
GOTO @MAIN 
BREAK