home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / games / flight.amos / flight.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-26  |  3KB  |  79 lines
  1. Do : Default 
  2. Screen Open 1,320,258,16,Lowres
  3. Screen Open 2,150,100,4,Lowres
  4. For J=1 To 5 : Channel J To Bob J : Next J
  5. Channel 8 To Sprite 1
  6. Screen Display 1,112,30,320,256
  7. Screen Display 2,212,288,100,12 : Colour 3,0 : Paper 0 : Cls 
  8. Screen 1
  9. Make Mask : Randomize Timer
  10. Set Rainbow 1,0,65,"","",""
  11. For K=0 To 64
  12.    Rain(1,K)=(64-K)/2
  13. Next K
  14. Flash Off 
  15. Rainbow 1,1,40,270
  16. Paper 0 : Cls : Hide On 
  17. Double Buffer 
  18. Update Every 2
  19. Cls : S=0 : Screen 2 : Cls : Print "SCORE:" : Screen 1
  20. A$="A 0,(1,10)(2,10)(3,10)(2,10); L: L X=XM-150; L Y=YM-40; P; J L"
  21. B$="A 0,(5,10)(6,10)(7,10)(6,10); L: L R1=R1+1; I R1<10 J L ; L Y=Y+1 ; L R1=0;"
  22. B$=B$+" I Y<260 J L; L Y=0; L X=Z(255)+Z(63); P; J L"
  23. C$="A 0,(5,5)(6,5)(7,5)(6,5); L: L R2=R2+1; I R2<6 J L ; L Y=Y+1 ; L R2=0;"
  24. C$=C$+" I Y<260 J L ; L Y=0 ; L X=Z(255)+Z(63); P; J L"
  25. D$="A 0,(5,5)(6,5)(7,5)(6,5); L: L R3=R3+1; I R3<5 J L ; L Y=Y+1; C: I Y>260 J B; L X=X+1; L R3=0; I X<330 J L; L X=0; P; J Lo; B: L Y=0; L X=Z(255)+Z(63); P;  J C"
  26. E$="A 0,(5,5)(6,5)(7,5)(6,5); L: L R4=R4+1; I R4<4 J L ; L Y=Y+1; C: I Y>260 J B ; L X=X+Z(3)-2; L R4=0; I X<330 J L; L X=0; P; J L; B: L Y=0; L X=Z(255)+Z(63); P; J C"
  27. F$="A 2,(8,5)(9,5)(10,5)(11,5)(12,5)(13,5)(14,5)(15,5)(16,5)(17,5)(18,5)(19,5)(20,5)(21,5)(22,5)(0,100)"
  28. H$="L: L R0=R0+1; I R0<3 J L; L R0=0; L Y=Y+1; I Y<280 J L; L RX=3"
  29. Limit Mouse 130,40 To 460,250
  30. Bob 1,200,200,1
  31. Bob 2,Rnd(320),0,5
  32. Bob 3,Rnd(320),0,5
  33. Bob 4,Rnd(320),0,5
  34. Bob 5,Rnd(320),0,5
  35. Amal 1,A$ : Amal 2,B$ : Amal 3,C$ : Amal 4,D$ : Amal 5,E$
  36. Amal On : Curs Off 
  37. Get Sprite Palette : Screen 2 : Flash Off : Curs Off : Screen 1
  38. Do 
  39. If Bob Col(1,2 To 5)=-1 Then Goto THEEND
  40. Add B,1,2 To 5
  41. If XF=0 Then Sprite 1,X Bob(B)+125,Y Bob(B)+65,4 : Shoot : XF=1 : Amal 8,H$ : Amal On 8
  42. If Amreg(23)=3 Then Sprite Off 1 : XF=0 : Amreg(23)=0
  43. If Spritebob Col(1,1 To 1)=-1 Then Goto THEEND
  44. Screen 2 : Add S,1 : Locate 6,0 : Print S : Screen 1
  45. Add K,-1,1 To 64 : Rainbow 1,K,40,260 : Wait Vbl 
  46. Loop 
  47. THEEND:
  48. Amal Off 1 : Amal 1,F$ : Amal On 1 : For J=1 To 10 : Boom : Next J : For J=1 To 8000 : Next J : Amal Off 1
  49. XF=0 : Bob Off : Sprite Off 
  50. Locate 0,15
  51. GAMEOVER
  52. Cls 
  53. Loop 
  54. Procedure GAMEOVER
  55. Dim A(9)
  56. For J=1 To 9 : Channel J To Bob J : Next J
  57. A$="A 0,(1,5)(2,5)(3,5)(2,5); M 0,-260,80"
  58. B$="M 0,-120,40"
  59. For J=1 To 8 : Read A(J),B,C : Bob J,A(J),B,C+23 : Next J
  60. For J=1 To 8 Step 2
  61. Bob 9,A(J),230,1
  62. Amal 9,A$ : Amal J,B$ : Amal J+1,B$
  63. Amal On 
  64. While Chanmv(9)
  65. Wend 
  66. Amal Off 
  67. Amreg(1)=0
  68. Next J
  69. Flash 14,"(ff0,5)(bb0,5)(770,5)(330,5)(110,5)(330,5)(770,5)(bb0,5)"
  70. M=0
  71. Clear Key 
  72. Repeat 
  73. K$=Inkey$ : If K$<>"" Then M=1
  74. C=Mouse Key : If C<>0 Then M=1
  75. Until M=1
  76. Bob Off 
  77. Channel 8 To Sprite 8
  78. Data 52,261,1,70,261,2,90,262,3,108,260,4,150,263,5,167,262,6,181,260,4,199,261,7
  79. End Proc