Gold Mining Simulation

[SierraKen]

Using the circle-fill SUB (finally lol), etc. I was playing around with graphics tonight like I often do and ended up making this Gold Mining Simulation. You watch him make mine shafts and go around and hunt for gold where he hasn't dug before. When he hits a $ it makes a short sound and gets a random amount of money. This is a non-stop game. When just about the whole screen has been mined, he goes to a new screen.  :) You can slow him down and speed him up with the arrow keys and turn the sound off and on with the S key. You also can Pause with the Space Bar. I'm thinking about having him die in cave-ins but so far he doesn't get hurt. Hopefully Pete will like this. :)

Code: QB64: [Select]

1. 'Gold Mining Simulation"
2. 'By Ken G."
3. 'Made on January 12, 2020.
4. 'I might add more to this later, suggestions welcomes.
5. 'Freeware
6. _TITLE "Gold Mining Simulation"
7. CLS
8. PRINT: PRINT: PRINT
9. PRINT "                             Gold Mining Simulation"
10. PRINT
11. PRINT
12. PRINT "                                   By Ken G."
13. PRINT: PRINT: PRINT
14. PRINT "           Keys: Speed Control  = Up and Down Arrow Keys"
15. PRINT "                 Pause (off/on) = Space Bar"
16. PRINT "                 Sound (off/on) = S"
17. PRINT "                 Quit           = Esc"
18. PRINT
19. PRINT "            When the miner hits gold, he receives a random amount of money."
20. PRINT "            This is a non-stop simulation so press Esc or click X to end."
21. PRINT: PRINT: PRINT
22. INPUT "                             Press Enter to start.", bg$
23. CLS
24.  
25. lim = 50
26. start:
27. t = 0
28. snd$ = "On"
29. SCREEN _NEWIMAGE(800, 600, 32)
30. LINE (0, 0)-(800, 600), _RGB32(128, 128, 6), BF
31. x = 400: y = 300
32. c1 = 156: c2 = 156: c3 = 12
33. COLOR _RGB32(255, 255, 127), _RGB32(128, 128, 6)
34. FOR gold = 1 TO 100
35.     RANDOMIZE TIMER
36.     gx = INT(RND * 790) + 5
37.     gy = INT(RND * 590) + 5
38.     _PRINTSTRING (gx, gy), "$"
39. NEXT gold
40. DO
41.     _LIMIT lim
42.     again:
43.     RANDOMIZE TIMER
44.     xx = (RND * 10) - 5
45.     IF xx = 0 THEN xx = .1
46.     yy = (RND * 10) - 5
47.     IF yy = 0 THEN yy = .1
48.     x = x + xx
49.     y = y + yy
50.     IF x < 0 THEN x = 800
51.     IF y < 0 THEN y = 600
52.     IF x > 800 THEN x = 0
53.     IF y > 600 THEN y = 0
54.     IF POINT(x, y) <> _RGB32(128, 128, 6) THEN GOTO again:
55.     CircleFill x, y, 5, _RGB32(c1, c2, c3)
56.     a$ = INKEY$
57.     IF a$ = "S" OR a$ = "s" THEN sd = sd + 1: _DELAY .01
58.     IF sd = 1 THEN sd2 = 1: snd$ = "Off": _TITLE "Speed: " + lim$ + "    Sound: " + snd$ + "     Money: " + m$
59.     IF sd = 2 THEN sd2 = 0: sd = 0: snd$ = "On": _TITLE "Speed: " + lim$ + "    Sound: " + snd$ + "     Money: " + m$
60.     IF a$ = CHR$(0) + CHR$(80) THEN
61.         lim = lim - 5
62.         lim$ = STR$(lim)
63.         _TITLE "Speed: " + lim$ + "    Sound: " + snd$ + "     Money: " + m$
64.     END IF
65.     IF lim < 10 THEN lim = 10
66.     IF a$ = CHR$(0) + CHR$(72) THEN
67.         lim = lim + 5
68.         lim$ = STR$(lim)
69.         _TITLE "Speed: " + lim$ + "    Sound: " + snd$ + "     Money: " + m$
70.     END IF
71.     IF lim > 500 THEN lim = 500
72.     IF a$ = CHR$(27) THEN END
73.     IF a$ = " " THEN
74.         pausing:
75.         a2$ = INKEY$
76.         IF a2$ = " " THEN GOTO going:
77.         GOTO pausing:
78.     END IF
79.     going:
80.     t = t + 1
81.     IF t > 10000 THEN GOTO start:
82.     FOR ch = -5 TO 5
83.         IF POINT(x + ch, y + ch) = _RGB32(255, 255, 127) THEN
84.             LINE (x - 5, y - 5)-(x + 5, y + 5), _RGB32(128, 128, 6), BF
85.             IF sd2 = 1 THEN GOTO skip:
86.             SOUND 750, .25
87.             SOUND 850, .25
88.             skip:
89.             RANDOMIZE TIMER
90.             gd = INT(RND * 1000)
91.             money = money + gd
92.             m$ = STR$(money)
93.             lim$ = STR$(lim)
94.             _TITLE "Speed: " + lim$ + "    Sound: " + snd$ + "     Money: " + m$
95.         END IF
96.     NEXT ch
97. LOOP
98.  
99. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
100.     ' CX = center x coordinate
101.     ' CY = center y coordinate
102.     '  R = radius
103.     '  C = fill color
104.     DIM Radius AS INTEGER, RadiusError AS INTEGER
105.     DIM X AS INTEGER, Y AS INTEGER
106.     Radius = ABS(R)
107.     RadiusError = -Radius
108.     X = Radius
109.     Y = 0
110.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
111.     LINE (CX - X, CY)-(CX + X, CY), C, BF
112.     WHILE X > Y
113.         RadiusError = RadiusError + Y * 2 + 1
114.         IF RadiusError >= 0 THEN
115.             IF X <> Y + 1 THEN
116.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
117.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
118.             END IF
119.             X = X - 1
120.             RadiusError = RadiusError - X * 2
121.         END IF
122.         Y = Y + 1
123.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
124.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
125.     WEND
126. END SUB
127.  

[bplus]

Ken why not use arrow keys to direct the digger? A few less $ signs and after a timer runs out, switch to new screen money or not. Next thing you know, you could be running away or competing with mutant mole people for $.

[SierraKen]

LOL that sounds great B+! Make it more like the game Dig Dug. Thanks. I'll look into this. It won't be just like Dig Dug though but a little similar. Not sure if I will have bad guys, we'll see what I come up with.  :)

[SierraKen]

Here is what I got so far. If you hit a bomb you explode. You start with 5 players. I changed the $ to yellow bricks. And if the time runs out, the game is over. I also added level numbers. I might add more detail to the screen, it looks VERY Atari 2600-ish. hehe But it's still fun. Use the arrow keys to move and change direction.

Also, I know it changes levels before you get all the bricks. I might change the bricks to their own array, but this is OK for me.

Code: QB64: [Select]

1. 'Gold Mining Simulation"
2. 'By Ken G."
3. 'Made on January 13, 2020.
4. 'Freeware
5. _TITLE "Gold Mining Simulation"
6. CLS
7. PRINT: PRINT: PRINT
8. PRINT "                             Gold Mining Simulation"
9. PRINT
10. PRINT
11. PRINT "                                   By Ken G."
12. PRINT: PRINT: PRINT
13. PRINT "           Keys: Move Miner     = Arrow Keys"
14. PRINT "                 Pause (off/on) = Space Bar"
15. PRINT "                 Sound (off/on) = S"
16. PRINT "                 Quit           = Esc"
17. PRINT
18. PRINT "            When the miner hits gold, he receives a random amount of money."
19. PRINT "            Game is over if the time runs out on that level."
20. PRINT "            And stay away from the bombs!"
21. PRINT: PRINT: PRINT
22. INPUT "                             Press Enter to start.", bg$
23. begin:
24. pl = 5
25. level = 0
26. start:
27. level = level + 1
28. level$ = STR$(level)
29. gg = 0
30. d = 0
31. t = 10000
32. snd$ = "On"
33. SCREEN _NEWIMAGE(800, 600, 32)
34. LINE (0, 0)-(800, 600), _RGB32(128, 128, 6), BF
35. x = 400: y = 300
36. FOR gold = 1 TO 25
37.     RANDOMIZE TIMER
38.     gx = INT(RND * 790) + 5
39.     gy = INT(RND * 590) + 5
40.     LINE (gx - 5, gy - 5)-(gx + 5, gy + 5), _RGB32(255, 255, 127), BF
41. NEXT gold
42. FOR bombs = 1 TO 50
43.     againbomb:
44.     RANDOMIZE TIMER
45.     bx = INT(RND * 790) + 5
46.     by = INT(RND * 590) + 5
47.     IF bx > 350 AND bx < 450 AND by > 250 AND by < 350 THEN GOTO againbomb:
48.     FOR sz = .25 TO 10 STEP .25
49.         CIRCLE (bx, by), sz, _RGB32(0, 0, 0)
50.     NEXT sz
51. NEXT bombs
52.  
53. DO
54.     _LIMIT 100
55.     IF x < 0 THEN x = 800
56.     IF y < 0 THEN y = 600
57.     IF x > 800 THEN x = 0
58.     IF y > 600 THEN y = 0
59.     CircleFill x, y, 5, _RGB32(156, 156, 12)
60.     a$ = INKEY$
61.     IF a$ = "S" OR a$ = "s" THEN sd = sd + 1: _DELAY .01
62.     IF sd = 1 THEN sd2 = 1: snd$ = "Off"
63.     IF sd = 2 THEN sd2 = 0: sd = 0: snd$ = "On"
64.     IF a$ = CHR$(0) + CHR$(72) THEN d = 1
65.     IF a$ = CHR$(0) + CHR$(80) THEN d = 2
66.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3
67.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4
68.     IF d = 1 THEN y = y - 1
69.     IF d = 2 THEN y = y + 1
70.     IF d = 3 THEN x = x + 1
71.     IF d = 4 THEN x = x - 1
72.     IF a$ = CHR$(27) THEN END
73.     IF a$ = " " THEN
74.         pausing:
75.         a2$ = INKEY$
76.         IF a2$ = " " THEN GOTO going:
77.         GOTO pausing:
78.     END IF
79.     going:
80.     t = t - 1
81.     t$ = STR$(t)
82.     pl$ = STR$(pl)
83.     _TITLE "Time: " + t$ + "     Sound: " + snd$ + "    Players: " + pl$ + "    Level: " + level$ + "    Money: " + m$
84.     IF t < 1 THEN GOTO gameover:
85.     FOR ch = -7 TO 7
86.         IF POINT(x + ch, y + ch) = _RGB32(255, 255, 127) THEN
87.             LINE (x - 15, y - 15)-(x + 15, y + 15), _RGB32(156, 156, 12), BF
88.             IF sd2 = 1 THEN GOTO skip:
89.             SOUND 750, .25
90.             SOUND 850, .25
91.             skip:
92.             RANDOMIZE TIMER
93.             gd = INT(RND * 1000)
94.             money = money + gd
95.             m$ = STR$(money)
96.             gg = gg + 1
97.             IF gg = 25 THEN GOTO start:
98.         END IF
99.         IF POINT(x + ch, y + ch) = _RGB32(0, 0, 0) THEN
100.             FOR ex = .25 TO 30 STEP .25
101.                 CIRCLE (x, y), ex, _RGB32(156, 156, 12)
102.             NEXT ex
103.             SOUND 150, .5
104.             pl = pl - 1
105.             IF pl = 0 THEN GOTO gameover:
106.         END IF
107.     NEXT ch
108. LOOP
109. gameover:
110. _TITLE "Time: " + t$ + "     Sound: " + snd$ + "    Players: " + pl$ + "    Level: " + level$ + "    Money: " + m$
111. LOCATE 20, 30: PRINT "G A M E   O V E R"
112. LOCATE 23, 30: INPUT "Again (Y/N):"; ag$
113. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO begin:
114. END
115.  
116. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
117.     ' CX = center x coordinate
118.     ' CY = center y coordinate
119.     '  R = radius
120.     '  C = fill color
121.     DIM Radius AS INTEGER, RadiusError AS INTEGER
122.     DIM X AS INTEGER, Y AS INTEGER
123.     Radius = ABS(R)
124.     RadiusError = -Radius
125.     X = Radius
126.     Y = 0
127.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
128.     LINE (CX - X, CY)-(CX + X, CY), C, BF
129.     WHILE X > Y
130.         RadiusError = RadiusError + Y * 2 + 1
131.         IF RadiusError >= 0 THEN
132.             IF X <> Y + 1 THEN
133.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
134.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
135.             END IF
136.             X = X - 1
137.             RadiusError = RadiusError - X * 2
138.         END IF
139.         Y = Y + 1
140.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
141.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
142.     WEND
143. END SUB
144.  
145.  

[bplus]

Hey not bad :)

[SierraKen]

Thanks :)

[SierraKen]

This morning I remembered that I forgot to bi-pass the bomb sound when the sound is turned off. So here's the fix:

Code: QB64: [Select]

1. 'Gold Mining Simulation"
2. 'By Ken G."
3. 'Made on January 13, 2020.
4. 'Freeware
5. _TITLE "Gold Mining Simulation"
6. CLS
7. PRINT: PRINT: PRINT
8. PRINT "                             Gold Mining Simulation"
9. PRINT
10. PRINT
11. PRINT "                                   By Ken G."
12. PRINT: PRINT: PRINT
13. PRINT "           Keys: Move Miner     = Arrow Keys"
14. PRINT "                 Pause (off/on) = Space Bar"
15. PRINT "                 Sound (off/on) = S"
16. PRINT "                 Quit           = Esc"
17. PRINT
18. PRINT "            When the miner hits gold, he receives a random amount of money."
19. PRINT "            Game is over if the time runs out on that level."
20. PRINT "            And stay away from the bombs!"
21. PRINT: PRINT: PRINT
22. INPUT "                             Press Enter to start.", bg$
23. begin:
24. pl = 5
25. level = 0
26. start:
27. level = level + 1
28. level$ = STR$(level)
29. gg = 0
30. d = 0
31. t = 10000
32. snd$ = "On"
33. SCREEN _NEWIMAGE(800, 600, 32)
34. LINE (0, 0)-(800, 600), _RGB32(128, 128, 6), BF
35. x = 400: y = 300
36. FOR gold = 1 TO 25
37.     RANDOMIZE TIMER
38.     gx = INT(RND * 790) + 5
39.     gy = INT(RND * 590) + 5
40.     LINE (gx - 5, gy - 5)-(gx + 5, gy + 5), _RGB32(255, 255, 127), BF
41. NEXT gold
42. FOR bombs = 1 TO 50
43.     againbomb:
44.     RANDOMIZE TIMER
45.     bx = INT(RND * 790) + 5
46.     by = INT(RND * 590) + 5
47.     IF bx > 350 AND bx < 450 AND by > 250 AND by < 350 THEN GOTO againbomb:
48.     FOR sz = .25 TO 10 STEP .25
49.         CIRCLE (bx, by), sz, _RGB32(0, 0, 0)
50.     NEXT sz
51. NEXT bombs
52.  
53. DO
54.     _LIMIT 100
55.     IF x < 0 THEN x = 800
56.     IF y < 0 THEN y = 600
57.     IF x > 800 THEN x = 0
58.     IF y > 600 THEN y = 0
59.     CircleFill x, y, 5, _RGB32(156, 156, 12)
60.     a$ = INKEY$
61.     IF a$ = "S" OR a$ = "s" THEN sd = sd + 1: _DELAY .01
62.     IF sd = 1 THEN sd2 = 1: snd$ = "Off"
63.     IF sd = 2 THEN sd2 = 0: sd = 0: snd$ = "On"
64.     IF a$ = CHR$(0) + CHR$(72) THEN d = 1
65.     IF a$ = CHR$(0) + CHR$(80) THEN d = 2
66.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3
67.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4
68.     IF d = 1 THEN y = y - 1
69.     IF d = 2 THEN y = y + 1
70.     IF d = 3 THEN x = x + 1
71.     IF d = 4 THEN x = x - 1
72.     IF a$ = CHR$(27) THEN END
73.     IF a$ = " " THEN
74.         pausing:
75.         a2$ = INKEY$
76.         IF a2$ = " " THEN GOTO going:
77.         GOTO pausing:
78.     END IF
79.     going:
80.     t = t - 1
81.     t$ = STR$(t)
82.     pl$ = STR$(pl)
83.     _TITLE "Time: " + t$ + "     Sound: " + snd$ + "    Players: " + pl$ + "    Level: " + level$ + "    Money: " + m$
84.     IF t < 1 THEN GOTO gameover:
85.     FOR ch = -7 TO 7
86.         IF POINT(x + ch, y + ch) = _RGB32(255, 255, 127) THEN
87.             LINE (x - 15, y - 15)-(x + 15, y + 15), _RGB32(156, 156, 12), BF
88.             IF sd2 = 1 THEN GOTO skip:
89.             SOUND 750, .25
90.             SOUND 850, .25
91.             skip:
92.             RANDOMIZE TIMER
93.             gd = INT(RND * 1000)
94.             money = money + gd
95.             m$ = STR$(money)
96.             gg = gg + 1
97.             IF gg = 25 THEN GOTO start:
98.         END IF
99.         IF POINT(x + ch, y + ch) = _RGB32(0, 0, 0) THEN
100.             FOR ex = .25 TO 30 STEP .25
101.                 CIRCLE (x, y), ex, _RGB32(156, 156, 12)
102.             NEXT ex
103.             IF sd2 = 1 THEN GOTO skip2:
104.             SOUND 150, .5
105.             skip2:
106.             pl = pl - 1
107.             IF pl = 0 THEN GOTO gameover:
108.         END IF
109.     NEXT ch
110. LOOP
111. gameover:
112. _TITLE "Time: " + t$ + "     Sound: " + snd$ + "    Players: " + pl$ + "    Level: " + level$ + "    Money: " + m$
113. LOCATE 20, 30: PRINT "G A M E   O V E R"
114. LOCATE 23, 30: INPUT "Again (Y/N):"; ag$
115. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO begin:
116. END
117.  
118. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
119.     ' CX = center x coordinate
120.     ' CY = center y coordinate
121.     '  R = radius
122.     '  C = fill color
123.     DIM Radius AS INTEGER, RadiusError AS INTEGER
124.     DIM X AS INTEGER, Y AS INTEGER
125.     Radius = ABS(R)
126.     RadiusError = -Radius
127.     X = Radius
128.     Y = 0
129.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
130.     LINE (CX - X, CY)-(CX + X, CY), C, BF
131.     WHILE X > Y
132.         RadiusError = RadiusError + Y * 2 + 1
133.         IF RadiusError >= 0 THEN
134.             IF X <> Y + 1 THEN
135.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
136.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
137.             END IF
138.             X = X - 1
139.             RadiusError = RadiusError - X * 2
140.         END IF
141.         Y = Y + 1
142.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
143.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
144.     WEND
145. END SUB
146.