[dBASE] 移方块游戏

NOTE 井字移数字游戏的【程序档】（#SUB.PRG）
PROCEDURE PRINTNUM
* J=方格位置 N=数字 ◎在第Ｊ格印出N
* ┌──┬──┬──┐ ex: J=5,N=1 ┌─┬─┬─┐
* │J=1 │J=2 │J=3 │ │ │ │ │
* ├──┼──┼──┤ ├─┼─┼─┤
* │J=4 │J=5 │J=6 │ │ │Ⅰ│ │
* ├──┼──┼──┤ ├─┼─┼─┤
* │J=7 │J=8 │J=9 │ │ │ │ │
* └──┴──┴──┘ └─┴─┴─┘
IF N=0
BOX1=' '
BOX2=' '
BOX3=' '
ELSE
BOX1='╔═╗'
BOX2='║ ║'
BOX3='╚═╝'
ENDIF
DO CASE
CASE J<=3
@ 3,6*J SAY BOX1
@ 4,6*J SAY BOX2
@ 5,6*J SAY BOX3
@ 4,6*J+2 SAY SUBSTR(BC,N*2+1,2)
CASE J<=6
@ 6,6*(J-3) SAY BOX1
@ 7,6*(J-3) SAY BOX2
@ 8,6*(J-3) SAY BOX3
@ 7,6*(J-3)+2 SAY SUBSTR(BC,N*2+1,2)
CASE J<=9
@ 9,6*(J-6) SAY BOX1 ..

访客只能看到部份内容，免费 加入会员

x0

看起来好像不是很好玩不过还是谢谢

x0