Pretentious not-yet-a-clone clone of Among Us in QB64

[Dav]

US (North Carolina).

Edit: I saw you there.  I just wandered around a while and left.

- Dav

[FellippeHeitor]

Glad to see you around!

[johnno56]

This concept (A background larger than the main window) reminded me of the game Agario (homework...) but this method could easily be used for a 'space shooter'. Instead of a circular player; a ship. Instead of random circles; a star-field....

You did an excellent job in explaining everything... even 'I' could understand it... lol

Well done!

[SierraKen]

Felippe, I'm working on a game right now using your code. But I need help detecting colors on the map. I can't seem to figure out the coordinates to use with the POINT command when your guy goes over a certain color. I have deleted my attempts at the code. I've even tried specific variable detection but the problem is, the camera variable goes into negative numbers and the player.x and player.y variables only change when the map stops moving and your guy moves. I'm not sure what to use. Here is the game I have so far. You have to find the GOLD bar and then I want it to go to the next level. Instead of all circles I use filled-in squares and blue circular lakes. Plus I made the map 8x so it's fairly big. It might take a couple of seconds to load from the black screen. I'm using your first code you posted on this thread, not the one with Internet access.

Code: QB64: [Select]

1.  
2. RANDOMIZE TIMER
3. SCREEN _NEWIMAGE(1000, 800, 32)
4.  
5. TYPE object
6.     x AS SINGLE
7.     y AS SINGLE
8. END TYPE
9.  
10. DIM SHARED player AS object
11. DIM SHARED camera AS object
12. DIM SHARED map AS LONG
13. DIM playerSpeed AS SINGLE
14.  
15. start:
16. player.x = _WIDTH / 2
17. player.y = _HEIGHT / 2
18.  
19. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
20. _DEST map
21. PAINT (2, 2), _RGB32(0, 200, 0)
22.  
23. FOR blocks = 1 TO 400
24.     blocks:
25.     xx = (RND * _WIDTH)
26.     yy = (RND * _HEIGHT)
27.     sz = INT(RND * 50) + 10
28.     c1 = INT(RND * 155) + 100
29.     c2 = INT(RND * 155) + 100
30.     c3 = INT(RND * 155) + 100
31.     LINE (xx, yy)-(xx + sz, yy + sz), _RGB32(c1, c2, c3), BF
32.     IF POINT(_WIDTH / 2, _HEIGHT / 2) = _RGB32(c1, c2, c3) THEN GOTO blocks:
33. NEXT
34. FOR lakes = 1 TO 10
35.     w = RND
36.     h = RND
37.     sze = (RND * 150) + 50
38.     FOR sz = .25 TO sze STEP .25
39.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 0, 255)
40.     NEXT sz
41. NEXT lakes
42. w2 = INT(RND * _WIDTH) - 14
43. h2 = INT(RND * _HEIGHT) - 7
44.  
45. 'Gold
46. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
47. _PRINTSTRING (w2, h2), "GOLD"
48.  
49. _DEST 0
50.  
51. playerSpeed = 5
52.  
53. CONST keyUP = 18432
54. CONST keyDOWN = 20480
55. CONST keyLEFT = 19200
56. CONST keyRIGHT = 19712
57.  
58. DO
59.     CLS
60.  
61.     _PUTIMAGE (camera.x, camera.y), map
62.  
63.     IF _KEYDOWN(keyUP) THEN player.y = player.y - playerSpeed
64.     IF _KEYDOWN(keyDOWN) THEN player.y = player.y + playerSpeed
65.     IF _KEYDOWN(keyLEFT) THEN player.x = player.x - playerSpeed
66.     IF _KEYDOWN(keyRIGHT) THEN player.x = player.x + playerSpeed
67.  
68.     IF player.x < 0 THEN player.x = 0
69.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
70.     IF player.y < 0 THEN player.y = 0
71.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
72.  
73.     adjustCamera
74.  
75.     'Draw Head
76.     FOR sz = .25 TO 10 STEP .25
77.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
78.     NEXT sz
79.     'Draw Smile
80.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
81.     'Draw Eyes
82.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
83.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
84.     'hat
85.     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
86.     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
87.  
88.  
89.     _DISPLAY
90.     _LIMIT 60
91. LOOP
92.  
93. SUB adjustCamera
94.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
95.         camera.x = _WIDTH / 2 - player.x
96.     END IF
97.     IF camera.x > 0 THEN camera.x = 0
98.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
99.  
100.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
101.         camera.y = _HEIGHT / 2 - player.y
102.     END IF
103.     IF camera.y > 0 THEN camera.y = 0
104.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
105. END SUB
106.  

[bplus]

Try setting _SOURCE to image handle before using POINT.

Oh coordinates should be same as camera + player?

[FellippeHeitor]

In your case, like bplus said, you will need to set _SOURCE first:

Code: QB64: [Select]

1. _SOURCE map

This way you can read its pixels with POINT().

Since your player will roam around the map, you will use player.x and player.y to read POINT with, you can ignore the camera variable.

[SierraKen]

I did it!!! Thanks guys!!!

This is an example game, which is my first mapped out game like this. I hope to expand it sometime soon and make it more fun. For now, you can move your cowboy around and find one gold bar per map. When you move your guy next to or on the bar, it gives you 100 points and starts over with a brand new map. If I expand on this game, I'll make a new forum thread for it. But this is what I have so far. I also doubled the cowboy speed from my last post. Oh also, the gold bar is labeled "GOLD" so you know what it is.

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.  
6.  
7. RANDOMIZE TIMER
8. SCREEN _NEWIMAGE(1000, 800, 32)
9.  
10. TYPE object
11.     x AS SINGLE
12.     y AS SINGLE
13. END TYPE
14.  
15. DIM SHARED player AS object
16. DIM SHARED camera AS object
17. DIM SHARED map AS LONG
18. DIM playerSpeed AS SINGLE
19.  
20. _TITLE "Find The Gold! One gold bar per map. Use your arrow keys."
21.  
22. start:
23. player.x = _WIDTH / 2
24. player.y = _HEIGHT / 2
25.  
26. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
27.  
28. _DEST map
29. PAINT (2, 2), _RGB32(0, 200, 0)
30.  
31. FOR blocks = 1 TO 400
32.     blocks:
33.     xx = (RND * _WIDTH)
34.     yy = (RND * _HEIGHT)
35.     sz = INT(RND * 50) + 10
36.     c1 = INT(RND * 155) + 100
37.     c2 = INT(RND * 155) + 100
38.     c3 = INT(RND * 155) + 100
39.     LINE (xx, yy)-(xx + sz, yy + sz), _RGB32(c1, c2, c3), BF
40.     IF POINT(_WIDTH / 2, _HEIGHT / 2) = _RGB32(c1, c2, c3) THEN GOTO blocks:
41. NEXT
42. FOR lakes = 1 TO 10
43.     w = RND
44.     h = RND
45.     sze = (RND * 150) + 50
46.     FOR sz = .25 TO sze STEP .25
47.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 0, 255)
48.     NEXT sz
49. NEXT lakes
50. w2 = INT(RND * _WIDTH) - 15
51. h2 = INT(RND * _HEIGHT) - 10
52. IF w2 < 15 THEN w2 = 15
53. IF h2 < 10 THEN h2 = 10
54.  
55. 'Gold
56. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
57. _PRINTSTRING (w2, h2), "GOLD"
58.  
59. _DEST 0
60.  
61. _SOURCE map
62.  
63. playerSpeed = 10
64.  
65. CONST keyUP = 18432
66. CONST keyDOWN = 20480
67. CONST keyLEFT = 19200
68. CONST keyRIGHT = 19712
69.  
70. DO
71.     CLS
72.  
73.     _PUTIMAGE (camera.x, camera.y), map
74.  
75.     IF _KEYDOWN(keyUP) THEN player.y = player.y - playerSpeed
76.     IF _KEYDOWN(keyDOWN) THEN player.y = player.y + playerSpeed
77.     IF _KEYDOWN(keyLEFT) THEN player.x = player.x - playerSpeed
78.     IF _KEYDOWN(keyRIGHT) THEN player.x = player.x + playerSpeed
79.  
80.     IF player.x < 0 THEN player.x = 0
81.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
82.     IF player.y < 0 THEN player.y = 0
83.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
84.  
85.     adjustCamera
86.  
87.     'Draw Head
88.     FOR sz = .25 TO 10 STEP .25
89.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
90.     NEXT sz
91.     'Draw Smile
92.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
93.     'Draw Eyes
94.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
95.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
96.     'hat
97.     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
98.     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
99.     FOR check = -15 TO 15
100.         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:
101.         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:
102.         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:
103.     NEXT check
104.  
105.     _DISPLAY
106.     _LIMIT 60
107. LOOP
108.  
109. SUB adjustCamera
110.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
111.         camera.x = _WIDTH / 2 - player.x
112.     END IF
113.     IF camera.x > 0 THEN camera.x = 0
114.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
115.  
116.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
117.         camera.y = _HEIGHT / 2 - player.y
118.     END IF
119.     IF camera.y > 0 THEN camera.y = 0
120.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
121. END SUB
122.  

[FellippeHeitor]

Cool mod, Ken!

 

[SierraKen]

Thanks Felippe, glad you like it. :)). I can add all kinds of stuff to the map now that I have color detection. :))). Can also make enemies where if you see one on your screen, they come after you. lol I hope I can do that anyway. :) I hope to work on it sometime soon.

[FellippeHeitor]

New version updated with chat!

https://github.com/FellippeHeitor/amongus/blob/main/amongst.bas

 

[SierraKen]

Felippe that is totally cool! I felt like I was in a tank game chatting with my counterpart. lol

[qbkiller101]

I did it!!! Thanks guys!!!

This is an example game, which is my first mapped out game like this. I hope to expand it sometime soon and make it more fun. For now, you can move your cowboy around and find one gold bar per map. When you move your guy next to or on the bar, it gives you 100 points and starts over with a brand new map. If I expand on this game, I'll make a new forum thread for it. But this is what I have so far. I also doubled the cowboy speed from my last post. Oh also, the gold bar is labeled "GOLD" so you know what it is.

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.  
6.  
7. RANDOMIZE TIMER
8. SCREEN _NEWIMAGE(1000, 800, 32)
9.  
10. TYPE object
11.     x AS SINGLE
12.     y AS SINGLE
13. END TYPE
14.  
15. DIM SHARED player AS object
16. DIM SHARED camera AS object
17. DIM SHARED map AS LONG
18. DIM playerSpeed AS SINGLE
19.  
20. _TITLE "Find The Gold! One gold bar per map. Use your arrow keys."
21.  
22. start:
23. player.x = _WIDTH / 2
24. player.y = _HEIGHT / 2
25.  
26. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
27.  
28. _DEST map
29. PAINT (2, 2), _RGB32(0, 200, 0)
30.  
31. FOR blocks = 1 TO 400
32.     blocks:
33.     xx = (RND * _WIDTH)
34.     yy = (RND * _HEIGHT)
35.     sz = INT(RND * 50) + 10
36.     c1 = INT(RND * 155) + 100
37.     c2 = INT(RND * 155) + 100
38.     c3 = INT(RND * 155) + 100
39.     LINE (xx, yy)-(xx + sz, yy + sz), _RGB32(c1, c2, c3), BF
40.     IF POINT(_WIDTH / 2, _HEIGHT / 2) = _RGB32(c1, c2, c3) THEN GOTO blocks:
41. NEXT
42. FOR lakes = 1 TO 10
43.     w = RND
44.     h = RND
45.     sze = (RND * 150) + 50
46.     FOR sz = .25 TO sze STEP .25
47.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 0, 255)
48.     NEXT sz
49. NEXT lakes
50. w2 = INT(RND * _WIDTH) - 15
51. h2 = INT(RND * _HEIGHT) - 10
52. IF w2 < 15 THEN w2 = 15
53. IF h2 < 10 THEN h2 = 10
54.  
55. 'Gold
56. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
57. _PRINTSTRING (w2, h2), "GOLD"
58.  
59. _DEST 0
60.  
61. _SOURCE map
62.  
63. playerSpeed = 10
64.  
65. CONST keyUP = 18432
66. CONST keyDOWN = 20480
67. CONST keyLEFT = 19200
68. CONST keyRIGHT = 19712
69.  
70. DO
71.     CLS
72.  
73.     _PUTIMAGE (camera.x, camera.y), map
74.  
75.     IF _KEYDOWN(keyUP) THEN player.y = player.y - playerSpeed
76.     IF _KEYDOWN(keyDOWN) THEN player.y = player.y + playerSpeed
77.     IF _KEYDOWN(keyLEFT) THEN player.x = player.x - playerSpeed
78.     IF _KEYDOWN(keyRIGHT) THEN player.x = player.x + playerSpeed
79.  
80.     IF player.x < 0 THEN player.x = 0
81.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
82.     IF player.y < 0 THEN player.y = 0
83.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
84.  
85.     adjustCamera
86.  
87.     'Draw Head
88.     FOR sz = .25 TO 10 STEP .25
89.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
90.     NEXT sz
91.     'Draw Smile
92.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
93.     'Draw Eyes
94.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
95.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
96.     'hat
97.     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
98.     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
99.     FOR check = -15 TO 15
100.         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:
101.         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:
102.         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:
103.     NEXT check
104.  
105.     _DISPLAY
106.     _LIMIT 60
107. LOOP
108.  
109. SUB adjustCamera
110.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
111.         camera.x = _WIDTH / 2 - player.x
112.     END IF
113.     IF camera.x > 0 THEN camera.x = 0
114.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
115.  
116.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
117.         camera.y = _HEIGHT / 2 - player.y
118.     END IF
119.     IF camera.y > 0 THEN camera.y = 0
120.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
121. END SUB
122.  

I added 4 lines for wasd at 79 to 82
but, as always, BUGS:
pressing both keys of movement in specific direction: e.g. w and right arrow, maks faster movement
ITS A FEATURE

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.  
6.  
7. RANDOMIZE TIMER
8. SCREEN _NEWIMAGE(800, 600, 32)
9.  
10. TYPE object
11.     x AS SINGLE
12.     y AS SINGLE
13. END TYPE
14.  
15. DIM SHARED player AS object
16. DIM SHARED camera AS object
17. DIM SHARED map AS LONG
18. DIM playerSpeed AS SINGLE
19.  
20. _TITLE "Find The Gold! One gold bar per map. Use your arrow keys."
21.  
22. start:
23. player.x = _WIDTH / 2
24. player.y = _HEIGHT / 2
25.  
26. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
27.  
28. _DEST map
29. PAINT (2, 2), _RGB32(0, 200, 0)
30.  
31. FOR blocks = 1 TO 400
32.     blocks:
33.     xx = (RND * _WIDTH)
34.     yy = (RND * _HEIGHT)
35.     sz = INT(RND * 50) + 10
36.     c1 = INT(RND * 155) + 100
37.     c2 = INT(RND * 155) + 100
38.     c3 = INT(RND * 155) + 100
39.     LINE (xx, yy)-(xx + sz, yy + sz), _RGB32(c1, c2, c3), BF
40.     IF POINT(_WIDTH / 2, _HEIGHT / 2) = _RGB32(c1, c2, c3) THEN GOTO blocks:
41. NEXT
42. FOR lakes = 1 TO 10
43.     w = RND
44.     h = RND
45.     sze = (RND * 150) + 50
46.     FOR sz = .25 TO sze STEP .25
47.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 0, 255)
48.     NEXT sz
49. NEXT lakes
50. w2 = INT(RND * _WIDTH) - 15
51. h2 = INT(RND * _HEIGHT) - 10
52. IF w2 < 15 THEN w2 = 15
53. IF h2 < 10 THEN h2 = 10
54.  
55. 'Gold
56. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
57. _PRINTSTRING (w2, h2), "GOLD"
58.  
59. _DEST 0
60.  
61. _SOURCE map
62.  
63. playerSpeed = 10
64.  
65. CONST keyUP = 18432
66. CONST keyDOWN = 20480
67. CONST keyLEFT = 19200
68. CONST keyRIGHT = 19712
69.  
70. DO
71.     CLS
72.  
73.     _PUTIMAGE (camera.x, camera.y), map
74.  
75.     IF _KEYDOWN(keyUP) THEN player.y = player.y - playerSpeed
76.     IF _KEYDOWN(keyDOWN) THEN player.y = player.y + playerSpeed
77.     IF _KEYDOWN(keyLEFT) THEN player.x = player.x - playerSpeed
78.     IF _KEYDOWN(keyRIGHT) THEN player.x = player.x + playerSpeed
79.     IF _KEYDOWN(119) THEN player.y = player.y - playerSpeed 'Omer Hijazi
80.     IF _KEYDOWN(115) THEN player.y = player.y + playerSpeed 'Omer Hijazi
81.     IF _KEYDOWN(97) THEN player.x = player.x - playerSpeed 'Omer Hijazi
82.     IF _KEYDOWN(100) THEN player.x = player.x + playerSpeed 'Omer Hijazi
83.  
84.  
85.     IF player.x < 0 THEN player.x = 0
86.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
87.     IF player.y < 0 THEN player.y = 0
88.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
89.  
90.     adjustCamera
91.  
92.     'Draw Head
93.     FOR sz = .25 TO 10 STEP .25
94.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
95.     NEXT sz
96.     'Draw Smile
97.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
98.     'Draw Eyes
99.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
100.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
101.     'hat
102.     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
103.     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
104.     FOR check = -15 TO 15
105.         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:
106.         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:
107.         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:
108.     NEXT check
109.  
110.     _DISPLAY
111.     _LIMIT 60
112. LOOP
113.  
114. SUB adjustCamera
115.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
116.         camera.x = _WIDTH / 2 - player.x
117.     END IF
118.     IF camera.x > 0 THEN camera.x = 0
119.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
120.  
121.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
122.         camera.y = _HEIGHT / 2 - player.y
123.     END IF
124.     IF camera.y > 0 THEN camera.y = 0
125.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
126. END SUB
127.  

[Petr]

Perfect work, Fellippe. I like this.

[FellippeHeitor]

@SierraKen lol, I was away from the keyboard and I just saw your messages in the game chat! Glad you enjoyed it.

@qbkiller101 that doesn't qualify as a bug - you are indeed reading two keys and changing the player's position, so it all seems to be working exactly as you wrote it ;-)

@Petr glad you enjoyed it! You just helped me find a bug just by joining the US server, thank you for trying it :-)

[Petr]

Really? Which bug? I don´t see none bug :)