home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2055.dms / in.adf / boot / boot.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-21  |  791 b   |  10 lines
  1. 1 Hide On : Flash Off : Curs Off : Paper 0 : Cls : Erase 1 : Dir$="MAGIC_FOREST" : Load "MFSPRITES.ABK" : Load "BACK1.ABK",5 : Unpack 5 To 0 : Erase 5
  2. 2 X=160 : D=1 : T=0 : SC=0 : Paper 0 : Pen 15 : Locate 0,0 : Print "SCORE:0" : Repeat 
  3. 3 CATCH=0 : A=Rnd(2)+16 : AX=Rnd(300)+10 : AY=0 : DY=8 : DY2=8 : DX=0 : B=0
  4. 4 Repeat : Bob 1,X,192,D*3+T/6+1 : Add T,1,0 To 17 : Bob 2,AX,AY,A : Wait Vbl 
  5. 5 Add AY,DY : Add AX,DX,0 To 319 : If T mod 4=0 Then DY=Min(DY2,DY+B)
  6. 6 If AY>=192 Then Dec DY2 : DY=-DY2 : DX=Rnd(4)-Rnd(4) : B=1
  7. 7 D=1 : Z=Bob Col(1) : If Jleft(1) Then Add X,-2,0 To 319 : D=0
  8. 8 If Jright(1) Then Add X,2,0 To 319 : D=2
  9. 9 If Col(2) Then CATCH=1 : SC=SC+A-15 : Shoot : Home : Print "SCORE:";SC
  10. 10 Until DY2<=0 or CATCH=1 : Until DY2<=0 : Locate 0,10 : Centre "GAME OVER" : Wait Key