home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 376-400 / apd387 / cannon.amos / cannon.amosSourceCode
AMOS Source Code  |  1989-08-16  |  2KB  |  148 lines
  1. Set Sprite Buffer 16
  2. STEVE$="Rubbish"
  3. RUBBISH
  4. Screen Open 0,320,200,16,Lowres
  5. Screen Hide 0
  6. Flash Off 
  7. Curs Off 
  8. Hide 
  9. Load "cannonbonus.abk",4
  10. Load "cansp.abk",8
  11. Proc PBOB_INIT[8,16,128,107]
  12. For F=1 To 28
  13. Proc PBOB[F,F]
  14. Next F
  15. Proc PBOB_END
  16. Unpack 4 To 0
  17. Erase 4
  18. Double Buffer 
  19. Hide On 
  20. Bob 2,180,120,1
  21. Bob 3,210,160,4
  22. Bob 1,120,130,15
  23. Rem ** move cannon **
  24. Wait 50
  25. Bob 2,180,90,2
  26. Wait 50
  27. Bob 2,207,85,3
  28. Wait 100
  29. Proc WIPECOLOURS
  30. Wait 40
  31. Bob 1,216,52,18
  32. Proc RENEWCOLOURS
  33. Wait 20
  34. Bob 1,216,52,19
  35. Wait 10
  36. Bob 1,216,52,20
  37. Wait 10
  38. Bob 1,216,52,21
  39. Wait 10
  40. Bob 1,216,52,22
  41. Wait 10
  42. Bob 1,216,52,23
  43. Wait 10
  44. Bob 1,190,45,11
  45. Wait 50
  46. Bob 2,180,90,2
  47. Bob 1,145,65,12
  48. Wait 50
  49. Bob 2,180,120,1
  50. Bob 1,130,115,12
  51. Rem ** move hand onto screen **
  52. Wait 50
  53. Bob 4,288,152,13
  54. For F=0 To 3
  55. For S=5 To 7
  56. Wait 5
  57. Bob 5,283,152,S
  58. Next S
  59. Next F
  60. Channel 5 To Bob 5
  61. Amal 5,"Anim 5,(5,5)(6,5)(7,5)"
  62. Amal On 5
  63. Bob Off 1
  64. Bob Off 4
  65. Bob 2,180,90,2
  66. Bob 5,262,173,5
  67. Wait 50
  68. Bob 2,207,85,3
  69. Bob Off 5
  70. Wait 25
  71. Bob 4,235,75,8
  72. Bob 1,218,100,16
  73. Boom 
  74. Channel 1 To Bob 4
  75. Amal 1,"Anim 1,(8,10)(9,10)(10,10)"
  76. Amal On 1
  77. For F=100 To -70 Step -4
  78. Bob 1,218,F,16
  79. Next F
  80. Wait 25
  81. Bob Off 4
  82. Bob Off 1
  83. For F=0 To 96
  84. Play 1,F,2
  85. Next F
  86. For F=96 To 0 Step -1
  87. If F=80 Then Bob 5,109,179,24
  88. If F=50 Then Bob 5,109,179,25
  89. If F=25 Then Bob 5,109,179,26
  90. Play 1,F,2
  91. Next F
  92. For F=-70 To 180 Step 4
  93. Bob 6,118,F,17
  94. Next F
  95. Bob Off 6
  96. Bob 5,109,178,27
  97. Wait 5
  98. Bob 5,109,179,28
  99. Wait 5
  100. Bob 5,109,179,14
  101. Boom 
  102. Wait 500
  103. Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  104. Show On 
  105. Run "autoexec.amos"
  106. Procedure PBOB_INIT[BANK,NCOL,MX,MY]
  107.    Shared PB_BANK
  108.    PB_BANK=BANK
  109.    S=Screen
  110.    Screen Open 7,MX,MY,NCOL,0
  111.    Screen Hide 
  112.    Screen S
  113. End Proc
  114. Procedure PBOB[N,D]
  115.    Shared PB_BANK
  116.    Dec N
  117.    A=Start(PB_BANK)+N*10
  118.    If Deek(A)
  119.       AB=Start(PB_BANK)+Deek(A)*2
  120.       SX=Deek(A+2)*16 : SY=Deek(A+4)
  121.       S=Screen : Screen 7
  122.       Unpack AB,0,0 : Get Bob D,0,0 To SX,SY
  123.       Screen S
  124.       AA=Sprite Base(D) : Loke AA+6,Leek(A+6)
  125.    End If 
  126. End Proc
  127. Procedure PBOB_END
  128.    Screen Close 7
  129. End Proc
  130. Procedure FAD_ALL[W]
  131.    For T=1 To W
  132.       Colour Back(Colour(0))
  133.       View 
  134.       Wait Vbl 
  135.    Next 
  136. End Proc
  137. Procedure WIPECOLOURS
  138. Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  139. Wait 15
  140. End Proc
  141. Procedure RENEWCOLOURS
  142. Fade 2,143,4095,0,4080,3504,2928,2352,3888,3840,2816,837,1929,3021,192,128,64
  143. Wait 30
  144. End Proc
  145. Procedure RUBBISH
  146. STEVE$=STEVE$+"a"-"a"
  147. SILLY=Free
  148. End Proc