home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 176-200 / apd198 / bombs_from_baghdad.amos / bombs_from_baghdad.amosSourceCode < prev    next >
AMOS Source Code  |  1991-04-16  |  7KB  |  140 lines
  1. Rem --BOMBS FROM BAGHDAD -- In spaghetti code! 
  2. Screen Open 1,320,10,32,Lowres : Flash Off : For X=0 To 31 : Colour X,$FFF : Next X
  3. Load "bfb_arab1ss.abk"
  4. Load "bfb_ara.abk"
  5. Load Iff "bfb_arab1",0
  6. Hide 
  7. Double Buffer 
  8. Sam Play 1 : Sam Loop On 
  9. Repeat 
  10. Bob 1,90,117,1 : Bob 2,185,130,3 : XC=Mouse Click : Wait 40
  11. Bob 1,71,120,2 : Bob 2,185,130,4 : XC=Mouse Click : Wait 40
  12. Until Mouse Key=1 : Sam Loop Off : Load "bfb_ara2.abk" : Sam Play 1 : Fade 5 To 1 : Wait 300 : Fade 1 : Wait 5
  13. Screen Close 1
  14. Rem      ------------------------------------------------- 
  15. Rem      --      B O M B S   F R O M   B A G H D A D    -- 
  16. Rem      ------------------------------------------------- 
  17. Rem      --A game by Jurriaan Knol - (C) 1991 by Stealth-- 
  18. Rem      -- written using AMOS-The Creator version 1.1  -- 
  19. Rem      ------------------------------------------------- 
  20. Rem      --  Greetings to M.A.F. >> Creator  (Yo Ivo!)  -- 
  21. Rem      ------------------------------------------------- 
  22. Rem      -- WATCH OUT FOR OUR OTHER WAREZ - AMIGA and PC-- 
  23. Rem      ------------------------------------------------- 
  24. Rem      ------------------------------------------------- 
  25. Rem      --  THANKS To: Tears For Fears >> Sample from  -- 
  26. Rem      --  Johnny Panic and the bible of dreams <<    -- 
  27. Rem      --  N.W.A. for samples, Public Enemy, samples  -- 
  28. Rem      ------------------------------------------------- 
  29. Rem      -- AMOS (C) 1990 by Mandarin/Jawx              -- 
  30. Rem      ------------------------------------------------- 
  31. Rem      --              JURRIAAN KNOL                  -- 
  32. Rem      --               OVERTOOM 12                   -- 
  33. Rem      --           1611 CP BOVENKARSPEL              -- 
  34. Rem      --             THE NETHERLANDS                 -- 
  35. Rem      ------------------------------------------------- 
  36. Rem      ------------------------------------------------- 
  37. Rem      -- Brought to you by STEALTH SOFTWARE          -- 
  38. Rem      ------------------------------------------------- 
  39. Rem      ------------------------------------------------- 
  40. Rem
  41. Load "bfb_sam.abk"
  42. Volume 0
  43. Sam Loop On : Sam Play 1
  44. Volume 0
  45. Volume 33
  46. Load Iff "bfb_tt",0
  47. Hide On 
  48. Repeat : A$=Inkey$ : If A$="L" Then T=1
  49. Until T=1 or Mouse Click
  50. Fade 1 : Load Iff "bfb_tit",0
  51. Repeat : Until Mouse Click
  52. Fade 1 : Load Iff "bfb_cre",0
  53. Repeat : Until Mouse Click
  54. Screen Open 0,640,256,2,Hires : Fade 1 : Load Iff "bfb_int1"
  55. Repeat : Until Mouse Click
  56. Fade 1 : Load Iff "bfb_int2"
  57. Repeat : Until Mouse Click
  58. Fade 1 : Load Iff "bfb_int3"
  59. Repeat : Until Mouse Click
  60. Fade 1 : Wait 10
  61. '
  62. '
  63. '
  64. '
  65. 1 Screen Open 0,320,256,8,Lowres : Flash Off : Hide On : Curs Off : Paper 0 : Cls : Double Buffer : Load "bfb_spr.abk" : Get Sprite Palette 
  66. Sam Loop Off : Load "bfb_sam2.abk"
  67. Screen Open 1,640,10,2,Hires : Colour 1,$FFF : Flash Off : Hide On : Curs Off 
  68. Screen Display 1,,300,640,10
  69. LVL=1 : Gosub 532
  70. SC=0
  71. QRSTU=0
  72. OS=0 : NS=1
  73. Screen 0
  74. Colour 2,$0
  75. Repeat 
  76. If VL=0 Then LVL=LVL+1 : Gosub 532
  77. X=X Mouse-147 : Y=Y Mouse-60 : Bob 1,X,Y,SI
  78. If Chanmv(2)=0 and NS=OS Then Gosub 223
  79. If Chanmv(2)=0 Then Gosub 2
  80. QQQ=Mouse Click : If QQQ<>0 Then Gosub 5
  81. 4 Wait Vbl 
  82. Until RET=1
  83. 2 QRS=Rnd(100)+1 : If QRS=1 Then Gosub 20 Else Return 
  84. Return 
  85. 20 E=2 : QT=Rnd(6)+1 : TP=QT+1 : If TP=5 Then Goto 111
  86. Sam Play 2 : Goto 1156
  87. 111 NS=OS : YY=Rnd(200) : Bob 2,360,YY,TP : Channel 2 To Bob 2 : Gosub 533 : Amal On 2 : CL=0 : Return 
  88. 5 If Bob Col(1) Then Gosub 6
  89. Return 
  90. 6 If CL=0 Then Shoot : CL=1 : Return 
  91.  If CL=1 Then Sam Play 1 : NS=OS+1 : Colour 2,$FFF : Amal Off 2 : SC=SC+1000 : Colour 2,$0 : Screen 1 : Print : Print SC; : Screen 0 : VL=VL-1 : CL=0 : Bob Off 2 : Return 
  92. 1156 Screen 1
  93. Centre "                                  "
  94. If TP=2 Then Centre "F-6 Mirrage"
  95. If TP=3 Then Centre "F-15 Fulcrum"
  96. If TP=4 Then Centre "F-16 Falcon"
  97. If TP=5 Then Return 
  98. If TP=6 Then Centre "Awac"
  99. If TP=7 Then Centre "Scud"
  100. If TP=8 Then Centre "Scud"
  101. Screen 0
  102. Goto 111
  103. 223 Colour 0,$FFF : Wait 3 : Colour 0,$0
  104. QRSTU=QRSTU+1 : If QRSTU=10 Then Gosub 225 Else NS=OS+1 : Return 
  105. 225 If T=1 Then Return Else Pen 4 : Centre "GAME OVER" : Repeat : Until Mouse Click
  106. For QY=40 To -270 Step -1 : Screen Display 0,,QY,320,256 : Wait Vbl : Next QY : For QY=300 To -270 Step -1 : Screen Display 1,,QY,640,10 : Wait Vbl : Next QY
  107.  Wait 50 : Load "bfb_sam3.abk" : Load Iff "bfb_ver",0 : Sam Play 1 : Repeat : Until Mouse Click
  108. Fade 5 : Wait 50 : Goto 1
  109. 532 If LVL=1 Then VL=30 : Load Iff "Bfb_lvl1",0 : Double Buffer : SI=1 : SPEED=200 : Load Iff "bfb_tit",5 : Paper 0 : Pen 31 : Locate 0,10 : Centre "LEVEL 1" : Repeat : Until Mouse Click : Fade 1 : Wait 10
  110.  If LVL=2 Then Proc MOT : VL=30 : SI=1 : SPEED=175 : Load Iff "bfb_tit",5 : Paper 0 : Pen 31 : Locate 0,10 : Centre "LEVEL 2" : Repeat : Until Mouse Click : Fade 1 : Wait 10
  111.  If LVL=3 Then Proc MOT : Load Iff "Bfb_lvl2",0 : Double Buffer : VL=30 : SI=11 : SPEED=175 : Load Iff "bfb_tit",5 : Paper 0 : Pen 31 : Locate 0,10 : Centre "LEVEL 3" : Repeat : Until Mouse Click : Fade 1 : Wait 10
  112.  If LVL=4 Then Proc MOT : VL=30 : SI=11 : SPEED=150 : Load Iff "bfb_tit",5 : Paper 0 : Pen 31 : Locate 0,10 : Centre "LEVEL 4" : Repeat : Until Mouse Click : Fade 1 : Wait 10
  113.  If LVL=5 Then Proc MOT : Load Iff "Bfb_lvl3",0 : Double Buffer : VL=30 : SI=9 : SPEED=150 : Load Iff "BFB_tit",5 : Paper 0 : Pen 31 : Locate 0,10 : Centre "LEVEL 5" : Repeat : Until Mouse Click : Fade 1 : Wait 10
  114.  If LVL=6 Then Proc MOT : VL=30 : SI=9 : SPEED=125 : Load Iff "bfb_tit",5 : Paper 0 : Pen 31 : Locate 0,10 : Centre "LEVEL 6" : Repeat : Until Mouse Click : Fade 1 : Wait 10
  115.  If LVL=7 Then Proc MOT : Load Iff "bfb_lvl4",0 : Double Buffer : VL=30 : SI=10 : SPEED=125 : Load Iff "bfb_tit",5 : Paper 0 : Pen 31 : Locate 0,10 : Centre "LEVEL 7" : Repeat : Until Mouse Click : Fade 1 : Wait 10
  116.  If LVL=8 Then Proc MOT : VL=30 : SI=10 : SPEED=100 : Load Iff "bfb_tit",5 : Paper 0 : Pen 31 : Locate 0,10 : Centre "LEVEL 8" : Repeat : Until Mouse Click : Fade 1 : Wait 10
  117.  If LVL=9 Then Proc MOT : Gosub 278
  118. Screen To Front 0 : Screen 0 : Screen To Front 1
  119. Return 
  120. 533 If SPEED=200 Then Amal 2,"M-400,0,200"
  121. If SPEED=175 Then Amal 2,"M-400,0,150"
  122. If SPEED=150 Then Amal 2,"M-400,0,100"
  123. If SPEED=125 Then Amal 2,"M-400,0,75"
  124. If SPEED=100 Then Amal 2,"M-400,0,50"
  125. Return 
  126. Procedure MOT
  127. Load "bfb_sam4.abk"
  128. Load Iff "Bfb_win",5
  129. Sam Play 1,1,8000
  130. Wait 200
  131. Repeat : Until Mouse Click
  132. Fade 1 : Screen Close 5
  133. Load "bfb_sam2.abk"
  134. End Proc
  135. 278 Load "bfb_sam.abk" : Sam Loop On : Sam Play 1
  136. Load Iff "bfb_fin1",0
  137. Repeat : Until Mouse Click
  138. Load Iff "bfb_fin2",0
  139. Repeat : Until Mouse Click
  140. Fade 1 : Do : Loop