Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on October 23, 2020, 09:12:51 pm

Title: Find The Gold!
Post by: SierraKen on October 23, 2020, 09:12:51 pm
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.  
  7. SCREEN _NEWIMAGE(1000, 800, 32)
  8.  
  9. TYPE object
  10.     x AS SINGLE
  11.     y AS SINGLE
  13.  
  14. DIM SHARED player AS object
  15. DIM SHARED camera AS object
  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:
  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.  
  85.  
  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
  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)
  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
  239.  
  240. findgold:
  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:
  257.  
  258. done:
  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:
  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)
  298.  


 
Title: Re: Find The Gold!
Post by: SierraKen on October 23, 2020, 09:17:21 pm
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 (https://www.qb64.org/forum/index.php?topic=3139.0)
Title: Re: Find The Gold!
Post by: SierraKen on October 23, 2020, 10:43:40 pm
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.  
  8. SCREEN _NEWIMAGE(1000, 800, 32)
  9.  
  10. TYPE object
  11.     x AS SINGLE
  12.     y AS SINGLE
  14.  
  15. DIM SHARED player AS object
  16. DIM SHARED camera AS object
  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:
  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.  
  88.  
  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
  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)
  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
  242.  
  243. findgold:
  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:
  260.  
  261. done:
  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:
  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)
  301.  
Title: Re: Find The Gold!
Post by: johnno56 on October 24, 2020, 04:16:37 am
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
Title: Re: Find The Gold!
Post by: qbkiller101 on October 24, 2020, 05:24:54 am
@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.  
  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
  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
  46. SCREEN _NEWIMAGE(dimx%, dimy%, 32)
  47. TYPE object
  48.     x AS SINGLE
  49.     y AS SINGLE
  51.  
  52. DIM SHARED player AS object
  53. DIM SHARED camera AS object
  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.  
  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.  
  87.  
  89.  
  90. playerSpeed = 10
  91.  
  92. CONST keyUP = 18432
  93. CONST keyDOWN = 20480
  94. CONST keyLEFT = 19200
  95. CONST keyRIGHT = 19712
  96.  
  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
  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)
and also, you should make a git repo for collaboration
Title: Re: Find The Gold!
Post by: FellippeHeitor on October 24, 2020, 09:19:29 am
Quote from: johnno56 on October 24, 2020, 04:16:37 am
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)
Title: Re: Find The Gold!
Post by: Aurel on October 24, 2020, 09:30:46 am
very good, maybe better will be with more natural objects but then will be lot more larger ?
all in all ..nice ;
Title: Re: Find The Gold!
Post by: SierraKen on October 24, 2020, 02:44:32 pm
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.  
  16. SCREEN _NEWIMAGE(800, 600, 32)
  17.  
  18. TYPE object
  19.     x AS SINGLE
  20.     y AS SINGLE
  22.  
  23. DIM SHARED player AS object
  24. DIM SHARED camera AS object
  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.  
  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.  
  146.  
  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
  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)
  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
  302.  
  303. findgold:
  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:
  320.  
  321. done:
  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:
  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)
  360.  
Title: Re: Find The Gold!
Post by: SierraKen on October 24, 2020, 02:56:40 pm
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.  
  17. SCREEN _NEWIMAGE(800, 600, 32)
  18.  
  19. TYPE object
  20.     x AS SINGLE
  21.     y AS SINGLE
  23.  
  24. DIM SHARED player AS object
  25. DIM SHARED camera AS object
  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.  
  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.  
  147.  
  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
  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)
  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
  304.  
  305. findgold:
  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:
  322.  
  323. done:
  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:
  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)
  363.  
Title: Re: Find The Gold!
Post by: SierraKen on October 24, 2020, 06:29:34 pm
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.  
  20. SCREEN _NEWIMAGE(800, 600, 32)
  21.  
  22. TYPE object
  23.     x AS SINGLE
  24.     y AS SINGLE
  26.  
  27. DIM SHARED player AS object
  28. DIM SHARED camera AS object
  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.  
  148.  
  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
  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)
  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
  305.  
  306. findgold:
  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:
  323.  
  324. done:
  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:
  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)
  364.  
Title: Re: Find The Gold!
Post by: bplus on October 25, 2020, 11:26:21 am
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!
Title: Re: Find The Gold!
Post by: SierraKen on October 25, 2020, 11:44:00 am
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.
Title: Re: Find The Gold!
Post by: bplus on October 25, 2020, 12:03:03 pm
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.
Title: Re: Find The Gold!
Post by: bplus on October 25, 2020, 12:14:57 pm
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.
Title: Re: Find The Gold!
Post by: SierraKen on October 25, 2020, 12:29:40 pm
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.  
  21. SCREEN _NEWIMAGE(800, 600, 32)
  22.  
  23. TYPE object
  24.     x AS SINGLE
  25.     y AS SINGLE
  27.  
  28. DIM SHARED player AS object
  29. DIM SHARED camera AS object
  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.  
  117.  
  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
  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)
  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
  274.  
  275. findgold:
  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:
  292.  
  293. done:
  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:
  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)
  333.  
Title: Re: Find The Gold!
Post by: SierraKen on October 25, 2020, 12:39:50 pm
I just fixed the Title Bar. I forgot to check it when I was trying something on it and it was just saying "Loading...". It works better now too.
Here is also a picture of the new trees. :)

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

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

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

Hills would get bluer as recede into background because more air and reflecting more sky like lakes and oceans only more subtle because 0 smooth surfaces.
Title: Re: Find The Gold!
Post by: Aurel on October 25, 2020, 02:23:12 pm
The last one looking really good ..
If you can add obstacles then you will made really cool simple game !

https://aurelsoft.ucoz.com/FindGold5.png (https://aurelsoft.ucoz.com/FindGold5.png)
Title: Re: Find The Gold!
Post by: SierraKen on October 25, 2020, 02:26:55 pm
Awesome! I just used your browns and as you go down further the hills turn more yellow, which also makes it a little harder to find the GOLD as you get down lower. It also looks like the color of the foothills as you get closer. This is way cool! Thanks.

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

Title: Re: Find The Gold!
Post by: FellippeHeitor on October 26, 2020, 05:45:44 pm
This is progressing nicely, Ken!
Title: Re: Find The Gold!
Post by: SierraKen on October 26, 2020, 06:56:34 pm
Thanks Felippe. :) Next I might add some enemies and lives but we'll see. I like tinkering around with it. :)
Title: Re: Find The Gold!
Post by: bplus on October 27, 2020, 11:02:32 am
Yes, I like music, coordinates and mountain coloring: light towards front or down and darker bluer upwards to top.

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

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

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

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





Title: Re: Find The Gold!
Post by: bplus on October 27, 2020, 06:20:52 pm
Oh nice you did get a little thumbnail!  What are the target like things?

You know what I need is a countdown of how many gold bars are left. No rest for the wicked. ;-))
Title: Re: Find The Gold!
Post by: SierraKen on October 27, 2020, 06:22:14 pm
LOL I thought about that but I am just so used to counting them with the Score amount. 100 per gold bar. Every 2000 passes a level. But I'll add it. LOL
Title: Re: Find The Gold!
Post by: SierraKen on October 27, 2020, 06:23:26 pm
The target-like things? Do you mean the yellow dots in the map? That's where the gold is. You are the red one.
Title: Re: Find The Gold!
Post by: bplus on October 27, 2020, 06:23:52 pm
Quote from: SierraKen on October 27, 2020, 06:22:14 pm
LOL I thought about that but I am just so used to counting them with the Score amount. 100 per gold bar. Every 2000 passes a level. But I'll add it. LOL

OH OK that is good, go rest :-))
Title: Re: Find The Gold!
Post by: bplus on October 27, 2020, 06:26:15 pm
Quote from: SierraKen on October 27, 2020, 06:23:26 pm
The target-like things? Do you mean the yellow dots in the map? That's where the gold is. You are the red one.

No this:

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Find The Gold!
Post by: SierraKen on October 27, 2020, 06:42:19 pm
LOL nah I just added the countdown. :)) Here you go:

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

Text Only | Text with Attachments