home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd374 / source.amos / source.amosSourceCode
AMOS Source Code  |  1991-08-05  |  15KB  |  335 lines
  1. ' Fanatix presents 
  2. '
  3. ' Celestial Visions
  4. '
  5. ' A new slideshow for 1992 
  6. '
  7. ' As usual, feel free to look through this code, but please don't
  8. '  rip it off.  We have placed our trust in you, so can you respect
  9. '  our wishes.  Anyone wanting code help can write to me (JAG) and 
  10. '  providing you send an SAE, and a full description of the problem
  11. '  , I will try and help you out.  Alternatively, you can send the 
  12. '  offending program, and I will TRY to sort it out..  
  13. ' If you are a good musician, GFX'er, coder etc. then you could write
  14. '  to us for possible membership (include examples of your work).
  15. '
  16. ' Also, if you use these pictures remember to credit the artists.
  17. '  
  18. ' Watch for our forthcoming game.
  19. '
  20. ' And companies who are interested in AMOS coding can also contact me
  21. '  if they want (and if they have CASH!) 
  22. '
  23. Set Buffer 30
  24. Proc ITRO
  25. Screen Open 2,400,16,2,Lowres : Flash Off : Curs Off : Cls 0 : Hide On 
  26. Screen Hide 2 : Screen Display 2,128,310,, : Get Sprite Palette 
  27. Y1=90 : Y2=90 : CH=0 : SCAR=7 : Def Scroll 1,0,0 To 340,16,-2,0
  28. Gosub LAMETEXT
  29. Screen Open 3,320,16,2,Lowres : Flash Off : Curs Off : Cls 0 : Colour 1,$0
  30. Screen Display 3,128,286,, : Double Buffer : Autoback 0 : Bob Update Off 
  31. Dim CX(720) : For F=1 To 720 : CX(F)=(Sin(F)*13)+10 : Next F
  32. Screen 3 : Fade 5,0,$11F : T=0
  33. Screen Open 0,320,256,32,Lowres : Flash Off : Curs Off : Cls 0 : Hide On 
  34. Screen Display 0,128,30,, : Gosub NPIC
  35. Do 
  36. Screen 2 : Scroll 1
  37. Add SCAR,1,0 To 8 : If SCAR=0 Then Gosub PCHAR Else Paste Bob 360,0,65
  38. Add X,5 : If X>360 Then Add X,-360
  39. For F=0 To 15 : Screen Copy 2,0,F,300,F+1 To 3,CX(X+(F*10)),F : Next F
  40. For F=1 To 30 : A=X : If X=A Then A=X : Next F
  41. Screen 3 : Screen Swap : Wait Vbl : Cls 0
  42. If Mouse Key=1 Then Gosub NPIC
  43. If Mouse Key=2 Then Goto DIE
  44. Loop 
  45. PCHAR:
  46. Add CH,1,1 To Len(T$)
  47. B=Asc(Mid$(T$,CH,1))
  48. Paste Bob 322,0,B
  49. Return 
  50. NPIC:
  51. Screen 3 : Fade 2 : Wait 30
  52. Screen 0 : Fade 5 : Wait 75 : Cls 0
  53. Add T,1,1 To 8
  54. Unpack T+4 To 1 : Screen Hide 1 : Wait Vbl 
  55. Screen 0 : Get Palette 1 : Screen To Back 0
  56. On T Proc WIPE1,WIPE2,WIPE3,WIPE4,WIPE5,WIPE6,WIPE7,WIPE8
  57. Screen Close 1 : Screen 3 : Fade 3,$0,$11F
  58. Return 
  59. DIE:
  60. Screen 3 : Fade 2 : Wait 30
  61. Screen 0 : Fade 5 : Wait 75
  62. Screen Close 0 : Screen Close 2 : Screen Close 3
  63. For F=63 To 0 Step -1
  64. Mvolume F : For T=0 To 1000 : Next T
  65. Next F
  66. Music Off : Mvolume 63
  67. For F=5 To 12 : Erase F : Next F
  68. Erase 1 : Erase 3 : Erase 15
  69. Load "sfont" : Load "down",3
  70. Proc OUTRO
  71. LAMETEXT:
  72.    T$=" AND AGAIN, WE ARE HERE TO ENTERTAIN YOU.  PRESS THE LEFT BUTTON TO SEE THE NEXT PICTURE"
  73. T$=T$+", AND THE RIGHT ONE EXITS TO THE END DEMO.   SORRY THERE ARE ONLY EIGHT PICTURES, BUT I"
  74. T$=T$+" THINK THE QUALITY MAKES UP FOR THIS.  THE PICS ARE THE PRODUCT OF MONTHS OF WORK BY SANDMAN"
  75. T$=T$+" AND TEXAS TEZ, TWO OF THE NEWER FANATIX MEMBERS.  ALL CODE IS AS USUAL BY JAG...  DO YOU LIKE"
  76. T$=T$+" THIS SINEWAVED TEXT, ITS DONE IN REALTIME!!!"
  77. T$=T$+"  WATCH OUT FOR OUR GAME, WHICH ALTHOUGH NOT"
  78. T$=T$+" TITLED, IS NOW FULLY PLANNED.  ALL THAT NEEDS TO BE DONE IS THE GFX AND CODE, WE WORKED OUT THE"
  79. T$=T$+" WAY IT WILL RUN A FEW WEEKS AGO.  WRAP...                    "
  80. Return 
  81. Procedure ITRO
  82. Close Workbench : Close Editor : Led Off : Music 1 : Degree : Break Off 
  83. No Mask 
  84. Unpack 15 To 0 : Hide On 
  85. Fade 3,$FFF,$FFF : Wait 45
  86. Set Rainbow 0,1,31,"","",""
  87. Rainbow 0,0,40,31
  88. For F=0 To 15 : Read R : Rain(0,F)=R : Rain(0,30-F)=R : Next F
  89. Rainbow 0,0,40,31
  90. Data $FFF,$EEF,$DDF,$CCF,$BBF,$AAF,$99F,$88F,$77F,$66F,$55F,$44F,$33F,$22F,$11F,$F
  91. For F=40 To 91
  92. Rainbow 0,0,F,31 : Wait Vbl 
  93. Next F
  94. Wait 100 : G=91
  95. For T=0 To 4
  96. For F=G To G+28
  97. Rainbow 0,0,F,31 : Wait Vbl 
  98. Next F
  99. Wait 100 : Add G,28
  100. Next T
  101. Fade 3 : Wait 45
  102. Screen Close 0 : Rainbow Del 0
  103. End Proc
  104. Procedure WIPE1
  105. For F=0 To 254 Step 2
  106. Screen Copy 1,0,F,320,F+1 To 0,0,F
  107. Wait Vbl 
  108. Next F
  109. For F=255 To 1 Step -2
  110. Screen Copy 1,0,F,320,F+1 To 0,0,F
  111. Wait Vbl 
  112. Next F
  113. End Proc
  114. Procedure WIPE2
  115. For X=0 To 15
  116. For F=0 To 19
  117. For G=0 To 15
  118. Screen Copy 1,F*16,X*16+G,(F+1)*16,X*16+G+1 To 0,F*16,X*16+G
  119. Next G
  120. Wait Vbl 
  121. Next F
  122. Next X
  123. End Proc
  124. Procedure WIPE3
  125. Fade 1 : Wait 15
  126. Screen Copy 1,0,0,320,256 To 0,0,0
  127. Fade 5 To 1 : Wait 75
  128. End Proc
  129. Procedure WIPE4
  130. For F=0 To 320 Step 2
  131. Screen Copy 1,F,0,F+1,256 To 0,F,0
  132. Screen Copy 1,319-F,0,319-F+1,256 To 0,319-F,0
  133. Wait Vbl 
  134. Next F
  135. End Proc
  136. Procedure WIPE5
  137. Screen Display 0,128,-260,,
  138. For F=1 To 10 : Wait Vbl : Next F
  139. Screen Copy 1,0,0,320,256 To 0,0,0
  140. For F=-260 To 30
  141. Screen Display 0,128,F,,
  142. Wait Vbl 
  143. Next F
  144. End Proc
  145. Procedure WIPE6
  146. For F=0 To 31 : Colour F,$FFF : Next F
  147. Screen Copy 1,0,0,320,256 To 0,0,0
  148. Fade 3 To 1 : Wait 45
  149. End Proc
  150. Procedure WIPE7
  151. For S=0 To 7
  152. For X=S To 15-S
  153. Screen Copy 1,S*16,X*16,(S*16)+16,(X+1)*16 To 0,S*16,X*16
  154. Wait Vbl 
  155. Next X
  156. For F=S To 19-S
  157. Screen Copy 1,F*16,240-(S*16),(F*16)+16,240-(S*16)+16 To 0,F*16,240-(S*16)
  158. Wait Vbl 
  159. Next F
  160. For X=15-S To S Step -1
  161. Screen Copy 1,304-(S*16),X*16,304-(S*16)+16,(X+1)*16 To 0,304-(S*16),X*16
  162. Wait Vbl 
  163. Next X
  164. For F=19-S To S Step -1
  165. Screen Copy 1,F*16,S*16,(F*16)+16,(S*16)+16 To 0,F*16,S*16
  166. Wait Vbl 
  167. Next F
  168. Next S
  169. End Proc
  170. Procedure WIPE8
  171. For F=127 To 0 Step -1
  172. Screen Copy 1,0,F,320,F+1 To 0,0,F
  173. Screen Copy 1,0,255-F,320,256-F To 0,0,255-F
  174. Wait Vbl 
  175. Next F
  176. End Proc
  177. Procedure OUTRO
  178. Music 1 : No Mask 
  179. Screen Open 0,320,256,2,Lowres : Flash Off : Curs Off : Cls 0 : Hide On 
  180. Colour 1,$71A : Screen Display 0,128,40,,
  181. For F=16 To 28 Step 4
  182. Colour F,$0 : Colour F+1,$FFF : Colour F+2,$777 : Colour F+3,$444
  183. Next F
  184. Gosub LAME
  185. Synchro Off 
  186. A$=" Restart:  Let R0=R1; Anim 0,(8-R0,1); Loop:  Let X=X+R0; If X>448 then Jump Die; Pause; Jump Loop;  Die:  Let X=128; Jump Restart;"
  187. For F=0 To 20
  188. Read R : Sprite F+8,R,40+(F*16),7
  189. Next F
  190. For F=0 To 20
  191. Channel F To Sprite F+8
  192. Amal F,A$ : Amal On F
  193. Read R : Amreg(F,1)=R
  194. Next F
  195. Gosub TITLE
  196. Y=-1 : X=0 : T=0
  197. Do 
  198. Gosub PTEXT
  199. Synchro : Wait Vbl 
  200. Loop 
  201. PTEXT:
  202. Inc Y : If Y=30 Then Y=0 : Inc X : If X=12 Then Gosub PAUSE
  203. Inc T : If T>Len(T$) Then T=1
  204. B=Asc(Mid$(T$,T,1))
  205. Paste Bob(Y*8)+35,(X*11)+80,B
  206. Return 
  207. PAUSE:
  208. For F=0 To 300
  209. Synchro : Wait Vbl 
  210. If Mouse Key=1 Then Goto CONT
  211. Next F
  212. CONT:
  213. X=0
  214. Return 
  215. TITLE:
  216. For X=0 To 4
  217. For Y=0 To 29
  218. Inc T
  219. B=Asc(Mid$(L$,T,1))
  220. Paste Bob(Y*8)+39,X*11,B
  221. Next Y
  222. Next X
  223. Return 
  224. LAME:
  225.    L$="                              "
  226. L$=L$+"                              "
  227. L$=L$+"        F A N A T I X         "
  228. L$=L$+"                              "
  229. L$=L$+"                              "
  230.    T$="SO YET AGAIN, YOU HAVE REACHED" : T$=T$+"THE END OF A PRODUCTION, SO IT"
  231. T$=T$+"IS TIME FOR THE HUGE MESSAGES." : T$=T$+"                              "
  232. T$=T$+"                              " : T$=T$+" DO YOU LIKE THE STARFIELD, IT"
  233. T$=T$+"HAS SEVEN LAYER PARALLAX...   " : T$=T$+" WITH NO JERK...              "
  234. T$=T$+"                              " : T$=T$+"      NOW FOR THE TEXT!!      "
  235. T$=T$+"WHEN A PAGE HAS APPEARED, THE " : T$=T$+"LEFT MOUSE SPEEDS THINGS UP!! "
  236. T$=T$+"C R E D I T S...              " : T$=T$+"                              "
  237. T$=T$+"                              " : T$=T$+"  ALL CODING BY    JAG.       "
  238. T$=T$+"  PICTURES BY      SANDMAN    " : T$=T$+"               AND TEXAS TEZ. "
  239. T$=T$+"  MUSIC BY         MOBY       " : T$=T$+"                OF ALCATRAZ.  "
  240. T$=T$+"  BOTH FONTS BY    JAG.       " : T$=T$+"  STAR GFX BY      JAG.       "
  241. T$=T$+"  END MUSIC BY     JESPER KYD " : T$=T$+"                OF SILENTS.   "
  242. T$=T$+"G R E E T S...                " : T$=T$+"                              "
  243. T$=T$+"  BITMAP (HI YAZOO!  HOW'S THE" : T$=T$+"         MEGADEMO GOING???)   "
  244. T$=T$+"                              " : T$=T$+"  CYBORNETICS (YOU ARE MY VERY"
  245. T$=T$+"         SLOWEST CONTACTS!)   " : T$=T$+"                              "
  246. T$=T$+"  THE BEHOLDER (YOU ARE NOT   " : T$=T$+"         MUCH QUICKER...)     "
  247. T$=T$+"                              " : T$=T$+"                              "
  248. T$=T$+"  SYNTEX (WE AWAIT YOUR NEW   " : T$=T$+"         DEMOS.  GLAD TO HEAR "
  249. T$=T$+"         AVORIAZ IS OK AFTER  " : T$=T$+"         HIS CRASH!)          "
  250. T$=T$+"                              " : T$=T$+"  SANDRA SHARKEY (THE GAME IS "
  251. T$=T$+"         NEXT, I PROMISE!)    " : T$=T$+"                              "
  252. T$=T$+"  LEN AND ANNE TUCKER (DO YOU " : T$=T$+"         WANT ANY STUFF FOR   "
  253. T$=T$+"         TOTALLY AMOS??)      " : T$=T$+"                              "
  254. T$=T$+"  REINCA (AT THE TIME OF THIS " : T$=T$+"         TEXT, I STILL HAVE'NT"
  255. T$=T$+"         SEEN A DEMO BY YOU! I" : T$=T$+"         AM STILL WAITING FOR "
  256. T$=T$+"         SANDRA TO SEND IT.)  " : T$=T$+"                              "
  257. T$=T$+"  BLADERUNNERS (I'M WAITING   " : T$=T$+"         FOR YOURS TOO!)      "
  258. T$=T$+"                              " : T$=T$+" AND SO END THE LAME GREETS.. "
  259. T$=T$+"                              " : T$=T$+"        SO NOW FOR....        "
  260. T$=T$+"J A G ' S   T E X T...        " : T$=T$+"                              "
  261. T$=T$+" IT MAY COME AS NO SURPRISE TO" : T$=T$+"YOU THAT THIS CODE ONLY TOOK 1"
  262. T$=T$+" DAY TO WRITE..  I WAS BORED, " : T$=T$+"AND HAD JUST RECIEVED THE PICS"
  263. T$=T$+"  , SO I DID THIS INSTEAD OF  " : T$=T$+" PROGRAMMING A SECTION OF OUR "
  264. T$=T$+" GAME.  (IT HAS NO TITLE YET!)" : T$=T$+"                              "
  265. T$=T$+"           ALSO...            " : T$=T$+"                              "
  266. T$=T$+"WE ARE THINKING OF STARTING UP" : T$=T$+" A SMALL AMOS MAGASINE WHICH  "
  267. T$=T$+" WILL CONTAIN GAMES REVIEWS,  " : T$=T$+"PROGRAMMING HINTS AND HELP, A "
  268. T$=T$+"SELECTION OF CHARTS, PD REVIEW" : T$=T$+", GAMES TIPS, ARTICLES OF ANY "
  269. T$=T$+"     INTEREST, ETC, ETC...    " : T$=T$+"                              "
  270. T$=T$+" IF ANY OTHER GROUP WISHES TO " : T$=T$+" JOIN US IN THE PRODUCTION OF "
  271. T$=T$+" A MAGASINE, THEY CAN CONTACT " : T$=T$+"        US ABOUT IT...        "
  272. T$=T$+"IT WOULD ALSO OFFER A SMALL PD" : T$=T$+"SERVICE (CHEAP), AND A SECTION"
  273. T$=T$+"FOR ADVERTISERS.. ALL PRODUCED" : T$=T$+"WITH A LITTLE FANATIX FLAIR..."
  274. T$=T$+"                              " : T$=T$+"  I DO ACTUALLY HAVE A SMALL  "
  275. T$=T$+"TEXT SYSTEM (GRAPHIC FONT TOO)" : T$=T$+"THAT CAN PRINT PAGES AND MOVE "
  276. T$=T$+" THEM  SMOOTHLY  UP AND DOWN. " : T$=T$+"NO LAME DISK ACCESS, IT PUT'S "
  277. T$=T$+" THE PAGES IN DATA BANKS FOR  " : T$=T$+"EACH SECTION, RUNS A SCROLLER."
  278. T$=T$+"SO REALLY, YOU MAY SEE ONE, OR" : T$=T$+" YOU MAY NOT.  IT ALL DEPENDS "
  279. T$=T$+"ON WHAT SORT OF MOOD WE ARE IN" : T$=T$+"WHEN WE FINISH THE BASTARD OF "
  280. T$=T$+"A GAME (IT IS V. MESSY SO FAR)" : T$=T$+"                              "
  281. T$=T$+"THE GAME'LL BE QUITE HARD TOO," : T$=T$+" BECAUSE GAMES THESE DAYS ARE "
  282. T$=T$+"MADE RIDICULOUSLY EASY FOR THE" : T$=T$+"LAMERS...  (EXCEPT R TYPE II!)"
  283. T$=T$+"                              " : T$=T$+"           ON TO..            "
  284. T$=T$+"S A N D M A N ' S   T E X T..." : T$=T$+"                              "
  285. T$=T$+" YO!  THIS IS SANDMAN, I HAVE " : T$=T$+" NOTHING REALLY TO SAY, APART "
  286. T$=T$+" FROM A COUPLE OF GREETINGS.  " : T$=T$+" THEY GO TO: TOMO, NIGE (HAVE "
  287. T$=T$+" YOU FINISHED YOUR MUSIC MOD  " : T$=T$+"   YET?), BLITTERCHIPS, AND   "
  288. T$=T$+" ANYONE I'VE FORGOTTEN.  WELL " : T$=T$+"THAT'S ALL I'VE GOT TIME FOR, "
  289. T$=T$+" (I KNOW IT WAS SHORT BUT WHO " : T$=T$+"        CARES?)  BYE!         "
  290. T$=T$+"T E X A S   T E Z   T E X T..." : T$=T$+"                              "
  291. T$=T$+"GREETINGS AMIGA FREAKS!  TEXAS" : T$=T$+"TEZ HERE!  WHILST LISTENING TO"
  292. T$=T$+"SOME COOL MUSIC, WE HAVE COME " : T$=T$+"  UP WITH OUR FIRST FANATIX   "
  293. T$=T$+"SLIDESHOW!  PERSONAL GREETINGS" : T$=T$+"TO:  MELV, SHAZ (YOU SEX POT!)"
  294. T$=T$+"  CHEZ, CLAIRE, RACH, SCOTT   " : T$=T$+"(YOU BOOZER!) AND A BIG THANX "
  295. T$=T$+"TO GILBERT (SANDMANS JOYSTICK)" : T$=T$+" HE MEANS A LOT TO ME!  BYE!  "
  296. T$=T$+"J A G   A G A I N...          " : T$=T$+"                              "
  297. T$=T$+" I JUST THOUGHT I'D TELL YOU  " : T$=T$+"ABOUT THE RECENT 16 BIT SHOW.."
  298. T$=T$+"                              " : T$=T$+" THIS IS HOW IT WENT..        "
  299. T$=T$+"                              " : T$=T$+" I HAD ARRANGED TO MEET OTHERS"
  300. T$=T$+"IN FANATIX AT THE ENTRANCE OF " : T$=T$+" THE SHOW..  FINE!  BUT FROM  "
  301. T$=T$+"HERE IT WENT HORRIBLY WRONG..." : T$=T$+"                              "
  302. T$=T$+" SANDMAN AND TEXAS TEZ GOT TO " : T$=T$+"THE SHOW ON TIME (12.00), BUT "
  303. T$=T$+"A BRITISH RAIL PERSON SENT ME " : T$=T$+"TO THE WRONG PART OF BAKER'S  "
  304. T$=T$+"STREET TUBE STATION.  SO I WAS" : T$=T$+"LATE (HAD TO WAIT FOR AGES FOR"
  305. T$=T$+"ANOTHER TUBE TRAIN!!)  THEN, I" : T$=T$+"GOT TO THE SHOW AT 12.45, AND "
  306. T$=T$+"MANAGED TO FIND CHAOS (HE TOOK" : T$=T$+"AN EARLIER TRAIN).  MEANWHILE,"
  307. T$=T$+" THE OTHERS HAD GOT INTO THE  " : T$=T$+"SHOW, AND WE DID NOT KNOW WHO "
  308. T$=T$+" TO LOOK FOR.  LAME.  ANYWAY, " : T$=T$+"THE SHOW WAS  V E R Y  CROWDED"
  309. T$=T$+" , AND YOU HAD TO FORCE YOUR  " : T$=T$+"WAY OVER TO THE STANDS!  (ALL "
  310. T$=T$+"EXCEPT FOR THE EMPTY ATARI ONE" : T$=T$+" WHICH WE WENT TO HAVE A LOOK "
  311. T$=T$+" AT.  WE ASKED AN ATARI SALES " : T$=T$+"REP. WHAT MACHINE DID HE THINK"
  312. T$=T$+" WAS BEST?  THE ATARI OR THE  " : T$=T$+"AMIGA.  HE SAID THE AMIGA WAS "
  313. T$=T$+"  JUST A GAMES MACHINE!!!!!!  " : T$=T$+"WE SHOWED HIM THE ATARI ADVERT"
  314. T$=T$+"(A KID PLAYING GAMES), AND HE " : T$=T$+" JUST MADE A LAME EXCUSE AND  "
  315. T$=T$+"WALKED AWAY!!  WE THEN WENT UP" : T$=T$+"AND DOWN THE STAND TELLING THE"
  316. T$=T$+"  CUSTOMERS TO BUY AN AMIGA   " : T$=T$+"     INSTEAD.  COOL NO???     "
  317. T$=T$+"WE DID SEE THE A690 THERE, IT " : T$=T$+"IS PRETTY GOOD, BUT YOU STILL "
  318. T$=T$+"CAN'T WRITE TO CD'S, SO IT IS " : T$=T$+"    JUST AN EXPENSIVE TOY.    "
  319. T$=T$+"                              " : T$=T$+"       TO CONTACT US...       "
  320. T$=T$+" WRITE TO.                    " : T$=T$+"                              "
  321. T$=T$+"F A N A T I X,                " : T$=T$+" 29 CAMBRIDGE ROAD,           "
  322. T$=T$+"  GODMANCHESTER,              " : T$=T$+"   HUNTINGDON,                "
  323. T$=T$+"    CAMBS,                    " : T$=T$+"     PE18 8BT,                "
  324. T$=T$+"      ENGLAND.                " : T$=T$+"                              "
  325. T$=T$+"    PHONE..  (0480) 411568    " : T$=T$+"                              "
  326. T$=T$+"                              " : T$=T$+"                              "
  327. T$=T$+"                              " : T$=T$+"                              "
  328. T$=T$+"        T H E   E N D         " : T$=T$+"                              "
  329. T$=T$+"   BY THE FANATIX IN 1992!    " : T$=T$+"                              "
  330. T$=T$+"                              " : T$=T$+"                              "
  331. T$=T$+"(6120 BYTES LONG!!)           " : T$=T$+"                              "
  332. Return 
  333. Data 128,128,128,300,320,234,200,400,340,345,315,234,128,187,158,231,401,231,321,360,213
  334. Data 7,3,5,4,1,2,3,6,5,4,2,7,1,4,3,6,7,2,6,1,5
  335. End Proc