[@公告牌]
{
#IF
#ACT
#SAY
<$STR(A42)>\
<$STR(A43)>\
<$STR(A44)>\
<$STR(A45)>\
<$STR(A46)>\
<$STR(A47)>\
<$STR(A48)>\
<$STR(A49)>\
<输入沙巴克会长告示/@@InPutString1>，只显示8条留言。\
[@InPutString1]
#IF
ISCASTLEMASTER
#ACT
GOTO @liuyan
#ELSEACT
MessAgeBox 你不属于沙巴克会长，无法使用。
[@liuyan]
#IF
EQUAL S1
#ACT
Messagebox [失败]：请输入所要发表的文字。不能发空消息。
GOTO @公告牌
BREAK
#IF
#ACT
MOV S4 <$USERNAME>
MOV S5 <
INC S5 S4
INC S5 /AUTOCOLOR=
GetRandomName ..\QuestDiary\英皇服务\颜色.txt S50
INC S5 <$STR(S50)>
INC S5 >说：<
INC S5 <$STR(S1)>
INC S5 /AUTOCOLOR=
GetRandomName ..\QuestDiary\英皇服务\颜色.txt S50
INC S5 <$STR(S50)>
INC S5 >
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(S5)>
MOV S5
MOV S1
MOV S1
GOTO @公告牌
BREAK
#ELSEACT
Messagebox [失败]：系统故障，请稍后再尝试……
GOTO @公告牌
BREAK
}
