Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on October 30, 2020, 02:28:03 am

Title: Pointer For NASA World Map
Post by: SierraKen on October 30, 2020, 02:28:03 am
I figured out how to use the background scrolling method on a picture and it works really good! I added mouse support and WASD keys as well as the arrow keys. Included is a NASA world topography map that I found on a NASA website tonight. I shrunk the map down a bit so it wouldn't be too large. Notice there's a white dot pointer as well as the mouse pointer. I almost deleted the white dot but I thought why not, it just adds another pointer and using the keyboard keys the map moves slower and more precise than the mouse. I had to keep the mouse at a fast speed so people won't keep having to take the mouse off the screen and start on the other side of the screen to keep scrolling it. In most situations you can keep the mouse on the screen the entire time this way. Tell me what you think, thanks. But imagine now the games and programs we can make with background pictures made using a graphics program or even a camera. :)
The zip file is attached below.


Title: Re: Pointer For NASA World Map
Post by: bplus on October 31, 2020, 12:32:50 pm
Never ceases to amaze me how far North Europe is in comparison to US!

Yeah, I get dizzy moving map with mouse and glad you left the arrow keys in but even they need some fine tuning so you can pin point a  spot.
Title: Re: Pointer For NASA World Map
Post by: SierraKen on October 31, 2020, 01:35:28 pm
Thanks B+. I just fine-tuned it a little better. The mouse doesn't move as fast I believe and the arrow keys and WASD keys move more specifically. Here is just the code below. The map is in the .zip file above.

Code: QB64: [Select]
  1. s& = _NEWIMAGE(800, 600, 32)
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. TYPE object
  4.     x AS SINGLE
  5.     y AS SINGLE
  7.  
  8. DIM SHARED player AS object
  9. DIM SHARED camera AS object
  11. DIM playerSpeed AS SINGLE
  12.  
  13. map = _LOADIMAGE("worldtopoNASA6000x3000.jpg", 32)
  14.  
  15. xx = _WIDTH(map)
  16. yy = _HEIGHT(map)
  17.  
  18. player.x = _WIDTH / 2
  19. player.y = _HEIGHT / 2
  20.  
  21. playerSpeed = 1
  22.  
  23. CONST keyUP = 18432
  24. CONST keyDOWN = 20480
  25. CONST keyLEFT = 19200
  26. CONST keyRIGHT = 19712
  27. CONST KeyUp2 = 119
  28. CONST KeyDown2 = 115
  29. CONST KeyLeft2 = 97
  30. CONST KeyRight2 = 100
  31. CONST KeyEsc = 27
  32.  
  33. _TITLE "The World - Using NASA Topography Map - Use Mouse, Arrow Keys or WASD Keys."
  35.     mouseWheel = 0
  37.         mouseX = _MOUSEX
  38.         mouseY = _MOUSEY
  39.         mouseLeftButton = _MOUSEBUTTON(1)
  40.         mouseRightButton = _MOUSEBUTTON(2)
  41.         mouseMiddleButton = _MOUSEBUTTON(3)
  42.         mouseWheel = mouseWheel + _MOUSEWHEEL
  43.     LOOP
  44.     IF mouseX > oldmousex THEN player.x = player.x + (playerSpeed * 8)
  45.     IF mouseX < oldmousex THEN player.x = player.x - (playerSpeed * 8)
  46.     IF mouseY > oldmousey THEN player.y = player.y + (playerSpeed * 5)
  47.     IF mouseY < oldmousey THEN player.y = player.y - (playerSpeed * 5)
  48.  
  49.     oldmousex = mouseX
  50.     oldmousey = mouseY
  51.  
  52.     IF _KEYDOWN(keyUP) OR _KEYDOWN(KeyUp2) THEN player.y = player.y - playerSpeed
  53.     IF _KEYDOWN(keyDOWN) OR _KEYDOWN(KeyDown2) THEN player.y = player.y + playerSpeed
  54.     IF _KEYDOWN(keyLEFT) OR _KEYDOWN(KeyLeft2) THEN player.x = player.x - playerSpeed
  55.     IF _KEYDOWN(keyRIGHT) OR _KEYDOWN(KeyRight2) THEN player.x = player.x + playerSpeed
  56.  
  57.  
  58.     IF player.x < 0 THEN player.x = 0
  59.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
  60.     IF player.y < 0 THEN player.y = 0
  61.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
  62.  
  63.     adjustCamera
  64.     CLS
  65.     _PUTIMAGE (camera.x, camera.y), map
  66.  
  67.     FOR sz = .25 TO 5 STEP .25
  68.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255)
  69.     NEXT sz
  70.  
  71.     _DISPLAY
  72.     _LIMIT 500
  74.  
  75.  
  76. SUB adjustCamera
  77.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
  78.         camera.x = _WIDTH / 2 - player.x
  79.     END IF
  80.     IF camera.x > 0 THEN camera.x = 0
  81.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
  82.  
  83.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
  84.         camera.y = _HEIGHT / 2 - player.y
  85.     END IF
  86.     IF camera.y > 0 THEN camera.y = 0
  87.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
  89.  
Title: Re: Pointer For NASA World Map
Post by: mynameispaul on October 31, 2020, 02:04:04 pm
that's pretty cool.
i like that.
opens up programming possibilities.
Title: Re: Pointer For NASA World Map
Post by: bplus on October 31, 2020, 08:43:00 pm
Quote from: mynameispaul on October 31, 2020, 02:04:04 pm
that's pretty cool.
i like that.
opens up programming possibilities.

Yes did you see Fellippe's from which this was taken? He did a video demo on set up.
https://www.qb64.org/forum/index.php?topic=3139.msg124093#msg124093
Ken's Gold game inspired by that too!

A zoom in and zoom out with mouse wheel would be most excellent here.
Title: Re: Pointer For NASA World Map
Post by: SierraKen on October 31, 2020, 09:09:43 pm
I tried to do zoom but it would only work with what is on the screen, not the part that's not on the screen. I was probably doing something wrong. But my efforts on that have been erased. Anyone is free to mess around with this code too.
Text Only | Text with Attachments