#IF
EQUAL d1 6
#SAY
╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗
┆    ┆ ○ ┆ ○ ┆ ○ ○ ┆ ○  ○ ┆ ● ● ┆
┆ ○ ┆    ┆ ○ ┆       ┆   ○   ┆ ● ● ┆
┆    ┆ ○ ┆ ○ ┆ ○ ○ ┆ ○  ○ ┆ ● ● ┆
╟┄┄┴┄┄┴┄┄┴┄┄┄-┴┄┄┄┄┴┄┄┄-╢
┆ <1/@1点>  ┆ <2/@2点>  ┆ <3/@3点>  ┆   <4/@4点>   ┆    <5/@5点>   ┆  <6/@6点>    ┆
╟┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╢
┆ 中奖提示：<请选择开始>   ┆     <开始猜点/@开始猜点>     ┆
╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝

[@开始猜点]
#IF
#ACT
mov p9 1
movr d0 6
inc d0 1
playdice 1 @cube
#SAY
正在投骰子.
#ELSESAY
<退出/@Quit>
#ELSEACT
mov p9 9
[@Quit]
#IF
#ACT
map B0

[@cube]
#IF
EQUAL P9 <$STR(d1)>
#ACT
goto @posi1
#elsesay
很遗憾。。。。你选择的是<$STR(D1)>
骰子的点数是<$STR(D0)>,和你猜的点数不同,请继续努力
<再来,我就不信/@main>

[@Posi1]
#IF
#ACT
batchDelay 1
addbatch 3
SENDMSG 7 提示：恭喜你摇到了<$STR(D0)>，与你选择的<$STR(D1)>一样。
batchmove