 # alakajam 1

Jul 8th, 2018
200
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. x = 2: y = 0
2. DO
3. CLS
4. COLOR 15
5. PRINT "DAY OFF WORK : The Adventure"
6. PRINT "----------------------------"
7. IF x = 2 AND y = 0 THEN
8. COLOR 8: PRINT "Written by sorceress, for Alakajam #01, September 2017."
9. COLOR 15: PRINT
10. END IF
11. SELECT CASE x + y * 3
12. CASE 0: PRINT "You are in the hills."
13. IF water > 0 THEN
14. PRINT "You are quite thirsty climbing these hills and stop for a drink.": water = water - 1
15. IF drunk = 1 THEN PRINT "The fresh air and water clear your head.": drunk = 0
16. END IF
17. CASE 1: PRINT "You are in a small village. There is a shop here."
18. INPUT "Would you like to purchase a weapon? [Y/N]"; a\$
19. IF a\$ = "Y" OR a\$ = "y" THEN
20. IF gold > 0 THEN
21. PRINT "You bought a weapon for 1 gold."
22. gold = gold - 1
23. weapon = weapon + 1
24. ELSE
25. PRINT "You have no gold."
26. END IF
27. ELSE
28. PRINT "Ok, whatever."
29. END IF
30. CASE 2: PRINT "You are in your home in a small village."
31. PRINT "Since it's your day off work, you are thinking about that quest..."
32. PRINT "The village is plagued by a firey dragon."
33. INPUT "Would you like to go on a quest? [Y/N]"; a\$
34. PRINT "Ok then!"
35. CASE 3: PRINT "You are in a meadow near to a forest."
36. PRINT "You see a philosopher's stone here, reputed for it's alchemical power!"
37. IF lead = 0 AND water = 0 THEN PRINT "Though it doesn't seem to do anything."
39. IF water = 1 AND wine = 0 THEN PRINT "Your WATER turns to WINE in your flask!": water = 0: wine = 1
40. CASE 4: PRINT "You are in a forest. Beware of bears!"
41. IF wine > 0 THEN
42. PRINT "To suppress your fear of bears, you decide to imbibe your wine."
43. PRINT "Nothing like being drunk in the middle of a forest!"
44. wine = wine - 1: drunk = 1
45. END IF
46. CASE 5: PRINT "You arrive at a lake. The water is quite still."
47. IF water = 0 AND wine = 0 THEN PRINT "You fill up your water flask while you are here.": water = 1
48. CASE 6: PRINT "You approach the slopes of a dormant volcano."
49. PRINT " 'This must be where the dragon lives', you think."
50. IF drunk = 0 THEN
51. PRINT "Realising this makes you feel very scared."
52. PRINT "Like the coward you are, you make your way back down the slopes."
53. ELSE
54. PRINT "A DRAGON swoops down to attack!"
55. IF weapon = 1 THEN
56. PRINT "You draw your WEAPON and stick it up."
57. PRINT "The DRAGON stops his firey attack to admire it, then says..."
58. PRINT " 'Wow! Can I have that?'"
59. INPUT "Do you want to give your weapon to the DRAGON? [Y/N]"; a\$
60. IF a\$ = "Y" OR a\$ = "y" THEN
61. weapon = 0
62. PRINT "You give away your only weapon."
63. ELSE
64. PRINT "The DRAGON lunges, and you lunge back. It goes on..."
65. PRINT "Long story short : you win the battle!"
66. gameover = 1
67. END IF
68. END IF
69. IF weapon > 1 THEN
70. PRINT "You draw one of your WEAPONS and stick it up."
71. PRINT "The DRAGON is scared and flies back up the volcano."
72. PRINT "You must be too intimidating with all these weapons you came with."
73. PRINT " 'What to do now?', you ask yourself."
74. END IF
75. IF weapon = 0 THEN
76. PRINT "Since you do not have a weapon, the DRAGON is without fear."
77. PRINT "Before you can scream you are eaten."
78. PRINT "The last thing you hear before death are your bones crunching."
79. gameover = 2
80. END IF
81. END IF
82. CASE 7: PRINT "You are in a swamp. Not the nicest of places to visit on your day off."
83. IF weapon = 1 THEN PRINT "Oh dear, you lost your only weapon in the mud."
84. IF weapon > 1 THEN PRINT "Oh dear, you lost one of your weapons in the mud."
85. IF weapon > 0 THEN weapon = weapon - 1
86. CASE 8: PRINT "You are in a cave. You found some LEAD here.": lead = lead + 1
87. END SELECT
88. PRINT "------------------------------------"
89.
90. IF gameover = 1 THEN
91. COLOR 10
92. PRINT
93. PRINT "YOU HAVE WON!"
94. PRINT "... Or was it all just a drunken dream?"
95. PRINT
96. PRINT "Find out in our next adventure!"
97. SLEEP
98. END
99. END IF
100. IF gameover = 2 THEN
101. COLOR 12
102. PRINT
103. PRINT "YOU HAVE DIED!"
104. PRINT
105. PRINT "THAT MEANS GAME OVER"
106. SLEEP
107. END
108. END IF
109.
110. COLOR 11
111. PRINT
112. PRINT "You are carrying:"
114. IF gold > 0 THEN PRINT gold; "x GOLD"
115. IF weapon > 0 THEN PRINT weapon; "x WEAPON"
116. IF water > 0 THEN PRINT water; "x WATER"
117. IF wine > 0 THEN PRINT wine; "x WINE"
118.
119. IF drunk = 1 THEN
120. COLOR 12
121. PRINT
122. PRINT "You are currently intoxicated."
123. END IF
124.
125. COLOR 14
126. PRINT
127. a\$ = ""
128. IF y > 0 THEN a\$ = a\$ + " NORTH,"
129. IF y < 2 THEN a\$ = a\$ + " SOUTH,"
130. IF x < 2 THEN a\$ = a\$ + " EAST,"
131. IF x > 0 THEN a\$ = a\$ + " WEST,"
132. PRINT "Exits are: " + a\$
133. INPUT "[N/S/E/W]"; a\$
134.
135. COLOR 12
136. IF a\$ = "N" OR a\$ = "n" THEN
137. IF y > 0 THEN y = y - 1 ELSE PRINT "You try, but you can't find a path to the north."
138. END IF
139. IF a\$ = "S" OR a\$ = "s" THEN
140. IF y < 2 THEN y = y + 1 ELSE PRINT "You try, but you can't find a path to the south."
141. END IF
142. IF a\$ = "E" OR a\$ = "e" THEN
143. IF x < 2 THEN x = x + 1 ELSE PRINT "You try, but you can't find a path to the east."
144. END IF
145. IF a\$ = "W" OR a\$ = "w" THEN
146. IF x > 0 THEN x = x - 1 ELSE PRINT "You try, but you can't find a path to the west."
147. END IF
148.
149. LOOP
RAW Paste Data