home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / games / tunnels.amos / tunnels.amosSourceCode
AMOS Source Code  |  1990-10-26  |  649b  |  5 lines
  1. Do : Hide : Load "AMOS_DATA:SPRITES/AMOSTEROIDS.ABK" : Flash Off : Curs Off : Paper 0 : Cls : Def Scroll 1,0,0 To 320,191,0,4 : Sprite 8,200,220,1 : SZ=16
  2. SC=0 : Randomize Timer : Amal 8,"L: L X=XM; P; J L" : Amal On : Z=30 : Do : X=Rnd(2) : X=X-1 : Bar 0,4 To((Z+X)*4),8 : Bar((Z+X+SZ)*4),4 To 319,8 : Scroll 1
  3. Add Z,X : Locate 0,24 : Print SC; : X1=X Screen(X Mouse) : If Point(X1+4,190)<>0 or Point(X1+28,190)<>0 Then Exit Else If Z<10 Then Z=10 Else If Z>60 Then Z=60
  4. Add SC,1 : If Rnd(1000)>998 : Add SZ,-1,10 To 16 : Else Shoot : End If : Loop : Locate 0,12 : Boom : Centre "GAME OVER" : Locate 0,14
  5. Centre "Score: "+Str$(SC) : Wait Key : Loop