home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2207.dms / in.adf / Autoexec.AMOS / Autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-02-21  |  3.4 KB  |  151 lines
  1. '******************************************
  2. '*                                        *
  3. '* The intro sequence for Escape          *
  4. '* Coded by T.S.Kong, musak by D.Harvey   *
  5. '* This is shareware!                     *
  6. '* If you like, pay!                      *
  7. '* 1992 Zen Software Corporation          *
  8. '*                                        *
  9. '******************************************
  10. Break Off 
  11. Screen Open 0,640,200,2,$8000
  12. Palette 0,$F0
  13. Curs Off : Flash Off : Hide : Cls 0
  14. Restore FIRST
  15. Read WARN$
  16. While WARN$<>''
  17.    Centre WARN$
  18.    Print 
  19.    Read WARN$
  20. Wend 
  21. While Mouse Click=0
  22. Wend 
  23. Cls 0 : Home 
  24. Read WARN$
  25. While WARN$<>''
  26.    Centre WARN$
  27.    Print 
  28.    Read WARN$
  29. Wend 
  30. While Mouse Click=0
  31. Wend 
  32. Cls 0 : Curs Off 
  33. '* Start the intro!!!
  34. Mvolume 0
  35. Music 1
  36. For X=0 To 63
  37.    Mvolume X : Wait 2
  38. Next X
  39. Unpack 7 To 0 : Flash Off : Curs Off 
  40. Double Buffer 
  41. While Mouse Click=0
  42.    For N=1 To 20
  43.       Bob 1,130,40,N
  44.       If Mouse Click=1 Then Exit 2
  45.       Wait 3
  46.    Next N
  47. Wend 
  48. Fade 15 : Wait 225
  49. For X=63 To 0 Step -1
  50.    Mvolume X : Wait 2
  51. Next X
  52. Music Off 
  53. '* The intro sequence
  54. Load 'sys:music/mod.feel the atmosphere',3
  55. Mvolume 0
  56. Music 1
  57. For X=0 To 63
  58.    Mvolume X : Wait 2
  59. Next X
  60. Screen Open 0,320,200,8,0
  61. Screen Display 0,112,40,320,200
  62. Curs Off : Flash Off : Cls 0
  63. Screen Open 1,320,800,8,0
  64. Curs Off : Flash Off : Cls 0
  65. Screen Display 1,112,40,320,200
  66. Screen Hide 1
  67. Screen Open 2,320,200,8,0
  68. Unpack 5 To 2
  69. Curs Off : Flash Off : Screen Hide 2
  70. Screen Copy 2,0,0,160,200 To 1,80,0
  71. Screen Copy 2,161,0,320,200 To 1,80,201
  72. Screen Copy 2,161,0,320,200 To 1,80,401
  73. Screen Copy 2,161,0,320,200 To 1,80,601
  74. Screen Close 2 : Screen 0 : Screen Show 1
  75. Screen Offset 0,1,0 : Screen Offset 1,1,0
  76. Double Buffer 
  77. Wait Vbl : Dual Playfield 0,1
  78. Palette $0,$FFF,$620,$730,$941,$A52,$B63,$D74,$0,$FFF,$29,$13A,$25B,$46D,$68E,$8AF
  79. '* Do the neccessary to scroll the second screen 
  80. Wait 50
  81. For N=1 To 200 Step 8
  82.    Screen Offset 1,0,N
  83.    Wait Vbl 
  84. Next N
  85. For N=201 To 600 Step 16
  86.    Screen Offset 1,0,N
  87.    Wait Vbl 
  88. Next N
  89. For X=1 To 10
  90.    For N=201 To 600 Step 64
  91.       Screen Offset 1,0,N
  92.       Wait Vbl 
  93.    Next N
  94. Next X
  95. For N=200 To 0 Step -1
  96.    Bob 1,0,N,21
  97.    Wait 2
  98. Next N
  99. Paper 0 : Ink 1
  100. Restore SECOND
  101. Read A$
  102. While A$<>'' and Mouse Click=0
  103.    Locate 0,15
  104.    Print '                                                    '
  105.    Locate 0,15
  106.    Centre A$
  107.    Wait Len(A$)*8
  108.    Read A$
  109. Wend 
  110. While Mouse Click=0
  111. Wend 
  112. Fade 25 : Wait 255
  113. For X=63 To 0 Step -1
  114.    Mvolume X : Wait 2
  115. Next X
  116. Music Off 
  117. Run 'sys:engine.amos'
  118. FIRST:
  119. Data '* IMPORTANT *'
  120. Data ' '
  121. Data 'This game is shareware, and may be freely copied'
  122. Data 'and distributed, so long as the disk contents'
  123. Data 'are not altered or tampered with.'
  124. Data 'Any attempt to remove work is infringement of'
  125. Data 'copyright.'
  126. Data ' '
  127. Data 'Dont forget; if you like this then send UK�5'
  128. Data 'to Zen Software Productions, and you will'
  129. Data 'receive our undying appreciation as well as a'
  130. Data 'hint sheet'
  131. Data ''
  132. Data '* Disclaimer *'
  133. Data ' '
  134. Data 'This game contains language and situations'
  135. Data 'which some players may find offensive.'
  136. Data ' '
  137. Data 'We apolagise in advance for any offense taken,'
  138. Data 'but we are not forcing you to play.'
  139. Data ' '
  140. Data 'You have been warned'
  141. Data ''
  142. SECOND:
  143. Data '1992 Zen Software Productions'
  144. Data 'Design (?)'
  145. Data 'T.S.Kong and D.Harvey'
  146. Data 'Programming and GFX'
  147. Data 'T.S.Kong'
  148. Data 'Music'
  149. Data 'D.Harvey'
  150. Data 'Written with AMOS (oo-ar!)'
  151. Data ''