Sorceress

adventure 2

Jul 9th, 2018
216
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Start:
  2. x = 3: y = 3: HP = 10: FF = 1
  3. mob = -1
  4. DO
  5.  
  6. CLS
  7. COLOR 15
  8. PRINT "The Chaos Mystery"
  9. PRINT "-----------------"
  10. r = x + y * 4
  11. IF FF = 0 AND mob >= 0 THEN mob = r
  12. IF r = 0 AND mob = -1 THEN mob = 0
  13. SELECT CASE r
  14. CASE 0: Ex = 1
  15. PRINT "You are in the creature cage."
  16. PRINT "The cage is solidly constructed with thick concrete walls."
  17.  
  18. CASE 1: Ex = 7
  19. PRINT "You are in the observation room."
  20. PRINT "To the west is the creature cage, which is protected by a forcefield."
  21. PRINT "The forcefield is currently ";
  22. IF FF = 0 THEN PRINT "OFF." ELSE PRINT "ON."
  23. PRINT "To the east is a high wall, up to the control room."
  24. PRINT "You will need something to climb up here."
  25.  
  26. CASE 2: Ex = 4
  27. PRINT "You climb up into the control room."
  28. PRINT "Inside here are many computer panels."
  29. PRINT "A giant switch marked 'FORCEFIELD' captures your attention."
  30. PRINT "The switch is currently marked ";
  31. IF FF = 0 THEN PRINT "OFF." ELSE PRINT "ON."
  32. INPUT "Would you like to switch the switch? [y/n]", m$
  33. IF LCASE$(m$) = "y" THEN FF = 1 - FF
  34.  
  35. CASE 3: Ex = 2
  36. PRINT "You are in the vault."
  37. PRINT "The vault is full of gold. You declare this gold to be your reward."
  38. PRINT "\o/"
  39. gameover = 1
  40.  
  41. CASE 4: Ex = 3
  42. PRINT "You enter the test chamber in the science lab."
  43. PRINT "The chamber is filled with a toxic acid gas."
  44. IF mask = 0 THEN
  45. PRINT "You feel the gas burning your eyes. You cannot bare them open."
  46. PRINT "An intense burning sensation in your lungs and head overwhelms you."
  47. PRINT "You feel yourself passing out before you can even turn around."
  48. gameover = 2
  49. ELSE
  50. PRINT "You can feel the gas penetrating your clothing and stinging your body parts."
  51. PRINT "Fortunately, it doesn't seem to cause you are lasting harm."
  52. IF mob = r THEN
  53. PRINT "The CHAOS BEAST chokes on the toxic gas."
  54. PRINT "It's flesh covers in blisters, which then rupture."
  55. PRINT "Writhing in pain with it's limbs flailing and smoking."
  56. PRINT "It's body slowly dissolves into a pool of slime."
  57. PRINT "All that remains is it's CHAOS HEART. You take it!"
  58. chaos = 1
  59. mob = -2
  60. END IF
  61. END IF
  62.  
  63. CASE 5: Ex = 13
  64. PRINT "You are in the containment area."
  65. PRINT "The door to the north is marked 'creature observation area'"
  66. PRINT "This door is voice activated."
  67. PRINT "The door to the west is marked 'test chamber'. It has warning signs all over it."
  68.  
  69. CASE 6: Ex = 7
  70. PRINT "You are in the north corridor."
  71. PRINT "The door to the north has a hand scanner. You cannot go that way."
  72.  
  73. CASE 7: Ex = 12
  74. PRINT "You are in the manager's office. A big desk dominates the room."
  75. PRINT "A vault door is seen to the north of the room."
  76. IF keys = 0 THEN COLOR 11: PRINT "On the desk, you find a STORE ROOM KEY": COLOR 15: keys = 1
  77.  
  78. CASE 8: Ex = 9
  79. PRINT "You are in the chemistry wing of the science lab."
  80. PRINT "The benches here are piled with complicated looking glassware."
  81. PRINT "Lots of bottle line the walls."
  82. PRINT "The door to the north is marked 'test chamber'. It has warning signs all over it."
  83. IF acid = 0 THEN COLOR 11: PRINT "You found a ACID FLASK": COLOR 15: acid = 1
  84.  
  85. CASE 9: Ex = 5
  86. PRINT "You are in the biology wing of the science lab."
  87. PRINT "Most of the benches here have microscopes on them."
  88. IF balloon = 0 THEN
  89. PRINT "You find a BALLOON stuck against the ceiling. It reads HAPPY 40th."
  90. PRINT "It must have been the technician's birthday. You take it!"
  91. balloon = 1
  92. END IF
  93. IF chaos = 1 THEN
  94. PRINT "You find a microscope and look closely at the CHAOS HEART."
  95. PRINT "Inside the heart, you see yourself in the future."
  96. PRINT "You see yourself typing 472 somewhere, and feeling a sense of victory."
  97. END IF
  98. CASE 10: Ex = 14
  99. PRINT "You are in the central corridor."
  100. PRINT "The corridor runs north-south."
  101. PRINT "To the west is a door, marked 'science labs'."
  102.  
  103. CASE 11: Ex = 2
  104. PRINT "You are in a small store room."
  105. IF mask = 0 THEN COLOR 11: PRINT "You find a GAS MASK.": COLOR 15: mask = 1
  106.  
  107. CASE 12: Ex = 1
  108. PRINT "You are in the security office."
  109. IF card = 0 THEN COLOR 11: PRINT "You found a PASS CARD": COLOR 15: card = 1
  110.  
  111. CASE 13: Ex = 5
  112. PRINT "You are at the security desk."
  113. PRINT "To the west is the security office."
  114. PRINT "To the east is the main corridor."
  115.  
  116. CASE 14: Ex = 13
  117. PRINT "You are in the south corridor."
  118. PRINT "There is a tall closet here, secured with a padlock."
  119. IF acid = 1 AND steps = 0 THEN
  120. PRINT "You pour some of the ACID over the padlock."
  121. PRINT "It fizzes and smokes a bit, before breaking apart."
  122. PRINT "Inside the closet you find some STEP LADDERS"
  123. steps = 1
  124. END IF
  125.  
  126. CASE 15: Ex = 12
  127. PRINT "You are in the lobby of GreyCorp Industrial Complex."
  128. PRINT "To the north is a store room."
  129. PRINT "To the west is the main corridor."
  130. PRINT ""
  131.  
  132. END SELECT
  133.  
  134. IF r = mob THEN
  135. PRINT "In this room is also a CHAOS BEAST."
  136. PRINT "The CHAOS BEAST attacks you. You lose 1 HP."
  137. HP = HP - 1
  138. END IF
  139. IF HP <= 0 THEN gameover = 2
  140.  
  141. PRINT "------------------------------------"
  142. IF gameover = 1 THEN
  143. COLOR 10
  144. PRINT
  145. PRINT "YOU HAVE WON!"
  146. PRINT "... Or was it all just a toxic gas induced hallucination?"
  147. PRINT
  148. PRINT "Find out in our next adventure!"
  149. SLEEP
  150. END
  151. END IF
  152. IF gameover = 2 THEN
  153. COLOR 12
  154. PRINT
  155. PRINT "YOU HAVE DIED!"
  156. PRINT
  157. PRINT "THAT MEANS GAME OVER"
  158. SLEEP
  159. END
  160. END IF
  161.  
  162. COLOR 11
  163. PRINT
  164. PRINT "You are carrying:"
  165. IF keys > 0 THEN PRINT "STORE ROOM KEY"
  166. IF card > 0 THEN PRINT "PASS CARD"
  167. IF acid > 0 THEN PRINT "ACID FLASK"
  168. IF mask > 0 THEN PRINT "GAS MASK"
  169. IF balloon > 0 THEN PRINT "HELIUM BALLOON"
  170. IF chaos > 0 THEN PRINT "CHAOS HEART"
  171. IF steps > 0 THEN PRINT "STEP LADDERS"
  172.  
  173. COLOR 10
  174. PRINT
  175. PRINT "Health: "; HP; "/10"
  176.  
  177. COLOR 14
  178. PRINT
  179.  
  180. a$ = ""
  181. IF (Ex AND 8) > 0 THEN a$ = a$ + " [N]ORTH"
  182. IF (Ex AND 4) > 0 THEN a$ = a$ + " [W]EST"
  183. IF (Ex AND 2) > 0 THEN a$ = a$ + " [S]OUTH"
  184. IF (Ex AND 1) > 0 THEN a$ = a$ + " [E]AST"
  185. PRINT "Exits are: " + a$
  186. INPUT a$: a$ = LCASE$(a$): a$ = LEFT$(a$, 1)
  187.  
  188. COLOR 15
  189.  
  190. 'voice door
  191. IF a$ = "n" AND r = 5 THEN
  192. IF balloon = 1 THEN
  193. PRINT "You suck a little of the helium out of the ballon, and speak."
  194. PRINT "The voice activated door opens."
  195. INPUT q$
  196. ELSE
  197. PRINT "You speak to the door, but it refuses access."
  198. PRINT "If only you could find something to change the tone of your voice..."
  199. INPUT q$
  200. a$ = ""
  201. END IF
  202. END IF
  203. 'card
  204. IF a$ = "w" AND (r = 10 OR r = 6) THEN
  205. IF card = 1 THEN
  206. PRINT "You insert the pass card into the slot."
  207. PRINT "The mechanism buzzes while the door springs open."
  208. INPUT q$
  209. ELSE
  210. PRINT "It looks like you need a pass card to open this door."
  211. PRINT "You try to push it, but it refuses to open."
  212. INPUT q$
  213. a$ = ""
  214. END IF
  215. END IF
  216. 'store room
  217. IF a$ = "n" AND r = 15 THEN
  218. IF keys = 1 THEN
  219. PRINT "You insert your key into the lock and turn. It fits!"
  220. INPUT q$
  221. ELSE
  222. PRINT "The door appears to be locked."
  223. INPUT q$
  224. a$ = ""
  225. END IF
  226. END IF
  227. 'vault
  228. IF a$ = "n" AND r = 7 THEN
  229. PRINT "The door to the vault has a three digit combination lock."
  230. INPUT "Please enter combination", m$
  231. IF m$ = "472" THEN
  232. PRINT "Eureka! The code worked."
  233. INPUT q$
  234. ELSE
  235. PRINT "That didn't seem to work."
  236. INPUT q$
  237. a$ = ""
  238. END IF
  239. END IF
  240. 'steps
  241. IF a$ = "e" AND r = 1 THEN
  242. IF steps = 1 THEN
  243. PRINT "You prop the step ladders against the east wall."
  244. PRINT "They are just long enough to reach the control room platform."
  245. INPUT q$
  246. ELSE
  247. PRINT "The control room platform is too high to reach."
  248. a$ = ""
  249. INPUT q$
  250. END IF
  251. END IF
  252. IF a$ = "w" AND r = 1 AND FF = 1 THEN
  253. PRINT "The forcefield is ON. You cannot walk through it!"
  254. END IF
  255.  
  256. IF a$ = "n" AND (Ex AND 8) > 0 THEN y = y - 1
  257. IF a$ = "w" AND (Ex AND 4) > 0 THEN x = x - 1
  258. IF a$ = "s" AND (Ex AND 2) > 0 THEN y = y + 1
  259. IF a$ = "e" AND (Ex AND 1) > 0 THEN x = x + 1
  260.  
  261.  
  262. LOOP
RAW Paste Data