home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2055.dms / in.adf / autoexec.AMOS / autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-02-21  |  1.8 KB  |  32 lines
  1. Screen Open 0,320,200,16,Lowres
  2. Load "apple catcher:song2" : Music 1
  3. Paper 0 : Hide On : Curs Off : Pen 2 : Cls : Locate 7,10 : Print "A P P L E  C A T C H E R" : Print : Print "               F R O M"
  4. Wait 100
  5. Load Iff "apple catcher:moon.iff",5
  6. Wait 200
  7. Paper 0 : Cls : Locate 0,8 : Print "      CONVERTED FROM A TEN LINER" : Print : Print "            TO A FULL GAME"
  8. Print : Print "                  BY"
  9. Print : Print "             DAVID  ELLIS"
  10. Print : Print "                USEING"
  11. Load Iff "apple catcher:amospic.iff",1
  12. Wait 200
  13.  L=0
  14. Paper 0 : Pen 10
  15. 89 Cls : Locate 13,5 : Print "APPLE CATCHER" : Locate 14,8 : Print "BY D.ELLIS" : Locate 0,12 : Print "THE OBJECT OF THE GAME IS TO CATCH THE  APPLES WHICH FALL AND BOUNCE  AROUND    BEFORE THEY RUN OUT OF BOUNCE."
  16. Locate 9,21 : Print "PRESS A KEY TO START" : Wait Key : Music Off : Load "apple catcher:music/music.abk"
  17. LIVES=3
  18. SC=0
  19. If L=1 Then Goto 100
  20. 1 Hide On : Flash Off : Curs Off : Paper 0 : Erase 1 : Dir$="MAGIC_FOREST"
  21. 100 Load "MFSPRITES.ABK" : Load "BACK1.ABK",5 : Cls : Unpack 5 To 0 : Erase 5
  22. Music 1
  23. 2 X=160 : D=1 : T=0 : Paper 0 : Pen 15 : Locate 0,0 : Print "SCORE=";SC;"                       LIVES=";LIVES : Repeat 
  24.    3 CATCH=0 : A=Rnd(2)+16 : AX=Rnd(300)+10 : AY=0 : DY=8 : DY2=8 : DX=0 : B=0
  25.    4 Repeat : Bob 1,X,192,D*3+T/6+1 : Add T,1,0 To 17 : Bob 2,AX,AY,A : Wait Vbl 
  26.       5 Add AY,DY : Add AX,DX,0 To 319 : If T mod 4=0 Then DY=Min(DY2,DY+B)
  27.       6 If AY>=192 Then Dec DY2 : DY=-DY2 : DX=Rnd(4)-Rnd(4) : B=1
  28.       7 D=1 : Z=Bob Col(1) : If Jleft(1) Then Add X,-2,0 To 319 : D=0
  29.       8 If Jright(1) Then Add X,2,0 To 319 : D=2
  30.       9 If Col(2) Then CATCH=1 : SC=SC+A-15 : Shoot : Home : Print "SCORE=";SC
  31. 10 Until DY2<=0 or CATCH=1 : Until DY2<=0 : LIVES=LIVES-1 : Boom : Wait 50 : If LIVES>0 Then Goto 2 : 
  32. If LIVES=0 Then Locate 0,10 : Centre "GAME OVER" : L=1 : Wait 200 : Goto 89