home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 176-200 / apd186 / blazer.bak / blazer.amosSourceCode
AMOS Source Code  |  1994-01-01  |  3KB  |  122 lines
  1. Auto View Off 
  2. Load "field",6 : Load "walkman",3
  3. Led Off : Music 1
  4. Unpack 6 To 0
  5. Unpack 6 To 1
  6. Screen Hide 1
  7. Screen Copy 0 To 1
  8. Screen 0 : Ink 15,0,0
  9. Bar 0,141 To 30,179 : Rem I botched the graphics up - this is a patch! 
  10. Hide 
  11. Fade 1 : Wait 15
  12. Auto View On : View 
  13. Fade 2 To(1) : Wait 30
  14. Screen Close 1
  15. Shift Down 1,2,9,1
  16. _RAINBOW
  17. Screen Open 1,640,80,2,Hires : Palette $0,$FFF : Curs Off 
  18. Screen Display 1,132,100,,32
  19. Set Rainbow 1,1,32,"","",""
  20. OFFSET=0
  21. A=$0
  22. For B=0 To 15
  23.    Rain(1,OFFSET)=A
  24.    Inc OFFSET
  25. Next 
  26. For B=0 To 15
  27.    Rain(1,OFFSET)=A
  28.    Inc OFFSET
  29.    A=A+$111
  30. Next 
  31. Rainbow 1,0,96,32
  32. TXT:
  33. Data "1991 - The Year We Make Contact."
  34. Data "Welcome to the last demo entitled 'Blazer'"
  35. Data "This is our attempt at one of those"
  36. Data "scrolling fields found in games like"
  37. Data "BallBlazer, SpaceHarrier Etc"
  38. Data "Joint Coding By Gaz & Matt (c) G&M 1990"
  39. Data "Watch out for our MandelBrot Creator"
  40. Data "The program that generated all those wierd & wonderful"
  41. Data "images in some of the previous demos...."
  42. Data "  "
  43. Data "Special Greetz To Eggit"
  44. Data "Normal Greetz To various people who I know "
  45. Data "or whose demos I've seen and liked....."
  46. Data "Steve, Sandra, Arc Angel, Gary Fearn, Spadge, Sentinel"
  47. Data "Nadeem, Wierd Science (Thanx Dave For The Digitising!)"
  48. Data "Try His Digitising Service - Phone 0530-242233 (ask For David)"
  49. Data "Peter Hickman, Gareth Lancaster, "
  50. Data "Curos & Stavros - I Haven't yet seen your mega-demo"
  51. Data "But I hope you like ours!!!!!!"
  52. Data "Thanx also to the following groups whose demos"
  53. Data "I have beaten senseless in my quest for music......"
  54. Data "Silents (Jesper Kyd), Fairlight, Phenomena, Crionics, Flash..."
  55. Data "   "
  56. Data "Transmission Terminated."
  57. Data "  "
  58. Data "end"
  59. Restore TXT
  60. Repeat 
  61.    Read T$
  62.    If T$="end"
  63.       Restore TXT
  64.       Read T$
  65.    End If 
  66.    L=Len(T$)
  67.    AC=80 : AC=AC-L
  68.    AC=AC/2
  69.    NULL$=""
  70.    For TEMP=1 To AC
  71.       NULL$=NULL$+" "
  72.    Next 
  73.    NULL$=NULL$+T$
  74.    OFFSET=1
  75.    For TEMP=0 To Len(NULL$)
  76.       Text TEMP*8,30,Mid$(NULL$,OFFSET,1)
  77.       Wait 5
  78.       Inc OFFSET
  79.    Next 
  80.    For A=1 To 8
  81.       Screen Offset 1,0,A
  82.       Wait Vbl 
  83.    Next 
  84.    Screen Offset 1,0,0
  85.    Screen Copy 1,0,8,640,32 To 1,0,0
  86.    Ink 0,0,0 : Bar 0,24 To 640,32 : Ink 1
  87. Until THE_COWS_COME_HOME
  88. '
  89. '
  90. Procedure _RAINBOW
  91.    Set Rainbow 0,0,90,"","",""
  92.    OFFSET=0
  93.    A=$0
  94.    For B=0 To 15
  95.       Rain(0,OFFSET)=A
  96.       Inc OFFSET
  97.       A=A+$100
  98.    Next 
  99.    A=$F00
  100.    For B=0 To 15
  101.       Rain(0,OFFSET)=A
  102.       Inc OFFSET
  103.       A=A+$10
  104.    Next 
  105.    A=$FF0
  106.    For B=0 To 15
  107.       Rain(0,OFFSET)=A
  108.       Inc OFFSET
  109.       A=A+1
  110.    Next 
  111.    A=$FFF
  112.    For B=0 To 15
  113.       Rain(0,OFFSET)=A
  114.       Inc OFFSET
  115.       A=A-$110
  116.    Next 
  117.    Screen 0
  118.    For A=250 To 137 Step -1
  119.       Rainbow 0,1,A,65
  120.       Wait Vbl 
  121.    Next 
  122. End Proc