猜点数

[@猜点数]
{
╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
┆    ┆ ○ ┆ ○ ┆ ○ ○ ┆ ○  ○ ┆ ○ ○ ┆\
┆ ○ ┆    ┆ ○ ┆       ┆   ○   ┆ ○ ○ ┆\
┆    ┆ ○ ┆ ○ ┆ ○ ○ ┆ ○  ○ ┆ ○ ○ ┆\
╟┄┄┴┄┄┴┄┄┴┄┄┄-┴┄┄┄┄┴┄┄┄-╢\
┆ <1/@1点>  ┆ <2/@2点>  ┆ <3/@3点>  ┆   <4/@4点>   ┆    <5/@5点>   ┆  <6/@6点>    ┆\
╟┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╢\
┆ 中奖提示：<请选择点数>   ┆     开始猜点     ┆\
╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\

[@1点]
#ACT
MOV P0 1
BREAK
GOTO @已选择

[@2点]
#ACT
MOV P0 2
BREAK
GOTO @已选择

[@3点]
#ACT
MOV P0 3
BREAK
GOTO @已选择

[@4点]
#ACT
MOV P0 4
BREAK
GOTO @已选择

[@5点]
#ACT
MOV P0 5
BREAK
GOTO @已选择

[@6点]
#ACT
MOV P0 6
BREAK
GOTO @已选择

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

;游龙  -技术交流QQ57168666
#IF
EQUAL P0 2
#SAY
╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
┆    ┆ ● ┆ ○ ┆ ○ ○ ┆ ○  ○ ┆ ○ ○ ┆\
┆ ○ ┆    ┆ ○ ┆       ┆   ○   ┆ ○ ○ ┆\
┆    ┆ ● ┆ ○ ┆ ○ ○ ┆ ○  ○ ┆ ○ ○ ┆\
╟┄┄┴┄┄┴┄┄┴┄┄┄-┴┄┄┄┄┴┄┄┄-╢\
┆ <1/@1点>  ┆ <2/@2点>  ┆ <3/@3点>  ┆   <4/@4点>   ┆    <5/@5点>   ┆  <6/@6点>    ┆\
╟┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╢\
┆ 中奖提示：<请选择开始>   ┆     <开始猜点/@开始猜点>     ┆\
╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\

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

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

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

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

[@开始猜点]
#IF
CHECKGAMEGOLD > 0
#ACT
GAMEGOLD - 1
MOVR P1 1 7
GOTO @生成数据
#ELSESAY
你的元宝不够！\
<关闭/@EXIT>

[@生成数据]
#IF
EQUAL P0 <$STR(P1)>
#ACT
GAMEGOLD + 2
MOV S1 恭喜您：猜对了
MOV S2 奖金：[元宝:2]
GOTO @显示结果
#ELSEACT
MOV S1 很遗憾，猜错了
MOV S2 奖金：[元宝:0]
GOTO @显示结果

[@显示结果]
#IF
EQUAL P1 1
#SAY
;游龙  -技术交流QQ57168666
　                ╔┄┄┄┄┄╗\
　                ┆ 本盘点数 ┆\
　                ╟┄┄┄┄┄╢\
　                ┆          ┆\
　                ┆    ●    ┆\
　                ┆          ┆\
　╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
　┆   <$STR(S1)>   ┆   <$STR(S2)>   ┆\
　╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\
;游龙  -技术交流QQ57168666

#IF
EQUAL P1 2
#SAY
　                ╔┄┄┄┄┄╗\
　                ┆ 本盘点数 ┆\
　                ╟┄┄┄┄┄╢\
　                ┆    ●    ┆\
　                ┆          ┆\
　                ┆    ●    ┆\
　╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
　┆   <$STR(S1)>   ┆   <$STR(S2)>   ┆\
　╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\


#IF
EQUAL P1 3
#SAY
　                ╔┄┄┄┄┄╗\
　                ┆ 本盘点数 ┆\
　                ╟┄┄┄┄┄╢\
　                ┆  ●      ┆\
　                ┆    ●    ┆\
　                ┆      ●  ┆\
　╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
　┆   <$STR(S1)>   ┆   <$STR(S2)>   ┆\
　╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\


#IF
EQUAL P1 4
#SAY
　                ╔┄┄┄┄┄╗\
　                ┆ 本盘点数 ┆\
　                ╟┄┄┄┄┄╢\
　                ┆  ●  ●  ┆\
　                ┆          ┆\
　                ┆  ●  ●  ┆\
　╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
　┆   <$STR(S1)>   ┆   <$STR(S2)>   ┆\
　╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\


#IF
EQUAL P1 5
#SAY
　                ╔┄┄┄┄┄╗\
　                ┆ 本盘点数 ┆\
　                ╟┄┄┄┄┄╢\
　                ┆  ●  ●  ┆\
　                ┆    ●    ┆\
　                ┆  ●  ●  ┆\
　╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
　┆   <$STR(S1)>   ┆   <$STR(S2)>   ┆\
　╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\

#IF
EQUAL P1 6
#SAY
　                ╔┄┄┄┄┄╗\
　                ┆ 本盘点数 ┆\
　                ╟┄┄┄┄┄╢\
　                ┆  ●  ●  ┆\
　                ┆  ●  ●  ┆\
　                ┆  ●  ●  ┆\
　╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
　┆   <$STR(S1)>   ┆   <$STR(S2)>   ┆\
　╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\

}