home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / demos / d008.dms / in.adf / AutoExec.Amos / AutoExec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1991-02-11  |  5.2 KB  |  176 lines
  1. Led Off 
  2. Unpack 15 To 5 : Screen Display 5,,55,,80 : Hide : Palette ,$F10,$F20,$F30,$F40,$F50,$F60,$F70,$F80,$F90,$FA0,$FB0,$FC0,$FD0,$FE0,$FF0
  3. Unpack 14 To 4 : Screen Display 4,,150,,80
  4. Volume 0
  5. Music 1
  6. For N=1 To 63 : Wait 2
  7.    Volume N
  8. Next N
  9. Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  10. SCNT=1
  11. CNT=31
  12. SC$="{        WELCOME TO THE PREDATORS DEMO .......... THIS IS JUST THE INTRO ............ PRESS THE MOUSE BUTTON TO SEE THE DEMO ............ WE ARE A NEW DEMO GROUP CALLED { ROBOTS } ........ THIS DEMO WAS DONE BY ME   { TERMINATOR } ............."
  13. SC$=SC$+"THE MUSIC WAS RIPPED FROM A BRAINSTORM DEMO { BECAUSE I LIKE IT !!! } ..................... "
  14. SC$=SC$+"WATCH OUT FOR MORE DEMO#S BY OUR OTHER MEMBERS ! ............"
  15. SC$=SC$+"...............ON WITH THE SCROLL { ............ DATE : 10 FEBRUARY ... YEAR : 1991 ... TIME : 1:00 AM ........... THIS IS TERMINATOR AND I#M GETTING BORED OF THIS SCROLL !  SO I#LL JUST ROLL THE GREETS : ...... "
  16. SC$=SC$+"SANDRA ( THANKS FOR A BRILLIANT PD LIBRARY ) ..{.. MARTYN BROWN ( RAINBOW WARRIOR IS GREAT !!!! ) ..{.. DR.AWESOME ( KEEP MAKING THOSE MEGA BEATS ! ) ..{.. QUICK GREETS GO TO THE FOLLOWING ( IN NO PARTICULAR ORDER ) : ...{... SCOOPEX { "
  17. SC$=SC$+"BRAINSTORM { NOLIMITS { DMOB { DRAGONS { WARRIORS { PENDLE EUROPE { RED SECTOR { COMPLEX { QUARTEX { SLIPSTREAM { POWER LORDS { THE HACK RELATION { REBELS { FRAXION } .............. SCROLL ENDS HERE ! .......... CLICK THAT BUTTON !!!!! ...."
  18. SC$=SC$+".................................................. SCROLL RESTARTS SO PISS OFF !!!!!!!!! ..... HA HA ! ...... { { { { { { { { { { {                                    "
  19. Unpack 6 To 0
  20. Screen Open 1,354,Screen Height,Screen Colour,Lowres
  21. Screen Display 1,134,265,320,33 : Screen Offset 1,0,223
  22. Screen Hide 0
  23. Def Scroll 1,1,223 To 353,255,-4,0
  24. Curs Off 
  25. Cls 0
  26. Flash Off 
  27. Screen Copy 0,2,162,120,192 To 1,99,66
  28. Get Palette 0
  29. Restore RDATA
  30. Rem
  31. Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *
  32. Rem  *  Yup, you can blame good ol' Spadge for this one...  *
  33. Rem
  34. Set Rainbow 0,0,280,"","",""
  35. Rainbow 0,0,0,280
  36. Colour Back 0
  37. Restore RDATA
  38. For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  39. Next C : View 
  40. RDATA:
  41. Data $0,$0,$0,$0,$100,$200,$300,$400
  42. Data $500,$600,$700,$800,$900,$A00,$B00,$C00
  43. Data $D00,$E00,$F00,$F00,$F00,$F00,$F00,$F00
  44. Data $F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00
  45. Data $F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00
  46. Data $F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00
  47. Data $F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00
  48. Data $F00,$F00,$F00,$F00,$F00,$F00,$E00,$D00
  49. Data $C00,$B00,$A00,$900,$800,$700,$600,$500
  50. Data $400,$300,$200,$100,$0,$0,$0,$0
  51. Data $0,$0,$0,$0,$1,$2,$3,$4
  52. Data $5,$6,$7,$8,$9,$A,$B,$C
  53. Data $D,$E,$10F,$F,$F,$F,$F,$F
  54. Data $F,$F,$F,$F,$F,$F,$F,$F
  55. Data $F,$F,$F,$F,$F,$F,$F,$F
  56. Data $F,$F,$F,$F,$F,$F,$F,$F
  57. Data $F,$F,$F,$F,$F,$F,$F,$F
  58. Data $F,$F,$F,$F,$F,$F,$F,$F
  59. Data $F,$F,$F,$F,$F,$F,$F,$F
  60. Data $F,$F,$F,$F,$F,$F,$F,$F
  61. Data $F,$F,$F,$F,$F,$F,$F,$F
  62. Data $F,$F,$F,$F,$F,$F,$F,$F
  63. Data $F,$F,$F,$F,$F,$F,$F,$F
  64. Data $F,$F,$F,$F,$F,$F,$F,$F
  65. Data $F,$F,$F,$F,$F,$F,$F,$F
  66. Data $F,$10F,$E,$D,$C,$B,$A,$9
  67. Data $8,$7,$6,$5,$4,$3,$2,$1
  68. Data $0,$0,$0,$0,$0,$0,$0,$0
  69. Data $0,$303,$505,$707,$909,$B0B,$D0D,$F0F
  70. Data $F0F,$D0D,$B0B,$909,$707,$505,$404,$303
  71. Data $303,$404,$505,$606,$707,$808,$909,$909
  72. Data $808,$707,$606,$505,$404,$303,$202,$202
  73. Data $202,$202,$202,$202,$202,$202,$202,$202
  74. Data $202,$202,$202,$202,$202,$0,$0,$0
  75. Data $0,$0,$101,$0,$0,$0,$0,$0
  76. Data $0,$0,$0,$0,$0,$0,$0,$0
  77. Rem
  78. Rem  * Alter the values in the RAINBOW and SET RAINBOW * 
  79. Rem  * to position and control the rainbows. See the   * 
  80. Rem  * manual to check on Y positioning, Length and    * 
  81. Rem  * which colour it is to effect.. Have fun!        * 
  82. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  83. Gosub PIXD
  84. Wait Vbl 
  85. For R=16 To 31
  86.    Colour R,Colour(R-16)
  87. Next R
  88. Hide On 
  89. Curs Off 
  90. Get Bob 0,9,288,128 To 319,159
  91. Amal On 
  92. ROO:
  93. Gosub STEXT : 
  94. Wait Vbl 
  95. Goto ROO
  96. PIXD:
  97. Restore SD
  98. For F=1 To 51
  99.    Read X$(F),X(F),Y(F)
  100. Next F
  101. Return 
  102. SD:
  103. Data "0",0,0
  104. Data "1",32,0
  105. Data "2",64,0
  106. Data "3",96,0
  107. Data "4",128,0
  108. Data "5",160,0
  109. Data "6",192,0
  110. Data "7",224,0
  111. Data "8",256,0
  112. Data "9",288,0
  113. Data "A",0,32
  114. Data "B",32,32
  115. Data "C",64,32
  116. Data "D",96,32
  117. Data "E",128,32
  118. Data "F",160,32
  119. Data "G",192,32
  120. Data "H",224,32
  121. Data "I",256,32
  122. Data "J",288,32
  123. Data "K",0,64
  124. Data "L",32,64
  125. Data "M",64,64
  126. Data "N",96,64
  127. Data "O",128,64
  128. Data "P",160,64
  129. Data "Q",192,64
  130. Data "R",224,64
  131. Data "S",256,64
  132. Data "T",288,64
  133. Data "U",0,96
  134. Data "V",32,96
  135. Data "W",64,96
  136. Data "X",96,96
  137. Data "Y",128,96
  138. Data "Z",160,96
  139. Data "@",192,96
  140. Data ",",224,96
  141. Data "!",256,96
  142. Data ".",288,96
  143. Data ":",0,128
  144. Data "?",32,128
  145. Data "/",64,128
  146. Data "+",96,128
  147. Data "-",128,128
  148. Data "(",160,128
  149. Data ")",192,128
  150. Data "#",217,128
  151. Data "{",250,128
  152. Data "}",288,128
  153. Data " ",288,223
  154. Rem
  155. Rem ********* SCROLL TEXT ROUTINE ********** 
  156. STEXT:
  157. Scroll 1
  158. Add CNT,4
  159. If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  160. If Mouse Key=1 Then QUIT
  161. Return 
  162. NCHAR:
  163. E$=Mid$(SC$,SCNT,1)
  164. E=Instr(SCRL$,E$)
  165. Screen Copy 0,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
  166. Return 
  167. Procedure QUIT
  168.    Screen Close 0 : Screen Close 1 : Screen Close 5 : Screen Close 4
  169.    For N=0 To 63 Step -1 : Wait 2
  170.       Volume N
  171.    Next N : Music Off 
  172.    For E=1 To 15
  173.       Erase E
  174.    Next E
  175.    Run "Predator:predator.amos"
  176. End Proc