home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 201-225 / apd203 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1991-02-11  |  4KB  |  140 lines
  1. Dir$="Robots:"
  2. Load "M1"
  3. PAUL
  4. Procedure PAUL
  5. Volume 0
  6. Music 1
  7. For N=1 To 63 : Wait 2
  8.    Volume N
  9. Next N
  10. Auto View Off 
  11. Unpack 10 To 6 : Hide : Unpack 10 To 5 : Palette $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,0,0,0,0,0
  12. Get Bob 5,1,0,192 To 320,224
  13. Screen Copy 5,0,0,320,32 To 5,0,192
  14. Bob 1,0,192,1
  15. Auto View On 
  16. Channel 5 To Bob 1
  17. A$="M 330,0,45"
  18. Amal 5,A$
  19. Fade 5 To 6 : Wait 75 : Screen Close 6
  20. Wait 30
  21. Unpack 11 To 4 : Screen Hide 4 : Unpack 11 To 3 : Screen Display 3,140,55,,50 : Palette $0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  22. Fade 5 To 4 : Wait 75 : Screen Close 4
  23. Screen 5
  24. Wait 50
  25. Amal On 
  26. Wait 50
  27. Bob Off : Erase 1
  28. Dim X$(48),X(48),Y(48),XX(20),YY(20),O(4)
  29. SCNT=1
  30. CNT=31
  31. SC$="      YES I AM BACK!!   TERMINATOR HERE TO INTRODUCE 2 MORE OF MY DEMOS!  ? XENOMORPHS ? AND ? FRACTALMANIA ?             HOW DO YOU LIKE THIS MINI INTRO  ? KEYBOARD SCROLLER ?   "
  32. SC$=SC$+"THESE DEMOS WERE FINISHED  17-4-91 AT 9PM   ANYWAY  ?  ON WITH THE SCROLL!  ?  "
  33. SC$=SC$+"THE ROBOTS MEGA DEMO 2 WILL BE OUT SOON   SO WATCH OUT   THERE IS SOME GOOD STUFF PLANNED FOR IT!  HERE IS A QUICK PREVIEW ?  HORROR GAME ? BOBS DEMO ? VECTORS DEMO (MAYBE) ? MUSIC DEMO ? FILM (ANIMATION) ? "
  34. SC$=SC$+"SOMETHING DIFFERENT WITH VU METERS AND LOADS MORE BECAUSE IT WILL PROBABLY BE ON 2 DISKS   YES 2!     IF YOU PRESS THE MOUSE BUTTON YOU WILL GO BACK TO THE MENU   THE SAME GOES FOR FRACTALMANIA  BUT XENOMORPHS WILL NEED A RESET    OK?!  "
  35. SC$=SC$+"HERE ARE A FEW GREETS  SORRY BUT IT IS NOT THE FULL LIST  I DID THAT ON MY MEGA DEMO AND IT GETS A BIT BORING!  ?  MANDARIN AND DATABASE ? AMOS PD LIBRARY ? NBS ? IAN FAICHNIE ? SOUTH LINCS PD (KEEP UP THE GOOD WORK PETE!) ? AND ALL THE "
  36. SC$=SC$+"OTHERS!!    RIGHT  I THINK THAT IS ENOUGH FOR THIS SCROLL SO PRESS THAT BUTTON AND SEE THE DEMOS!     BYE!!!!!                        "
  37. Unpack 6 To 0
  38. Screen Open 1,354,Screen Height,Screen Colour,Lowres
  39. Screen Display 1,134,235,320,31 : Screen Offset 1,0,223
  40. Screen Hide 0
  41. Def Scroll 1,1,223 To 353,255,-2,0
  42. Curs Off 
  43. Cls 0
  44. Flash Off 
  45. Screen Copy 0,2,162,120,192 To 1,99,66
  46. Get Palette 0
  47. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-() "
  48. Gosub PIXD
  49. Wait Vbl 
  50. For R=16 To 31
  51.    Colour R,Colour(R-16)
  52. Next R
  53. Curs Off 
  54. Get Bob 0,9,288,128 To 319,159
  55. Amal On 
  56. ROO:
  57. Gosub STEXT : 
  58. Wait Vbl 
  59. Goto ROO
  60. PIXD:
  61. Restore SD
  62. For F=1 To 48
  63.    Read X$(F),X(F),Y(F)
  64. Next F
  65. Return 
  66. SD:
  67. Data "0",0,0
  68. Data "1",32,0
  69. Data "2",64,0
  70. Data "3",96,0
  71. Data "4",128,0
  72. Data "5",160,0
  73. Data "6",192,0
  74. Data "7",224,0
  75. Data "8",256,0
  76. Data "9",288,0
  77. Data "A",0,32
  78. Data "B",32,32
  79. Data "C",64,32
  80. Data "D",96,32
  81. Data "E",128,32
  82. Data "F",160,32
  83. Data "G",192,32
  84. Data "H",224,32
  85. Data "I",256,32
  86. Data "J",288,32
  87. Data "K",0,64
  88. Data "L",32,64
  89. Data "M",64,64
  90. Data "N",96,64
  91. Data "O",128,64
  92. Data "P",160,64
  93. Data "Q",192,64
  94. Data "R",224,64
  95. Data "S",256,64
  96. Data "T",288,64
  97. Data "U",0,96
  98. Data "V",32,96
  99. Data "W",64,96
  100. Data "X",96,96
  101. Data "Y",128,96
  102. Data "Z",160,96
  103. Data "@",128,128
  104. Data ",",32,128
  105. Data "!",256,96
  106. Data ".",0,128
  107. Data ":",160,128
  108. Data "?",224,128
  109. Data "/",192,128
  110. Data "+",96,128
  111. Data "-",64,128
  112. Data "(",192,96
  113. Data ")",224,96
  114. Data " ",288,96
  115. Rem
  116. Rem ********* SCROLL TEXT ROUTINE ********** 
  117. STEXT:
  118. Scroll 1
  119. Add CNT,2
  120. If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  121. If Mouse Key=1 Then QUIT
  122. Return 
  123. NCHAR:
  124. E$=Mid$(SC$,SCNT,1)
  125. E=Instr(SCRL$,E$)
  126. Screen Copy 0,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
  127. Return 
  128. End Proc
  129. '
  130. Procedure QUIT
  131.    For N=63 To 0 Step -1
  132.       Volume N : Wait 2
  133.    Next N : Music Off : Erase 3
  134.    Screen 3 : Fade 5 : Wait 75 : Screen Close 3
  135.    Screen 1 : Fade 5 : Wait 75
  136.    Screen Close 1 : Screen Close 0
  137.    Fade 5 : Wait 75 : Screen Close 5
  138.    Erase 6 : Erase 10 : Erase 11
  139.    End 
  140. End Proc