Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on January 13, 2020, 12:49:20 am

Title: Gold Mining Simulation
Post by: SierraKen on January 13, 2020, 12:49:20 am
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"
  9. PRINT "                             Gold Mining Simulation"
  12. PRINT "                                   By Ken G."
  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"
  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."
  22. INPUT "                             Press Enter to start.", bg$
  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
  36.     gx = INT(RND * 790) + 5
  37.     gy = INT(RND * 590) + 5
  38.     _PRINTSTRING (gx, gy), "$"
  39. NEXT gold
  41.     _LIMIT lim
  42.     again:
  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
  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
  127.  
Title: Re: Gold Mining Simulation
Post by: bplus on January 13, 2020, 02:19:57 am
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 $.
Title: Re: Gold Mining Simulation
Post by: SierraKen on January 13, 2020, 01:32:08 pm
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.  :)
Title: Re: Gold Mining Simulation
Post by: SierraKen on January 13, 2020, 03:41:19 pm
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"
  8. PRINT "                             Gold Mining Simulation"
  11. PRINT "                                   By Ken G."
  13. PRINT "           Keys: Move Miner     = Arrow Keys"
  14. PRINT "                 Pause (off/on) = Space Bar"
  15. PRINT "                 Sound (off/on) = S"
  16. PRINT "                 Quit           = Esc"
  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!"
  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
  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:
  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.  
  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
  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:
  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
  144.  
  145.  
Title: Re: Gold Mining Simulation
Post by: bplus on January 13, 2020, 08:17:46 pm
Hey not bad :)
Title: Re: Gold Mining Simulation
Post by: SierraKen on January 13, 2020, 10:40:46 pm
Thanks :)
Title: Re: Gold Mining Simulation
Post by: SierraKen on January 14, 2020, 03:45:09 pm
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"
  8. PRINT "                             Gold Mining Simulation"
  11. PRINT "                                   By Ken G."
  13. PRINT "           Keys: Move Miner     = Arrow Keys"
  14. PRINT "                 Pause (off/on) = Space Bar"
  15. PRINT "                 Sound (off/on) = S"
  16. PRINT "                 Quit           = Esc"
  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!"
  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
  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:
  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.  
  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
  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:
  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
  146.  
Text Only | Text with Attachments