Find The Gold!

[SierraKen]

This is my first game made using Felippe's moving map camera code. Use your arrow keys to move your cowboy around the different land areas, trees, and lakes, to find the gold bars. If you find 20 of them you advance to the next level. Level 1 starts out with 300 seconds to finish and every level it decreases by 5 seconds. After level 20 you win the game. Instructions are in the Title bar and the game is paused when it loads and starts when you press any key and your cowboy appears on screen. You lose if your time runs out and you still have gold bars left to find on that level.
The maps on each level are randomly generated.

*NOTE: Don't use the code below, it has one error I accidentally made where you can't go past level 1 LOL. Scroll down to get the fixed code. Sorry about that!

Code: QB64: [Select]

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

 

[SierraKen]

If you want to learn more about the map and camera movement as well as another example Felippe did using online players with it,
go here: https://www.qb64.org/forum/index.php?topic=3139.0

[SierraKen]

Here is the fixed code that lets you go past level 1. This is what happens when a couple weeks of not programming does, it gets me rusty. :) Sorry about that guys.

Code: QB64: [Select]

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

[johnno56]

I could be wrong....

Replacing line #33 with 'LINE (0, 0)-STEP(_WIDTH * 7, _HEIGHT * 7), _RGB32(0, 200, 0), BF' maybe a longer command but I think it maybe a quicker method of "filling" the screen and perhaps a little more efficient on memory...

Just a thought...

J

[qbkiller101]

@SierraKen now I have to change my code too :c
anyways, here's the code I made before this post was made:

Code: QB64: [Select]

1. 'Find the Gold! by SierraKen
2. 'October 21, 2020
3. 'Thanks for the great mapping code by FellipeHeitor and help from B+!
4. 'This is mostly an example game, I hope to expand on it sometime soon.
5. 'October 22, 2020
6. 'Edits by Omer H., or qbkiller101 in the forums
7. 'Added wasd support, fast and normal mode (see 113), and choosing
8. 'dimensions for people with small screens (like me)
9.  
10.  
11. RANDOMIZE TIMER
12. SCREEN _NEWIMAGE(500, 400, 256)
13. LINE (125, 100)-(375, 175), 15, BF
14. LINE (125, 225)-(375, 300), 15, BF
15. _PRINTSTRING (150, 0), "Choose the dimensions:"
16. _PRINTSTRING (210, 125), "800 x 600"
17. _PRINTSTRING (175, 250), "Default (1000 x 800)"
18. dimx% = 800
19. dimy% = 600
20. ischosen = false
21. WHILE ischosen = false
22.     DO WHILE _MOUSEINPUT
23.         IF _MOUSEX > 125 AND _MOUSEX < 375 THEN
24.             IF _MOUSEY > 100 AND _MOUSEY < 175 THEN
25.                 IF _MOUSEBUTTON(1) = -1 THEN
26.                     dimx% = 800
27.                     dimy% = 600
28.                     ischosen = true
29.                     EXIT WHILE
30.                 END IF
31.             END IF
32.         END IF
33.         IF _MOUSEX > 125 AND _MOUSEX < 375 THEN
34.             IF _MOUSEY > 225 AND _MOUSEY < 300 THEN
35.                 IF _MOUSEBUTTON(1) = -1 THEN
36.                     dimx% = 1000
37.                     dimy% = 800
38.                     ischosen = true
39.                     EXIT WHILE
40.                 END IF
41.             END IF
42.         END IF
43.  
44.     LOOP
45. WEND
46. SCREEN _NEWIMAGE(dimx%, dimy%, 32)
47. TYPE object
48.     x AS SINGLE
49.     y AS SINGLE
50. END TYPE
51.  
52. DIM SHARED player AS object
53. DIM SHARED camera AS object
54. DIM SHARED map AS LONG
55. DIM playerSpeed AS SINGLE
56. DIM score AS INTEGER
57. CONST height800 = 4200
58. CONST width800 = 5600
59. CONST height1000 = 5600
60. CONST width1000 = 7000
61.  
62. _TITLE "Find The Gold! One gold bar per map. Use your arrow and wasd keys."
63.  
64. start:
65. player.x = _WIDTH / 2
66. player.y = _HEIGHT / 2
67.  
68. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
69.  
70. _DEST map
71. PAINT (2, 2), _RGB32(0, 200, 0)
72.  
73. IF _WIDTH = width800 AND _HEIGHT = height800 THEN
74.  
75. END IF
76.  
77. w2 = INT(RND * _WIDTH) - 15
78. h2 = INT(RND * _HEIGHT) - 10
79. IF w2 < 15 THEN w2 = 15
80. IF h2 < 10 THEN h2 = 10
81.  
82. 'Gold
83. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
84. _PRINTSTRING (w2, h2), "GOLD"
85.  
86. _DEST 0
87.  
88. _SOURCE map
89.  
90. playerSpeed = 10
91.  
92. CONST keyUP = 18432
93. CONST keyDOWN = 20480
94. CONST keyLEFT = 19200
95. CONST keyRIGHT = 19712
96.  
97. DO
98.     CLS
99.  
100.     _PUTIMAGE (camera.x, camera.y), map
101.  
102.     IF _KEYDOWN(keyUP) THEN player.y = player.y - playerSpeed
103.     IF _KEYDOWN(keyDOWN) THEN player.y = player.y + playerSpeed
104.     IF _KEYDOWN(keyLEFT) THEN player.x = player.x - playerSpeed
105.     IF _KEYDOWN(keyRIGHT) THEN player.x = player.x + playerSpeed
106.     IF _KEYDOWN(119) THEN player.y = player.y - playerSpeed 'Omer Hijazi
107.     IF _KEYDOWN(115) THEN player.y = player.y + playerSpeed 'Omer Hijazi
108.     IF _KEYDOWN(97) THEN player.x = player.x - playerSpeed 'Omer Hijazi
109.     IF _KEYDOWN(100) THEN player.x = player.x + playerSpeed 'Omer Hijazi
110.  
111.  
112.     IF player.x < 0 THEN player.x = 0
113.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
114.     IF player.y < 0 THEN player.y = 0
115.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
116.  
117.     adjustCamera
118.  
119.     'Draw Head
120.     FOR sz = .25 TO 10 STEP .25
121.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
122.     NEXT sz
123.     'Draw Smile
124.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
125.     'Draw Eyes
126.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
127.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
128.     'hat
129.     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
130.     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
131.     FOR check = -15 TO 15
132.         IF POINT(player.x + check, player.y + check) = _RGB32(255, 255, 128) THEN SOUND 500, .5: score = score + 100: score$ = STR$(score): _TITLE "Score: " + score$: GOTO start:
133.         IF POINT(player.x + check, player.y - check) = _RGB32(255, 255, 128) THEN SOUND 500, .5: score = score + 100: score$ = STR$(score): _TITLE "Score: " + score$: GOTO start:
134.         IF POINT(player.x - check, player.y + check) = _RGB32(255, 255, 128) THEN SOUND 500, .5: score = score + 100: score$ = STR$(score): _TITLE "Score: " + score$: GOTO start:
135.     NEXT check
136.  
137.     _DISPLAY
138.     _LIMIT 60
139. LOOP
140.  
141. SUB adjustCamera
142.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
143.         camera.x = _WIDTH / 2 - player.x
144.     END IF
145.     IF camera.x > 0 THEN camera.x = 0
146.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
147.  
148.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
149.         camera.y = _HEIGHT / 2 - player.y
150.     END IF
151.     IF camera.y > 0 THEN camera.y = 0
152.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
153. END SUB

and also, you should make a git repo for collaboration

[FellippeHeitor]

I could be wrong....

Replacing line #33 with 'LINE (0, 0)-STEP(_WIDTH * 7, _HEIGHT * 7), _RGB32(0, 200, 0), BF' maybe a longer command but I think it maybe a quicker method of "filling" the screen and perhaps a little more efficient on memory...

Just a thought...

J

Might wanna try this too:

Code: QB64: [Select]

1. CLS ,  _RGB32(0, 200, 0)

[Aurel]

very good, maybe better will be with more natural objects but then will be lot more larger ?
all in all ..nice ;

[SierraKen]

Thanks everyone! Using the CLS , _RGB32(0,200,0) makes a huge improvement on loading time! Thanks to all of you for the suggestions.

On this version I have made many improvements, here's the list:

Changed PAINT to CLS , _RGB32(0,200,0) which greatly improves the loading speed.
Added 4 times the amount of trees and made 3 levels of mountains.
Added random creeks. Added twice the lakes with random shapes.
Changed screen size to 800 x 600 to be compatible with all players.
Added 100 seconds to level time, to 400 for level 1.
Slowed player speed from 10 to 8.
Changed color after you get the gold from brown to green.
Changed to a happier sound when getting gold.

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 color after you get the gold from brown to green.
13. 'Changed to a happier sound when getting gold.
14.  
15. RANDOMIZE TIMER
16. SCREEN _NEWIMAGE(800, 600, 32)
17.  
18. TYPE object
19.     x AS SINGLE
20.     y AS SINGLE
21. END TYPE
22.  
23. DIM SHARED player AS object
24. DIM SHARED camera AS object
25. DIM SHARED map AS LONG
26. DIM playerSpeed AS SINGLE
27.  
28. _TITLE "Find The Gold!"
29.  
30. start:
31. score = 0
32. level = 1
33.  
34. start2:
35. player.x = _WIDTH / 2
36. player.y = _HEIGHT / 2
37.  
38. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
39.  
40. _DEST map
41. CLS , _RGB32(0, 200, 0)
42.  
43. 'Land Areas
44. FOR blocks = 1 TO 400
45.     blocks:
46.     xx = (RND * _WIDTH)
47.     yy = (RND * _HEIGHT)
48.     sz = INT(RND * 300) + 50
49.     blockcolors:
50.     c1 = INT(RND * 155) + 100
51.     c2 = INT(RND * 155) + 100
52.     c3 = INT(RND * 155) + 100
53.     IF c1 = 255 AND c2 = 255 AND c3 = 128 THEN GOTO blockcolors:
54.     c4 = INT(RND * 155) + 100
55.     c5 = INT(RND * 155) + 100
56.     c6 = INT(RND * 155) + 100
57.     blockcolors2:
58.     IF c4 = 255 AND c5 = 255 AND c6 = 128 THEN GOTO blockcolors2:
59.     c7 = INT(RND * 155) + 100
60.     c8 = INT(RND * 155) + 100
61.     c9 = INT(RND * 155) + 100
62.     blockcolors3:
63.     IF c7 = 255 AND c8 = 255 AND c9 = 128 THEN GOTO blockcolors3:
64.  
65.     LINE (xx, yy)-(xx + sz, yy + sz), _RGB32(c1, c2, c3), BF
66.     LINE (xx + (sz * .25), yy + (sz * .25))-(xx + (sz * .75), yy + (sz * .75)), _RGB32(c4, c5, c6), BF
67.     LINE (xx + (sz * .40), yy + (sz * .40))-(xx + (sz * .60), yy + (sz * .60)), _RGB32(c7, c8, c9), BF
68.  
69. NEXT
70.  
71. 'Lakes
72. FOR lakes = 1 TO 20
73.     w = RND
74.     h = RND
75.     sze = (RND * 200) + 50
76.     shape = RND
77.     FOR sz = .25 TO sze STEP .25
78.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 128, 255), , , shape
79.     NEXT sz
80. NEXT lakes
81.  
82. 'Creeks
83. FOR creeks = 1 TO 100
84.     cw1 = RND * _WIDTH
85.     ch1 = RND * _HEIGHT
86.     cw2 = (RND * 50) + cw1
87.     ch2 = (RND * 50) + ch1
88.     cw3 = (RND * 50) + cw2
89.     ch3 = (RND * 50) + ch2
90.     cw4 = (RND * 50) + cw3
91.     ch4 = (RND * 50) + ch3
92.     cw5 = (RND * 50) + cw4
93.     ch5 = (RND * 50) + ch4
94.     cw6 = (RND * 50) + cw5
95.     ch6 = (RND * 50) + ch5
96.     cw7 = (RND * 50) + cw6
97.     ch7 = (RND * 50) + ch6
98.     cw8 = (RND * 50) + cw7
99.     ch8 = (RND * 50) + ch7
100.     cw9 = (RND * 50) + cw8
101.     ch9 = (RND * 50) + ch8
102.     cw10 = (RND * 50) + cw9
103.     ch10 = (RND * 50) + ch9
104.  
105.     LINE (cw1, ch1)-(cw2, ch2), _RGB32(0, 128, 255)
106.     LINE (cw2, ch2)-(cw3, ch3), _RGB32(0, 128, 255)
107.     LINE (cw3, ch3)-(cw4, ch4), _RGB32(0, 128, 255)
108.     LINE (cw4, ch4)-(cw5, ch5), _RGB32(0, 128, 255)
109.     LINE (cw5, ch5)-(cw6, ch6), _RGB32(0, 128, 255)
110.     LINE (cw6, ch6)-(cw7, ch7), _RGB32(0, 128, 255)
111.     LINE (cw7, ch7)-(cw8, ch8), _RGB32(0, 128, 255)
112.     LINE (cw8, ch8)-(cw9, ch9), _RGB32(0, 128, 255)
113.     LINE (cw9, ch9)-(cw10, ch10), _RGB32(0, 128, 255)
114.  
115. NEXT creeks
116.  
117. 'Trees
118. FOR trees = 1 TO 1600
119.     tx = RND
120.     tx = tx * _WIDTH
121.     ty = RND
122.     ty = ty * _HEIGHT
123.     tsz = (RND * 40) + 10
124.     LINE (tx, ty)-(tx, ty + tsz + 5), _RGB32(188, 127, 127)
125.     FOR branches = ty TO ty + tsz STEP 3
126.         LINE (tx, branches)-(tx - 10, branches + 5), _RGB32(127, 255, 127)
127.         LINE (tx, branches)-(tx + 10, branches + 5), _RGB32(127, 255, 127)
128.     NEXT branches
129. NEXT trees
130.  
131. 'Place Gold
132. FOR gold = 1 TO 20
133.     gold:
134.     w2 = INT(RND * _WIDTH) - 40
135.     h2 = INT(RND * _HEIGHT) - 40
136.     IF w2 < 40 THEN w2 = 40
137.     IF h2 < 40 THEN h2 = 40
138.     IF POINT(w2, h2) = _RGB32(255, 255, 128) THEN GOTO gold:
139.     IF POINT(w2, h2) = _RGB32(0, 0, 0) THEN GOTO gold:
140.     'Gold
141.     COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
142.     _PRINTSTRING (w2, h2), "GOLD"
143. NEXT gold
144.  
145. _DEST 0
146.  
147. _SOURCE map
148.  
149. playerSpeed = 8
150.  
151. CONST keyUP = 18432
152. CONST keyDOWN = 20480
153. CONST keyLEFT = 19200
154. CONST keyRIGHT = 19712
155. CONST keyESC = 27
156. CLS
157. _PUTIMAGE (camera.x, camera.y), map
158.  
159. LOCATE 3, 30: PRINT "Use the arrow keys to find 20 gold bars per level."
160. LOCATE 4, 30: PRINT "Every level will have a shorter time."
161. LOCATE 5, 30: PRINT "After Level 20 you win the game."
162. LOCATE 10, 40: PRINT "Press Any Key To Begin."
163.  
164. pause:
165. a$ = INKEY$
166. IF a$ <> "" THEN GOTO begin:
167. GOTO pause:
168.  
169. begin:
170.  
171. seconds = INT(TIMER)
172. DO
173.     CLS
174.     leveltime = level * 5
175.     gametime = (405 - leveltime) - (INT(TIMER) - seconds)
176.     _PUTIMAGE (camera.x, camera.y), map
177.     LOCATE 1, 1: PRINT "Time Left: "; gametime
178.     IF gametime < 1 THEN GOTO done:
179.     IF _KEYDOWN(keyUP) THEN
180.         player.y = player.y - playerSpeed
181.         t = t + 1
182.     END IF
183.     IF _KEYDOWN(keyDOWN) THEN
184.         player.y = player.y + playerSpeed
185.         t = t + 1
186.     END IF
187.     IF _KEYDOWN(keyLEFT) THEN
188.         player.x = player.x - playerSpeed
189.         t = t + 1
190.     END IF
191.     IF _KEYDOWN(keyRIGHT) THEN
192.         player.x = player.x + playerSpeed
193.         t = t + 1
194.     END IF
195.     IF _KEYDOWN(keyESC) THEN END
196.     IF player.x < 0 THEN player.x = 0
197.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
198.     IF player.y < 0 THEN player.y = 0
199.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
200.  
201.     adjustCamera
202.  
203.     'Draw Head
204.     FOR sz = .25 TO 10 STEP .25
205.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
206.     NEXT sz
207.     'Draw Smile
208.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
209.     'Draw Eyes
210.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
211.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
212.     'hat
213.     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
214.     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
215.     'body
216.     LINE (player.x + camera.x, player.y + camera.y + 10)-(player.x + camera.x, player.y + camera.y + 20), _RGB32(155, 0, 0)
217.  
218.     IF t > 7 THEN t = 0
219.  
220.     'rest of body
221.     IF t = 0 THEN
222.         'left arm
223.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
224.         'right arm
225.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
226.         'left leg
227.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 15, 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 + 15, player.y + camera.y + 35), _RGB32(155, 0, 0)
230.     END IF
231.  
232.     IF t = 1 OR t = 7 THEN
233.         'left arm
234.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
235.         'right arm
236.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
237.         'left leg
238.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 11, 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 + 11, player.y + camera.y + 35), _RGB32(155, 0, 0)
241.     END IF
242.  
243.     IF t = 2 OR t = 6 THEN
244.         'left arm
245.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
246.         'right arm
247.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
248.         'left leg
249.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 9, 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 + 9, player.y + camera.y + 35), _RGB32(155, 0, 0)
252.     END IF
253.  
254.     IF t = 3 OR t = 5 THEN
255.         'left arm
256.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
257.         'right arm
258.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
259.         'left leg
260.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
261.         'right leg
262.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
263.     END IF
264.  
265.     IF t = 4 THEN
266.         'left arm
267.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
268.         'right arm
269.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
270.         'left leg
271.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 5, player.y + camera.y + 35), _RGB32(155, 0, 0)
272.         'right leg
273.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 5, player.y + camera.y + 35), _RGB32(155, 0, 0)
274.     END IF
275.  
276.     FOR check = -15 TO 15
277.         IF POINT(player.x + check, player.y + check) = _RGB32(255, 255, 128) THEN
278.             _DEST map
279.             FOR sz = .2 TO 35 STEP .2
280.                 CIRCLE (player.x + check, player.y + check), sz, _RGB32(127, 255, 127)
281.             NEXT sz
282.             GOSUB findgold:
283.         END IF
284.         IF POINT(player.x + check, player.y - check) = _RGB32(255, 255, 128) THEN
285.             _DEST map
286.             FOR sz = .2 TO 35 STEP .2
287.                 CIRCLE (player.x + check, player.y - check), sz, _RGB32(127, 255, 127)
288.             NEXT sz
289.             GOSUB findgold:
290.         END IF
291.         IF POINT(player.x - check, player.y + check) = _RGB32(255, 255, 128) THEN
292.             _DEST map
293.             FOR sz = .2 TO 35 STEP .2
294.                 CIRCLE (player.x - check, player.y + check), sz, _RGB32(127, 255, 127)
295.             NEXT sz
296.             GOSUB findgold:
297.         END IF
298.     NEXT check
299.     _DISPLAY
300.     _LIMIT 60
301. LOOP
302.  
303. findgold:
304. _DEST 0
305. FOR snd = 400 TO 800 STEP 100
306.     SOUND snd, .5
307. NEXT snd
308. score = score + 100
309. score$ = STR$(score)
310. level$ = STR$(level)
311. _TITLE "Level: " + level$ + "   Score: " + score$
312. IF score / 2000 = INT(score / 2000) THEN
313.     level = level + 1
314.     level$ = STR$(level)
315.     _TITLE "Level: " + level$ + "   Score: " + score$
316.     IF level = 21 THEN GOTO win:
317.     GOTO start2:
318. END IF
319. RETURN
320.  
321. done:
322. _AUTODISPLAY
323. LOCATE 10, 55: PRINT "G A M E     O V E R"
324. FOR snd = 450 TO 150 STEP -25
325.     SOUND snd, .5
326. NEXT snd
327. LOCATE 13, 55: PRINT "Again (Y/N)?"
328. ag:
329. ag$ = INKEY$
330. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
331. IF ag$ = "n" OR ag$ = "N" THEN END
332. GOTO ag:
333.  
334. win:
335. _AUTODISPLAY
336. LOCATE 10, 55: PRINT "G A M E     W O N ! ! ! ! ! ! !"
337. FOR snd = 450 TO 150 STEP -25
338.     SOUND snd, .5
339. NEXT snd
340. LOCATE 13, 55: PRINT "Again (Y/N)?"
341. ag2:
342. ag$ = INKEY$
343. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
344. IF ag$ = "n" OR ag$ = "N" THEN END
345. GOTO ag2:
346.  
347. 'Thanks to FelippeHeitor for this Sub and the camera code above.
348. SUB adjustCamera
349.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
350.         camera.x = _WIDTH / 2 - player.x
351.     END IF
352.     IF camera.x > 0 THEN camera.x = 0
353.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
354.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
355.         camera.y = _HEIGHT / 2 - player.y
356.     END IF
357.     IF camera.y > 0 THEN camera.y = 0
358.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
359. END SUB
360.  

[SierraKen]

Here is another quick update for WASD player movement support (along with arrow keys). I remember B+ didn't like the arrow keys and I see QBKiller needs this as well. Thanks QBKiller for the keydown numbers. :) I also included a picture of the game below.

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.  
16. RANDOMIZE TIMER
17. SCREEN _NEWIMAGE(800, 600, 32)
18.  
19. TYPE object
20.     x AS SINGLE
21.     y AS SINGLE
22. END TYPE
23.  
24. DIM SHARED player AS object
25. DIM SHARED camera AS object
26. DIM SHARED map AS LONG
27. DIM playerSpeed AS SINGLE
28.  
29. _TITLE "Find The Gold!"
30.  
31. start:
32. score = 0
33. level = 1
34.  
35. start2:
36. player.x = _WIDTH / 2
37. player.y = _HEIGHT / 2
38.  
39. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
40.  
41. _DEST map
42. CLS , _RGB32(0, 200, 0)
43.  
44. 'Land Areas
45. FOR blocks = 1 TO 400
46.     blocks:
47.     xx = (RND * _WIDTH)
48.     yy = (RND * _HEIGHT)
49.     sz = INT(RND * 300) + 50
50.     blockcolors:
51.     c1 = INT(RND * 155) + 100
52.     c2 = INT(RND * 155) + 100
53.     c3 = INT(RND * 155) + 100
54.     IF c1 = 255 AND c2 = 255 AND c3 = 128 THEN GOTO blockcolors:
55.     c4 = INT(RND * 155) + 100
56.     c5 = INT(RND * 155) + 100
57.     c6 = INT(RND * 155) + 100
58.     blockcolors2:
59.     IF c4 = 255 AND c5 = 255 AND c6 = 128 THEN GOTO blockcolors2:
60.     c7 = INT(RND * 155) + 100
61.     c8 = INT(RND * 155) + 100
62.     c9 = INT(RND * 155) + 100
63.     blockcolors3:
64.     IF c7 = 255 AND c8 = 255 AND c9 = 128 THEN GOTO blockcolors3:
65.  
66.     LINE (xx, yy)-(xx + sz, yy + sz), _RGB32(c1, c2, c3), BF
67.     LINE (xx + (sz * .25), yy + (sz * .25))-(xx + (sz * .75), yy + (sz * .75)), _RGB32(c4, c5, c6), BF
68.     LINE (xx + (sz * .40), yy + (sz * .40))-(xx + (sz * .60), yy + (sz * .60)), _RGB32(c7, c8, c9), BF
69.  
70. NEXT
71.  
72. 'Lakes
73. FOR lakes = 1 TO 20
74.     w = RND
75.     h = RND
76.     sze = (RND * 200) + 50
77.     shape = RND
78.     FOR sz = .25 TO sze STEP .25
79.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 128, 255), , , shape
80.     NEXT sz
81. NEXT lakes
82.  
83. 'Creeks
84. FOR creeks = 1 TO 100
85.     cw1 = RND * _WIDTH
86.     ch1 = RND * _HEIGHT
87.     cw2 = (RND * 50) + cw1
88.     ch2 = (RND * 50) + ch1
89.     cw3 = (RND * 50) + cw2
90.     ch3 = (RND * 50) + ch2
91.     cw4 = (RND * 50) + cw3
92.     ch4 = (RND * 50) + ch3
93.     cw5 = (RND * 50) + cw4
94.     ch5 = (RND * 50) + ch4
95.     cw6 = (RND * 50) + cw5
96.     ch6 = (RND * 50) + ch5
97.     cw7 = (RND * 50) + cw6
98.     ch7 = (RND * 50) + ch6
99.     cw8 = (RND * 50) + cw7
100.     ch8 = (RND * 50) + ch7
101.     cw9 = (RND * 50) + cw8
102.     ch9 = (RND * 50) + ch8
103.     cw10 = (RND * 50) + cw9
104.     ch10 = (RND * 50) + ch9
105.  
106.     LINE (cw1, ch1)-(cw2, ch2), _RGB32(0, 128, 255)
107.     LINE (cw2, ch2)-(cw3, ch3), _RGB32(0, 128, 255)
108.     LINE (cw3, ch3)-(cw4, ch4), _RGB32(0, 128, 255)
109.     LINE (cw4, ch4)-(cw5, ch5), _RGB32(0, 128, 255)
110.     LINE (cw5, ch5)-(cw6, ch6), _RGB32(0, 128, 255)
111.     LINE (cw6, ch6)-(cw7, ch7), _RGB32(0, 128, 255)
112.     LINE (cw7, ch7)-(cw8, ch8), _RGB32(0, 128, 255)
113.     LINE (cw8, ch8)-(cw9, ch9), _RGB32(0, 128, 255)
114.     LINE (cw9, ch9)-(cw10, ch10), _RGB32(0, 128, 255)
115.  
116. NEXT creeks
117.  
118. 'Trees
119. FOR trees = 1 TO 1600
120.     tx = RND
121.     tx = tx * _WIDTH
122.     ty = RND
123.     ty = ty * _HEIGHT
124.     tsz = (RND * 40) + 10
125.     LINE (tx, ty)-(tx, ty + tsz + 5), _RGB32(188, 127, 127)
126.     FOR branches = ty TO ty + tsz STEP 3
127.         LINE (tx, branches)-(tx - 10, branches + 5), _RGB32(127, 255, 127)
128.         LINE (tx, branches)-(tx + 10, branches + 5), _RGB32(127, 255, 127)
129.     NEXT branches
130. NEXT trees
131.  
132. 'Place Gold
133. FOR gold = 1 TO 20
134.     gold:
135.     w2 = INT(RND * _WIDTH) - 40
136.     h2 = INT(RND * _HEIGHT) - 40
137.     IF w2 < 40 THEN w2 = 40
138.     IF h2 < 40 THEN h2 = 40
139.     IF POINT(w2, h2) = _RGB32(255, 255, 128) THEN GOTO gold:
140.     IF POINT(w2, h2) = _RGB32(0, 0, 0) THEN GOTO gold:
141.     'Gold
142.     COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
143.     _PRINTSTRING (w2, h2), "GOLD"
144. NEXT gold
145.  
146. _DEST 0
147.  
148. _SOURCE map
149.  
150. playerSpeed = 8
151.  
152. CONST keyUP = 18432
153. CONST keyDOWN = 20480
154. CONST keyLEFT = 19200
155. CONST keyRIGHT = 19712
156. CONST keyESC = 27
157. CLS
158. _PUTIMAGE (camera.x, camera.y), map
159.  
160. LOCATE 3, 30: PRINT "Use the arrow keys (or WASD keys) to find 20 gold bars per level."
161. LOCATE 4, 30: PRINT "Every level will have a shorter time."
162. LOCATE 5, 30: PRINT "After Level 20 you win the game."
163. LOCATE 10, 40: PRINT "Press Any Key To Begin."
164.  
165. pause:
166. a$ = INKEY$
167. IF a$ <> "" THEN GOTO begin:
168. GOTO pause:
169.  
170. begin:
171.  
172. seconds = INT(TIMER)
173. DO
174.     CLS
175.     leveltime = level * 5
176.     gametime = (405 - leveltime) - (INT(TIMER) - seconds)
177.     _PUTIMAGE (camera.x, camera.y), map
178.     LOCATE 1, 1: PRINT "Time Left: "; gametime
179.     IF gametime < 1 THEN GOTO done:
180.     IF _KEYDOWN(keyUP) OR _KEYDOWN(119) THEN
181.         player.y = player.y - playerSpeed
182.         t = t + 1
183.     END IF
184.     IF _KEYDOWN(keyDOWN) OR _KEYDOWN(115) THEN
185.         player.y = player.y + playerSpeed
186.         t = t + 1
187.     END IF
188.     IF _KEYDOWN(keyLEFT) OR _KEYDOWN(97) THEN
189.         player.x = player.x - playerSpeed
190.         t = t + 1
191.     END IF
192.     IF _KEYDOWN(keyRIGHT) OR _KEYDOWN(100) THEN
193.         player.x = player.x + playerSpeed
194.         t = t + 1
195.     END IF
196.     IF _KEYDOWN(keyESC) THEN END
197.     IF player.x < 0 THEN player.x = 0
198.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
199.     IF player.y < 0 THEN player.y = 0
200.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
201.  
202.     adjustCamera
203.  
204.     'Draw Head
205.     FOR sz = .25 TO 10 STEP .25
206.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
207.     NEXT sz
208.     'Draw Smile
209.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
210.     'Draw Eyes
211.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
212.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
213.     'hat
214.     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
215.     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
216.     'body
217.     LINE (player.x + camera.x, player.y + camera.y + 10)-(player.x + camera.x, player.y + camera.y + 20), _RGB32(155, 0, 0)
218.  
219.     IF t > 7 THEN t = 0
220.  
221.     'rest of body
222.     IF t = 0 THEN
223.         'left arm
224.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
225.         'right arm
226.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 15, player.y + camera.y + 25), _RGB32(155, 0, 0)
227.         'left leg
228.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 15, player.y + camera.y + 35), _RGB32(155, 0, 0)
229.         'right leg
230.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 15, player.y + camera.y + 35), _RGB32(155, 0, 0)
231.     END IF
232.  
233.     IF t = 1 OR t = 7 THEN
234.         'left arm
235.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
236.         'right arm
237.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 11, player.y + camera.y + 25), _RGB32(155, 0, 0)
238.         'left leg
239.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 11, player.y + camera.y + 35), _RGB32(155, 0, 0)
240.         'right leg
241.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 11, player.y + camera.y + 35), _RGB32(155, 0, 0)
242.     END IF
243.  
244.     IF t = 2 OR t = 6 THEN
245.         'left arm
246.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
247.         'right arm
248.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 9, player.y + camera.y + 24), _RGB32(155, 0, 0)
249.         'left leg
250.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 9, player.y + camera.y + 35), _RGB32(155, 0, 0)
251.         'right leg
252.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 9, player.y + camera.y + 35), _RGB32(155, 0, 0)
253.     END IF
254.  
255.     IF t = 3 OR t = 5 THEN
256.         'left arm
257.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
258.         'right arm
259.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 7, player.y + camera.y + 24), _RGB32(155, 0, 0)
260.         'left leg
261.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
262.         'right leg
263.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x + 7, player.y + camera.y + 35), _RGB32(155, 0, 0)
264.     END IF
265.  
266.     IF t = 4 THEN
267.         'left arm
268.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x - 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
269.         'right arm
270.         LINE (player.x + camera.x, player.y + camera.y + 13)-(player.x + camera.x + 5, player.y + camera.y + 23), _RGB32(155, 0, 0)
271.         'left leg
272.         LINE (player.x + camera.x, player.y + camera.y + 20)-(player.x + camera.x - 5, 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 + 5, player.y + camera.y + 35), _RGB32(155, 0, 0)
275.     END IF
276.  
277.  
278.     FOR check = -15 TO 15
279.         IF POINT(player.x + check, player.y + check) = _RGB32(255, 255, 128) THEN
280.             _DEST map
281.             FOR sz = .2 TO 35 STEP .2
282.                 CIRCLE (player.x + check, player.y + check), sz, _RGB32(127, 255, 127)
283.             NEXT sz
284.             GOSUB findgold:
285.         END IF
286.         IF POINT(player.x + check, player.y - check) = _RGB32(255, 255, 128) THEN
287.             _DEST map
288.             FOR sz = .2 TO 35 STEP .2
289.                 CIRCLE (player.x + check, player.y - check), sz, _RGB32(127, 255, 127)
290.             NEXT sz
291.             GOSUB findgold:
292.         END IF
293.         IF POINT(player.x - check, player.y + check) = _RGB32(255, 255, 128) THEN
294.             _DEST map
295.             FOR sz = .2 TO 35 STEP .2
296.                 CIRCLE (player.x - check, player.y + check), sz, _RGB32(127, 255, 127)
297.             NEXT sz
298.             GOSUB findgold:
299.         END IF
300.     NEXT check
301.     _DISPLAY
302.     _LIMIT 60
303. LOOP
304.  
305. findgold:
306. _DEST 0
307. FOR snd = 400 TO 800 STEP 100
308.     SOUND snd, .5
309. NEXT snd
310. score = score + 100
311. score$ = STR$(score)
312. level$ = STR$(level)
313. _TITLE "Level: " + level$ + "   Score: " + score$
314. IF score / 2000 = INT(score / 2000) THEN
315.     level = level + 1
316.     level$ = STR$(level)
317.     _TITLE "Level: " + level$ + "   Score: " + score$
318.     IF level = 21 THEN GOTO win:
319.     GOTO start2:
320. END IF
321. RETURN
322.  
323. done:
324. _AUTODISPLAY
325. LOCATE 10, 55: PRINT "G A M E     O V E R"
326. FOR snd = 450 TO 150 STEP -25
327.     SOUND snd, .5
328. NEXT snd
329. LOCATE 13, 55: PRINT "Again (Y/N)?"
330. ag:
331. ag$ = INKEY$
332. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
333. IF ag$ = "n" OR ag$ = "N" THEN END
334. GOTO ag:
335.  
336. win:
337. _AUTODISPLAY
338. LOCATE 10, 55: PRINT "G A M E     W O N ! ! ! ! ! ! !"
339. FOR snd = 450 TO 150 STEP -25
340.     SOUND snd, .5
341. NEXT snd
342. LOCATE 13, 55: PRINT "Again (Y/N)?"
343. ag2:
344. ag$ = INKEY$
345. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
346. IF ag$ = "n" OR ag$ = "N" THEN END
347. GOTO ag2:
348.  
349. 'Thanks to FelippeHeitor for this Sub and the camera code above.
350. SUB adjustCamera
351.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
352.         camera.x = _WIDTH / 2 - player.x
353.     END IF
354.     IF camera.x > 0 THEN camera.x = 0
355.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
356.  
357.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
358.         camera.y = _HEIGHT / 2 - player.y
359.     END IF
360.     IF camera.y > 0 THEN camera.y = 0
361.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
362. END SUB
363.  

[SierraKen]

I just removed the Atari looking square mountains and put more realistic looking hills in its place. I also put the lakes on the ground (before everything else is placed). It took me awhile to figure out how to overlap the hills correctly. So instead of a random vertical coordinate for them, I just use yy=yy+4 and made the horizontal value random. Check out the picture below. :) I'm super happy about this. Oh also, since it still takes a couple seconds to load with all of the hill graphics, I added a "Loading...." in the Topic bar so people know to wait.
Also, just so you all know, I will be gone from Sunday afternoon to Wednesday because my power company is shutting off 1000's of people's power in Northern California for their Public Safety Power Shut-Offs they do when dry winds come. I'll be back later this week. But please check out this version. I really think I'm getting better at my games thanks to all of you!
On a side note: This game does get a bit boring if you keep playing it. I suggest playing it for a couple of levels and that's about it. I'll probably add bad guys or something to make more action and harder to play. But the main reason I like it is because it gets you thinking about running around in the mountains. :)

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

[bplus]

Well I definitely like your 2nd version of mountains and lake! Now if we can get the trees dark green to brown and wider at base than top... ;-))

Is it cherry picked or have you managed not to get trees in the lake? ;)
Ohp! no there's a tree in the lake, oh well ;-))

Oh and should lose the rivers coming down from sky!

[SierraKen]

Thanks B+! Well the rivers aren't actually in the sky, they are 2 different rivers on different hills. Because there is no sky in my game but I understand what you mean. Just pretend they are 2 different rivers. :) Good idea on the trees, I'll see what I can do. I don't have much time today so if I don't post anything, I'll try to post when my power comes back on around Wed. from the Public Safety Power Shut-Off.

[bplus]

Man that sucks about the power! Don't need another Colorado and California has enough fires already.

The overhead view of map is probably better for game just saying landscape looked better.

[bplus]

This might be a little off topic but does anyone have code for drawing isobars around say 3 or 4 hill or mountain peaks?

That would look good for overhead map and gold would be found around streams from mountains.

[SierraKen]

I got the trees really good now. :) I also decided to remove the creeks because after a few attempts, I couldn't figure out how to keep a creek on its own hill. It looks much cleaner without the creeks anyway. I also made a little less trees to ease up on memory.

Note: Don't use this one, the title bar is messed up. The fix is on the next forum page.

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