home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 201-225 / apd204 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1991-02-11  |  3KB  |  140 lines
  1. Load "Robots:Music/Music0"
  2. For A=1 To 4
  3.    Led Off : Wait 20 : Led On : Wait 20
  4. Next A
  5. Screen Open 0,320,256,2,Lowres : Hide : Flash Off : Curs Off 
  6. Wait 40
  7. Palette $222,$222
  8. Wait 40
  9. Palette $666,$666
  10. Wait 40
  11. Palette $FFF,$FFF
  12. Wait 100
  13. Screen Close 0
  14. Led Off 
  15. Volume 0
  16. Music 1
  17. For N=0 To 63
  18.    Volume N : Wait 2
  19. Next N
  20. Unpack 10 To 5 : Hide 
  21. Screen Display 5,140,30,,100
  22. Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  23. SCNT=1
  24. CNT=31
  25. '
  26. SC$="       WELCOME TO THE ROBOTS MEGA DEMO 1   /   ALL THE GRAFIX AND CODING FOR THIS MEGA DEMO WERE DONE BY ME  }  TERMINATOR  }  WITH AMOS ! "
  27. SC$=SC$+"  YES AMOS ! !    THAT BRILLIANT PROGRAMMING LANGUAGE  /  AS YOU CAN SEE THIS IS THE INTRO SO PRESS THE LEFT RODENT BUTTON TO GO TO THE FIRST PART  /  "
  28. SC$=SC$+"   GREETS GO TO THE FOLLOWING  /  MANDARIN AND DATABASE  /  AMOS PD LIBRARY  /  NBS  /  IAN FAICHNIE  /  SOUTH LINCS PD ( PETE )  /  REBELS  /  ANARCHY  /  SCOOPEX  /  "
  29. SC$=SC$+"   THAT#S IT FOR THE GREETS SO PRESS THAT RAT ! ! ! !      }  SCROLL RESTARTS  }                                    "
  30. A$="Loop:M 0,5,7;M 0,5,5;M 0,10,7;M 0,10,5;M 0,10,3;M 0,-10,4;M 0,-10,6;M 0,-10,8;M 0,-5,6;M 0,-3,8:M 0,-2,10:Jump Loop"
  31. B$="Loop:M 0,-2,8;M 0,-3,7;M 0,-5,6;M 0,-5,5;M 0,-5,3;M 0,5,4;M 0,5,5;M 0,5,6;M 0,2,6;M 0,2,9:M 0,1,10:Jump Loop"
  32. Unpack 6 To 0 : Screen Hide 0
  33. Screen Open 1,354,Screen Height,Screen Colour,Lowres
  34. Screen Display 1,134,230,320,15 : Screen Offset 1,0,223
  35. Def Scroll 1,1,223 To 353,255,-4,0
  36. Curs Off 
  37. Cls 0
  38. Flash Off 
  39. Screen Copy 0,2,162,120,192 To 1,99,66
  40. Get Palette 0
  41. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  42. Gosub PIXD
  43. Wait Vbl 
  44. For R=16 To 31
  45.    Colour R,Colour(R-16)
  46. Next R
  47. Hide On 
  48. Curs Off 
  49. Get Bob 0,9,288,128 To 319,159
  50. Amal On 
  51. Screen 1
  52. Screen Clone 2
  53. Screen Display 2,140,305,,17
  54. Screen Offset 2,,238
  55. Channel 1 To Screen Display 1 : Channel 2 To Screen Display 2
  56. Amal 1,A$ : Amal 2,B$ : Amal On 
  57. ROO:
  58. Gosub STEXT : 
  59. Wait Vbl 
  60. Goto ROO
  61. PIXD:
  62. Restore SD
  63. For F=1 To 51
  64.    Read X$(F),X(F),Y(F)
  65. Next F
  66. Return 
  67. SD:
  68. Data "0",0,0
  69. Data "1",32,0
  70. Data "2",64,0
  71. Data "3",96,0
  72. Data "4",128,0
  73. Data "5",160,0
  74. Data "6",192,0
  75. Data "7",224,0
  76. Data "8",256,0
  77. Data "9",288,0
  78. Data "A",0,32
  79. Data "B",32,32
  80. Data "C",64,32
  81. Data "D",96,32
  82. Data "E",128,32
  83. Data "F",160,32
  84. Data "G",192,32
  85. Data "H",224,32
  86. Data "I",256,32
  87. Data "J",288,32
  88. Data "K",0,64
  89. Data "L",32,64
  90. Data "M",64,64
  91. Data "N",96,64
  92. Data "O",128,64
  93. Data "P",160,64
  94. Data "Q",192,64
  95. Data "R",224,64
  96. Data "S",256,64
  97. Data "T",288,64
  98. Data "U",0,96
  99. Data "V",32,96
  100. Data "W",64,96
  101. Data "X",96,96
  102. Data "Y",128,96
  103. Data "Z",160,96
  104. Data "@",192,96
  105. Data ",",224,96
  106. Data "!",256,96
  107. Data ".",288,96
  108. Data ":",0,128
  109. Data "?",32,128
  110. Data "/",64,128
  111. Data "+",96,128
  112. Data "-",128,128
  113. Data "(",160,128
  114. Data ")",192,128
  115. Data "#",217,128
  116. Data "{",250,128
  117. Data "}",288,128
  118. Data " ",288,223
  119. Rem
  120. Rem ********* SCROLL TEXT ROUTINE ********** 
  121. STEXT:
  122. Scroll 1
  123. Add CNT,4
  124. If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  125. If Mouse Key=1 Then PAUL
  126. Return 
  127. NCHAR:
  128. E$=Mid$(SC$,SCNT,1)
  129. E=Instr(SCRL$,E$)
  130. Screen Copy 0,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
  131. Return 
  132. Procedure PAUL
  133.    For V=63 To 0 Step -1
  134.       Volume V : Wait 2
  135.    Next V
  136.    Music Off 
  137.    Amal Off : Screen 1 : Fade 5 : Screen Close 2 : Wait 75 : Screen 5 : Fade 5 : Wait 75 : Screen Close 1 : Screen Close 5 : Screen Close 0
  138.    Erase 1 : Erase 3
  139.    Run "Robots:Demo1.Amos"
  140. End Proc