home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2114b.dms / in.adf / Programs / OracleV108.AMOS / OracleV108.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-03-24  |  4.2 KB  |  131 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. Wait Key 
  68. Music Stop 
  69. Do 
  70. Cls 5,6,156 To 308,210
  71. Wait 100 : Sam Play 9 : Wait 100
  72. Pen 12 : Paper 5
  73. Locate 2,20 : Print "Nag !  KEEP AMIGA P.D. ALIVE.  Nag !"
  74. Locate 2,21 : Print "Remember This Program Is ShareWare !"
  75. Locate 2,22 : Print "Register As A M.O.R.C. User Now "
  76. Locate 2,23 : Print "and get Free! (Nag Free) Upgrades"
  77. Locate 2,24 : Print "   Send ï¿½4.00 To DELOS Today "
  78. Locate 2,25 : Print " Support Amiga P.D.Programmers...."
  79.  Wait 80 : Sam Play 7
  80. Wait 400
  81. Cls ,6,156 To 308,210
  82. Flash Off 
  83. Pen 3 : Paper 0 : Sam Play 5 : Wait 100
  84. Locate 2,20 : Print "Move Mouse Around As you Seek The"
  85. Locate 5,21 : Print "The Answer To Your Question"
  86. Locate 3,23 : Print "YOU HAVE 10 SECONDS STARTING NOW !" : Sam Play 12
  87. Wait 150 : Cls ,6,156 To 308,210
  88. Locate 9,22 : Wait 50 : Sam Play 1 : Print "10."
  89. Locate 12,22 : Wait 50 : Sam Play 1 : Print "9."
  90. Locate 14,22 : Wait 50 : Sam Play 1 : Print "8."
  91. Locate 16,22 : Wait 50 : Sam Play 1 : Print "7."
  92. Locate 18,22 : Wait 50 : Sam Play 1 : Print "6."
  93. Locate 20,22 : Wait 50 : Sam Play 1 : Print "5."
  94. Locate 22,22 : Wait 50 : Sam Play 1 : Print "4."
  95. Locate 24,22 : Wait 50 : Sam Play 1 : Print "3."
  96. Locate 26,22 : Wait 50 : Sam Play 1 : Print "2."
  97. Locate 28,22 : Wait 50 : Sam Play 1 : Print "1."
  98. Locate 20,24 : Wait 50 : Print "      ....STOP...." : Sam Play 3
  99. Wait 100 : Sam Play 15
  100. Cls 6,194,219 To 314,234
  101. Flash Off 
  102.       M=Mouse Zone : Locate 27,28 : Wait 150 : Sam Play 3 : Print "Rune....";M
  103.       Wait 50
  104. Cls ,6,156 To 308,210
  105. Wait 50 : Locate 2,22 : Print "Take A Note Of Rune Selected below"
  106. Wait 50 : Locate 3,24 : Print "You Have 5 Seconds.Starting Now !"
  107. Wait 50
  108. Cls ,6,156 To 308,210
  109. Wait 50 : Locate 14,22 : Sam Play 1 : Print "5."
  110. Wait 50 : Locate 16,22 : Sam Play 1 : Print "4."
  111. Wait 50 : Locate 18,22 : Sam Play 1 : Print "3."
  112. Wait 50 : Locate 20,22 : Sam Play 1 : Print "2."
  113. Wait 50 : Locate 22,22 : Sam Play 1 : Print "1."
  114. Wait 50 : Locate 24,22 : Sam Play 3 : Print "0."
  115. Wait 20
  116. Cls ,194,219 To 314,234
  117. Cls ,6,156 To 308,210
  118. Locate 12,20 : Print "Casting Again !"
  119. Locate 10,22 : Print "If You Want To Quit"
  120. Locate 1,24 : Print "PRESS & HOLD RIGHT MOUSE BUTTON NOW !"
  121. Wait 250
  122. If Mouse Key=2
  123. Sam Play 13 : Wait 100 : Sam Play 2
  124. Wait 150
  125. End 
  126. End If 
  127. Cls ,6,156 To 308,210
  128. Locate 10,23 : Print "Ok Here We Go Again !"
  129. Wait 50
  130.    Loop 
  131. End Proc