Find The Gold!

[bplus]

The target-like things? Do you mean the yellow dots in the map? That's where the gold is. You are the red one.

No this:

 

[SierraKen]

LOL nah I just added the countdown. :)) Here you go:

Code: QB64: [Select]

1. 'Find the Gold! by SierraKen
2. 'October 27, 2020
3. 'Thanks for the great mapping code by FellipeHeitor and help from B+ and ideas from Aurel!
4. 'Newest Additions: Mine Shafts and Music.
5. 'Music created by me many years ago.
6. 'Added random houses on each level.
7. 'Added 5 extra gold bars on each level.
8. 'Added Map in lower right corner.
9. 'Added countdown of gold bars per level.
10.  
11. RANDOMIZE TIMER
12. SCREEN _NEWIMAGE(800, 600, 32)
13.  
14. TYPE object
15.     x AS SINGLE
16.     y AS SINGLE
17. END TYPE
18.  
19. DIM SHARED player AS object
20. DIM SHARED camera AS object
21. DIM SHARED map AS LONG
22. DIM playerSpeed AS SINGLE
23. DIM minelevel AS SINGLE
24. DIM level AS SINGLE
25. DIM score AS SINGLE
26. DIM leveltime AS SINGLE
27. DIM gametime AS SINGLE
28. DIM seconds AS SINGLE
29. DIM s AS LONG
30. DIM goldx(50), goldy(50)
31.  
32. _TITLE "Loading....."
33. s& = _SNDOPEN("Hello_Martian_Home.mp3")
34. start:
35. _SNDPLAY s&
36. _SNDLOOP s&
37. minelevel = 50
38. score = 0
39. level = 1
40. gbars = 20
41. gbars$ = STR$(gbars)
42. start2:
43. player.x = _WIDTH / 2
44. player.y = _HEIGHT / 2
45.  
46. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
47.  
48. _DEST map
49.  
50. CLS , _RGB32(0, 200, 0)
51. _LIMIT 2000
52.  
53. 'Lakes
54. FOR lakes = 1 TO 100
55.     w = RND
56.     h = RND
57.     sze = (RND * 250) + 100
58.     shape = RND
59.     FOR sz = .25 TO sze STEP .25
60.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 128, 255), , , shape
61.     NEXT sz
62. NEXT lakes
63.  
64. 'Hills
65. FOR hills = 1 TO 1200
66.     xx = (RND * _WIDTH)
67.     sz = INT(RND * 100) + 200
68.     shape = RND
69.     hillcolors:
70.     blue = blue + .05
71.     c3 = INT(RND * 50) + 20 + blue
72.     c2 = c3 * 2
73.     c1 = c3 * 3
74.     IF c1 = 255 AND c2 = 255 AND c3 = 128 THEN GOTO hillcolors:
75.     yy = yy + 4
76.     FOR hill = 1 TO sz STEP .25
77.         hh = hh + .025
78.         IF hh > 100 THEN hh = 100
79.         cc1 = c1 + hh
80.         cc2 = c2 + hh
81.         cc3 = c3 + hh
82.         CIRCLE (xx, yy), hill, _RGB32(cc1, cc2, cc3), 2 * _PI, _PI, shape
83.     NEXT hill
84.     hh = 0
85. NEXT hills
86. blue = 0
87. yy = 0
88.  
89. 'Trees
90. FOR trees = 1 TO 1000
91.     tx = RND
92.     tx = tx * _WIDTH
93.     ty = RND
94.     ty = ty * _HEIGHT
95.     tsz = (RND * 40) + 10
96.     LINE (tx, ty)-(tx, ty + tsz + 5), _RGB32(188, 127, 127)
97.     FOR branches = ty TO ty + tsz STEP 3
98.         trim = trim + 2
99.         LINE (tx, branches)-(tx - trim, branches + 5), _RGB32(0, 183, 127)
100.         LINE (tx, branches)-(tx + trim, branches + 5), _RGB32(0, 183, 127)
101.     NEXT branches
102.     trim = 0
103. NEXT trees
104.  
105. 'Mine Shafts
106. FOR mines = 1 TO minelevel
107.     mines:
108.     bx = RND
109.     bx = bx * _WIDTH
110.     by = RND
111.     by = by * _HEIGHT
112.     IF bx < 500 AND by < 400 THEN GOTO mines:
113.     FOR sz = .25 TO 10 STEP .25
114.         CIRCLE (bx, by), sz, _RGB32(0, 0, 5)
115.     NEXT sz
116. NEXT mines
117.  
118. 'Houses
119. FOR houses = 1 TO 10
120.     xhouse = INT(RND * _WIDTH)
121.     yhouse = INT(RND * _HEIGHT)
122.     szhouse = INT(RND * 60) + 30
123.     LINE (xhouse, yhouse)-(xhouse + szhouse, yhouse + szhouse), _RGB32(183, 161, 150), BF
124.     'roof
125.     FOR sz = .25 TO (szhouse / 2) STEP .25
126.         CIRCLE (xhouse + (szhouse / 2), yhouse), sz, _RGB32(150, 105, 105), _PI * 2, _PI, .5
127.     NEXT sz
128.     'door
129.     LINE (xhouse + (szhouse / 2) - szhouse * .1, yhouse + szhouse - 15)-(xhouse + (szhouse / 2) + szhouse * .1, yhouse + szhouse), _RGB32(150, 105, 105), BF
130.     'windows
131.     LINE (xhouse + szhouse * .2, yhouse + szhouse * .2)-(xhouse + szhouse * .4, yhouse + szhouse * .4), _RGB32(150, 105, 105), BF
132.     LINE (xhouse + szhouse * .6, yhouse + szhouse * .2)-(xhouse + szhouse * .8, yhouse + szhouse * .4), _RGB32(150, 105, 105), BF
133. NEXT houses
134.  
135.  
136. 'Place Gold
137. FOR gold = 1 TO 25
138.     gold:
139.     w2 = INT(RND * _WIDTH) - 40
140.     h2 = INT(RND * _HEIGHT) - 40
141.     goldx(gold) = w2
142.     goldy(gold) = h2
143.     IF w2 < 40 THEN w2 = 40
144.     IF h2 < 40 THEN h2 = 40
145.     IF h2 > (_HEIGHT - 150) THEN GOTO gold:
146.     IF POINT(w2, h2) = _RGB32(255, 255, 128) THEN GOTO gold:
147.     IF POINT(w2, h2) = _RGB32(0, 0, 0) THEN GOTO gold:
148.     IF POINT(w2, h2) = _RGB32(0, 0, 5) THEN GOTO gold:
149.     FOR check = -10 TO 10
150.         IF POINT(w2 + check, h2 + check) = _RGB32(183, 161, 150) THEN GOTO gold:
151.         IF POINT(w2 + check, h2 + check) = _RGB32(150, 105, 105) THEN GOTO gold:
152.     NEXT check
153.     'Gold
154.     COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
155.     _PRINTSTRING (w2, h2), "GOLD"
156. NEXT gold
157.  
158. _DEST 0
159.  
160. _SOURCE map
161.  
162. IF level > 1 THEN GOTO begin:
163.  
164. playerSpeed = 8
165.  
166. CONST keyUP = 18432
167. CONST keyDOWN = 20480
168. CONST keyLEFT = 19200
169. CONST keyRIGHT = 19712
170. CONST keyESC = 27
171. CLS
172. _PUTIMAGE (camera.x, camera.y), map
173.  
174. LOCATE 3, 22: PRINT "Use the arrow keys (or WASD keys) to find 20 gold bars per level."
175. LOCATE 4, 22: PRINT "To make it a little easier, there are 25 gold bars on each level."
176. LOCATE 5, 22: PRINT "Every level will have a shorter time."
177. LOCATE 6, 22: PRINT "After Level 10 you win the game."
178. LOCATE 7, 22: PRINT "Be careful not to step in the black mine shafts or they will send"
179. LOCATE 8, 22: PRINT "you to a random location."
180. LOCATE 9, 22: PRINT "Every level will have more mine shafts."
181. LOCATE 10, 22: PRINT "Use the Map in the lower right corner to see where the gold is placed."
182. LOCATE 11, 22: PRINT "Map will not remove gold dot after you have picked it up."
183. LOCATE 12, 22: PRINT "You show up on the map as a red dot."
184. LOCATE 14, 22: PRINT "Game and Music created by SierraKen."
185. LOCATE 17, 32: PRINT "* Press Any Key To Begin. *"
186. _TITLE "Find The Gold!"
187. pause:
188. a$ = INKEY$
189. IF a$ <> "" THEN GOTO begin:
190. GOTO pause:
191.  
192. begin:
193. score$ = STR$(score)
194. level$ = STR$(level)
195. _TITLE "Level: " + level$ + "   Score: " + score$
196. seconds = INT(TIMER)
197. DO
198.     CLS
199.     leveltime = level * 10
200.     gametime = (410 - leveltime) - (INT(TIMER) - seconds)
201.     _PUTIMAGE (camera.x, camera.y), map
202.     LOCATE 1, 1: PRINT "Time Left: "; gametime
203.     IF gametime < 1 THEN GOTO done:
204.     IF _KEYDOWN(keyUP) OR _KEYDOWN(119) THEN
205.         player.y = player.y - playerSpeed
206.         t = t + 1
207.         score$ = STR$(score)
208.         level$ = STR$(level)
209.         coordx$ = STR$(player.x)
210.         coordy$ = STR$(player.y)
211.         _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$ + "                    Gold Bars Left To Get: " + gbars$
212.     END IF
213.     IF _KEYDOWN(keyDOWN) OR _KEYDOWN(115) THEN
214.         player.y = player.y + playerSpeed
215.         t = t + 1
216.         score$ = STR$(score)
217.         level$ = STR$(level)
218.         coordx$ = STR$(player.x)
219.         coordy$ = STR$(player.y)
220.         _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$ + "                    Gold Bars Left To Get: " + gbars$
221.     END IF
222.     IF _KEYDOWN(keyLEFT) OR _KEYDOWN(97) THEN
223.         player.x = player.x - playerSpeed
224.         t = t + 1
225.         score$ = STR$(score)
226.         level$ = STR$(level)
227.         coordx$ = STR$(player.x)
228.         coordy$ = STR$(player.y)
229.         _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$ + "                    Gold Bars Left To Get: " + gbars$
230.     END IF
231.     IF _KEYDOWN(keyRIGHT) OR _KEYDOWN(100) THEN
232.         player.x = player.x + playerSpeed
233.         t = t + 1
234.         score$ = STR$(score)
235.         level$ = STR$(level)
236.         coordx$ = STR$(player.x)
237.         coordy$ = STR$(player.y)
238.         _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$ + "                    Gold Bars Left To Get: " + gbars$
239.     END IF
240.     IF _KEYDOWN(keyESC) THEN END
241.     IF player.x < 0 THEN player.x = 0
242.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
243.     IF player.y < 0 THEN player.y = 0
244.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
245.  
246.     adjustCamera
247.  
248.     'Draw Head
249.     FOR sz = .25 TO 10 STEP .25
250.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
251.     NEXT sz
252.     'Draw Smile
253.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
254.     'Draw Eyes
255.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
256.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
257.     'hat
258.     LINE (player.x + camera.x - 10, player.y + camera.y - 10)-(player.x + camera.x + 10, player.y + camera.y - 9), _RGB32(155, 0, 0), BF
259.     LINE (player.x + camera.x - 5, player.y + camera.y - 9)-(player.x + camera.x + 5, player.y + camera.y - 15), _RGB32(155, 0, 0), BF
260.     'body
261.     LINE (player.x + camera.x, player.y + camera.y + 10)-(player.x + camera.x, player.y + camera.y + 20), _RGB32(155, 0, 0)
262.  
263.     IF t > 7 THEN t = 0
264.  
265.     'rest of body
266.     IF t = 0 THEN
267.         'left arm
268.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
269.         'right arm
270.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
271.         'left leg
272.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 15, player.y + camera.y + 35), _RGB32(155, 0, 0)
273.         'right leg
274.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 15, player.y + camera.y + 35), _RGB32(155, 0, 0)
275.     END IF
276.  
277.     IF t = 1 OR t = 7 THEN
278.         'left arm
279.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
280.         'right arm
281.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
282.         'left leg
283.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 11, player.y + camera.y + 35), _RGB32(155, 0, 0)
284.         'right leg
285.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 11, player.y + camera.y + 35), _RGB32(155, 0, 0)
286.     END IF
287.  
288.     IF t = 2 OR t = 6 THEN
289.         'left arm
290.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
291.         'right arm
292.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
293.         'left leg
294.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 9, player.y + camera.y + 35), _RGB32(155, 0, 0)
295.         'right leg
296.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 9, player.y + camera.y + 35), _RGB32(155, 0, 0)
297.     END IF
298.  
299.     IF t = 3 OR t = 5 THEN
300.         'left arm
301.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
302.         'right arm
303.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
304.         'left leg
305.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
306.         'right leg
307.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
308.     END IF
309.  
310.     IF t = 4 THEN
311.         'left arm
312.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
313.         'right arm
314.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
315.         'left leg
316.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 5, player.y + camera.y + 35), _RGB32(155, 0, 0)
317.         'right leg
318.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 5, player.y + camera.y + 35), _RGB32(155, 0, 0)
319.     END IF
320.  
321.     FOR check = -15 TO 15
322.         IF POINT(player.x + check, player.y + check) = _RGB32(255, 255, 128) THEN
323.             _DEST map
324.             FOR sz = .2 TO 35 STEP .2
325.                 CIRCLE (player.x + check, player.y + check), sz, _RGB32(127, 255, 127)
326.             NEXT sz
327.             GOSUB findgold:
328.         END IF
329.         IF POINT(player.x + check, player.y - check) = _RGB32(255, 255, 128) THEN
330.             _DEST map
331.             FOR sz = .2 TO 35 STEP .2
332.                 CIRCLE (player.x + check, player.y - check), sz, _RGB32(127, 255, 127)
333.             NEXT sz
334.             GOSUB findgold:
335.         END IF
336.         IF POINT(player.x - check, player.y + check) = _RGB32(255, 255, 128) THEN
337.             _DEST map
338.             FOR sz = .2 TO 35 STEP .2
339.                 CIRCLE (player.x - check, player.y + check), sz, _RGB32(127, 255, 127)
340.             NEXT sz
341.             GOSUB findgold:
342.         END IF
343.     NEXT check
344.  
345.     FOR checkmines = -5 TO 5
346.         IF POINT(player.x + checkmines, player.y + checkmines) = _RGB32(0, 0, 5) THEN
347.             _DEST map
348.             FOR sz = .25 TO 35 STEP .25
349.                 CIRCLE (player.x + checkmines, player.y + checkmines), sz, _RGB32(127, 127, 127)
350.             NEXT sz
351.             FOR sz = 1 TO 35 STEP 5
352.                 CIRCLE (player.x + checkmines, player.y + checkmines), sz, _RGB32(127, 0, 0)
353.                 SOUND 150 + (sz * 3), 1
354.                 _DELAY .05
355.             NEXT sz
356.             player.x = INT(_WIDTH(map) * RND)
357.             player.y = INT(_HEIGHT(map) * RND)
358.             score$ = STR$(score)
359.             level$ = STR$(level)
360.             coordx$ = STR$(player.x)
361.             coordy$ = STR$(player.y)
362.             _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$ + "                   Gold Bars Left To Get: " + gbars$
363.             _DEST 0
364.             GOTO nex:
365.         END IF
366.         IF POINT(player.x + checkmines, player.y - checkmines) = _RGB32(0, 0, 5) THEN
367.             _DEST map
368.             FOR sz = .25 TO 35 STEP .25
369.                 CIRCLE (player.x + checkmines, player.y - checkmines), sz, _RGB32(127, 127, 127)
370.             NEXT sz
371.             FOR sz = 1 TO 35 STEP 5
372.                 CIRCLE (player.x + checkmines, player.y - checkmines), sz, _RGB32(127, 0, 0)
373.                 SOUND 150 + (sz * 3), 1
374.                 _DELAY .05
375.             NEXT sz
376.             player.x = INT(_WIDTH(map) * RND)
377.             player.y = INT(_HEIGHT(map) * RND)
378.             score$ = STR$(score)
379.             level$ = STR$(level)
380.             coordx$ = STR$(player.x)
381.             coordy$ = STR$(player.y)
382.             _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$ + "                    Gold Bars Left To Get: " + gbars$
383.             _DEST 0
384.             GOTO nex:
385.         END IF
386.         IF POINT(player.x - checkmines, player.y + checkmines) = _RGB32(0, 0, 5) THEN
387.             _DEST map
388.             FOR sz = .25 TO 35 STEP .25
389.                 CIRCLE (player.x - checkmines, player.y + checkmines), sz, _RGB32(127, 127, 127)
390.             NEXT sz
391.             FOR sz = 1 TO 35 STEP 5
392.                 CIRCLE (player.x - checkmines, player.y + checkmines), sz, _RGB32(127, 0, 0)
393.                 SOUND 150 + (sz * 3), 1
394.                 _DELAY .05
395.             NEXT sz
396.             player.x = INT(_WIDTH(map) * RND)
397.             player.y = INT(_HEIGHT(map) * RND)
398.             score$ = STR$(score)
399.             level$ = STR$(level)
400.             coordx$ = STR$(player.x)
401.             coordy$ = STR$(player.y)
402.             _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$ + "                    Gold Bars Left To Get: " + gbars$
403.             _DEST 0
404.             GOTO nex:
405.         END IF
406.     NEXT checkmines
407.     nex:
408.  
409.     'Map
410.     radarx1 = (_WIDTH + 735) - _WIDTH
411.     radary1 = (_HEIGHT + 535) - _HEIGHT
412.     radarx2 = (_WIDTH + 785) - _WIDTH
413.     radary2 = (_HEIGHT + 585) - _HEIGHT
414.     LINE (radarx1, radary1)-(radarx2, radary2), _RGB32(0, 0, 0), BF
415.     xradar = player.x / 112: yradar = player.y / 84
416.     FOR sz = .25 TO 2 STEP .25
417.         CIRCLE ((radarx1 + xradar), (radary1 + yradar)), sz, _RGB32(255, 0, 0)
418.     NEXT sz
419.     FOR gold2 = 1 TO 25
420.         xgold = goldx(gold2) / 112: ygold = goldy(gold2) / 84
421.         FOR sz = .25 TO 1 STEP .25
422.             CIRCLE ((radarx1 + xgold), (radary1 + ygold)), sz, _RGB32(255, 255, 0)
423.         NEXT sz
424.     NEXT gold2
425.  
426.     _DISPLAY
427.     _LIMIT 60
428. LOOP
429.  
430. findgold:
431. _DEST 0
432. FOR snd = 400 TO 800 STEP 100
433.     SOUND snd, .5
434. NEXT snd
435. score = score + 100
436. score$ = STR$(score)
437. level$ = STR$(level)
438. coordx$ = STR$(player.x)
439. coordy$ = STR$(player.y)
440. gbars = gbars - 1
441. gbars$ = STR$(gbars)
442. _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$ + "                    Gold Bars Left To Get: " + gbars$
443. IF score / 2000 = INT(score / 2000) THEN
444.     level = level + 1
445.     minelevel = minelevel + 50
446.     level$ = STR$(level)
447.     coordx$ = STR$(player.x)
448.     coordy$ = STR$(player.y)
449.     _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$ + "                    Gold Bars Left To Get: " + gbars$
450.     IF level = 11 THEN GOTO win:
451.     gbars = 20
452.     gbars$ = STR$(gbars)
453.     GOTO start2:
454. END IF
455. RETURN
456.  
457. done:
458. _AUTODISPLAY
459. _SNDSTOP s&
460. LOCATE 10, 45: PRINT "G A M E     O V E R"
461. FOR snd = 450 TO 150 STEP -25
462.     SOUND snd, .5
463. NEXT snd
464. LOCATE 13, 45: PRINT "Again (Y/N)?"
465. ag:
466. ag$ = INKEY$
467. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
468. IF ag$ = "n" OR ag$ = "N" THEN END
469. GOTO ag:
470.  
471. win:
472. _AUTODISPLAY
473. level = 10
474. level$ = STR$(level)
475. _TITLE "Level: " + level$ + "   Score: " + score$ + "                         Coordinates: " + coordx$ + "," + coordy$
476. LOCATE 10, 45: PRINT "G A M E     W O N ! ! ! ! ! ! !"
477. FOR snd = 450 TO 150 STEP -25
478.     SOUND snd, .5
479. NEXT snd
480. LOCATE 13, 45: PRINT "Again (Y/N)?"
481. ag2:
482. ag$ = INKEY$
483. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
484. IF ag$ = "n" OR ag$ = "N" THEN END
485. GOTO ag2:
486.  
487. 'Thanks to FelippeHeitor for this Sub and the camera code above.
488. SUB adjustCamera
489.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
490.         camera.x = _WIDTH / 2 - player.x
491.     END IF
492.     IF camera.x > 0 THEN camera.x = 0
493.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
494.  
495.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
496.         camera.y = _HEIGHT / 2 - player.y
497.     END IF
498.     IF camera.y > 0 THEN camera.y = 0
499.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
500. END SUB
501.  

[SierraKen]

Woops sorry (I'm half-with it right now LOL). The grey target looking things is what happens after you have already used a mine shaft. That way you know you have been there before and can't use that mine shaft anymore. :)

[SierraKen]

I finally won the game. :) It's not hard now with the mini-map. :)