home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / shwtxt19.zip / GALLERY.ST < prev    next >
Text File  |  1995-08-02  |  1KB  |  17 lines
  1. 'GALLERY.ST - Shooting Gallery Program
  2. on intkey0 esc goto x\copy(gallery1,1)\copy(gallery2,2)\attr 31\csr
  3. :s\%h=0\%m=0\%b=25\%s=0\copy(1,0)\bfill3(1,1,25,80)32 31
  4. v0=2\v1=2\v2=1\v3=2\v4=2\:k\if %b=0 q\waitkey 0,chktmr\if[kc]=81|[.22:49:22:54]q
  5. if [kc]=82 | [.22:27:22:33] then save\copy(2,0)\waitkey\restore\rst ts\goto k
  6. if `[.8:28:16:53] chktmr\%b--\p@19,49\!%b,2zq
  7. %a=[as:0:[.r]:[.c]]\if %a=32 | %a=95 then %m++\p@20,36\!%m,2zq\goto chktmr
  8. %h++\p@19,36\!%h,2zq\poke0([.r],[.c])95 31\if [.r]=12 then %p=2 else %p=1
  9. %s=%s+(%p*(%a-48))\p@20,49\!%s,3zq
  10. :chktmr\nochk\for %i=0 to 4\if [t%i]>=v%i gosub action\next\chk\goto k
  11. :action\rst t%i\%r=(%i*2)+8\bcopy0to3(%r,28,%r,53) \select case %i
  12. case0,2,4\%c1=29\%c2=54\%c3=47\%c4=53\case1,3\%c1=27\%c2=52\%c3=34\%c4=28
  13. end select\bcopy3to0(%r,%c1,%r,%c2)(%r,28)\if [as:0:%r:%c3]=32 then ret
  14. poke0(%r,%c4)[rnd49to53] 112+[rnd10to15]\ret
  15. :q\p@22,27\!"GAME OVER-Play Again?  (Y/N)";\waitkey
  16. if[kc]=89 s\if[kc]=78 x\if[.22:51:22:51]s\if`[.22:53:22:53]q\:x\exitc
  17.