home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Amos / AmosCRAFT2Turbo.DMS / in.adf / demos / LightSpeed.AMOS / LightSpeed.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-02-09  |  3.9 KB  |  126 lines
  1. 'a very early in development project by Wayne Johnson of Australian AMOS Club
  2. 'thanks to him for allowing its inclusion
  3. '********************
  4. 'LightSpeed... Problems with remaining collisions, and missle choosing (using RE as some sort of track marker)   
  5. '********************
  6. Unpack 6 To 0 : Hide On : Colour 4,$F00 : AM=1
  7. Flash 5,"(a88,3)(B77,3)(C55,3)(D33,3)(E22,3)(F00,3)(F44,3)(F00,3)(E22,3)(D33,3)(C55,3)(B77,3)"
  8. Colour 4,$AAA
  9. Sprite 8,200,100,1
  10. Sprite 9,0,250,6
  11. Sprite 10,0,250,6
  12. Sprite 11,0,160,46
  13. Sprite 12,0,160,46
  14. Sprite 13,0,160,46
  15. Sprite 14,0,160,46
  16. '----------------
  17. Sprite 20,140,57,31
  18. Sprite 21,259,57,31
  19. For X=1 To 4
  20.    Sprite 21+X,263+(X*20),57,21
  21. Next X
  22. Global VB,X,Y
  23. '----------------
  24. 'Still working on it, Manuel. The missiles don't work at the moment. 
  25. 'This versions is not to be spread. The final will be PD. Just keep this 
  26. 'version for yourself.   
  27. 'Use SPACE to switch modes.
  28. '
  29. Screen Open 1,320,256,16,Lowres
  30. Curs Off : Flash Off : Cls 0
  31. Screen Display 1,150,80,280,256
  32. Get Icon Palette 
  33. CULUS
  34. Procedure CULUS
  35. Colour 17,$CCC
  36. Colour 18,$999
  37. Colour 19,$666
  38. Colour 21,$CCC : Rem$FB8
  39. Colour 22,$999 : Rem$F80
  40. Colour 23,$666 : Rem$B60
  41. Colour 25,$CCC : Rem$7BF
  42. Colour 26,$999 : Rem$8F 
  43. Colour 27,$666 : Rem$6B 
  44. Colour 29,$CCC
  45. Colour 30,$999
  46. Colour 31,$666
  47. End Proc
  48. Hide 
  49. SUP=36
  50. For X=1 To 320 Step 50
  51.     Extension_12_058A X,120+SUP,1
  52.     Extension_12_058A X,123+SUP,2
  53.     Extension_12_058A X,131+SUP,3
  54.     Extension_12_058A X,143+SUP,4
  55.     Extension_12_058A X,159+SUP,5
  56. Next X
  57. P=0
  58. For A=1 To 7 : Extension_12_032E A : Next A
  59.  Extension_12_02F8 1,1,0,120+SUP To 320,123+SUP,-1
  60.  Extension_12_02F8 1,2,0,123+SUP To 320,131+SUP,-2
  61.  Extension_12_02F8 1,3,0,131+SUP To 320,143+SUP,-3
  62.  Extension_12_02F8 1,4,0,143+SUP To 320,159+SUP,-4
  63.  Extension_12_02F8 1,5,0,159+SUP To 320,182+SUP,-5
  64. '
  65. Channel 0 To Sprite 8 : Channel 1 To Sprite 9 : Channel 2 To Sprite 10
  66. Channel 8 To Sprite 20 : Channel 9 To Sprite 21
  67. Channel 3 To Sprite 11 : Channel 4 To Sprite 12
  68. Channel 5 To Sprite 13 : Channel 6 To Sprite 14
  69. Channel 10 To Sprite 22
  70. Channel 11 To Sprite 23
  71. Channel 12 To Sprite 24
  72. Channel 13 To Sprite 25
  73. Amal 0,0 : Amal 1,1 : Amal 2,2 : Amal 8,8 : Amal 9,9
  74. Amal 3,3 : Amal 4,4 : Amal 5,5 : Amal 6,6
  75. Amal 10,10 : Amal 11,11 : Amal 12,12 : Amal 13,13
  76. Amal On 
  77. Gr Writing 1
  78. 'Track Play 7 : Led Off  
  79. FT=6 : Rem times to wait before flashing lazer
  80. Timer=0
  81.  Extension_12_0016 
  82.  Extension_12_04A6 1 To 5
  83.  Extension_12_09F4 False
  84. Repeat 
  85.    Wait Vbl 
  86.    Add C1,1,1 To 47 : If C1=47 : Extension_12_058A 272,120+SUP,1+ICO : End If 
  87.    Add C2,1,1 To 22 : If C2=22 : Extension_12_058A 272,123+SUP,2+ICO : End If 
  88.    Add C3,1,1 To 10 : If C3=10 : Extension_12_058A 272,131+SUP,3+ICO : End If 
  89.    Add C4,1,1 To 8 : If C4=8 : Extension_12_058A 272,143+SUP,4+ICO : End If 
  90.    Add C5,1,1 To 8 : If C5=8 : Extension_12_058A 272,159+SUP,5+ICO : End If 
  91.    If Amreg(18)=1
  92.       If VB=1 : Ink 0 : Draw X,Y To 320,Y : VB=0 : End If 
  93.       If FIYA=0 : 
  94.          X=X Screen(X Sprite(8))+25
  95.          Y=Y Screen(Y Sprite(8))+8
  96.       End If 
  97.       If Joy(1)>=16 and FTIMES=FT : Ink 1 : Draw X,Y To 320,Y : VB=1 : Add FTIMES,1,1 To FT
  98.    Else Add FTIMES,1,1 To FT : End If 
  99.    End If 
  100.    If KEYHIT=1 and Key State(64)=0 : KEYHIT=0
  101. Add AM,1,0 To 1 : If AM=0 : LAZER : Else MISS : End If : Amreg(18)=AM : End If 
  102.    If Extension_12_0164(64) : KEYHIT=1 : End If 
  103.    If Timer>1520 : Add ICO,5,0 To 24 : Timer=0 : End If 
  104. Until Extension_12_0392 
  105.  Extension_12_04BA 
  106.  Extension_12_0006 
  107. Show 
  108. Default 
  109. Print "vbl pos=",Y Screen(Y Mouse)
  110. Repeat 
  111. Until Extension_12_0392 
  112. Procedure MISS
  113.    If VB=1 : Ink 0 : Draw X,Y To 320,Y : VB=0 : End If 
  114.    Screen 0
  115.    Flash Off 
  116.    Colour 4,$AAA
  117.    Flash 5,"(a88,3)(b77,3)(c55,3)(d33,3)(e22,3)(f00,3)(f44,3)(f00,3)(e22,3)(d33,3)(c55,3)(b77,3)"
  118.    Screen 1
  119. End Proc
  120. Procedure LAZER
  121.    Screen 0
  122.    Flash Off 
  123.    Flash 4,"(a88,3)(b77,3)(c55,3)(d33,3)(e22,3)(f00,3)(f44,3)(f00,3)(e22,3)(d33,3)(c55,3)(b77,3)"
  124.    Colour 5,$AAA
  125.    Screen 1
  126. End Proc