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