home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / bbs / a081_1 / !RiscBBS / BBS / ANSI / Tetris < prev    next >
Text File  |  1991-12-29  |  862b  |  25 lines
  1. {report `Tetris game`}
  2. {attr 4 3}  -- Online ANSI Tetris --  {attr 0 2}  {_time}  {bg 4 cll attr 0 2}
  3. {if ANSI=0 goto +noansi}{if BAUD<2400 goto +badbaud}{if LINES<24 goto +toosmall}
  4. Controls : {attr 4 6} Z {attr 0 2} moves figure left, {attr 4 6} X {attr 0 2} moves figure right.
  5.  
  6.            {attr 4 6} [ENTER] {attr 0 2} rotates figure, {attr 4 6} / {attr 0 2} drops figure.
  7.  
  8. {fg 3}Use CTRL-X at any time to abort the game!
  9.  
  10. {fg 1}Press <ENTER> to start game... {label getenter getkey V1 if V1<>13 goto getenter}
  11. {runtask `<RiscBBS$Dir>.SubTasks.!Tetris HANDLE`}
  12. {wait getkey V0 attr 0 7 cls eof}
  13. {label noansi}
  14. I'm sorry, but to play Tetris you really need ANSI graphics...
  15.  
  16. {enter}
  17. {eof label badbaud}
  18. I'm sorry, but below 2400 baud Tetris isn't playable...
  19.  
  20. {enter}
  21. {eof label toosmall}
  22. I'm sorry, but you need at least 24 lines on your display...
  23.  
  24. {enter}
  25.