home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 251-275 / apd264 / madstars.amos / madstars.amosSourceCode
AMOS Source Code  |  1991-06-11  |  5KB  |  125 lines
  1. Rem Mad Starfield Demo 
  2. Rem mad coding by JAG who is mad 
  3. Rem If you had to do this you would go mad too.. 
  4. Rem
  5. DEMO
  6. Procedure DEMO
  7. '
  8. ' I SAID GET THE FUCK OUT OF MY DEMOS YOU BASTARD LAMER... 
  9. '
  10. Screen Open 0,320,256,2,Lowres : Curs Off : Hide On : Cls 0
  11. Default : Cls 0 : Hide On 
  12. Close Workbench : Close Editor : Break Off 
  13. Wait Vbl 
  14. Load "mamus.abk",3
  15. Led Off 
  16. Randomize 3345+Rnd(13453)
  17. Screen Open 0,800,600,16,Lowres
  18. Cls 0 : Flash Off : Curs Off : Cls 0 : Hide On 
  19. Screen Display 0,110,30,,
  20. Screen Hide 0
  21. Screen Offset 0,200,150
  22. Screen Open 1,400,30,2,Lowres : Curs Off : Cls 0 : Colour 1,$F22
  23. Screen Display 1,110,278,,
  24. Screen Open 5,640,100,2,Hires : Curs Off : Hide On : Cls 0 : Colour 1,$FFF
  25. Print "Please insert disk A."
  26. Repeat 
  27. Until Exist("FanatixMegademo4DiskA:")=-1
  28. Screen 1
  29. Get Disc Fonts : Set Font 11 : Text 105,22,"<* FANATIX *>"
  30. Screen 5
  31. Print "Insert Disk B."
  32. Repeat 
  33. Until Exist("FanatixMegademo4DiskB:")=-1
  34. Wait Vbl 
  35. Screen Close 5
  36. Wait Vbl 
  37. Screen 1
  38. Music 1
  39. Def Scroll 1,0,0 To 386,27,-2,0
  40.    T$=" Are back again in full effect with an Audio-Visual assualt on your senses called            Mad Starfield Demo....        |   Credits for this:   Coding by                      JAG,      | and Music by          Scoopex.     |"
  41. T$=T$+"  There are no graphics in this demo.  Just a font and programmed stars!  Look at them go!"
  42. T$=T$+"  I had this idea while finishing off Megademo 3 about a week ago..  The only into-the-screen starfield I had"
  43. T$=T$+" seen on AMOS was a slow and jerky one by Panthorus (although it was well programmed).  This one only jerks occasionally when the scroll activates a pause.  Is anyone going to the"
  44. T$=T$+" 16-Bit Computer Show?  Mind you, it will probably be over by the time you read this.            I am still suffering from a"
  45. T$=T$+" severe case of addiction to 'PP Hammer And His Pneaumatic Weapon', and you can blame this on CU....         "
  46. T$=T$+"NNNNNOOOOOOOOOO, my mum is trying to hoover the room!!!  HELP.  I can't even hear the music anymore.  AARRGGHHH."
  47. T$=T$+"                 Oh yeah, some quick greets go to:  Cybornetics (hi guyz), Benson, Syntex, Robots, Gaz + Matt (change the name), Panthorus"
  48. T$=T$+", Arbitez (for the moral support by being so lame at all times), Sandra Sharkey, and the lame gits at the electricity board for"
  49. T$=T$+" the thoughtful timing of the power cut a few days ago, which killed this demo outright, and I had to redo it!!"
  50. T$=T$+"                     Please note:  there is no way of stealing our star routine as it doesn't use any packed screens or any such lameness like that."
  51. T$=T$+"  There is however, a lovely brainwashing routine with all the maths in it, but that's locked.  HA HA!!"
  52. T$=T$+"          There are just a few finishing touches to put in this demo, like the starfield spiralling outwards at the beginning, and the text I am typing now needs"
  53. T$=T$+" a font badly.  At the moment I am using the crap default Topaz thing!         And a small note to Phil South at Amiga Shopper:  Please mention the Megademo 3, as"
  54. T$=T$+" the unlimited bobs demo is brilliant....  And I'm not just saying that 'cause I coded it!!!             Whoah, time to go in a few minutes, as"
  55. T$=T$+" the clock says it's time to get some lunch.  How sad.          Wait until you see Megademo 5, as I will probably have got my hand scanner by then, and"
  56. T$=T$+" you will see some really classy GFX.      We may also do a slideshow of dubious content with it, so all you raving pervs out there should sit back and wait!    "
  57. T$=T$+"     Unfortunately I am going to stop typing now, there are enough messages in this megademo to keep you reading for hours anyway....    BYE...                             "
  58. T$=T$+"                                <*FANATIX*>              |"
  59. Screen 0
  60. Degree 
  61. MXSTARS=60
  62. Dim CO(MXSTARS) : Dim F#(MXSTARS)
  63. CORPUS:
  64. LE#=1
  65. For CL=1 To MXSTARS
  66. CO(CL)=Rnd(11)+4
  67. Next CL
  68. For CL=1 To MXSTARS
  69. F#(CL)=CL*6+(Rnd(6)-3)
  70. Next CL
  71. For E#=1 To 50
  72. For STAR=1 To MXSTARS
  73. Ink CO(STAR)
  74. Plot(Sin(F#(STAR))*LE#)+400,(Sin(F#(STAR)+90)*LE#)+300
  75. Inc CO(STAR) : If CO(STAR)=16 Then CO(STAR)=4
  76. Next STAR
  77. LE#=LE#+((E#*2)/6)
  78. Next E#
  79. Palette 0,$FFF,0,0,$DDD,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  80. Shift Up 1,4,15,1
  81. Screen Show 0
  82. Screen 1
  83. Wait Vbl 
  84. Do 
  85. Gosub STAROFFSET
  86. Gosub MESSAGE
  87. If Mouse Key=1 Then Goto DIE
  88. Wait Vbl 
  89. Loop 
  90. STAROFFSET:
  91. Add AN,3 : If AN>360 Then AN=AN-360
  92. SOX=(Sin(AN)*(190))+210 : SOY=(Sin(AN+90)*(150))+170
  93. Screen Offset 0,SOX,SOY
  94. Return 
  95. MESSAGE:
  96. Scroll 1
  97. Add PIX,2 : If PIX>=Text Length(N$) Then PIX=0 : Goto NCHAR
  98. Return 
  99. NCHAR:
  100. Inc CH : If CH>Len(T$) Then CH=1
  101. N$=Mid$(T$,CH,1)
  102. If N$="|" Then N$=" " : Gosub PAUSE
  103. Text 360,22,N$
  104. Return 
  105. PAUSE:
  106. For F=0 To 200 : Gosub STAROFFSET : Wait Vbl : Next F
  107. Return 
  108. DIE:
  109. For F=278 To 310
  110. Screen Display 1,110,F,,
  111. Gosub STAROFFSET
  112. Wait Vbl 
  113. Next F
  114. Screen Close 1
  115. Screen 0
  116. Shift Off 
  117. Fade 3
  118. For F=63 To 0 Step -1
  119. Mvolume F : For T=0 To 1000 : Next T
  120. Next F
  121. Music Off 
  122. Screen Close 0
  123. Mvolume 63
  124. Run "CopperDemo.AMOS"
  125. End Proc