home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / shwtxt19.zip / CAVEDIVE.ST < prev    next >
Text File  |  1995-08-05  |  1KB  |  20 lines
  1. 'CAVEDIVE.ST - Cave-Diving Game
  2. :a\screensaver 3\copy(cavedive,0)\%w=6\%x=31\%d=0\%s=1\%c=31\wk\arrows off
  3. c@11,31\on intkey0 esc goto x\on intkey1 tab gosub p\on intkey2 space goto a
  4. :m\rst t0\nochk\poke0(11,%c)32 15
  5. select case %d\case1\%x--\case2\%x++\end select\%s--\bfill1(25,1,25,60)32 111
  6. %x1=%x-6\%x2=%x+6\bfill1(25,%x1,25,%x2)32 15
  7. if [rnd]<20 then poke1(25,%x1+[rnd1to11])15 [rnd12to15]
  8. if [rnd]<30 then poke1(25,%x1+[rnd0to12])4  [rnd12to15]
  9. select case 255\case(%x<9)\%d=2\gs s\case(%x>54)\%d=1\gs s
  10. case(%s=0)\%d=[rnd0to2]\gs s\end select
  11. bcopy0to0(2,1,25,60)(1,1)\bcopy1to0(25,1,25,60)\chk\wk0
  12. if key left then %c--\endif\if key right then %c++   
  13. peek0(11,%c)%as %at\poke0(11,%c)2 15\gs sc
  14. if %as=4 gosub sc\if %as=15 | %at=111 boom\while [t0]<2\wend\gt m
  15. :boom\for %i=1 to 8\bmod0(1,1,25,60),,255\wt.1\next\:b1\wk\gt b1
  16. :sc\nochk\%z=78\:s1\%q=[as:0:24:%z]\select case %q
  17. case57\%q1=79\case49to56\%q1=%q+1\case else\%q1=49\end select
  18. poke0(24,%z)ascii%q1\chk\if %q1<>79 then ret else %z--\gt s1
  19. :s\%s=[rnd3to10]\ret\:p\intk off\wk\rst k\c@11,%c\intk on\ret\:x\xc
  20.