Pointer For NASA World Map

[SierraKen]

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.

[bplus]

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.

[SierraKen]

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
6. END TYPE
7.  
8. DIM SHARED player AS object
9. DIM SHARED camera AS object
10. DIM SHARED map AS LONG
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."
34. DO
35.     mouseWheel = 0
36.     DO WHILE _MOUSEINPUT
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
73. LOOP
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)
88. END SUB
89.  

[mynameispaul]

that's pretty cool.
i like that.
opens up programming possibilities.

[bplus]

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.

[SierraKen]

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.