home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd455 / read_me / read_me.amosSourceCode < prev    next >
AMOS Source Code  |  1992-11-28  |  9KB  |  245 lines
  1. 'Dir$="UXB_Data:"
  2. Auto View Off 
  3. Screen Open 1,680,260,16,Hires : Paper 0 : Cls : Screen Hide 1
  4. Gosub FIRST
  5. Load Iff "Screens/Read_Me",0 : Screen Hide 0
  6. Load "Bobs/Read_Me.abk"
  7. Load "FX/Music.abk"
  8. Get Sprite Palette 
  9. Screen 0 : Fade 1
  10. Wait 15
  11. Screen Show 0
  12. Auto View On 
  13. Screen 0 : Fade 5 To Logic(0)
  14. Music 1
  15. Hide On 
  16. For A=1 To 81000
  17. Next A
  18. For A=63 To 1 Step -1
  19. Volume A
  20. For V=1 To 800 : Next V
  21. If A=20 Then Fade 5
  22. Next A
  23. Music Stop : Wait 20 : Volume 63
  24. Screen Copy 1 To 0
  25. Wind Open 1,180,180,26,5,1 : Border 1,7,2 : Paper 0 : Clw : Pen 2 : Print : Print "  Press Mouse Button"; : Curs Off 
  26. Screen 0 : Fade 5 To Logic(0)
  27. Repeat : Until Mouse Key
  28. Fade 5
  29. Wait 75
  30. Goto SECOND
  31. FIRST:
  32. Screen 1
  33. Gr Writing 0 : Pen 1
  34. Text 255,80,"SHORT-OUT"
  35. Text 255,82,"_________"
  36. Text 10,100,"Your task is to disconnect a timer from an explosive device, before the"
  37. Text 10,112,"timer reaches zero, causing the device to detonate. You have at your "
  38. Text 10,124,"disposal, a piece of modern technology that has everything that is needed"
  39. Text 10,136,"for a succesful operation:"
  40. Curs Off 
  41. Return 
  42. SECOND:
  43. Screen Close 0
  44. Load "Bobs/UXB.abk" : Get Sprite Palette 
  45. Auto View Off 
  46. Load Iff "Screens/Main",2 : Screen Hide 2
  47. Screen 2 : Ink 1 : Bar 100,104 To 110,114 : Bar 135,104 To 145,114 : Bar 170,104 To 180,114 : Wait Vbl 
  48. Screen Open 1,680,140,16,Hires : Get Palette 2 : Paper 0 : Cls : Screen Hide 1
  49. Auto View On 
  50. Screen To Front 2 : Screen To Front 1
  51. Screen 2 : Fade 1 : Wait 15 : Screen 1 : Fade 1 : Wait 15
  52. Screen Display 1,138,40,680,140
  53. Screen 1 : Paper 2 : Cls : Wait Vbl : Gr Writing 0 : Ink 6
  54. Text 10,10,"The way to disconnect the timer, is to make wire connections from your"
  55. Text 10,20,"machine to the device. This is done by pointing the mouse to the desired"
  56. Text 10,30,"connector (from the row of orange circles below) and clicking on it."
  57. Text 10,40,"You must then point to the connector on the device you wish to connect"
  58. Text 10,50,"to, and click.  Press mouse now for a demonstration."
  59. Text 10,75,"   This is your machine:-"
  60. Curs Off 
  61. Screen Show 2 : Screen Show 1
  62. Screen 1 : Fade 5 To Logic(1) : Wait 75 : Screen 2 : Fade 5 To Logic(1)
  63. Wait 75
  64. Repeat : Until Mouse Key
  65. Screen To Back 1
  66. X=430 : Y=69
  67. X Mouse=430 : Y Mouse=69
  68. Show On 
  69. Bob 1,280,142,1
  70. Channel 1 To Bob 1
  71. Amal 1,"A0,(1,5)(2,5);"
  72. Amal On 1
  73. DX=Sgn(X-186) : DY=Sgn(Y-191)
  74. Repeat 
  75. X Mouse=X Mouse-DX : Y Mouse=Y Mouse-DY
  76. If X Mouse=186 Then DX=0
  77. If Y Mouse=191 Then DY=0
  78. For A=1 To 200 : Next A
  79. Until(X Mouse=186) and(Y Mouse=191)
  80. X Mouse=186 : Y Mouse=191
  81. Play 1,50,10
  82. Wait 5
  83. Bob 1,300,105,1
  84. For A=1 To 44
  85. X Mouse=X Mouse+1
  86. Y Mouse=Y Mouse-1
  87. For B=1 To 500 : Next B
  88. Next A
  89. X Mouse=232 : Y Mouse=150
  90. Play 1,50,1
  91. Ink 8 : Bar 77,212 To 96,227 : Bar 107,212 To 126,227
  92. Bob 1,280,160,1
  93. Wind Save 
  94. Wind Open 1,0,0,26,5,1 : Paper 0 : Clw 
  95. Print : Print "  Press Mouse Button"; : Curs Off 
  96. Repeat : Until Mouse Key
  97. Wind Close 
  98. Screen 1 : Cls 2 : Screen To Front 1
  99. Hide On 
  100. Text 10,10,"Did you notice two things ? Firstly, the prompt arrow on the right"
  101. Text 10,20,"side of the screen, showing where your selection must be made from,"
  102. Text 10,30,"and secondly, that light A and B on the bottom row lit up ?"
  103. Text 10,42,"This shows the effect that this connection will have. You may then"
  104. Text 10,52,"choose to make this connection or cancel it, by selecting the relevant"
  105. Text 10,62,"box. If you connect it, the connection may not be undone at a later stage."
  106. Text 10,75,"Press mouse for a demonstration"
  107. Repeat : Until Mouse Key
  108. Screen To Back 1 : Screen 1 : Cls 2
  109. Screen 2
  110. Show On 
  111. Bob 1,300,105,1
  112. For A=1 To 1000 : Next A
  113. Bob 1,280,160,1
  114. X Mouse=232 : Y Mouse=150
  115. For Y=153 To 210
  116. Y Mouse=Y
  117. For A=1 To 300 : Next A
  118. Next Y
  119. X Mouse=232
  120. Play 1,70,10
  121. Ink 8 : Draw 59,150 To 104,110
  122. Draw 60,150 To 105,110 : Draw 58,150 To 103,110
  123. Bob 1,280,142,1
  124. Wind Open 1,0,0,26,5,1 : Paper 0 : Clw 
  125. Print : Print "  Press Mouse Button"; : Curs Off 
  126. Repeat : Until Mouse Key
  127. Wind Close 
  128. Screen 1 : Cls 2 : Screen To Front 1
  129. Text 10,10,"The objective is to make all the necessary connections to light"
  130. Text 10,20,"all lights, A to E and hit the power switch before the timer "
  131. Text 10,30,"reaches zero. Sounds easy ? well not quite, making different"
  132. Text 10,40,"connections will have different combinations of effects."
  133. Text 10,50,"There are 3 effects:"
  134. Text 10,62,"                      1) Turns a light ON."
  135. Text 10,72,"                      2) Turns it OFF"
  136. Text 10,82,"                      3) Makes it do the opposite of what it is doing"
  137. Text 10,92,"                         (ie) if it is ON, turns it OFF and vice versa"
  138. Text 10,104,"                 Press Mouse Button"
  139. Hide On 
  140. Repeat : Until Mouse Key
  141. Screen 1 : Fade 5 : Wait 75
  142. Cls 2
  143. Text 10,10,"The other gadgets are Power, Disconnect all and Help."
  144. Text 10,20,"Power is the button to be pressed when all lights are on, this"
  145. Text 10,30,"effectively disarms the bomb, and you have won."
  146. Text 10,42,"Disconnect all is in case you get into a total mess (and you will !)"
  147. Text 10,52,"but don't use it unnecessarily, don't forget that time limit."
  148. Text 10,64,"Help will tell you what the different combinations of connections"
  149. Text 10,74,"will do (more to follow)...."
  150. Text 10,86,"Press Mouse Button"
  151. Fade 5 To Logic(1)
  152. Show On : Bob 1,280,185,1
  153. Repeat : X Mouse=274 : Y Mouse=233
  154. Until Mouse Key
  155. Fade 5 : Wait 75
  156. Cls 2
  157. Text 10,10,"Selecting HELP will open a help box similar to the box below :"
  158. Text 10,20,"+ means turn a light on, - is for off and ^ for swap."
  159. Text 10,32,"So for this level, connecting 1 on your machine to 3 on the device,"
  160. Text 10,42,"Would cause light A to light up, Connecting 2 on your machine to 1"
  161. Text 10,52,"on the device would cause B to light up and C to extinguish."
  162. Text 10,62,"Connecting 3 to 2 would cause A to extinguish and D to do the opposite"
  163. Text 10,72,"of whatever it is doing at the time the connection is made."
  164. Text 10,90,"Press Mouse Button"
  165. Hide On 
  166. Fade 5 To Logic(1)
  167. Screen 2 : Wind Open 1,90,160,16,10,1 : Paper 0 : Clw : Pen 3
  168. Print : Print " 1/3 .. A+"
  169. Print " 2/1 .. B+,C-"
  170. Print " 3/2 .. A-,D^" : Curs Off 
  171. Bob 1,280,212,1
  172. Repeat : Until Mouse Key
  173. Bob Off 
  174. Wind Close 
  175. Screen 1 : Fade 5 : Wait 75
  176. Cls 2
  177. Text 10,10,"A word of warning, don't use the HELP option in the early stages unless"
  178. Text 10,20,"you really need it, because it will only help out twice, and you are"
  179. Text 10,30,"more likely to need it in the higher levels. The correct way to find out"
  180. Text 10,40,"what the effects are is to experiment with different connections, and"
  181. Text 10,50,"then cancel them."
  182. Text 10,62,"     There are ten levels of play, each getting slightly more difficult."
  183. Text 10,72,"After succesful completion of each level, you will be given an Access "
  184. Text 10,82,"code to enter at that level, and also a clue for the 'End Game'"
  185. Text 10,94,"Press Mouse Button"
  186. Fade 5 To Logic(1)
  187. Repeat : Until Mouse Key
  188. Fade 5 : Wait 75
  189. Screen 2 : Fade 5 : Wait 75 : Screen Close 2
  190. Cls 2
  191. Auto View Off 
  192. Screen Open 1,680,256,16,Hires : Paper 0 : Cls 
  193. Auto View On 
  194. Screen Display 1,140,40,,
  195. Screen Hide 1
  196. Screen 1
  197. Ink 10 : Paper 0 : Gr Writing 0
  198. Text 230,10,"End Game"
  199. Text 230,11,"________"
  200. Text 10,30,"This is the ultimate circuit, it consists of a counter, a timer and 11"
  201. Text 10,40,"assorted coloured wires- Red, Blue, Green or Yellow."
  202. Text 10,52,"The counter is set to a value of 60, and the timer to 40 seconds. You must"
  203. Text 10,62,"cut the wires in the correct order to reduce the counter to EXACTLY zero,"
  204. Text 10,72,"before the time on the timer runs out."
  205. Text 10,85,"The counter must read not more and not less than zero when all the wires"
  206. Text 10,95,"are cut, and there must be NO wires remaining intact when the conuter"
  207. Text 10,105,"reaches zero."
  208. Text 10,117,"The wires are cut simply by guiding the pair of wirecutters over the "
  209. Text 10,127,"selected wire with the mouse, and pressing the mouse button."
  210. Text 10,139,"You have as long as you like to study the device, but once you hit"
  211. Text 10,149,"the START gadget, the 40 seconds start to count down."
  212. Text 10,161,"But how do you know how to calculate the cutting sequence ? This is where"
  213. Text 10,171,"the clues given to you during the main game come in handy."
  214. Text 10,181,"You may be told for example that a Red wire followed by a Blue results"
  215. Text 10,191,"in a 2 unit countdown, and a Blue before a Green, a 1 Unit countdown."
  216. Text 10,203,"It follows then, that if you cut Red,Blue,Green, the counter will reach"
  217. Text 10,213,"57. (Because 60 - 2(Red/Blue) -1(Blue/Green)=57    and so on..."
  218. Curs Off 
  219. Fade 5 : Wait 75
  220. Screen Show 1
  221. Fade 5 To Logic(1)
  222. Repeat : Until Mouse Key
  223. Fade 5
  224. Cls 0
  225. Text 10,10,"Well, that's about it. I hope you enjoy playing the game, and you don't"
  226. Text 10,22,"lose too much sleep. Remember, patience is a virtue."
  227. Text 10,34,"If you do enjoy the game, then keep a look out for the follow up,"
  228. Text 10,46,"I'm working on it at this minute. Good luck."
  229. Text 10,106,"Press Mouse Button to begin"
  230. Fade 5 To Logic(1)
  231. DE=1
  232. Music 1
  233. Repeat 
  234. DE=DE+1
  235. Until(Mouse Key) or(DE=9200)
  236. If Mouse Key Then MK=1
  237. For A=63 To 1 Step -1
  238. Volume A
  239. For V=1 To 800 : Next V
  240. Next A
  241. Music Off : Wait 20 : Volume 63
  242. Repeat 
  243. Until(Mouse Key) or(MK=1)
  244. Fade 5 : Wait 75
  245. End