Find The Gold!

[SierraKen]

I just fixed the Title Bar. I forgot to check it when I was trying something on it and it was just saying "Loading...". It works better now too.
Here is also a picture of the new trees. :)

Code: QB64: [Select]

1. 'Find the Gold! by SierraKen
2. 'October 24, 2020
3. 'Thanks for the great mapping code by FellipeHeitor and help from B+!
4. 'Additions:
5. 'Body, Arms, and Legs. Levels and 20 gold per level. Larger land area sizes. Lakes and Trees. 20 Level limit.
6. 'Changed PAINT to CLS , _RGB32(0,200,0) which greatly improves the loading speed.
7. 'Added 4 times the amount of trees and made 3 levels of mountains.
8. 'Added random creeks. Added twice the lakes with random shapes.
9. 'Changed screen size to 800 x 600 to be compatible with all players.
10. 'Added 100 seconds to level time, to 400 for level 1.
11. 'Slowed player speed from 10 to 8.
12. 'Changed to a happier sound when getting gold.
13. 'Changed color after you get the gold from brown to green.
14. 'Added WASD keys to move player along with arrow keys.
15. 'Removed the square mountains and made more realistic hills.
16. 'Put the lakes on the ground, before everything else.
17. 'Made trees look better.
18. 'Removed creeks.
19. 'Fixed Title Bar.
20.  
21. RANDOMIZE TIMER
22. SCREEN _NEWIMAGE(800, 600, 32)
23.  
24. TYPE object
25.     x AS SINGLE
26.     y AS SINGLE
27. END TYPE
28.  
29. DIM SHARED player AS object
30. DIM SHARED camera AS object
31. DIM SHARED map AS LONG
32. DIM playerSpeed AS SINGLE
33.  
34. _TITLE "Loading....."
35.  
36. start:
37. score = 0
38. level = 1
39.  
40. start2:
41. player.x = _WIDTH / 2
42. player.y = _HEIGHT / 2
43.  
44. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
45.  
46. _DEST map
47.  
48. CLS , _RGB32(0, 200, 0)
49. _LIMIT 2000
50.  
51. 'Lakes
52. FOR lakes = 1 TO 100
53.     w = RND
54.     h = RND
55.     sze = (RND * 250) + 100
56.     shape = RND
57.     FOR sz = .25 TO sze STEP .25
58.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 128, 255), , , shape
59.     NEXT sz
60. NEXT lakes
61.  
62.  
63. 'Hills
64. FOR hills = 1 TO 1200
65.     xx = (RND * _WIDTH)
66.     sz = INT(RND * 100) + 200
67.     shape = RND
68.     hillcolors:
69.     c1 = INT(RND * 100) + 55
70.     c2 = INT(RND * 100) + 55
71.     c3 = INT(RND * 100) + 55
72.     IF c1 = 255 AND c2 = 255 AND c3 = 128 THEN GOTO hillcolors:
73.     yy = yy + 4
74.     FOR hill = 1 TO sz STEP .25
75.         hh = hh + .025
76.         IF hh > 100 THEN hh = 100
77.         cc1 = c1 + hh
78.         cc2 = c2 + hh
79.         cc3 = c3 + hh
80.         CIRCLE (xx, yy), hill, _RGB32(cc1, cc2, cc3), 2 * _PI, _PI, shape
81.     NEXT hill
82.     hh = 0
83. NEXT hills
84. yy = 0
85.  
86.  
87. 'Trees
88. FOR trees = 1 TO 1000
89.     tx = RND
90.     tx = tx * _WIDTH
91.     ty = RND
92.     ty = ty * _HEIGHT
93.     tsz = (RND * 40) + 10
94.     LINE (tx, ty)-(tx, ty + tsz + 5), _RGB32(188, 127, 127)
95.     FOR branches = ty TO ty + tsz STEP 3
96.         trim = trim + 2
97.         LINE (tx, branches)-(tx - trim, branches + 5), _RGB32(0, 183, 127)
98.         LINE (tx, branches)-(tx + trim, branches + 5), _RGB32(0, 183, 127)
99.     NEXT branches
100.     trim = 0
101. NEXT trees
102.  
103. 'Place Gold
104. FOR gold = 1 TO 20
105.     gold:
106.     w2 = INT(RND * _WIDTH) - 40
107.     h2 = INT(RND * _HEIGHT) - 40
108.     IF w2 < 40 THEN w2 = 40
109.     IF h2 < 40 THEN h2 = 40
110.     IF POINT(w2, h2) = _RGB32(255, 255, 128) THEN GOTO gold:
111.     IF POINT(w2, h2) = _RGB32(0, 0, 0) THEN GOTO gold:
112.     'Gold
113.     COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
114.     _PRINTSTRING (w2, h2), "GOLD"
115. NEXT gold
116.  
117. _DEST 0
118.  
119. _SOURCE map
120.  
121. playerSpeed = 8
122.  
123. CONST keyUP = 18432
124. CONST keyDOWN = 20480
125. CONST keyLEFT = 19200
126. CONST keyRIGHT = 19712
127. CONST keyESC = 27
128. CLS
129. _PUTIMAGE (camera.x, camera.y), map
130.  
131. LOCATE 3, 30: PRINT "Use the arrow keys (or WASD keys) to find 20 gold bars per level."
132. LOCATE 4, 30: PRINT "Every level will have a shorter time."
133. LOCATE 5, 30: PRINT "After Level 20 you win the game."
134. LOCATE 10, 40: PRINT "Press Any Key To Begin."
135. _TITLE "Find The Gold!"
136. pause:
137. a$ = INKEY$
138. IF a$ <> "" THEN GOTO begin:
139. GOTO pause:
140. score$ = STR$(score)
141. level$ = STR$(level)
142.  
143.  
144. begin:
145. _TITLE "Level: " + level$ + "   Score: " + score$
146. seconds = INT(TIMER)
147. DO
148.     CLS
149.     leveltime = level * 5
150.     gametime = (405 - leveltime) - (INT(TIMER) - seconds)
151.     _PUTIMAGE (camera.x, camera.y), map
152.     LOCATE 1, 1: PRINT "Time Left: "; gametime
153.     IF gametime < 1 THEN GOTO done:
154.     IF _KEYDOWN(keyUP) OR _KEYDOWN(119) THEN
155.         player.y = player.y - playerSpeed
156.         t = t + 1
157.     END IF
158.     IF _KEYDOWN(keyDOWN) OR _KEYDOWN(115) THEN
159.         player.y = player.y + playerSpeed
160.         t = t + 1
161.     END IF
162.     IF _KEYDOWN(keyLEFT) OR _KEYDOWN(97) THEN
163.         player.x = player.x - playerSpeed
164.         t = t + 1
165.     END IF
166.     IF _KEYDOWN(keyRIGHT) OR _KEYDOWN(100) THEN
167.         player.x = player.x + playerSpeed
168.         t = t + 1
169.     END IF
170.     IF _KEYDOWN(keyESC) THEN END
171.     IF player.x < 0 THEN player.x = 0
172.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
173.     IF player.y < 0 THEN player.y = 0
174.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
175.  
176.     adjustCamera
177.  
178.     'Draw Head
179.     FOR sz = .25 TO 10 STEP .25
180.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
181.     NEXT sz
182.     'Draw Smile
183.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
184.     'Draw Eyes
185.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
186.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
187.     'hat
188.     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
189.     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
190.     'body
191.     LINE (player.x + camera.x, player.y + camera.y + 10)-(player.x + camera.x, player.y + camera.y + 20), _RGB32(155, 0, 0)
192.  
193.     IF t > 7 THEN t = 0
194.  
195.     'rest of body
196.     IF t = 0 THEN
197.         'left arm
198.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
199.         'right arm
200.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
201.         'left leg
202.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 15, player.y + camera.y + 35), _RGB32(155, 0, 0)
203.         'right leg
204.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 15, player.y + camera.y + 35), _RGB32(155, 0, 0)
205.     END IF
206.  
207.     IF t = 1 OR t = 7 THEN
208.         'left arm
209.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
210.         'right arm
211.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
212.         'left leg
213.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 11, player.y + camera.y + 35), _RGB32(155, 0, 0)
214.         'right leg
215.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 11, player.y + camera.y + 35), _RGB32(155, 0, 0)
216.     END IF
217.  
218.     IF t = 2 OR t = 6 THEN
219.         'left arm
220.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
221.         'right arm
222.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
223.         'left leg
224.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 9, player.y + camera.y + 35), _RGB32(155, 0, 0)
225.         'right leg
226.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 9, player.y + camera.y + 35), _RGB32(155, 0, 0)
227.     END IF
228.  
229.     IF t = 3 OR t = 5 THEN
230.         'left arm
231.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
232.         'right arm
233.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
234.         'left leg
235.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
236.         'right leg
237.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
238.     END IF
239.  
240.     IF t = 4 THEN
241.         'left arm
242.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
243.         'right arm
244.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
245.         'left leg
246.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 5, player.y + camera.y + 35), _RGB32(155, 0, 0)
247.         'right leg
248.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 5, player.y + camera.y + 35), _RGB32(155, 0, 0)
249.     END IF
250.  
251.  
252.     FOR check = -15 TO 15
253.         IF POINT(player.x + check, player.y + check) = _RGB32(255, 255, 128) THEN
254.             _DEST map
255.             FOR sz = .2 TO 35 STEP .2
256.                 CIRCLE (player.x + check, player.y + check), sz, _RGB32(127, 255, 127)
257.             NEXT sz
258.             GOSUB findgold:
259.         END IF
260.         IF POINT(player.x + check, player.y - check) = _RGB32(255, 255, 128) THEN
261.             _DEST map
262.             FOR sz = .2 TO 35 STEP .2
263.                 CIRCLE (player.x + check, player.y - check), sz, _RGB32(127, 255, 127)
264.             NEXT sz
265.             GOSUB findgold:
266.         END IF
267.         IF POINT(player.x - check, player.y + check) = _RGB32(255, 255, 128) THEN
268.             _DEST map
269.             FOR sz = .2 TO 35 STEP .2
270.                 CIRCLE (player.x - check, player.y + check), sz, _RGB32(127, 255, 127)
271.             NEXT sz
272.             GOSUB findgold:
273.         END IF
274.     NEXT check
275.     _DISPLAY
276.     _LIMIT 60
277. LOOP
278.  
279. findgold:
280. _DEST 0
281. FOR snd = 400 TO 800 STEP 100
282.     SOUND snd, .5
283. NEXT snd
284. score = score + 100
285. score$ = STR$(score)
286. level$ = STR$(level)
287. _TITLE "Level: " + level$ + "   Score: " + score$
288. IF score / 2000 = INT(score / 2000) THEN
289.     level = level + 1
290.     level$ = STR$(level)
291.     _TITLE "Level: " + level$ + "   Score: " + score$
292.     IF level = 21 THEN GOTO win:
293.     GOTO start2:
294. END IF
295. RETURN
296.  
297. done:
298. _AUTODISPLAY
299. LOCATE 10, 45: PRINT "G A M E     O V E R"
300. FOR snd = 450 TO 150 STEP -25
301.     SOUND snd, .5
302. NEXT snd
303. LOCATE 13, 45: PRINT "Again (Y/N)?"
304. ag:
305. ag$ = INKEY$
306. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
307. IF ag$ = "n" OR ag$ = "N" THEN END
308. GOTO ag:
309.  
310. win:
311. _AUTODISPLAY
312. LOCATE 10, 45: PRINT "G A M E     W O N ! ! ! ! ! ! !"
313. FOR snd = 450 TO 150 STEP -25
314.     SOUND snd, .5
315. NEXT snd
316. LOCATE 13, 45: PRINT "Again (Y/N)?"
317. ag2:
318. ag$ = INKEY$
319. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
320. IF ag$ = "n" OR ag$ = "N" THEN END
321. GOTO ag2:
322.  
323. 'Thanks to FelippeHeitor for this Sub and the camera code above.
324. SUB adjustCamera
325.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
326.         camera.x = _WIDTH / 2 - player.x
327.     END IF
328.     IF camera.x > 0 THEN camera.x = 0
329.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
330.  
331.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
332.         camera.y = _HEIGHT / 2 - player.y
333.     END IF
334.     IF camera.y > 0 THEN camera.y = 0
335.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
336. END SUB
337.  

[bplus]

Ah tree shapes much better! Can you do heights according to distance away ie the higher up in landscape the smaller the trees? Something to try...

Also do you know how to vary browns and greens? Formula for Brown is 3 parts red + 2 parts green + 1 part Blue
So really really dark brown is _RGB32(30, 20, 10) probably looks black but
60, 40, 20 might serve plus some randomness of course
and tans and beige is like 255, 128, 64 really light,  200, 100, 50 darker...

Greens browned up by adding red and blue grass is made by adding... well blue of course ;-)) but always way less than amount of green.

Hills would get bluer as recede into background because more air and reflecting more sky like lakes and oceans only more subtle because 0 smooth surfaces.

[Aurel]

The last one looking really good ..
If you can add obstacles then you will made really cool simple game !

https://aurelsoft.ucoz.com/FindGold5.png

[SierraKen]

Awesome! I just used your browns and as you go down further the hills turn more yellow, which also makes it a little harder to find the GOLD as you get down lower. It also looks like the color of the foothills as you get closer. This is way cool! Thanks.

Code: QB64: [Select]

1. 'Find the Gold! by SierraKen
2. 'October 24, 2020
3. 'Thanks for the great mapping code by FellipeHeitor and help from B+!
4. 'Additions:
5. 'Body, Arms, and Legs. Levels and 20 gold per level. Larger land area sizes. Lakes and Trees. 20 Level limit.
6. 'Changed PAINT to CLS , _RGB32(0,200,0) which greatly improves the loading speed.
7. 'Added 4 times the amount of trees and made 3 levels of mountains.
8. 'Added random creeks. Added twice the lakes with random shapes.
9. 'Changed screen size to 800 x 600 to be compatible with all players.
10. 'Added 100 seconds to level time, to 400 for level 1.
11. 'Slowed player speed from 10 to 8.
12. 'Changed to a happier sound when getting gold.
13. 'Changed color after you get the gold from brown to green.
14. 'Added WASD keys to move player along with arrow keys.
15. 'Removed the square mountains and made more realistic hills.
16. 'Put the lakes on the ground, before everything else.
17. 'Made trees look better.
18. 'Removed creeks.
19. 'Fixed Title Bar.
20. 'Changed colors of hills.
21.  
22. RANDOMIZE TIMER
23. SCREEN _NEWIMAGE(800, 600, 32)
24.  
25. TYPE object
26.     x AS SINGLE
27.     y AS SINGLE
28. END TYPE
29.  
30. DIM SHARED player AS object
31. DIM SHARED camera AS object
32. DIM SHARED map AS LONG
33. DIM playerSpeed AS SINGLE
34.  
35. _TITLE "Loading....."
36.  
37. start:
38. score = 0
39. level = 1
40.  
41. start2:
42. player.x = _WIDTH / 2
43. player.y = _HEIGHT / 2
44.  
45. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
46.  
47. _DEST map
48.  
49. CLS , _RGB32(0, 200, 0)
50. _LIMIT 2000
51.  
52. 'Lakes
53. FOR lakes = 1 TO 100
54.     w = RND
55.     h = RND
56.     sze = (RND * 250) + 100
57.     shape = RND
58.     FOR sz = .25 TO sze STEP .25
59.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 128, 255), , , shape
60.     NEXT sz
61. NEXT lakes
62.  
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.  
90. 'Trees
91. FOR trees = 1 TO 1000
92.     tx = RND
93.     tx = tx * _WIDTH
94.     ty = RND
95.     ty = ty * _HEIGHT
96.     tsz = (RND * 40) + 10
97.     LINE (tx, ty)-(tx, ty + tsz + 5), _RGB32(188, 127, 127)
98.     FOR branches = ty TO ty + tsz STEP 3
99.         trim = trim + 2
100.         LINE (tx, branches)-(tx - trim, branches + 5), _RGB32(0, 183, 127)
101.         LINE (tx, branches)-(tx + trim, branches + 5), _RGB32(0, 183, 127)
102.     NEXT branches
103.     trim = 0
104. NEXT trees
105.  
106. 'Place Gold
107. FOR gold = 1 TO 20
108.     gold:
109.     w2 = INT(RND * _WIDTH) - 40
110.     h2 = INT(RND * _HEIGHT) - 40
111.     IF w2 < 40 THEN w2 = 40
112.     IF h2 < 40 THEN h2 = 40
113.     IF POINT(w2, h2) = _RGB32(255, 255, 128) THEN GOTO gold:
114.     IF POINT(w2, h2) = _RGB32(0, 0, 0) THEN GOTO gold:
115.     'Gold
116.     COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
117.     _PRINTSTRING (w2, h2), "GOLD"
118. NEXT gold
119.  
120. _DEST 0
121.  
122. _SOURCE map
123.  
124. playerSpeed = 8
125.  
126. CONST keyUP = 18432
127. CONST keyDOWN = 20480
128. CONST keyLEFT = 19200
129. CONST keyRIGHT = 19712
130. CONST keyESC = 27
131. CLS
132. _PUTIMAGE (camera.x, camera.y), map
133.  
134. LOCATE 3, 30: PRINT "Use the arrow keys (or WASD keys) to find 20 gold bars per level."
135. LOCATE 4, 30: PRINT "Every level will have a shorter time."
136. LOCATE 5, 30: PRINT "After Level 20 you win the game."
137. LOCATE 10, 40: PRINT "Press Any Key To Begin."
138. _TITLE "Find The Gold!"
139. pause:
140. a$ = INKEY$
141. IF a$ <> "" THEN GOTO begin:
142. GOTO pause:
143. score$ = STR$(score)
144. level$ = STR$(level)
145.  
146.  
147. begin:
148. _TITLE "Level: " + level$ + "   Score: " + score$
149. seconds = INT(TIMER)
150. DO
151.     CLS
152.     leveltime = level * 5
153.     gametime = (405 - leveltime) - (INT(TIMER) - seconds)
154.     _PUTIMAGE (camera.x, camera.y), map
155.     LOCATE 1, 1: PRINT "Time Left: "; gametime
156.     IF gametime < 1 THEN GOTO done:
157.     IF _KEYDOWN(keyUP) OR _KEYDOWN(119) THEN
158.         player.y = player.y - playerSpeed
159.         t = t + 1
160.     END IF
161.     IF _KEYDOWN(keyDOWN) OR _KEYDOWN(115) THEN
162.         player.y = player.y + playerSpeed
163.         t = t + 1
164.     END IF
165.     IF _KEYDOWN(keyLEFT) OR _KEYDOWN(97) THEN
166.         player.x = player.x - playerSpeed
167.         t = t + 1
168.     END IF
169.     IF _KEYDOWN(keyRIGHT) OR _KEYDOWN(100) THEN
170.         player.x = player.x + playerSpeed
171.         t = t + 1
172.     END IF
173.     IF _KEYDOWN(keyESC) THEN END
174.     IF player.x < 0 THEN player.x = 0
175.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
176.     IF player.y < 0 THEN player.y = 0
177.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
178.  
179.     adjustCamera
180.  
181.     'Draw Head
182.     FOR sz = .25 TO 10 STEP .25
183.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
184.     NEXT sz
185.     'Draw Smile
186.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
187.     'Draw Eyes
188.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
189.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
190.     'hat
191.     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
192.     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
193.     'body
194.     LINE (player.x + camera.x, player.y + camera.y + 10)-(player.x + camera.x, player.y + camera.y + 20), _RGB32(155, 0, 0)
195.  
196.     IF t > 7 THEN t = 0
197.  
198.     'rest of body
199.     IF t = 0 THEN
200.         'left arm
201.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
202.         'right arm
203.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
204.         'left leg
205.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 15, player.y + camera.y + 35), _RGB32(155, 0, 0)
206.         'right leg
207.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 15, player.y + camera.y + 35), _RGB32(155, 0, 0)
208.     END IF
209.  
210.     IF t = 1 OR t = 7 THEN
211.         'left arm
212.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
213.         'right arm
214.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
215.         'left leg
216.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 11, player.y + camera.y + 35), _RGB32(155, 0, 0)
217.         'right leg
218.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 11, player.y + camera.y + 35), _RGB32(155, 0, 0)
219.     END IF
220.  
221.     IF t = 2 OR t = 6 THEN
222.         'left arm
223.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
224.         'right arm
225.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
226.         'left leg
227.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 9, player.y + camera.y + 35), _RGB32(155, 0, 0)
228.         'right leg
229.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 9, player.y + camera.y + 35), _RGB32(155, 0, 0)
230.     END IF
231.  
232.     IF t = 3 OR t = 5 THEN
233.         'left arm
234.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
235.         'right arm
236.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
237.         'left leg
238.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
239.         'right leg
240.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
241.     END IF
242.  
243.     IF t = 4 THEN
244.         'left arm
245.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
246.         'right arm
247.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
248.         'left leg
249.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 5, player.y + camera.y + 35), _RGB32(155, 0, 0)
250.         'right leg
251.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 5, player.y + camera.y + 35), _RGB32(155, 0, 0)
252.     END IF
253.  
254.  
255.     FOR check = -15 TO 15
256.         IF POINT(player.x + check, player.y + check) = _RGB32(255, 255, 128) THEN
257.             _DEST map
258.             FOR sz = .2 TO 35 STEP .2
259.                 CIRCLE (player.x + check, player.y + check), sz, _RGB32(127, 255, 127)
260.             NEXT sz
261.             GOSUB findgold:
262.         END IF
263.         IF POINT(player.x + check, player.y - check) = _RGB32(255, 255, 128) THEN
264.             _DEST map
265.             FOR sz = .2 TO 35 STEP .2
266.                 CIRCLE (player.x + check, player.y - check), sz, _RGB32(127, 255, 127)
267.             NEXT sz
268.             GOSUB findgold:
269.         END IF
270.         IF POINT(player.x - check, player.y + check) = _RGB32(255, 255, 128) THEN
271.             _DEST map
272.             FOR sz = .2 TO 35 STEP .2
273.                 CIRCLE (player.x - check, player.y + check), sz, _RGB32(127, 255, 127)
274.             NEXT sz
275.             GOSUB findgold:
276.         END IF
277.     NEXT check
278.     _DISPLAY
279.     _LIMIT 60
280. LOOP
281.  
282. findgold:
283. _DEST 0
284. FOR snd = 400 TO 800 STEP 100
285.     SOUND snd, .5
286. NEXT snd
287. score = score + 100
288. score$ = STR$(score)
289. level$ = STR$(level)
290. _TITLE "Level: " + level$ + "   Score: " + score$
291. IF score / 2000 = INT(score / 2000) THEN
292.     level = level + 1
293.     level$ = STR$(level)
294.     _TITLE "Level: " + level$ + "   Score: " + score$
295.     IF level = 21 THEN GOTO win:
296.     GOTO start2:
297. END IF
298. RETURN
299.  
300. done:
301. _AUTODISPLAY
302. LOCATE 10, 45: PRINT "G A M E     O V E R"
303. FOR snd = 450 TO 150 STEP -25
304.     SOUND snd, .5
305. NEXT snd
306. LOCATE 13, 45: PRINT "Again (Y/N)?"
307. ag:
308. ag$ = INKEY$
309. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
310. IF ag$ = "n" OR ag$ = "N" THEN END
311. GOTO ag:
312.  
313. win:
314. _AUTODISPLAY
315. LOCATE 10, 45: PRINT "G A M E     W O N ! ! ! ! ! ! !"
316. FOR snd = 450 TO 150 STEP -25
317.     SOUND snd, .5
318. NEXT snd
319. LOCATE 13, 45: PRINT "Again (Y/N)?"
320. ag2:
321. ag$ = INKEY$
322. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
323. IF ag$ = "n" OR ag$ = "N" THEN END
324. GOTO ag2:
325.  
326. 'Thanks to FelippeHeitor for this Sub and the camera code above.
327. SUB adjustCamera
328.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
329.         camera.x = _WIDTH / 2 - player.x
330.     END IF
331.     IF camera.x > 0 THEN camera.x = 0
332.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
333.  
334.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
335.         camera.y = _HEIGHT / 2 - player.y
336.     END IF
337.     IF camera.y > 0 THEN camera.y = 0
338.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
339. END SUB
340.  

[SierraKen]

Aurel, that sounds like a great idea! I'll work on that toward the end of the week when my power comes back.

[Aurel]

Fine ...just take your time ..
oups i add link then i figured that i can use attachment ...hmmm

[SierraKen]

My power didn't go out after all so I've been working hard on this game today. I added mine shafts where if you run into one, it sends you to a random place on the map. And as you get high in the levels, more mine shafts are there to dodge. I reduced the 20 levels to win to 10 levels and added my own music I made many years ago. It was a program called Magix Music Creator on my old Windows XP computer. So I put that music file and the game in a zip file below in attachments. Enjoy and tell me what you think, thanks.

[FellippeHeitor]

This is progressing nicely, Ken!

[SierraKen]

Thanks Felippe. :) Next I might add some enemies and lives but we'll see. I like tinkering around with it. :)

[bplus]

Yes, I like music, coordinates and mountain coloring: light towards front or down and darker bluer upwards to top.

The mountain coloring helps with visual bearings, maybe could go flat-lands and housing on left or right to help as visual clues where you are on map.

What would be really clever is thumbnail sketch were you've been on map.

[SierraKen]

Thanks for the ideas B+. I added 10 houses per level. I also added 5 extra gold bars per level to make it a little easier. You just need to get 20 to pass each level. I also added a map in the lower right-hand corner of the screen, which was pretty tricky but I figured it out. :) The gold dots are where the gold is located and you are the red dot. Since I use POINT in almost everything and not specific variable coordinates as you collect the gold, I wasn't able to make the gold dots disappear when you collect them. But I still like what I did.
The updated code is below and I also updated the zip file in the attachment below that includes the background music. I hope you all enjoy this. This will probably be the final version since I need a break on it. Maybe someday I'll come back and add more things. But for now, this is good. Below is a current photo.

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

[bplus]

Oh nice you did get a little thumbnail!  What are the target like things?

You know what I need is a countdown of how many gold bars are left. No rest for the wicked. ;-))

[SierraKen]

LOL I thought about that but I am just so used to counting them with the Score amount. 100 per gold bar. Every 2000 passes a level. But I'll add it. LOL

[SierraKen]

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

[bplus]

LOL I thought about that but I am just so used to counting them with the Score amount. 100 per gold bar. Every 2000 passes a level. But I'll add it. LOL

OH OK that is good, go rest :-))