[@main]
#IF
  ISADMIN
#act
#SAY
管理员：{<$USERNAME>/AUTOCOLOR=80}您好，欢迎到在线留言\
1条.玩家【{<$STR(A100)>/AUTOCOLOR=100}】→留言【{<$STR(A101)>/AUTOCOLOR=253}】\
2条.玩家【{<$STR(A102)>/AUTOCOLOR=100}】→留言【{<$STR(A103)>/AUTOCOLOR=253}】\
3条.玩家【{<$STR(A104)>/AUTOCOLOR=100}】→留言【{<$STR(A105)>/AUTOCOLOR=253}】\
4条.玩家【{<$STR(A106)>/AUTOCOLOR=100}】→留言【{<$STR(A107)>/AUTOCOLOR=253}】\
5条.玩家【{<$STR(A108)>/AUTOCOLOR=100}】→留言【{<$STR(A109)>/AUTOCOLOR=253}】\
6条.玩家【{<$STR(A110)>/AUTOCOLOR=100}】→留言【{<$STR(A111)>/AUTOCOLOR=253}】\
7条.玩家【{<$STR(A112)>/AUTOCOLOR=100}】→留言【{<$STR(A113)>/AUTOCOLOR=253}】\
<在线留言/@@InPutString5> <下一页/@2> <清除留言数据/@清除留言> \
#ELSEACT
goto @main0
break
[@main0]
#if
#ACT
#say
玩家：{<$USERNAME>/AUTOCOLOR=80}您好，欢迎来到玩家在线留言\
1条.玩家【{<$STR(A100)>/AUTOCOLOR=100}】→留言【{<$STR(A101)>/AUTOCOLOR=253}】\
2条.玩家【{<$STR(A102)>/AUTOCOLOR=100}】→留言【{<$STR(A103)>/AUTOCOLOR=253}】\
3条.玩家【{<$STR(A104)>/AUTOCOLOR=100}】→留言【{<$STR(A105)>/AUTOCOLOR=253}】\
4条.玩家【{<$STR(A106)>/AUTOCOLOR=100}】→留言【{<$STR(A107)>/AUTOCOLOR=253}】\
5条.玩家【{<$STR(A108)>/AUTOCOLOR=100}】→留言【{<$STR(A109)>/AUTOCOLOR=253}】\
6条.玩家【{<$STR(A110)>/AUTOCOLOR=100}】→留言【{<$STR(A111)>/AUTOCOLOR=253}】\
7条.玩家【{<$STR(A112)>/AUTOCOLOR=100}】→留言【{<$STR(A113)>/AUTOCOLOR=253}】\
<玩家在线留言/@@InPutString5> <下一页/@1> <取消自己留言/@取消> <花1000元宝给GM留言/@@InPutString65> \
[@1]
玩家：{<$USERNAME>/AUTOCOLOR=80}您好，欢迎到在线留言\
8条.玩家【{<$STR(A114)>/AUTOCOLOR=100}】→留言【{<$STR(A115)>/AUTOCOLOR=253}】\
9条.玩家【{<$STR(A116)>/AUTOCOLOR=100}】→留言【{<$STR(A117)>/AUTOCOLOR=253}】\
10条.玩家【{<$STR(A118)>/AUTOCOLOR=100}】→留言【{<$STR(A119)>/AUTOCOLOR=253}】\
<玩家在线留言/@@InPutString5> <上一页/@main> <取消自己留言/@取消> <花1000元宝给GM留言/@@InPutString65> \
[@2]
管理员：{<$USERNAME>/AUTOCOLOR=80}您好，欢迎到在线留言\
8条.玩家【{<$STR(A114)>/AUTOCOLOR=100}】→留言【{<$STR(A115)>/AUTOCOLOR=253}】\
9条.玩家【{<$STR(A116)>/AUTOCOLOR=100}】→留言【{<$STR(A117)>/AUTOCOLOR=253}】\
10条.玩家【{<$STR(A118)>/AUTOCOLOR=100}】→留言【{<$STR(A119)>/AUTOCOLOR=253}】\
<在线留言/@@InPutString5> <上一页/@main> <清除留言数据/@清除留言> \

[@InPutString65]
#IF
CheckGAMEGOLD > 999
#ACT
GmExeCute 留言 <$STR(S65)>
#ELSEACT
GAMEGOLD - 1000
messagebox  没有1000元宝\给GM留言\注意!
break

[@清除留言]
#IF
#ACT
MOV G81
MOV A100 暂无
MOV A101 暂无
MOV A102 暂无
MOV A103 暂无
MOV A104 暂无
MOV A105 暂无
MOV A106 暂无
MOV A107 暂无
MOV A108 暂无
MOV A109 暂无
MOV A110 暂无
MOV A111 暂无
MOV A112 暂无
MOV A113 暂无
MOV A114 暂无
MOV A115 暂无
MOV A116 暂无
MOV A117 暂无
MOV A118 暂无
MOV A119 暂无
CLEARNAMELIST ..\QuestDiary\在线留言.txt
MESSAGEBOX [成功]清理了留言！
goto @main
break
[@InPutString5]
#IF
checknamelist ..\QuestDiary\在线留言.txt
#act
MESSAGEBOX [失败]:您已经留言了，请不要重留言!
break

#IF
SMALL G81 10
#ELSEACT
MESSAGEBOX [失败]:在线留言已经满了
break

#if
EQUAL A100 暂无
#ACT
INC G81 1
MOV A100 <$USERNAME>
MOV A101 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A101)>
goto @main
break

#if
EQUAL A102 暂无
#ACT
INC G81 1
MOV A102 <$USERNAME>
MOV A103 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A103)>
goto @main
break