home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2114a.dms / in.adf / autoexec.amos / autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-07-27  |  4.2 KB  |  132 lines
  1. BLANXMEMRY
  2. GRAFIX
  3. CASTINGMAT
  4. SELECTOR
  5. Procedure BLANXMEMRY
  6. Erase 1 : Erase 2 : Erase 3 : Erase 4 : Erase 5 : Erase 6 : Erase 7 : Erase 8 : Erase 9 : Erase 10 : Erase 11 : Erase 12 : Erase 13 : Erase 14 : Erase 15
  7. Close Editor 
  8. End Proc
  9. Procedure GRAFIX
  10. Load "OracleGraphics:sounds/tricycle_samples.abk"
  11. Sam Play 4
  12.    Screen Open 0,320,240,64,Lowres : Wait 150
  13.    Load Iff "OracleGraphics:oracle.iff/odin2.iff"
  14. End Proc
  15. Procedure CASTINGMAT
  16.    Reserve Zone 42
  17.    Set Zone 1,8,12 To 40,32
  18.    Set Zone 2,43,12 To 76,32
  19.    Set Zone 3,78,12 To 110,32
  20.    Set Zone 4,113,12 To 145,32
  21.    Set Zone 5,148,12 To 180,32
  22.    Set Zone 6,183,12 To 215,32
  23.    Set Zone 7,218,12 To 251,32
  24.    Set Zone 8,253,12 To 285,32
  25.    Set Zone 9,8,35 To 40,55
  26.    Set Zone 10,43,35 To 76,55
  27.    Set Zone 11,78,35 To 110,55
  28.    Set Zone 12,113,35 To 145,55
  29.    Set Zone 13,148,35 To 180,55
  30.    Set Zone 14,183,35 To 215,55
  31.    Set Zone 15,218,35 To 251,55
  32.    Set Zone 16,253,35 To 285,55
  33.    Set Zone 17,8,58 To 40,79
  34.    Set Zone 18,43,58 To 76,79
  35.    Set Zone 19,78,58 To 110,79
  36.    Set Zone 20,113,58 To 145,79
  37.    Set Zone 21,148,58 To 180,79
  38.    Set Zone 22,183,58 To 215,79
  39.    Set Zone 23,218,58 To 251,79
  40.    Set Zone 24,253,58 To 285,79
  41.    Set Zone 25,8,81 To 40,101
  42.    Set Zone 26,43,81 To 76,101
  43.    Set Zone 27,76,81 To 110,101
  44.    Set Zone 28,113,81 To 145,101
  45.    Set Zone 29,148,81 To 180,101
  46.    Set Zone 30,183,81 To 215,101
  47.    Set Zone 31,218,81 To 251,101
  48.    Set Zone 32,253,81 To 285,101
  49.    Set Zone 33,8,104 To 40,124
  50.    Set Zone 34,43,104 To 76,124
  51.    Set Zone 35,78,104 To 110,124
  52.    Set Zone 36,113,104 To 145,124
  53.    Set Zone 37,148,104 To 180,124
  54.    Set Zone 38,183,104 To 215,124
  55.    Set Zone 39,218,104 To 251,124
  56.    Set Zone 40,253,104 To 285,124
  57.    Locate 25,28 : Sam Play 16 : Print "Appears Here !"
  58.    Close Editor 
  59.    Limit Mouse 136,65 To 413,170
  60.    Hide On 
  61. End Proc
  62. Procedure SELECTOR
  63. Wait 150
  64. Cls ,6,156 To 308,210
  65. Sam Play 8 : Wait 60 : Sam Play 14 : Wait 100
  66. Locate 5,22 : Print "....Press Any Key To Start...."
  67. Sam Play 14
  68. Wait Key 
  69. Music Stop 
  70. Do 
  71. Cls 5,6,156 To 308,210
  72. Wait 100 : Sam Play 9 : Wait 100
  73. Pen 12 : Paper 5
  74. Locate 2,20 : Print "Nag !  KEEP AMIGA P.D. ALIVE.  Nag !"
  75. Locate 2,21 : Print "Remember This Program Is ShareWare !"
  76. Locate 2,22 : Print "Register As A M.O.R.C. User Now "
  77. Locate 2,23 : Print "and get Free! (Nag Free) Upgrades"
  78. Locate 2,24 : Print "   Send ï¿½4.00 To DELOS Today "
  79. Locate 2,25 : Print " Support Amiga P.D.Programmers...."
  80.  Wait 80 : Sam Play 7
  81. Wait 400
  82. Cls ,6,156 To 308,210
  83. Flash Off 
  84. Pen 3 : Paper 0 : Sam Play 5 : Wait 100
  85. Locate 2,20 : Print "Move Mouse Around As you Seek The"
  86. Locate 5,21 : Print "The Answer To Your Question"
  87. Locate 3,23 : Print "YOU HAVE 10 SECONDS STARTING NOW !" : Sam Play 12
  88. Wait 150 : Cls ,6,156 To 308,210
  89. Locate 9,22 : Wait 50 : Sam Play 1 : Print "10."
  90. Locate 12,22 : Wait 50 : Sam Play 1 : Print "9."
  91. Locate 14,22 : Wait 50 : Sam Play 1 : Print "8."
  92. Locate 16,22 : Wait 50 : Sam Play 1 : Print "7."
  93. Locate 18,22 : Wait 50 : Sam Play 1 : Print "6."
  94. Locate 20,22 : Wait 50 : Sam Play 1 : Print "5."
  95. Locate 22,22 : Wait 50 : Sam Play 1 : Print "4."
  96. Locate 24,22 : Wait 50 : Sam Play 1 : Print "3."
  97. Locate 26,22 : Wait 50 : Sam Play 1 : Print "2."
  98. Locate 28,22 : Wait 50 : Sam Play 1 : Print "1."
  99. Locate 20,24 : Wait 50 : Sam Play 1 : Print "      ....STOP...."
  100. Wait 100 : Sam Play 15
  101. Cls 6,194,219 To 314,234
  102. Flash Off 
  103.       M=Mouse Zone : Locate 27,28 : Wait 160 : Sam Play 3 : Print "Rune....";M
  104.       Wait 50
  105. Cls ,6,156 To 308,210
  106. Wait 50 : Locate 2,22 : Print "Take A Note Of Rune Selected below"
  107. Wait 50 : Locate 3,24 : Print "You Have 5 Seconds.Starting Now !"
  108. Wait 50
  109. Cls ,6,156 To 308,210
  110. Wait 50 : Locate 14,22 : Sam Play 1 : Print "5."
  111. Wait 50 : Locate 16,22 : Sam Play 1 : Print "4."
  112. Wait 50 : Locate 18,22 : Sam Play 1 : Print "3."
  113. Wait 50 : Locate 20,22 : Sam Play 1 : Print "2."
  114. Wait 50 : Locate 22,22 : Sam Play 1 : Print "1."
  115. Wait 50 : Locate 24,22 : Sam Play 1 : Print "0."
  116. Wait 20
  117. Cls ,194,219 To 314,234
  118. Cls ,6,156 To 308,210 : Flash 3,"(fff,20)(f0f,20)"
  119. Locate 12,20 : Print "Casting Again !"
  120. Locate 10,22 : Print "If You Want To Quit"
  121. Locate 1,24 : Print "PRESS & HOLD RIGHT MOUSE BUTTON NOW !"
  122. Wait 250
  123. If Mouse Key=2
  124. Sam Play 13 : Wait 100 : Sam Play 2
  125. Wait 150
  126. End 
  127. End If 
  128. Cls ,6,156 To 308,210
  129. Locate 10,23 : Print "Ok Here We Go Again !"
  130. Wait 50
  131.    Loop 
  132. End Proc