home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 401-425 / apd410 / end / end.amosSourceCode < prev    next >
AMOS Source Code  |  1992-05-17  |  6KB  |  246 lines
  1. '
  2. '
  3. '                          THE END THEME! STORM 1991-92
  4. '
  5. '
  6. '
  7. '                             PICK N MIX 
  8. '
  9. '
  10. '
  11. '
  12. '
  13. '
  14. '
  15. '
  16. '
  17. '
  18. '
  19. '
  20. '
  21. '
  22. '
  23. ' I bet you never cleared the game!?...cheat...
  24. Music 1
  25. FADUP
  26. '
  27. Procedure FADUP
  28.       Screen Open 0,320,256,8,Lowres : Hide On 
  29.          Screen Display 0,140,40,320,150 : Cls 0
  30.          Screen Open 1,320,256,8,Lowres : Cls 0
  31.          Unpack 15 To 1
  32.          Screen Display 1,140,40,320,200
  33.          Screen Open 2,320,80,32,Lowres : Cls 0
  34.       Screen Display 2,140,242,320,80
  35.    Curs Off : Flash Off : Cls 0
  36. Colour 1,$111
  37.    SIX1=44 : SIY1=63 : T=0
  38. '
  39. 'make vumeters @ ejber ozkan 
  40. '
  41. ABD
  42. 'Limit Bob 2,0,110 To 320,230
  43. Screen 0
  44. Dual Playfield 1,0
  45. Dim WA(16)
  46. Curs Off : Cls 0 : Pen 1 : Paper 0
  47. View 
  48. Flash Off 
  49. '
  50. '
  51. '
  52. RADE2
  53.    Set Rainbow 2,9,213,"","",""
  54.    Rainbow 2,0,0,213
  55.    Restore WRDATA
  56.    For CD=0 To 212 : Read E
  57.       Rain(2,CD)=E
  58.    Next CD
  59.    WRDATA:
  60.    Data $0,$0,$0,$0,$0,$0,$0,$0
  61.    Data $0,$0,$0,$0,$111,$0,$111,$111
  62.    Data $222,$222,$222,$222,$333,$333,$333,$333
  63.    Data $444,$444,$444,$444,$555,$555,$555,$555
  64.    Data $555,$666,$666,$666,$666,$777,$777,$777
  65.    Data $777,$888,$888,$888,$888,$888,$888,$888
  66.    Data $888,$888,$888,$888,$888,$888,$888,$888
  67.    Data $888,$888,$888,$888,$888,$888,$888,$888
  68.    Data $888,$888,$888,$888,$888,$888,$888,$888
  69.    Data $888,$888,$888,$888,$888,$888,$888,$888
  70.    Data $888,$888,$888,$888,$888,$888,$888,$888
  71.    Data $888,$888,$888,$888,$888,$888,$888,$888
  72.    Data $888,$888,$888,$999,$999,$AAA,$BBB,$CCC
  73.    Data $DDD,$CCC,$BBB,$AAA,$999,$999,$888,$888
  74.    Data $888,$888,$888,$888,$888,$888,$888,$888
  75.    Data $888,$888,$888,$888,$888,$888,$888,$888
  76.    Data $888,$888,$888,$888,$888,$888,$888,$888
  77.    Data $888,$888,$888,$888,$888,$888,$888,$888
  78.    Data $888,$888,$888,$888,$888,$888,$888,$888
  79.    Data $888,$888,$888,$888,$888,$888,$888,$888
  80.    Data $888,$888,$888,$888,$888,$888,$888,$888
  81.    Data $888,$888,$888,$888,$888,$888,$888,$888
  82.    Data $888,$888,$888,$888,$888,$888,$888,$888
  83.    Data $888,$888,$777,$777,$777,$777,$666,$666
  84.    Data $666,$666,$555,$555,$555,$444,$444,$444
  85.    Data $444,$333,$333,$333,$222,$222,$222,$222
  86.    Data $222,$111,$111,$111,$0,$0,$0,$0
  87. View 
  88. Dual Priority 0,1
  89. Screen 0
  90. Def Scroll 1,0,0 To 370,256,0,-1
  91. Gosub RIM
  92. Gosub DIAM : Gosub TRIM
  93. '
  94. '
  95. '
  96. RIM:
  97. EXTRA=0 : P=0
  98. TA$=TA$+"     CONGRATULATIONS         "
  99. TA$=TA$+"                             "
  100. TA$=TA$+" YOU HAVE SAVED THE PLANET   "
  101. TA$=TA$+"                             "
  102. TA$=TA$+" I HOPE THIS WILL INSPIRE    "
  103. TA$=TA$+" SOMEONE TO WRITE A good     "
  104. TA$=TA$+" GAME!!!....                 "
  105. TA$=TA$+"                             "
  106. TA$=TA$+"                             "
  107. TA$=TA$+"                             "
  108. TA$=TA$+" COMPLEX CREDITS...          "
  109. TA$=TA$+"                             "
  110. TA$=TA$+"                             "
  111. TA$=TA$+" GRAPHICS           STORM    "
  112. TA$=TA$+"                             "
  113. TA$=TA$+" PROGRAMMING        STORM    "
  114. TA$=TA$+"                             "
  115. TA$=TA$+" TITLE TUNE  TORVAK THE GAME "
  116. TA$=TA$+"                             "
  117. TA$=TA$+"BACK PICTURE FROM MONKEY ISL "
  118. TA$=TA$+"                             "
  119. TA$=TA$+"HISCORE TUNE SUPER TWINTRIS  "
  120. TA$=TA$+"                             "
  121. TA$=TA$+" DONT RIP IT IMPROVE IT!     "
  122. TA$=TA$+"                             "
  123. TA$=TA$+"                             "
  124. TA$=TA$+"                             "
  125. TA$=TA$+"                             "
  126. TA$=TA$+"                             "
  127. Return 
  128. '
  129. '
  130. '
  131. TRIM:
  132. Do 
  133. If EXTRA=8 Then Gosub DIAM
  134. Add EXTRA,1
  135. Scroll 1
  136. Wait Vbl 
  137. Gosub L0GOSWISH
  138. If Mouse Key=1 Then Screen Close 1 : Screen Close 0 : Screen Close 2 : End 
  139. Wait Vbl 
  140. Loop 
  141. Return 
  142. '
  143. '
  144. '
  145. DIAM:
  146. ED=Len(TA$)
  147. Screen 0
  148. ER$=Mid$(TA$,P,29)
  149. Locate 0,25 : Centre ER$
  150. Add P,29 : Add TY,1 : If P=>957 Then P=0
  151. Wait Vbl 
  152. EXTRA=0
  153. Return 
  154. '
  155. '
  156. '
  157. L0GOSWISH:
  158. Screen 2
  159. If T=>360 Then T=0
  160. Add T,1
  161. X=80*Sin(T*SIX1)+70
  162. Y=40*Cos(T*SIY1)+30
  163. Bob 2,X,Y,5
  164. Wait Vbl 
  165. Screen 0
  166. Return 
  167. End Proc
  168. Procedure ABD
  169. '
  170. 'THIS IS MY OWN VUMETERS FEEL FREE TO EXPERIMENT!! 
  171. 'BUT IF YOU USE THIS PROCEDURE IN YOUR OWN STUFF THEN MENTION
  172. 'STORM AKA EJBER OZKAN!
  173. '
  174. Double Buffer 
  175. Bob 21,0,0,1
  176. Bob 22,15,0,1
  177. Bob 23,280,0,1
  178. Bob 24,296,0,1
  179. Channel 1 To Bob 21
  180. A$="  AUtotest ( Let R1=Vu(0); Let Y=83; If R1=0 eXit else Direct Start )"
  181. A$=A$+"Start: For R2=0 To R1 ; Let Y=R2*2 ; Next R2; "
  182. A$=A$+"For R2=0-R1 To 0 ; Let Y=R2*6 ;Next R2; W "
  183. Amal 1,A$ : Amal On 
  184. Channel 2 To Bob 22
  185. A$="  AUtotest ( Let R1=Vu(1); Let Y=83 ;If R1=0 eXit else Direct Start )"
  186. A$=A$+"Start: For R2=0 To R1 ; Let Y=R2*2 ; Next R2; "
  187. A$=A$+"For R2=0-R1 To 0; Let Y=R2*6;Next R2; W"
  188. Amal 2,A$ : Amal On 
  189. Channel 3 To Bob 23
  190. A$="  AUtotest ( Let R1=Vu(2); Let Y=83 ;If R1=0 eXit else Direct Start )"
  191. A$=A$+"Start: For R2=0 To R1 ; Let Y=R2*2 ; Next R2; "
  192. A$=A$+"For R2=0-R1 To 0; Let Y=R2*6 ;Next R2; W"
  193. Amal 3,A$ : Amal On 
  194. Channel 4 To Bob 24
  195. A$="  AUtotest ( Let R1=Vu(3); Let Y=83 ;If R1=0 eXit else Direct Start )"
  196. A$=A$+"Start: For R2=0 To R1 ; Let Y=R2*2 ; Next R2; "
  197. A$=A$+"For R2=0-R1 To 0; Let Y=R2*6 ;Next R2; W"
  198. Amal 4,A$ : Amal On 
  199. End Proc
  200. Procedure RADE2
  201. Restore DASW
  202. Set Rainbow 1,12,280,"","",""
  203. Rainbow 1,0,0,280
  204. For I=0 To 279
  205. Read A : Rain(1,I)=A
  206. Next I : View 
  207. DASW:
  208. Data $0,$0,$0,$0,$0,$0,$0,$0
  209. Data $0,$0,$0,$0,$0,$0,$0,$0
  210. Data $0,$0,$0,$0,$0,$0,$0,$0
  211. Data $0,$0,$0,$0,$0,$0,$0,$0
  212. Data $0,$0,$0,$0,$0,$0,$0,$0
  213. Data $0,$0,$0,$0,$0,$0,$0,$0
  214. Data $0,$0,$0,$0,$0,$0,$0,$0
  215. Data $0,$0,$0,$0,$0,$0,$0,$0
  216. Data $0,$0,$0,$0,$0,$0,$0,$0
  217. Data $0,$0,$0,$0,$0,$0,$0,$0
  218. Data $0,$0,$0,$0,$0,$0,$0,$0
  219. Data $0,$0,$0,$0,$0,$0,$0,$0
  220. Data $0,$0,$0,$0,$0,$0,$0,$0
  221. Data $0,$0,$0,$0,$0,$0,$0,$0
  222. Data $0,$0,$0,$0,$0,$0,$0,$0
  223. Data $0,$0,$0,$0,$0,$0,$0,$0
  224. Data $0,$0,$0,$0,$0,$0,$0,$0
  225. Data $0,$0,$0,$0,$0,$0,$0,$0
  226. Data $0,$0,$0,$0,$0,$0,$0,$0
  227. Data $0,$0,$0,$0,$0,$0,$0,$0
  228. Data $0,$0,$0,$0,$0,$0,$0,$0
  229. Data $0,$0,$0,$0,$0,$0,$0,$0
  230. Data $0,$0,$0,$0,$0,$0,$0,$0
  231. Data $0,$0,$0,$0,$0,$0,$0,$0
  232. Data $0,$0,$0,$0,$0,$0,$0,$0
  233. Data $0,$0,$0,$0,$0,$0,$0,$10
  234. Data $1,$2,$3,$4,$5,$6,$7,$8
  235. Data $9,$A,$A,$B,$B,$C,$D,$E
  236. Data $F,$F,$11F,$22F,$33F,$44F,$55F,$66F
  237. Data $66F,$77F,$88F,$99F,$AAF,$BBF,$DDA,$FFA
  238. Data $FF7,$FF3,$FF0,$FF0,$FE0,$FD0,$FC0,$FB0
  239. Data $FA0,$F90,$F80,$F70,$F60,$F60,$F50,$F40
  240. Data $F40,$F30,$F30,$F20,$F10,$F10,$F00,$F00
  241. Data $E00,$D00,$C00,$B00,$B00,$A00,$900,$800
  242. Data $800,$700,$600,$500,$400,$300,$200,$100
  243. 'Channel 6 To Rainbow 1
  244. 'Amal 6,"Loop:Move 32,10,11:Move -32,-10,11; J Loop" 
  245. 'Amal On 6 
  246. End Proc