home *** CD-ROM | disk | FTP | other *** search
- {report `Tetris game`}
- {attr 4 3} -- Online ANSI Tetris -- {attr 0 2} {_time} {bg 4 cll attr 0 2}
- {if ANSI=0 goto +noansi}{if BAUD<2400 goto +badbaud}{if LINES<24 goto +toosmall}
- Controls : {attr 4 6} Z {attr 0 2} moves figure left, {attr 4 6} X {attr 0 2} moves figure right.
-
- {attr 4 6} [ENTER] {attr 0 2} rotates figure, {attr 4 6} / {attr 0 2} drops figure.
-
- {fg 3}Use CTRL-X at any time to abort the game!
-
- {fg 1}Press <ENTER> to start game... {label getenter getkey V1 if V1<>13 goto getenter}
- {runtask `<RiscBBS$Dir>.SubTasks.!Tetris HANDLE`}
- {wait getkey V0 attr 0 7 cls eof}
- {label noansi}
- I'm sorry, but to play Tetris you really need ANSI graphics...
-
- {enter}
- {eof label badbaud}
- I'm sorry, but below 2400 baud Tetris isn't playable...
-
- {enter}
- {eof label toosmall}
- I'm sorry, but you need at least 24 lines on your display...
-
- {enter}
-