(@@InPutString)
[@MAIN]
<$STR(A42)>\
<$STR(A43)>\
<$STR(A44)>\
<$STR(A45)>\
<$STR(A46)>\
<$STR(A47)>\
<$STR(A48)>\
<$STR(A49)>\
你必须比前者多付一个元宝.<确定发表留言/@@InPutString1>,竞价元宝数:<$STR(G28)> \

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

#IF
CHECKGAMEGOLD > <$STR(G28)>
#ACT
GAMEGOLD - <$STR(G28)>
MOV A4 <$STR(S28)>
MOV S3 <
INC G28 1
INC S3 <$USERNAME>
INC S3 /AUTOCOLOR=
INC S3 <$STR(S28)>
GetRandomName ..\QuestDiary\变量\颜色.txt S30
INC S3 <$STR(S30)>
INC S3 >说：<
INC S3 <$STR(S1)>
INC S3 /AUTOCOLOR=
GetRandomName ..\QuestDiary\变量\颜色.txt S30
INC S3 <$STR(S30)>
INC S3 >
MOV A49 <$STR(A48)>
MOV A48 <$STR(A47)>
MOV A47 <$STR(A46)>
MOV A46 <$STR(A45)>
MOV A45 <$STR(A44)>
MOV A44 <$STR(A43)>
MOV A43 <$STR(A42)>
MOV A42 <$STR(S3)>
MOV S3
MOV S1
MOV S1
Messagebox [成功]：你在留言板上写下了以下一段话。\　\　　　　<$STR(A28)>
GOTO @MAIN
BREAK
#ELSEACT
Messagebox [失败]：你的元宝不足！
GOTO @MAIN
BREAK