Attack of the Killer Dandelions

[pforpond]

Code: QB64: [Select]

1. REM attack of the killer dandelions
2. REM dp 2020
3.  
4. REM roomtypes
5. REM 0 - TUTORIAL ROOM
6. REM 1 - LOOT ROOM
7. REM 2 - ENEMY ROOM
8. REM 3 - LOOT AND ENEMY ROOM
9. REM 4 - STORE ROOM
10.  
11. setup:
12. REM sets up game
13. REM error handler
14. ON ERROR GOTO errorhandler
15. SCREEN _NEWIMAGE(255, 302, 32)
16. $RESIZE:ON
17. _RESIZE ON , _STRETCH
18. _TITLE "Attack of the Killer Dandelions"
19. '_MOUSEHIDE
20. REM launches developer console
21. $CONSOLE
22. _CONSOLE ON
23. REM launches timer
24. RANDOMIZE TIMER
25. LET itime = TIMER
26. LET ctime = 0
27. REM checks data folder exists
28. IF _DIREXISTS("dandedata\") THEN
29.     REM nothing :)
30. ELSE
31.     ERROR 666
32. END IF
33. REM loads and applies font
34. LET fontsize = 12
35. LET gamefont = _LOADFONT("dandedata\gamefont.ttf", fontsize)
36. _FONT gamefont
37. REM loads sfx
38. LET bombhit = _SNDOPEN("dandedata\bomb.ogg")
39. LET swordhit = _SNDOPEN("dandedata\sword.ogg")
40. LET magichit = _SNDOPEN("dandedata\magic.ogg")
41. LET gameover = _SNDOPEN("dandedata\gameover.ogg")
42. LET highscore = _SNDOPEN("dandedata\highscore.ogg")
43. LET pickup = _SNDOPEN("dandedata\pickup.ogg")
44. LET store = _SNDOPEN("dandedata\store.ogg")
45. LET opendoor = _SNDOPEN("dandedata\door.ogg")
46. REM loads sprites
47. LET dandelion1$ = "TA30 L40 R20 E10 G10 U10 D10 H10 F10 TA0"
48. LET dandelion2$ = "L40 R20 E10 G10 U10 D10 H10 F10 TA0"
49. LET dandelion3$ = "TA330 L40 R20 E10 G10 U10 D10 H10 F10 TA0"
50. LET door$ = "U50 R40 D50 U25 H3 G3 L3 R3 F3 E3 TA0"
51. LET decal1$ = "U5 R10 D5 L10 R10 D5 R10 U5 L10 TA0"
52. LET decal2$ = "U5 R10 D5 L10 U5 R20 D5 L10 TA0"
53. LET decal3$ = "U5 R10 D5 L10 U5 R20 D5 L10 U5 L5 U5 R10 D5 TA0"
54. LET decal4$ = "TA180 U5 R10 D5 L10 R10 D5 R10 U5 L10 TA0"
55. LET decal5$ = "TA180 U5 R10 D5 L10 U5 R20 D5 L10 U5 L5 U5 R10 D5 TA0"
56. LET decal6$ = "U5 R10 D5 L10 TA0"
57. LET decal7$ = "U5 R10 D5 L10 U5 R5 U5 R10 D5 L10 TA0"
58. LET decal8$ = "TA180 U5 R10 D5 L10 U5 R5 U5 R10 D5 L10 TA0"
59. LET decal9$ = "E6 F6 H3 G3 D3 U3 H3 E3 U302 TA0"
60. LET decal10$ = "U5 R10 D5 L10 U5 R5 U5 R10 D5 L20 U5 R5 L2 U5 R10 D5 L10 TA0"
61. LET decal11$ = "TA180 U5 R10 D5 L10 U5 R5 U5 R10 D5 L20 U5 R5 L2 U5 R10 D5 L10 TA0"
62. LET decal12$ = "U5 R10 D5 L10 U5 R5 U5 R10 D5 L20 U5 R5 U5 R10 D5 L10 TA0"
63. LET decal13$ = "U40 R40 D40 L40 U20 R40 U20 L20 D40 TA0"
64. LET decal14$ = "U5 R10 D5 L10 U5 R10 U5 R10 D5 L10 R10 D5 R10 U5 L10 TA0"
65. LET decal15$ = "TA180 U5 R10 D5 L10 U5 R10 U5 R10 D5 L10 R10 D5 R10 U5 L10 TA0"
66. LET chestclosed$ = "U20 E10 R10 F10 D20 L30 U20 R30 L15 F2 G2 H2 E2 E2 H2 G2 F2 TA0"
67. LET chestopen$ = "U20 U5 R30 D25 L30 U20 R30 L15 F2 G2 H2 E2 TA0"
68. LET stem$ = "U40 D40 H10 F10 E10 TA0"
69. LET shopbody1$ = "G20 D40 TA0"
70. LET shopbody2$ = "F20 D40 TA0"
71. LET titledisplay = _LOADIMAGE("dandedata\title.png")
72. REM displays loading visuals
73. DO
74.     LET temp = INT(RND * 302)
75.     LINE (0, temp)-(302, temp), &HFF5454FC
76.     _DELAY 0.05
77.     LET temp2 = temp2 + 1
78.     CLS
79. LOOP UNTIL temp2 >= 20
80. COLOR &HFF5454FC
81. _PRINTSTRING ((225 / 2), (302 / 2)), "ROM OK"
82. _DELAY 1
83. CLS
84. GOSUB titlescreen
85. GOTO playgame
86.  
87. errorhandler:
88. REM handles errors
89. COLOR &HFFFC5454
90. PRINT "ERROR: "; ERR
91. PRINT "LINE: "; _ERRORLINE
92. IF ERR = 666 THEN PRINT "DATA FOLDER NOT FOUND"
93. PRINT "ATTACK OF THE KILLER DANDELIONS WILL NOW CLOSE"
94. END
95.  
96. drawhud:
97. REM draws the game hud (score and health)
98. COLOR &HFF5454FC
99. _PRINTSTRING (1, 1), "HEALTH: " + STR$(health)
100. _PRINTSTRING (180, 1), "SCORE: " + STR$(score)
101. REM draws seperator lines
102. LINE (0, 13)-(302, 13), &HFF5454FC
103. LINE (0, 15)-(302, 15), &HFF5454FC
104. RETURN
105.  
106. titlescreen:
107. REM titlescreen
108. _PUTIMAGE (0, 0)-(255, 302), titledisplay
109. DO: LOOP UNTIL INKEY$ = " "
110. RETURN
111.  
112. inputter:
113. REM game input
114. IF a$ = "Q" THEN GOTO endgame
115. IF a$ = " " THEN
116.     GOSUB menuprocess
117.     IF monsterhealth > 0 THEN GOSUB monsterattacks
118. END IF
119. IF z = 18432 THEN LET menuloc = menuloc - 1: REM up
120. IF z = 20480 THEN LET menuloc = menuloc + 1: REM down
121. IF z = 19712 THEN
122.     REM right
123.     IF menuloc = 1 THEN LET menuloc = 4
124.     IF menuloc = 2 THEN LET menuloc = 5
125.     IF menuloc = 3 THEN LET menuloc = 6
126. END IF
127. IF z = 19200 THEN
128.     REM left
129.     IF menuloc = 4 THEN LET menuloc = 1
130.     IF menuloc = 5 THEN LET menuloc = 2
131.     IF menuloc = 6 THEN LET menuloc = 3
132. END IF
133. IF menuloc <= 0 THEN LET menuloc = 1
134. IF menuloc >= 7 THEN LET menuloc = 6
135. RETURN
136.  
137. monsterattacks:
138. REM when the monster deals damage to the player
139. LET monsterattack = (INT(RND * 5) + 1) * level
140. LET health = health - (monsterattack - armour)
141. LET armourxp = armourxp + INT(RND * 10) + 1
142. GOSUB drawhud
143. GOSUB drawroom
144. GOSUB drawmenu
145. COLOR &HFFFC5454
146. _PRINTSTRING (20, 210), "DANDELION DELT" + STR$(monsterattack - armour) + " DAMAGE!"
147. _DELAY 1
148. CLS
149. RETURN
150.  
151. drawmonster:
152. REM draws world monsters
153. IF monsterhealth > 0 THEN
154.     PSET (monsterx, 200), &HFF54FC54
155.     DRAW stem$
156.     IF monstertype = 1 THEN
157.         PSET (monsterx + 18, 150), &HFFFCFC54
158.         DRAW dandelion1$
159.     END IF
160.     IF monstertype = 2 THEN
161.         PSET (monsterx + 20, 160), &HFFFCFC54
162.         DRAW dandelion2$
163.     END IF
164.     IF monstertype = 3 THEN
165.         PSET (monsterx + 18, 170), &HFFFCFC54
166.         DRAW dandelion3$
167.     END IF
168. END IF
169. RETURN
170.  
171. drawdoors:
172. REM draws room doors
173. IF roomtype = 4 THEN RETURN
174. IF roomexit = 1 THEN
175.     REM draws one exit
176.     IF exitc1 = 1 THEN PSET ((255 / 2) - 20, 199), &HFFFCFCFC
177.     IF exitc1 = 2 THEN PSET ((255 / 2) - 20, 199), &HFFFC54FC
178.     IF exitc1 = 3 THEN PSET ((255 / 2) - 20, 199), &HFFFC5454
179.     IF exitc1 = 4 THEN PSET ((255 / 2) - 20, 199), &HFF5454FC
180.     IF exitc1 = 5 THEN PSET ((255 / 2) - 20, 199), &HFF54FCFC
181.     DRAW door$
182. END IF
183. IF roomexit = 2 THEN
184.     REM draws two exits
185.     IF exitc1 = 1 THEN PSET ((255 / 2) - 80, 199), &HFFFCFCFC
186.     IF exitc1 = 2 THEN PSET ((255 / 2) - 80, 199), &HFFFC54FC
187.     IF exitc1 = 3 THEN PSET ((255 / 2) - 80, 199), &HFFFC5454
188.     IF exitc1 = 4 THEN PSET ((255 / 2) - 80, 199), &HFF5454FC
189.     IF exitc1 = 5 THEN PSET ((255 / 2) - 80, 199), &HFF54FCFC
190.     DRAW door$
191.     IF exitc2 = 1 THEN PSET ((255 / 2) + 40, 199), &HFFFCFCFC
192.     IF exitc2 = 2 THEN PSET ((255 / 2) + 40, 199), &HFFFC54FC
193.     IF exitc2 = 3 THEN PSET ((255 / 2) + 40, 199), &HFFFC5454
194.     IF exitc2 = 4 THEN PSET ((255 / 2) + 40, 199), &HFF5454FC
195.     IF exitc2 = 5 THEN PSET ((255 / 2) + 40, 199), &HFF54FCFC
196.     DRAW door$
197. END IF
198. IF roomexit = 3 THEN
199.     REM draws three exits
200.     IF exitc1 = 1 THEN PSET ((255 / 2) - 100, 199), &HFFFCFCFC
201.     IF exitc1 = 2 THEN PSET ((255 / 2) - 100, 199), &HFFFC54FC
202.     IF exitc1 = 3 THEN PSET ((255 / 2) - 100, 199), &HFFFC5454
203.     IF exitc1 = 4 THEN PSET ((255 / 2) - 100, 199), &HFF5454FC
204.     IF exitc1 = 5 THEN PSET ((255 / 2) - 100, 199), &HFF54FCFC
205.     DRAW door$
206.     IF exitc2 = 1 THEN PSET ((255 / 2) - 20, 199), &HFFFCFCFC
207.     IF exitc2 = 2 THEN PSET ((255 / 2) - 20, 199), &HFFFC54FC
208.     IF exitc2 = 3 THEN PSET ((255 / 2) - 20, 199), &HFFFC5454
209.     IF exitc2 = 4 THEN PSET ((255 / 2) - 20, 199), &HFF5454FC
210.     IF exitc2 = 5 THEN PSET ((255 / 2) - 20, 199), &HFF54FCFC
211.     DRAW door$
212.     IF exitc3 = 1 THEN PSET ((255 / 2) + 60, 199), &HFFFCFCFC
213.     IF exitc3 = 2 THEN PSET ((255 / 2) + 60, 199), &HFFFC54FC
214.     IF exitc3 = 3 THEN PSET ((255 / 2) + 60, 199), &HFFFC5454
215.     IF exitc3 = 4 THEN PSET ((255 / 2) + 60, 199), &HFF5454FC
216.     IF exitc3 = 5 THEN PSET ((255 / 2) + 60, 199), &HFF54FCFC
217.     DRAW door$
218. END IF
219. RETURN
220.  
221. menuprocess:
222. REM processes menu choices
223. IF menuloc = 1 THEN GOSUB doormenu
224. IF menuloc = 2 THEN GOSUB attackmenu
225. IF menuloc = 3 THEN GOSUB lootmenu
226. IF menuloc = 4 THEN GOSUB pocketmenu
227. IF menuloc = 5 THEN GOSUB statsmenu
228. IF menuloc = 6 THEN GOTO endgame
229. RETURN
230.  
231. doormenu:
232. REM shows door menu
233. IF roomexit <= 0 THEN
234.     REM return for if no doors present
235.     COLOR &HFFFC5454
236.     _PRINTSTRING (20, 210), "NO DOORS PRESENT!"
237.     _DELAY 1
238.     CLS
239.     RETURN
240. END IF
241. IF monsterhealth > 0 THEN
242.     REM return for if monster present
243.     COLOR &HFFFC5454
244.     _PRINTSTRING (20, 210), "CANNOT LEAVE - ENEMY PRESENT!"
245.     _DELAY 1
246.     CLS
247.     RETURN
248. END IF
249. LET menuloc2 = 1
250. LINE (0, 201)-(256, 303), &HFF000000, BF
251. DO
252.     COLOR &HFFFC5454
253.     _PRINTSTRING (20, 210), "ENTER DOOR..."
254.     COLOR &HFFFCFCFC
255.     FOR x = 1 TO roomexit
256.         IF menuloc2 = 1 THEN
257.             COLOR &HFF54FC54
258.         ELSE
259.             IF exitc1 = 1 THEN COLOR &HFFFCFCFC
260.             IF exitc1 = 2 THEN COLOR &HFFFC54FC
261.             IF exitc1 = 3 THEN COLOR &HFFFC5454
262.             IF exitc1 = 4 THEN COLOR &HFF5454FC
263.             IF exitc1 = 5 THEN COLOR &HFF54FCFC
264.         END IF
265.         IF x = 1 THEN _PRINTSTRING (20, 230), "DOOR 1"
266.         IF menuloc2 = 2 THEN
267.             COLOR &HFF54FC54
268.         ELSE
269.             IF exitc2 = 1 THEN COLOR &HFFFCFCFC
270.             IF exitc2 = 2 THEN COLOR &HFFFC54FC
271.             IF exitc2 = 3 THEN COLOR &HFFFC5454
272.             IF exitc2 = 4 THEN COLOR &HFF5454FC
273.             IF exitc2 = 5 THEN COLOR &HFF54FCFC
274.         END IF
275.         IF x = 2 THEN _PRINTSTRING (20, 240), "DOOR 2"
276.         IF menuloc2 = 3 THEN
277.             COLOR &HFF54FC54
278.         ELSE
279.             IF exitc3 = 1 THEN COLOR &HFFFCFCFC
280.             IF exitc3 = 2 THEN COLOR &HFFFC54FC
281.             IF exitc3 = 3 THEN COLOR &HFFFC5454
282.             IF exitc3 = 4 THEN COLOR &HFF5454FC
283.             IF exitc3 = 5 THEN COLOR &HFF54FCFC
284.         END IF
285.         IF x = 3 THEN _PRINTSTRING (20, 250), "DOOR 3"
286.     NEXT x
287.     IF menuloc2 > roomexit THEN
288.         COLOR &HFF54FC54
289.     ELSE
290.         COLOR &HFFFCFCFC
291.     END IF
292.     _PRINTSTRING (20, 270), "CANCEL"
293.     DO
294.         LET b$ = UCASE$(INKEY$)
295.         LET xx = _KEYHIT
296.     LOOP UNTIL xx OR b$ = " "
297.     IF b$ = " " AND menuloc2 > roomexit THEN CLS: RETURN
298.     IF b$ = " " AND menuloc2 <= roomexit THEN _SNDPLAY opendoor: GOSUB newroom: CLS: RETURN
299.     IF xx = 18432 THEN LET menuloc2 = menuloc2 - 1: REM up
300.     IF xx = 20480 THEN LET menuloc2 = menuloc2 + 1: REM down
301.     IF menuloc2 <= 0 THEN LET menuloc2 = 1
302.     IF menuloc2 > roomexit + 1 THEN LET menuloc2 = roomexit + 1
303. LOOP
304. RETURN
305.  
306. newroom:
307. REM generates a new room
308. REM adds up values
309. LET room = room + 1
310. LET xp = xp + 1
311. LET score = score + 5
312. REM generates new room values
313. IF roomtype = 4 OR roomtype = 0 OR level = 1 THEN
314.         LET roomtype = INT(RND * 3) + 1
315. ELSE
316.         LET roomtype = INT(RND * 4) + 1
317. END IF
318. LET roomexit = INT(RND * 3) + 1
319. REM generates door colours
320. LET exitc1 = INT(RND * 5) + 1
321. LET exitc2 = INT(RND * 5) + 1
322. LET exitc3 = INT(RND * 5) + 1
323. REM generates room decal
324. LET roomdecal = INT(RND * 15) + 1
325. LET decalx = INT(RND * 240) + 1
326. 10 LET decaly = INT(RND * 125) + 1
327. IF decaly < 20 THEN GOTO 10
328. LET decalc = INT(RND * 6) + 1
329. LET lootamount = 0
330. LET lootreward = 0
331. LET lootopen = 0
332. IF roomtype = 1 OR roomtype = 3 THEN
333.     REM loot room
334.     LET lootreward = INT(RND * 6) + 1
335.     LET lootamount = INT(RND * 10) + 1
336.    20 LET lootx = INT(RND * 230) + 1
337.     IF roomexit = 1 THEN
338.         REM loot location for rooms with one door
339.         IF lootx >= ((255 / 2) - 50) AND lootx <= ((255 / 2) + 20) THEN GOTO 20
340.     END IF
341.     IF roomexit = 2 THEN
342.         IF lootx >= ((255 / 2) - 110) AND lootx <= ((255 / 2) - 40) THEN GOTO 20
343.         IF lootx >= ((255 / 2) + 10) AND lootx <= ((255 / 2) + 80) THEN GOTO 20
344.     END IF
345.     IF roomexit = 3 THEN
346.         IF lootx >= ((255 / 2) - 130) AND lootx <= ((255 / 2) - 60) THEN GOTO 20
347.         IF lootx >= ((255 / 2) - 50) AND lootx <= ((255 / 2) + 20) THEN GOTO 20
348.         IF lootx >= ((255 / 2) + 30) AND lootx <= ((255 / 2) + 100) THEN GOTO 20
349.     END IF
350. END IF
351. LET monsterhealth = 0
352. IF roomtype = 2 OR roomtype = 3 THEN
353.     REM monster room
354.     LET monsterhealth = (INT(RND * 5) + 1) * level
355.     LET monstertype = INT(RND * 3) + 1
356.    30 LET monsterx = INT(RND * 230) + 1
357.     IF monsterx <= 20 THEN GOTO 30
358. END IF
359. IF roomtype = 4 THEN
360.     LET storeoffer = INT(RND * 5) + 1
361.     LET storecost = INT(RND * 10) + 1
362.     LET storeamount = INT(RND * 5) + 1
363. END IF
364. RETURN
365.  
366. attackmenu:
367. REM shows attack menu
368. IF monsterhealth <= 0 THEN
369.     REM return for if no monsters present
370.     COLOR &HFFFC5454
371.     _PRINTSTRING (20, 210), "NO MONSTER PRESENT!"
372.     _DELAY 1
373.     CLS
374.     RETURN
375. END IF
376. LET menuloc2 = 1
377. LINE (0, 201)-(256, 303), &HFF000000, BF
378. DO
379.     COLOR &HFFFC5454
380.     _PRINTSTRING (20, 210), "ATTACK..."
381.     IF menuloc2 = 1 THEN
382.         COLOR &HFF54FC54
383.     ELSE
384.         COLOR &HFFFCFCFC
385.     END IF
386.     _PRINTSTRING (20, 230), "SWORD ATTACK"
387.     IF menuloc2 = 2 THEN
388.         COLOR &HFF54FC54
389.     ELSE
390.         IF magic > 0 THEN
391.             COLOR &HFFFCFCFC
392.         ELSE
393.             COLOR &HFF545454
394.         END IF
395.     END IF
396.     _PRINTSTRING (20, 240), "MAGIC ATTACK (" + STR$(magic) + " )"
397.     IF menuloc2 = 3 THEN
398.         COLOR &HFF54FC54
399.     ELSE
400.         IF bomb > 0 THEN
401.             COLOR &HFFFCFCFC
402.         ELSE
403.             COLOR &HFF545454
404.         END IF
405.     END IF
406.     _PRINTSTRING (20, 250), "BOMB ATTACK (" + STR$(bomb) + " )"
407.     IF menuloc2 = 4 THEN
408.         COLOR &HFF54FC54
409.     ELSE
410.         COLOR &HFFFCFCFC
411.     END IF
412.     _PRINTSTRING (20, 270), "CANCEL"
413.     DO
414.         LET b$ = UCASE$(INKEY$)
415.         LET xx = _KEYHIT
416.     LOOP UNTIL xx OR b$ = " "
417.     IF b$ = " " AND menuloc2 = 4 THEN CLS: RETURN
418.     IF b$ = " " AND menuloc2 = 1 THEN GOSUB swordattack: CLS: RETURN
419.     IF b$ = " " AND menuloc2 = 2 THEN GOSUB magicattack: CLS: RETURN
420.     IF b$ = " " AND menuloc2 = 3 THEN GOSUB bombattack: CLS: RETURN
421.     IF xx = 18432 THEN LET menuloc2 = menuloc2 - 1: REM up
422.     IF xx = 20480 THEN LET menuloc2 = menuloc2 + 1: REM down
423.     IF menuloc2 <= 0 THEN LET menuloc2 = 1
424.     IF menuloc2 >= 5 THEN LET menuloc2 = 4
425. LOOP
426. RETURN
427.  
428. magicattack:
429. REM calculates a magic attack
430. IF magic <= 0 THEN
431.     REM return for if no magic
432.     CLS
433.     GOSUB drawhud
434.     GOSUB drawroom
435.     GOSUB drawmenu
436.     COLOR &HFFFC5454
437.     _PRINTSTRING (20, 210), "CANNOT ATTACK - NO MAGIC!"
438.     _DELAY 1
439.     RETURN
440. END IF
441. LET attack = (magic * level)
442. LET magic = 0
443. LET monsterhealth = monsterhealth - attack
444. REM displays attack animation
445. LET animation = 10
446. LET anix = monsterx
447. LET aniy = 175
448. _SNDPLAY magichit
449. DO
450.     CIRCLE (anix, aniy), animation, &HFFFC54FC
451.     LET animation = animation - 1
452.     _DELAY 0.05
453. LOOP UNTIL animation = 1
454. REM redraw room
455. CLS
456. GOSUB drawhud
457. GOSUB drawroom
458. REM display messages
459. COLOR &HFF54FC54
460. _PRINTSTRING (20, 230), "DELT" + STR$(attack) + " MAGIC DAMAGE!"
461. _DELAY 1
462. IF monsterhealth > 0 THEN
463.     _PRINTSTRING (20, 240), "ENEMY HAS" + STR$(monsterhealth) + " HEALTH LEFT!"
464. ELSE
465.     _PRINTSTRING (20, 240), "ENEMY IS DEAD!"
466.     LET xp = xp + INT(RND * 10) + 1
467.     LET score = score + (10 * level)
468. END IF
469. _DELAY 1
470. RETURN
471.  
472. bombattack:
473. REM calculates a bomb attack
474. IF bomb <= 0 THEN
475.     REM return for if no bombs
476.     CLS
477.     GOSUB drawhud
478.     GOSUB drawroom
479.     GOSUB drawmenu
480.     COLOR &HFFFC5454
481.     _PRINTSTRING (20, 210), "CANNOT ATTACK - NO BOMBS!"
482.     _DELAY 1
483.     RETURN
484. END IF
485. LET attack = 5
486. LET monsterhealth = monsterhealth - attack
487. REM displays attack animation
488. LET animation = 1
489. LET anix = monsterx
490. LET aniy = 175
491. _SNDPLAY bombhit
492. DO
493.     CIRCLE (anix, aniy), animation, &HFFA85400
494.     LET animation = animation + 1
495.     _DELAY 0.05
496. LOOP UNTIL animation = 10
497. REM redraw room
498. CLS
499. GOSUB drawhud
500. GOSUB drawroom
501. REM display messages
502. COLOR &HFF54FC54
503. _PRINTSTRING (20, 230), "DELT" + STR$(attack) + " BOMB DAMAGE!"
504. _DELAY 1
505. IF monsterhealth > 0 THEN
506.     _PRINTSTRING (20, 240), "ENEMY HAS" + STR$(monsterhealth) + " HEALTH LEFT!"
507. ELSE
508.     _PRINTSTRING (20, 240), "ENEMY IS DEAD!"
509.     LET xp = xp + INT(RND * 10) + 1
510.     LET score = score + (10 * level)
511. END IF
512. _DELAY 1
513. RETURN
514.  
515. swordattack:
516. REM calculates a sword attack
517. LET attack = (INT(RND * 5) + 1) * sword
518. LET monsterhealth = monsterhealth - attack
519. REM displays attack animation
520. LET animation = 0
521. LET anix = monsterx - 20
522. LET aniy = 200
523. _SNDPLAY swordhit
524. DO
525.     LINE (monsterx - 20, 200)-(anix, aniy), &HFFA8A8A8
526.     LET animation = animation + 1
527.     LET anix = anix + 1
528.     LET aniy = aniy - 1
529.     _DELAY 0.005
530. LOOP UNTIL animation = 40
531. REM redraw room
532. CLS
533. GOSUB drawhud
534. GOSUB drawroom
535. REM display messages
536. COLOR &HFF54FC54
537. _PRINTSTRING (20, 230), "DELT" + STR$(attack) + " SWORD DAMAGE!"
538. _DELAY 1
539. IF monsterhealth > 0 THEN
540.     _PRINTSTRING (20, 240), "ENEMY HAS" + STR$(monsterhealth) + " HEALTH LEFT!"
541. ELSE
542.     _PRINTSTRING (20, 240), "ENEMY IS DEAD!"
543.     LET swordxp = swordxp + INT(RND * 10) + 1
544.     LET xp = xp + INT(RND * 10) + 1
545.     LET score = score + (10 * level)
546. END IF
547. _DELAY 1
548. RETURN
549.  
550. pocketmenu:
551. REM shows pockets
552. LINE (0, 201)-(256, 303), &HFF000000, BF
553. COLOR &HFF54FC54
554. _PRINTSTRING (20, 210), pockettext$
555. COLOR &HFFFCFCFC
556. _PRINTSTRING (20, 230), "SWORD LEVEL: " + STR$(sword)
557. _PRINTSTRING (20, 240), "ARMOUR LEVEL: " + STR$(armour)
558. _PRINTSTRING (20, 250), "MAGIC: " + STR$(magic)
559. _PRINTSTRING (20, 260), "HEALTHKITS: " + STR$(healthkit)
560. _PRINTSTRING (20, 270), "GOLD: " + STR$(gold)
561. _PRINTSTRING (20, 280), "BOMBS: " + STR$(bomb)
562. IF healthkit >= 1 THEN
563.     REM use healthkit?
564.     COLOR &HFF54FC54
565.     _PRINTSTRING (150, 260), "H = USE KIT"
566.     DO
567.         LET b$ = UCASE$(INKEY$)
568.     LOOP UNTIL b$ = " " OR b$ = "H"
569.     IF b$ = "H" THEN
570.         REM use healthkit
571.         LET healthkit = healthkit - 1
572.         LET addhealth = 25
573.         LET recovered = 0
574.         DO
575.             LET health = health + 1
576.             LET addhealth = addhealth - 1
577.             LET recovered = recovered + 1
578.         LOOP UNTIL health = 100 OR addhealth = 0
579.         CLS
580.         GOSUB drawhud
581.         GOSUB drawroom
582.         GOSUB drawmenu
583.         COLOR &HFF54FC54
584.         _PRINTSTRING (20, 210), "RECOVERED" + STR$(recovered) + " HEALTH!"
585.         _DELAY 1
586.         CLS
587.         RETURN
588.     END IF
589. ELSE
590.     DO: LOOP UNTIL INKEY$ = " "
591. END IF
592. CLS
593. RETURN
594.  
595. statsmenu:
596. REM shows stats menu
597. LINE (0, 201)-(256, 303), &HFF000000, BF
598. COLOR &HFF54FC54
599. _PRINTSTRING (20, 210), stattext$
600. COLOR &HFFFCFCFC
601. _PRINTSTRING (20, 230), "LEVEL: " + STR$(level)
602. _PRINTSTRING (20, 240), "XP: " + STR$(xp)
603. _PRINTSTRING (20, 250), "KILLS: " + STR$(killcount)
604. _PRINTSTRING (20, 260), "ROOM: " + STR$(room)
605. _PRINTSTRING (20, 270), "SWORD XP: " + STR$(swordxp)
606. _PRINTSTRING (20, 280), "ARMOUR XP: " + STR$(armourxp)
607. DO: LOOP UNTIL INKEY$ = " "
608. CLS
609. RETURN
610.  
611. lootmenu:
612. REM shows loot menu
613. IF lootamount <= 0 THEN
614.     REM return for if no loot present
615.     COLOR &HFFFC5454
616.     _PRINTSTRING (20, 210), "NO LOOT PRESENT!"
617.     _DELAY 1
618.     CLS
619.     RETURN
620. END IF
621. IF lootopen = 1 THEN
622.     REM return for if loot already collected
623.     COLOR &HFFFC5454
624.     _PRINTSTRING (20, 210), "LOOT ALREADY TAKEN!"
625.     _DELAY 1
626.     CLS
627.     RETURN
628. END IF
629. LET lootopen = 1
630. LET score = score + INT(RND * 10) + 1
631. COLOR &HFF54FC54
632. _SNDPLAY pickup
633. IF lootreward = 1 THEN LET gold = gold + lootamount: _PRINTSTRING (20, 210), "FOUND" + STR$(lootamount) + " GOLD!"
634. IF lootreward = 2 THEN LET armourxp = armourxp + lootamount: _PRINTSTRING (20, 210), "FOUND" + STR$(lootamount) + " ARMOUR XP!"
635. IF lootreward = 3 THEN LET swordxp = swordxp + lootamount: _PRINTSTRING (20, 210), "FOUND" + STR$(lootamount) + " SWORD XP!"
636. IF lootreward = 4 THEN
637.     LET bomb = bomb + lootamount
638.     IF lootamount = 1 THEN
639.         _PRINTSTRING (20, 210), "FOUND" + STR$(lootamount) + " BOMB!"
640.     ELSE
641.         _PRINTSTRING (20, 210), "FOUND" + STR$(lootamount) + " BOMBS!"
642.     END IF
643. END IF
644. IF lootreward = 5 THEN LET magic = magic + lootamount: _PRINTSTRING (20, 210), "FOUND" + STR$(lootamount) + " MAGIC!"
645. IF lootreward = 6 THEN LET healthkit = healthkit + 1: _PRINTSTRING (20, 210), "FOUND HEALTHKIT!"
646. LET xp = xp + INT(RND * 10) + 1
647. _DELAY 1
648. CLS
649. RETURN
650.  
651. playgame:
652. REM playgame
653. CLS
654. LET frames = 60: REM frames per second
655. LET health = 100: REM player heatlth
656. LET room = 1: REM room number
657. LET score = 0: REM player score
658. LET roomtype = 0: REM room type
659. LET roomexit = 1: REM number of doors in room
660. LET roommonster = 0: REM number of monsters in room
661. LET lootreward = 0: REM type of loot
662. LET lootamount = 0: REM amount of loot
663. LET menuloc = 1: REM menu cursor location
664. LET level = 1: REM player level
665. LET xp = 0: REM player xp
666. LET healthkit = 0: REM amount of health kits
667. LET gold = 0: REM amount of gold
668. LET bomb = 0: REM amount of bombs
669. LET sword = 1: REM sword level
670. LET armour = 1: REM armour level
671. LET swordxp = 0: REM amount of sword xp
672. LET armourxp = 0: REM amount of armour xp
673. LET magic = 0: REM amount of magic
674. LET killcount = 0: REM amount of kills
675. LET roomdecal = 0: REM room decal
676. LET decalx = 0: REM x loc of room decal
677. LET decaly = 0: REM y loc of room decal
678. LET decalc = 0: REM colour of room decal
679. LET doortext$ = "DOOR"
680. LET attacktext$ = "ATTACK"
681. LET loottext$ = "LOOT"
682. LET pockettext$ = "BACKPACK"
683. LET stattext$ = "STATUS"
684. LET endgametext$ = "LEAVE"
685. LET exitc1 = INT(RND * 5) + 1: REM door 1 colour
686. LET exitc2 = INT(RND * 5) + 1: REM door 2 colour
687. LET exitc3 = INT(RND * 5) + 1: REM door 3 colour
688. DO
689.     GOSUB drawhud
690.     GOSUB inputter
691.     GOSUB drawroom
692.     GOSUB drawmenu
693.     GOSUB timekeeper
694.     LET a$ = UCASE$(INKEY$)
695.     LET z = _KEYHIT
696.     _LIMIT frames
697. LOOP
698.  
699. timekeeper:
700. REM keeps game time
701. LET ctime = (TIMER - itime)
702. LET ctime = INT(ctime)
703. IF xp >= 100 THEN
704.     REM level up!
705.     LET xp = 0
706.     LET level = level + 1
707.     COLOR &HFF54FC54
708.     _PRINTSTRING (20, 210), "LEVEL POINT GAINED!"
709.     _DELAY 1
710.     CLS
711. END IF
712. IF swordxp >= 100 THEN
713.     REM sword power up
714.     LET swordxp = 0
715.     LET sword = sword + 1
716.     COLOR &HFF54FC54
717.     _PRINTSTRING (20, 210), "YOU HAVE FOUND A BETTER SWORD!"
718.     _DELAY 1
719.     CLS
720. END IF
721. IF armourxp >= 100 THEN
722.     REM armour power up
723.     LET armourxp = 0
724.     LET armour = armour + 1
725.     COLOR &HFF54FC54
726.     _PRINTSTRING (20, 210), "YOU HAVE FOUND BETTER ARMOUR!"
727.     _DELAY 1
728.     CLS
729. END IF
730. IF health <= 0 THEN
731.     REM game over
732.     GOSUB gameover
733. END IF
734. RETURN
735.  
736. gameover:
737. REM game over
738. CLS
739. COLOR &HFF5454FC
740. _SNDPLAY gameover
741. _PRINTSTRING (1, 1), "GAME OVER!"
742. _PRINTSTRING (1, 15), "SCORE: " + STR$(score)
743. DO: LOOP UNTIL INKEY$ = " "
744. GOSUB highscores
745. GOTO endgame
746. RETURN
747.  
748. highscores:
749. REM high score table
750. CLS
751. OPEN "dandedata\highscores.ddf" FOR INPUT AS #1
752. INPUT #1, high1, name1$, high2, name2$, high3, name3$, high4, name4$, high5, name5$, high6, name6$, high7, name7$, high8, name8$, high9, name9$, high10, name10$
753. CLOSE #1
754. LET x = 10000
755. PRINT "HIGH SCORES!"
756. PRINT
757. LET highest$ = ""
758. LET lowest$ = ""
759. LET highest = 0
760. LET lowest = 0
761. DO
762.     IF high1 = x THEN
763.         PRINT STR$(high1) + " - " + name1$
764.         IF high1 > 0 THEN LET lowest$ = name1$: LET lowest = high1
765.         IF highest$ = "" THEN LET highest$ = name1$: LET highest = high1
766.     END IF
767.     IF high2 = x THEN
768.         PRINT STR$(high2) + " - " + name2$
769.         LET lowest$ = name2$: LET lowest = high2
770.         IF highest$ = "" THEN LET highest$ = name2$: LET highest = high2
771.     END IF
772.     IF high3 = x THEN
773.         PRINT STR$(high3) + " - " + name3$
774.         LET lowest$ = name3$: LET lowest = high3
775.         IF highest$ = "" THEN LET highest$ = name3$: LET highest = high3
776.     END IF
777.     IF high4 = x THEN
778.         PRINT STR$(high4) + " - " + name4$
779.         LET lowest$ = name4$: LET lowest = high4
780.         IF highest$ = "" THEN LET highest$ = name4$: LET highest = high4
781.     END IF
782.     IF high5 = x THEN
783.         PRINT STR$(high5) + " - " + name5$
784.         LET lowest$ = name5$: LET lowest = high5
785.         IF highest$ = "" THEN LET highest$ = name5$: LET highest = high5
786.     END IF
787.     IF high6 = x THEN
788.         PRINT STR$(high6) + " - " + name6$
789.         LET lowest$ = name6$: LET lowest = high6
790.         IF highest$ = "" THEN LET highest$ = name6$: LET highest = high6
791.     END IF
792.     IF high7 = x THEN
793.         PRINT STR$(high7) + " - " + name7$
794.         LET lowest$ = name7$: LET lowest = high7
795.         IF highest$ = "" THEN LET highest$ = name7$: LET highest = high7
796.     END IF
797.     IF high8 = x THEN
798.         PRINT STR$(high8) + " - " + name8$
799.         LET lowest$ = name8$: LET lowest = high8
800.         IF highest$ = "" THEN LET highest$ = name8$: LET highest = high8
801.     END IF
802.     IF high9 = x THEN
803.         PRINT STR$(high9) + " - " + name9$
804.         LET lowest$ = name9$: LET lowest = high9
805.         IF highest$ = "" THEN LET highest$ = name9$: LET highest = high9
806.     END IF
807.     IF high10 = x THEN
808.         PRINT STR$(high10) + " - " + name10$
809.         LET lowest$ = name10$: LET lowest = high10
810.         IF highest$ = "" THEN LET highest$ = name10$: LET highest = high10
811.     END IF
812.     LET x = x - 1
813. LOOP UNTIL x < 0
814. PRINT
815. IF score > lowest THEN
816.         _SNDPLAY highscore
817.     IF score > lowest THEN PRINT "HIGH SCORE!"
818.     IF score > highest THEN PRINT "HIGHEST SCORE!"
819.     INPUT "WHAT IS YOUR NAME? "; playername$
820.     IF high1 = lowest THEN LET high1 = score: LET name1$ = playername$: LET lowest = -1
821.     IF high2 = lowest THEN LET high2 = score: LET name2$ = playername$: LET lowest = -1
822.     IF high3 = lowest THEN LET high3 = score: LET name3$ = playername$: LET lowest = -1
823.     IF high4 = lowest THEN LET high4 = score: LET name4$ = playername$: LET lowest = -1
824.     IF high5 = lowest THEN LET high5 = score: LET name5$ = playername$: LET lowest = -1
825.     IF high6 = lowest THEN LET high6 = score: LET name6$ = playername$: LET lowest = -1
826.     IF high7 = lowest THEN LET high7 = score: LET name7$ = playername$: LET lowest = -1
827.     IF high8 = lowest THEN LET high8 = score: LET name8$ = playername$: LET lowest = -1
828.     IF high9 = lowest THEN LET high9 = score: LET name9$ = playername$: LET lowest = -1
829.     IF high10 = lowest THEN LET high10 = score: LET name10$ = playername$: LET lowest = -1
830.     OPEN "dandedata\highscores.ddf" FOR OUTPUT AS #1
831.     WRITE #1, high1, name1$, high2, name2$, high3, name3$, high4, name4$, high5, name5$, high6, name6$, high7, name7$, high8, name8$, high9, name9$, high10, name10$
832.     CLOSE #1
833.     PRINT
834. END IF
835. PRINT "THANK YOU FOR PLAYING!"
836. DO: LOOP UNTIL INKEY$ = " "
837. RETURN
838.  
839. storemenu:
840. REM draws the store menu
841. LET menuloc2 = 1
842. GOSUB drawhud
843. COLOR &HFFFCFCFC
844. IF storeoffer = 1 THEN _PRINTSTRING (50, 230), STR$(storeamount) + " BOMBS FOR" + STR$(storecost) + " GOLD?"
845. IF storeoffer = 2 THEN _PRINTSTRING (50, 230), STR$(storeamount) + " MAGIC FOR" + STR$(storecost) + " GOLD?"
846. IF storeoffer = 3 THEN _PRINTSTRING (50, 230), STR$(storeamount) + " ARMOUR XP FOR" + STR$(storecost) + " GOLD?"
847. IF storeoffer = 4 THEN _PRINTSTRING (50, 230), STR$(storeamount) + " SWORD XP FOR" + STR$(storecost) + " GOLD?"
848. IF storeoffer = 5 THEN _PRINTSTRING (50, 230), "1 HEALTHKIT FOR" + STR$(storecost) + " GOLD?"
849. _PRINTSTRING (50, 240), "GOLD:" + STR$(gold)
850. DO
851.     IF gold >= storecost THEN
852.         COLOR &HFFFCFCFC
853.     ELSE
854.         COLOR &HFF545454
855.     END IF
856.     IF menuloc2 = 1 THEN COLOR &HFF54FC54
857.     _PRINTSTRING (50, 260), "SURE!"
858.     IF menuloc2 = 2 THEN
859.         COLOR &HFF54FC54
860.     ELSE
861.         COLOR &HFFFCFCFC
862.     END IF
863.     _PRINTSTRING (130, 260), "NO THANKS!"
864.     DO
865.         LET b$ = UCASE$(INKEY$)
866.         LET xx = _KEYHIT
867.     LOOP UNTIL xx OR b$ = " "
868.     IF xx = 19712 THEN LET menuloc2 = 2
869.     IF xx = 19200 THEN LET menuloc2 = 1
870.     IF b$ = " " AND menuloc2 = 2 THEN GOSUB newroom: CLS: RETURN
871.     IF b$ = " " AND menuloc2 = 1 THEN
872.         REM attempt purchase
873.         IF gold < storecost THEN
874.             REM return for if not enough money
875.             COLOR &HFFFC5454
876.             _PRINTSTRING (20, 210), "NOT ENOUGH GOLD!"
877.             _DELAY 1
878.             CLS
879.             RETURN
880.         END IF
881.         LET gold = gold - storecost
882.         COLOR &HFF54FC54
883.         _SNDPLAY store
884.         IF storeoffer = 1 THEN
885.             LET bomb = bomb + storeamount
886.             IF storeamount = 1 THEN
887.                 _PRINTSTRING (20, 210), "BOUGHT" + STR$(storeamount) + " BOMB!"
888.             ELSE
889.                 _PRINTSTRING (20, 210), "BOUGHT" + STR$(storeamount) + " BOMBS!"
890.             END IF
891.         END IF
892.         IF storeoffer = 2 THEN LET magic = magic + storeamount: _PRINTSTRING (20, 210), "BOUGHT" + STR$(storeamount) + " MAGIC!"
893.         IF storeoffer = 3 THEN LET armourxp = armourxp + storeamount: _PRINTSTRING (20, 210), "BOUGHT" + STR$(storeamount) + " ARMOUR XP!"
894.         IF storeoffer = 4 THEN LET swordxp = swordxp + storeamount: _PRINTSTRING (20, 210), "BOUGHT" + STR$(storeamount) + " SWORD XP!"
895.         IF storeoffer = 5 THEN LET healthkit = healthkit + 1: _PRINTSTRING (20, 210), "BOUGHT 1 HEALTHKIT!"
896.         _DELAY 1
897.         GOSUB newroom
898.         CLS
899.         RETURN
900.     END IF
901. LOOP
902. RETURN
903.  
904. drawmenu:
905. REM draws the menu
906. REM divert for store menu
907. IF roomtype = 4 THEN GOSUB storemenu: RETURN
908. REM door menu
909. IF roomexit > 0 THEN
910.     COLOR &HFFFCFCFC
911. ELSE
912.     COLOR &HFF545454
913. END IF
914. IF menuloc = 1 THEN COLOR &HFF54FC54
915. _PRINTSTRING (20, 230), doortext$
916. REM attack menu
917. IF monsterhealth > 0 THEN
918.     COLOR &HFFFCFCFC
919. ELSE
920.     COLOR &HFF545454
921. END IF
922. IF menuloc = 2 THEN COLOR &HFF54FC54
923. _PRINTSTRING (20, 250), attacktext$
924. REM loot menu
925. IF lootamount > 0 AND lootopen <= 0 THEN
926.     COLOR &HFFFCFCFC
927. ELSE
928.     COLOR &HFF545454
929. END IF
930. IF menuloc = 3 THEN COLOR &HFF54FC54
931. _PRINTSTRING (20, 270), loottext$
932. REM pockets menu
933. COLOR &HFFFCFCFC
934. IF menuloc = 4 THEN COLOR &HFF54FC54
935. _PRINTSTRING (100, 230), pockettext$
936. REM stats menu
937. COLOR &HFFFCFCFC
938. IF menuloc = 5 THEN COLOR &HFF54FC54
939. _PRINTSTRING (100, 250), stattext$
940. COLOR &HFFFCFCFC
941. IF menuloc = 6 THEN COLOR &HFF54FC54
942. _PRINTSTRING (100, 270), endgametext$
943. RETURN
944.  
945. drawroom:
946. REM draws a room
947. LINE (0, 200)-(256, 200), &HFFFCFCFC
948. IF roomtype = 0 THEN
949.     REM print tutorial
950.     COLOR &HFF5454FC
951.     _PRINTSTRING (10, 40), "WELCOME TO THE DANDELION DUNGEON!"
952.     _PRINTSTRING (10, 60), "NOW GO THROUGH THE DOOR TO PLAY!"
953. END IF
954. IF roomtype = 4 THEN
955.     REM display store message
956.     COLOR &HFF5454FC
957.     _PRINTSTRING (10, 40), "WELCOME TO THE STORE! SEE OUR DEAL!"
958.     CIRCLE (255 / 2, 100), 25, &HFF5454FC
959.     LINE (115, 90)-(120, 90), &HFF5454FC
960.     LINE (135, 90)-(140, 90), &HFF5454FC
961.     LINE (120, 110)-(135, 110), &HFF5454FC
962.     PSET(108, 115), &HFF5454FC
963.     DRAW shopbody1$
964.     PSET(150, 115), &HFF5454FC
965.     DRAW shopbody2$
966. END IF
967. GOSUB drawdecal: REM draws room decal
968. GOSUB drawdoors: REM draws room doors
969. GOSUB drawloot: REM draws room loot
970. GOSUB drawmonster: REM draws monster
971. RETURN
972.  
973. drawloot:
974. REM draws room loot
975. IF lootamount > 0 THEN
976.     IF decalc = 1 THEN PSET (lootx, 205), &HFFA8A8A8
977.     IF decalc = 2 THEN PSET (lootx, 205), &HFFA85400
978.     IF decalc = 3 THEN PSET (lootx, 205), &HFF545454
979.     IF decalc = 4 THEN PSET (lootx, 205), &HFF0000A8
980.     IF decalc = 5 THEN PSET (lootx, 205), &HFFA80000
981.     IF decalc = 6 THEN PSET (lootx, 205), &HFF00A800
982.     IF lootopen = 0 THEN
983.         DRAW chestclosed$
984.     ELSE
985.         DRAW chestopen$
986.     END IF
987. END IF
988. RETURN
989.  
990. drawdecal:
991. REM draws room decal
992. IF roomtype = 4 THEN RETURN
993. IF roomdecal > 0 THEN
994.     REM draws decal
995.     IF decalc = 1 THEN PSET (decalx, decaly), &HFFA8A8A8
996.     IF decalc = 2 THEN PSET (decalx, decaly), &HFFA85400
997.     IF decalc = 3 THEN PSET (decalx, decaly), &HFF545454
998.     IF decalc = 4 THEN PSET (decalx, decaly), &HFF0000A8
999.     IF decalc = 5 THEN PSET (decalx, decaly), &HFFA80000
1000.     IF decalc = 6 THEN PSET (decalx, decaly), &HFF00A800
1001.     IF roomdecal = 1 THEN DRAW decal1$
1002.     IF roomdecal = 2 THEN DRAW decal2$
1003.     IF roomdecal = 3 THEN DRAW decal3$
1004.     IF roomdecal = 4 THEN DRAW decal4$
1005.     IF roomdecal = 5 THEN DRAW decal5$
1006.     IF roomdecal = 6 THEN DRAW decal6$
1007.     IF roomdecal = 7 THEN DRAW decal7$
1008.     IF roomdecal = 8 THEN DRAW decal8$
1009.     IF roomdecal = 9 THEN DRAW decal9$
1010.     IF roomdecal = 10 THEN DRAW decal10$
1011.     IF roomdecal = 11 THEN DRAW decal11$
1012.     IF roomdecal = 12 THEN DRAW decal12$
1013.     IF roomdecal = 13 THEN DRAW decal13$
1014.     IF roomdecal = 14 THEN DRAW decal14$
1015.     IF roomdecal = 15 THEN DRAW decal15$
1016. END IF
1017. RETURN
1018.  
1019. endgame:
1020. REM unloads all files from memory and quits game
1021. REM unloads images
1022. _FREEIMAGE titledisplay
1023. REM unloads audio
1024. _SNDCLOSE bombhit
1025. _SNDCLOSE swordhit
1026. _SNDCLOSE magichit
1027. _SNDCLOSE highscore
1028. _SNDCLOSE gameover
1029. _SNDCLOSE dooropen
1030. _SNDCLOSE store
1031. _SNDCLOSE pickup
1032. REM Danni Pond
1033. SYSTEM
1034.  

dandedata folder needed :)

Controls - Arrow keys and Space