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

[FellippeHeitor]

The messages sent earlier by SierraKen were registered to you when you joined, because you used up his free slot.

[Petr]

It is possible. I ran the first version without chat.

[Ashish]

GREAT JOB!!! :D

[qbkiller101]

Added choosing the dimensions, working on wasd mode and arrow keys mode:

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.  
11. RANDOMIZE TIMER
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
22.     DO WHILE _MOUSEINPUT
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
45. WEND
46. SCREEN _NEWIMAGE(dimx%, dimy%, 32)
47.  
48. TYPE object
49.     x AS SINGLE
50.     y AS SINGLE
51. END TYPE
52.  
53. DIM SHARED player AS object
54. DIM SHARED camera AS object
55. DIM SHARED map AS LONG
56. DIM playerSpeed AS SINGLE
57.  
58. _TITLE "Find The Gold! One gold bar per map. Use your arrow keys."
59.  
60. start:
61. player.x = _WIDTH / 2
62. player.y = _HEIGHT / 2
63.  
64. map = _NEWIMAGE(_WIDTH * 7, _HEIGHT * 7, 32)
65.  
66. _DEST map
67. PAINT (2, 2), _RGB32(0, 200, 0)
68.  
69. FOR blocks = 1 TO 400
70.     blocks:
71.     xx = (RND * _WIDTH)
72.     yy = (RND * _HEIGHT)
73.     sz = INT(RND * 50) + 10
74.     c1 = INT(RND * 155) + 100
75.     c2 = INT(RND * 155) + 100
76.     c3 = INT(RND * 155) + 100
77.     LINE (xx, yy)-(xx + sz, yy + sz), _RGB32(c1, c2, c3), BF
78.     IF POINT(_WIDTH / 2, _HEIGHT / 2) = _RGB32(c1, c2, c3) THEN GOTO blocks:
79. NEXT
80. FOR lakes = 1 TO 10
81.     w = RND
82.     h = RND
83.     sze = (RND * 150) + 50
84.     FOR sz = .25 TO sze STEP .25
85.         CIRCLE (w * _WIDTH, h * _HEIGHT), sz, _RGB32(0, 0, 255)
86.     NEXT sz
87. NEXT lakes
88. w2 = INT(RND * _WIDTH) - 15
89. h2 = INT(RND * _HEIGHT) - 10
90. IF w2 < 15 THEN w2 = 15
91. IF h2 < 10 THEN h2 = 10
92.  
93. 'Gold
94. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 128)
95. _PRINTSTRING (w2, h2), "GOLD"
96.  
97. _DEST 0
98.  
99. _SOURCE map
100.  
101. playerSpeed = 10
102.  
103. CONST keyUP = 18432
104. CONST keyDOWN = 20480
105. CONST keyLEFT = 19200
106. CONST keyRIGHT = 19712
107.  
108. DO
109.     CLS
110.  
111.     _PUTIMAGE (camera.x, camera.y), map
112.  
113.     IF _KEYDOWN(keyUP) THEN player.y = player.y - playerSpeed
114.     IF _KEYDOWN(keyDOWN) THEN player.y = player.y + playerSpeed
115.     IF _KEYDOWN(keyLEFT) THEN player.x = player.x - playerSpeed
116.     IF _KEYDOWN(keyRIGHT) THEN player.x = player.x + playerSpeed
117.     IF _KEYDOWN(119) THEN player.y = player.y - playerSpeed 'Omer Hijazi
118.     IF _KEYDOWN(115) THEN player.y = player.y + playerSpeed 'Omer Hijazi
119.     IF _KEYDOWN(97) THEN player.x = player.x - playerSpeed 'Omer Hijazi
120.     IF _KEYDOWN(100) THEN player.x = player.x + playerSpeed 'Omer Hijazi
121.  
122.  
123.     IF player.x < 0 THEN player.x = 0
124.     IF player.x > _WIDTH(map) THEN player.x = _WIDTH(map)
125.     IF player.y < 0 THEN player.y = 0
126.     IF player.y > _HEIGHT(map) THEN player.y = _HEIGHT(map)
127.  
128.     adjustCamera
129.  
130.     'Draw Head
131.     FOR sz = .25 TO 10 STEP .25
132.         CIRCLE (player.x + camera.x, player.y + camera.y), sz, _RGB32(255, 166, 127)
133.     NEXT sz
134.     'Draw Smile
135.     CIRCLE (player.x + camera.x, player.y + camera.y + 2), 7, _RGB32(255, 0, 0), _PI, 2 * _PI, .5
136.     'Draw Eyes
137.     CIRCLE (player.x + camera.x - 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
138.     CIRCLE (player.x + camera.x + 4, player.y + camera.y - 2), 1, _RGB32(0, 0, 255)
139.     'hat
140.     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
141.     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
142.     FOR check = -15 TO 15
143.         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:
144.         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:
145.         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:
146.     NEXT check
147.  
148.     _DISPLAY
149.     _LIMIT 60
150. LOOP
151.  
152. SUB adjustCamera
153.     IF player.x + camera.x > _WIDTH / 2 OR player.x + camera.x < _WIDTH / 2 THEN
154.         camera.x = _WIDTH / 2 - player.x
155.     END IF
156.     IF camera.x > 0 THEN camera.x = 0
157.     IF camera.x < -(_WIDTH(map) - _WIDTH) THEN camera.x = -(_WIDTH(map) - _WIDTH)
158.  
159.     IF player.y + camera.y > _HEIGHT / 2 OR player.y + camera.y < _HEIGHT / 2 THEN
160.         camera.y = _HEIGHT / 2 - player.y
161.     END IF
162.     IF camera.y > 0 THEN camera.y = 0
163.     IF camera.y < -(_HEIGHT(map) - _HEIGHT) THEN camera.y = -(_HEIGHT(map) - _HEIGHT)
164. END SUB
165.  

[TempodiBasic]

Hi Guys
Hi Fellippe

1. I think that this your project that you share and let be our is wonderful!!!!!!!!!!!

2.  I find wonderful also your video that brings the audience with you along the developing of the first version of the game

3. some feedback (I hope these are useful!)
I have tryed to run the first online version and I got a strange result ( I have used US server but trying also on Australia server it is the same result)  after a while I run happy on the map I lost connection to the server. And I'm the one on that map. It happens also when I do a double connection (as you have suggested I have run two instances of the same .EXE).
Another strange result is this showed into this screenshot.
 

Now I try to donwload the version with chat from your github!

Thanks to share!!!!

[FellippeHeitor]

The client in this thread is slightly outdated now. We're working on getting the servers updated with the latest version and will update you guys here too.

[FellippeHeitor]

In the meantime, you can get the new server+client files from the repository and run a local instance. Just run the server then run the client and choose "local host".

https://github.com/FellippeHeitor/amongus

[FellippeHeitor]

Server in Brazil updated. Here's the latest client:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2.  
3. DIM SHARED gameVersion AS INTEGER
4. 'this is to be increased everytime the client
5. 'becomes incompatible with previous versions
6. gameVersion = 2
7.  
8. $LET DEBUGGING = FALSE
9. $IF DEBUGGING = TRUE THEN
10.     $CONSOLE
11. $END IF
12.  
13. CONST True = -1, False = 0
14. CONST mode_freeplay = 0
15. CONST mode_onlineclient = 1
16.  
17. CONST id_SERVERFULL = 1
18. CONST id_PING = 2
19. CONST id_ID = 3
20. CONST id_NEWCOLOR = 4
21. CONST id_NEWNAME = 5
22. CONST id_COLOR = 6
23. CONST id_POS = 7
24. CONST id_NAME = 8
25. CONST id_CHAT = 9
26. CONST id_PLAYERONLINE = 10
27. CONST id_PLAYEROFFLINE = 11
28. CONST id_PONG = 12
29. CONST id_PLAYERQUIT = 13
30. CONST id_GAMEVERSION = 14
31. CONST id_SHOOT = 15
32. CONST id_SIZE = 16
33. CONST id_UPDATESERVER = 17
34. CONST id_KICK = 18
35.  
36. CONST timeout = 10
37.  
38. CONST windowWidth = 800
39. CONST windowHeight = 600
40.  
41. TYPE object
42.     name AS STRING
43.     handle AS LONG
44.     x AS SINGLE
45.     prevX AS SINGLE
46.     y AS SINGLE
47.     prevY AS SINGLE
48.     xv AS SINGLE
49.     yv AS SINGLE
50.     xa AS SINGLE
51.     ya AS SINGLE
52.     w AS INTEGER
53.     h AS INTEGER
54.     state AS INTEGER
55.     start AS SINGLE
56.     duration AS SINGLE
57.     color AS INTEGER
58.     basicInfoSent AS _BYTE
59.     broadcastOffline AS _BYTE
60.     ping AS SINGLE
61.     id AS INTEGER
62.     text AS STRING
63.     size AS INTEGER
64.     r AS INTEGER
65.     g AS INTEGER
66.     b AS INTEGER
67. END TYPE
68.  
69. DIM SHARED particle(1000) AS object
70. DIM SHARED mode AS INTEGER
71. DIM SHARED totalClients AS INTEGER
72. DIM SHARED serverStream AS STRING
73. DIM SHARED player(1 TO 10) AS object, me AS INTEGER
74. 'DIM SHARED playerStream(1 TO 10) AS STRING
75. DIM SHARED colors(1 TO 12) AS _UNSIGNED LONG, r AS INTEGER, g AS INTEGER, b AS INTEGER
76. DIM SHARED warning(1 TO 30) AS object
77. DIM SHARED chat(1 TO 14) AS object, hasUnreadMessages AS _BYTE, chatOpen AS _BYTE
78. DIM idSet AS _BYTE
79. DIM shipMovement AS _BYTE
80. DIM i AS LONG
81. DIM serverPing AS SINGLE, currentPing AS SINGLE, waitingForPong AS _BYTE
82. DIM id AS INTEGER, value$
83. DIM choice AS STRING
84. DIM exitSign AS INTEGER
85. DIM target AS INTEGER
86. DIM score AS LONG
87.  
88. DIM SHARED ui(1 TO 1) AS object, focus AS INTEGER
89.  
90. DIM serverList(1 TO 4) AS STRING, chosenServer$
91. i = 0
92. i = i + 1: serverList(i) = "localhost Local host"
93. i = i + 1: serverList(i) = "spriggsyspriggs.ddns.net North America"
94. i = i + 1: serverList(i) = "alephc.xyz Australia"
95. i = i + 1: serverList(i) = "187.94.219.178 Brazil"
96.  
97. DIM SHARED endSignal AS STRING
98. endSignal = CHR$(253) + CHR$(254) + CHR$(255)
99.  
100. playerColorPalette:
101. DATA 195,17,16
102. DATA 14,51,196
103. DATA 18,125,46
104. DATA 236,84,187
105. DATA 239,125,17
106. DATA 248,245,91
107. DATA 62,71,77
108. DATA 216,225,241
109. DATA 107,48,187
110. DATA 112,73,28
111. DATA 93,250,220
112. DATA 79,240,58
113.  
114. RESTORE playerColorPalette
115. FOR i = 1 TO UBOUND(colors)
116.     READ r%, g%, b%
117.     colors(i) = _RGB32(r%, g%, b%)
118. NEXT
119.  
120. DIM SHARED mainWindow AS LONG
121. DIM SHARED mapImage AS LONG
122. DIM SHARED messageIcon AS LONG
123.  
124. mainWindow = _NEWIMAGE(windowWidth, windowHeight, 32)
125.  
126. mapImage = _NEWIMAGE(windowWidth * 4, windowHeight * 3, 32)
127. _DEST mapImage
128. RANDOMIZE 6
129. 'FOR i = 1 TO 500
130. '    CircleFill RND * _WIDTH, RND * _HEIGHT, RND * 2, _RGB32(255, 80)
131. 'NEXT
132. FOR i = 1 TO 50
133.     CircleFill RND * _WIDTH, RND * _HEIGHT, RND * 1000, _RGB32(RND * 255, RND * 255, RND * 255, RND * 150)
134. NEXT
135. _DEST 0
136.  
137. messageIcon = _NEWIMAGE(32, 32, 32)
138. _DEST messageIcon
139. LINE (0, 0)-(31, 31), _RGB32(0), BF
140. LINE (4, 4)-(27, 27), _RGB32(200), BF
141. FOR i = 8 TO 23 STEP 5
142.     LINE (5, i)-(25, i), _RGB32(0)
143. NEXT
144. ui(1).name = "messageicon"
145. ui(1).x = windowWidth - 50
146. ui(1).y = 10
147. ui(1).w = _WIDTH
148. ui(1).h = _HEIGHT
149. _DEST 0
150.  
151.  
152. DIM userName$, userColor%
153. IF _FILEEXISTS(COMMAND$) THEN
154.     OPEN COMMAND$ FOR BINARY AS #1
155.     GET #1, , i
156.     userName$ = SPACE$(i)
157.     GET #1, , userName$
158.     GET #1, , userColor%
159.     CLOSE #1
160.     choice = "1"
161.     GOTO clientTemp
162. ELSE
163.     INPUT "Name: ", userName$
164.     userName$ = LEFT$(userName$, 20)
165.     DO
166.         PRINT "Color (1-"; LTRIM$(STR$(UBOUND(colors))); "): ";
167.         INPUT "", userColor%
168.     LOOP WHILE userColor% < 1 OR userColor% > UBOUND(colors)
169. END IF
170.  
171. start:
172. DO
173.     COLOR 15
174.     PRINT "-------------------------"
175.     PRINT "(1) Free play"
176.     PRINT "(2) Connect to server"
177.  
178.     DO
179.         choice = INKEY$
180.  
181.         exitSign = _EXIT
182.         IF exitSign THEN
183.             SYSTEM
184.         END IF
185.  
186.         _LIMIT 30
187.     LOOP UNTIL choice >= "1" AND choice <= "3"
188.  
189.     DIM SHARED server AS object
190.     DIM c AS INTEGER, attempt AS INTEGER
191.     SELECT CASE VAL(choice)
192.         CASE 1
193.             mode = mode_freeplay
194.             EXIT DO
195.         CASE 2
196.             COLOR 7
197.             PRINT "Choose a server: "
198.             FOR i = 1 TO UBOUND(serverList)
199.                 PRINT i; " " + MID$(serverList(i), INSTR(serverList(i), " ") + 1)
200.             NEXT
201.             DO
202.                 choice = INKEY$
203.  
204.                 exitSign = _EXIT
205.                 IF exitSign THEN
206.                     SYSTEM
207.                 END IF
208.  
209.                 _LIMIT 30
210.             LOOP UNTIL VAL(choice) >= 1 AND VAL(choice) <= UBOUND(serverList)
211.             clientTemp:
212.             chosenServer$ = LEFT$(serverList(VAL(choice)), INSTR(serverList(VAL(choice)), " ") - 1)
213.  
214.             PRINT "Attempting to connect to server... ";
215.             r = CSRLIN: c = POS(1)
216.             CONST maxAttempts = 100
217.             attempt = 0
218.             DO
219.                 server.handle = 0
220.                 server.handle = _OPENCLIENT("TCP/IP:51512:" + chosenServer$)
221.                 IF server.handle THEN EXIT DO
222.                 attempt = attempt + 1
223.                 LOCATE r, c: PRINT USING "###%"; (attempt / maxAttempts) * 100;
224.  
225.                 exitSign = _EXIT
226.                 IF exitSign THEN
227.                     SYSTEM
228.                 END IF
229.  
230.                 _LIMIT 30
231.             LOOP WHILE attempt < maxAttempts
232.             IF server.handle THEN
233.                 mode = mode_onlineclient
234.                 serverStream = ""
235.                 EXIT DO
236.             END IF
237.             CLS
238.             COLOR 14: PRINT "/\ ";: COLOR 12
239.             PRINT "Failed to connect to server."
240.     END SELECT
241. LOOP
242.  
243. IF mode = mode_onlineclient THEN
244.     serverPing = TIMER
245.     DO
246.         getData server, serverStream
247.         WHILE parse(serverStream, id, value$)
248.             SELECT CASE id
249.                 CASE id_SERVERFULL
250.                     CLS
251.                     COLOR 14: PRINT "/\ ";: COLOR 12
252.                     PRINT "Server full."
253.                     CLOSE server.handle
254.                     GOTO start
255.                 CASE id_GAMEVERSION
256.                     IF CVI(value$) <> gameVersion THEN
257.                         CLS
258.                         COLOR 14: PRINT "/\ ";: COLOR 12
259.                         PRINT "Server version incompatible."
260.                         sendData server, id_GAMEVERSION, ""
261.                         sendData server, id_PLAYERQUIT, ""
262.                         CLOSE server.handle
263.                         GOTO start
264.                     ELSE
265.                         EXIT DO
266.                     END IF
267.             END SELECT
268.         WEND
269.         IF TIMER - serverPing > 10 THEN
270.             CLS
271.             COLOR 14: PRINT "/\ ";: COLOR 12
272.             PRINT "No response from server."
273.             GOTO start
274.         END IF
275.         _LIMIT 30
276.     LOOP
277. END IF
278.  
279. SCREEN mainWindow
280. _FONT 8
281. _PRINTMODE _KEEPBACKGROUND
282.  
283. DIM SHARED playerSpeed AS SINGLE
284. DIM SHARED camera AS object
285.  
286. RANDOMIZE TIMER
287.  
288. CONST keyUP = 18432
289. CONST keyDOWN = 20480
290. CONST keyLEFT = 19200
291. CONST keyRIGHT = 19712
292. CONST keySPACE = 32
293.  
294. CONST cameraWindow = 100
295.  
296. CONST minSpeed = 3
297. CONST maxSpeed = 5
298.  
299. playerSpeed = maxSpeed
300. shipMovement = True
301.  
302. IF mode > 0 THEN
303.     idSet = False
304. ELSE
305.     idSet = True
306.     me = 1
307.     player(me).name = userName$
308.     player(me).x = _WIDTH / 2 + COS(RND * _PI) * (RND * 100)
309.     player(me).y = _HEIGHT / 2 + SIN(RND * _PI) * (RND * 100)
310.     player(me).state = True
311.     player(me).color = userColor%
312.     player(me).size = 15
313. END IF
314. DO
315.     CLS
316.  
317.     DIM shipFlotation AS SINGLE, shipFloatAmplitude AS SINGLE
318.     IF shipMovement THEN
319.         shipFlotation = shipFlotation + .05
320.         IF shipFlotation > _PI(2) THEN shipFlotation = shipFlotation - _PI(2)
321.         shipFloatAmplitude = 1.5
322.     END IF
323.  
324.     _DONTBLEND
325.     _PUTIMAGE (camera.x + COS(shipFlotation) * shipFloatAmplitude, camera.y + SIN(shipFlotation) * shipFloatAmplitude), mapImage
326.     _BLEND
327.  
328.     SELECT CASE mode
329.         CASE mode_onlineclient
330.             IF waitingForPong = False THEN
331.                 serverPing = TIMER
332.                 sendData server, id_PING, ""
333.                 waitingForPong = True
334.             END IF
335.  
336.             getData server, serverStream
337.             DO WHILE parse(serverStream, id, value$)
338.                 SELECT EVERYCASE id
339.                     CASE id_ID 'first piece of data sent by server if not full
340.                         idSet = True
341.                         me = CVI(value$)
342.                         player(me).name = userName$
343.                         player(me).x = _WIDTH / 2 + COS(RND * _PI) * (RND * 100)
344.                         player(me).y = _HEIGHT / 2 + SIN(RND * _PI) * (RND * 100)
345.                         player(me).state = True
346.                         player(me).color = userColor%
347.                         player(me).size = 15
348.                     CASE id_NEWCOLOR 'server color changes must always be applied
349.                         player(me).color = CVI(value$)
350.                     CASE id_NEWNAME 'server name changes must always be applied
351.                         player(me).name = value$
352.                     CASE id_COLOR
353.                         player(CVI(LEFT$(value$, 2))).color = CVI(RIGHT$(value$, 2))
354.                     CASE id_SIZE
355.                         player(CVI(LEFT$(value$, 2))).size = CVI(RIGHT$(value$, 2))
356.                     CASE id_POS
357.                         'playerStream(CVI(LEFT$(value$, 2))) = playerStream(CVI(LEFT$(value$, 2))) + MID$(value$, 3)
358.                         player(CVI(LEFT$(value$, 2))).x = CVS(MID$(value$, LEN(value$) - 7, 4))
359.                         player(CVI(LEFT$(value$, 2))).y = CVS(RIGHT$(value$, 4))
360.                     CASE id_NAME
361.                         player(CVI(LEFT$(value$, 2))).name = MID$(value$, 3)
362.                     CASE id_CHAT
363.                         addMessageToChat CVI(LEFT$(value$, 2)), MID$(value$, 3)
364.                         hasUnreadMessages = True
365.                     CASE id_SHOOT
366.                         target = CVI(RIGHT$(value$, 2))
367.                         IF target = me THEN score = score - 100
368.                         addParticles player(target).x, player(target).y, 5, _RGB32(255)
369.                         addParticles player(target).x, player(target).y, 100, colors(player(target).color)
370.                         thickLine player(CVI(LEFT$(value$, 2))).x + camera.x, player(CVI(LEFT$(value$, 2))).y + camera.y, player(target).x + camera.x, player(target).y + camera.y, 8, _RGB32(227, 78, 6, 80)
371.                     CASE id_PLAYERONLINE
372.                         player(CVI(value$)).state = True
373.                     CASE id_PLAYEROFFLINE
374.                         IF player(CVI(value$)).state = True THEN
375.                             player(CVI(value$)).state = False
376.                             addWarning player(CVI(value$)).name + " left the game."
377.                         END IF
378.                     CASE id_PONG
379.                         waitingForPong = False
380.                     CASE id_KICK
381.                         SCREEN 0
382.                         _AUTODISPLAY
383.                         COLOR 14: PRINT "/\ ";: COLOR 12
384.                         PRINT "Kicked from server. Reason: "
385.                         COLOR 14
386.                         PRINT "   "; value$
387.                         CLOSE server.handle
388.                         GOTO start
389.                 END SELECT
390.             LOOP
391.  
392.             IF idSet THEN
393.                 IF player(me).basicInfoSent = False THEN
394.                     player(me).basicInfoSent = True
395.                     sendData server, id_COLOR, MKI$(player(me).color)
396.                     sendData server, id_NAME, player(me).name
397.                     sendData server, id_SIZE, MKI$(player(me).size)
398.                 END IF
399.  
400.                 IF player(me).x <> player(me).prevX OR player(me).y <> player(me).prevY THEN
401.                     player(me).prevX = player(me).x
402.                     player(me).prevY = player(me).y
403.                     sendData server, id_POS, MKS$(player(me).x) + MKS$(player(me).y)
404.                 END IF
405.             END IF
406.  
407.             totalClients = 0
408.             FOR i = 1 TO UBOUND(player)
409.                 IF player(i).state = True THEN totalClients = totalClients + 1
410.             NEXT
411.     END SELECT
412.  
413.     IF playerSpeed < minSpeed THEN playerSpeed = minSpeed
414.     IF playerSpeed > maxSpeed THEN playerSpeed = maxSpeed
415.  
416.     IF idSet THEN
417.         IF chatOpen = False THEN
418.             IF _KEYDOWN(keyUP) THEN player(me).y = player(me).y - playerSpeed
419.             IF _KEYDOWN(keyDOWN) THEN player(me).y = player(me).y + playerSpeed
420.             IF _KEYDOWN(keyLEFT) THEN player(me).x = player(me).x - playerSpeed
421.             IF _KEYDOWN(keyRIGHT) THEN player(me).x = player(me).x + playerSpeed
422.  
423.             IF player(me).x < 0 THEN player(me).x = 0
424.             IF player(me).y < 0 THEN player(me).y = 0
425.             IF player(me).x > _WIDTH(mapImage) THEN player(me).x = _WIDTH(mapImage)
426.             IF player(me).y > _HEIGHT(mapImage) THEN player(me).y = _HEIGHT(mapImage)
427.         END IF
428.         adjustCamera
429.     END IF
430.  
431.     exitSign = _EXIT
432.     IF exitSign THEN
433.         IF mode = mode_onlineclient THEN sendData server, id_PLAYERQUIT, ""
434.         EXIT DO
435.     END IF
436.  
437.     IF (mode = mode_onlineclient) THEN
438.         DIM k AS LONG
439.         k = _KEYHIT
440.  
441.         IF k = 27 THEN
442.             IF chatOpen THEN
443.                 chatOpen = False
444.             END IF
445.         END IF
446.  
447.         COLOR _RGB32(255)
448.  
449.         DIM m$
450.         currentPing = TIMER - serverPing
451.         IF currentPing > timeout THEN
452.             SCREEN 0
453.             _AUTODISPLAY
454.             COLOR 14: PRINT "/\ ";: COLOR 12
455.             PRINT "Connection lost (timed out)"
456.             CLOSE server.handle
457.             GOTO start
458.         END IF
459.         m$ = LTRIM$(STR$(currentPing))
460.         m$ = MID$(m$, INSTR(m$, ".") + 1)
461.         m$ = LEFT$(STRING$(3 - LEN(m$), "0") + m$, 3) + "ms"
462.         _PRINTSTRING (_WIDTH - 150 - _PRINTWIDTH(m$), 0), m$
463.  
464.         _FONT 16
465.         m$ = LTRIM$(STR$(totalClients)) + "/" + LTRIM$(STR$(UBOUND(player)))
466.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(m$)) / 2, _HEIGHT - _FONTHEIGHT), m$
467.         _FONT 8
468.     END IF
469.  
470.     DIM x AS SINGLE, y AS SINGLE
471.     target = 0
472.     FOR i = 1 TO UBOUND(player)
473.         'proximity
474.         IF i <> me AND player(i).state = True THEN
475.             IF dist(player(me).x, player(me).y, player(i).x, player(i).y) < 150 THEN target = i
476.         END IF
477.     NEXT
478.  
479.     IF target THEN
480.         DIM targetAnimation AS SINGLE
481.         targetAnimation = targetAnimation - .1
482.         IF targetAnimation < 0 THEN targetAnimation = 5
483.  
484.         x = player(target).x + camera.x + COS(shipFlotation) * shipFloatAmplitude
485.         y = player(target).y + camera.y + SIN(shipFlotation) * shipFloatAmplitude
486.         CircleFill x, y, player(target).size + 10 + targetAnimation, _RGB32(255, 0, 0, 100)
487.     END IF
488.  
489.     FOR i = 1 TO UBOUND(player)
490.         IF player(i).state = False OR player(i).color = 0 THEN _CONTINUE
491.         'IF i <> me AND LEN(playerStream(i)) > 0 THEN
492.         '    'process player stream of coordinates
493.         '    player(i).x = CVS(MID$(playerStream(i), 1, 4))
494.         '    player(i).y = CVS(MID$(playerStream(i), 5, 4))
495.         '    playerStream(i) = MID$(playerStream(i), 9)
496.         'END IF
497.  
498.         x = player(i).x + camera.x + COS(shipFlotation) * shipFloatAmplitude
499.         y = player(i).y + camera.y + SIN(shipFlotation) * shipFloatAmplitude
500.         CircleFill x, y + 6, player(i).size + 5, _RGB32(0, 50)
501.         CircleFill x, y, player(i).size + 5, _RGB32(0)
502.         CircleFill x, y, player(i).size, colors(player(i).color)
503.         COLOR _RGB32(0)
504.         _PRINTSTRING (1 + x - _PRINTWIDTH(player(i).name) / 2, 1 + y - 20), player(i).name
505.         COLOR _RGB32(255)
506.         _PRINTSTRING (x - _PRINTWIDTH(player(i).name) / 2, y - 20), player(i).name
507.     NEXT
508.  
509.     IF _KEYDOWN(keySPACE) THEN
510.         DIM lastShot AS SINGLE
511.         IF target > 0 THEN
512.             IF TIMER - lastShot > .5 THEN
513.                 lastShot = TIMER
514.                 score = score + 100
515.                 sendData server, id_SHOOT, MKI$(target)
516.                 addParticles player(target).x, player(target).y, 5, _RGB32(255)
517.                 addParticles player(target).x, player(target).y, 100, colors(player(target).color)
518.                 thickLine player(me).x + camera.x, player(me).y + camera.y, player(target).x + camera.x, player(target).y + camera.y, 8, _RGB32(227, 78, 6, 80)
519.             END IF
520.         END IF
521.     END IF
522.  
523.     updateParticles
524.  
525.     'LINE (_WIDTH / 2 - cameraWindow, _HEIGHT / 2 - cameraWindow)-STEP(cameraWindow * 2, cameraWindow * 2), , B
526.  
527.     'display warnings
528.     FOR i = 1 TO UBOUND(warning)
529.         IF warning(i).state = True THEN
530.             COLOR _RGB32(0)
531.             _PRINTSTRING (11, 1 + _HEIGHT / 2 + _FONTHEIGHT * i), warning(i).name
532.             COLOR _RGB32(238, 50, 22)
533.             _PRINTSTRING (10, _HEIGHT / 2 + _FONTHEIGHT * i), warning(i).name
534.             IF TIMER - warning(i).ping > 2.5 THEN warning(i).state = False
535.         END IF
536.     NEXT
537.  
538.     'display messagebox icon
539.     IF mode = mode_onlineclient THEN
540.         _PUTIMAGE (ui(1).x, ui(1).y), messageIcon
541.         IF hasUnreadMessages THEN
542.             CircleFill _WIDTH - 50, 10, 8, _RGB32(0)
543.             CircleFill _WIDTH - 50, 10, 5, _RGB32(205, 6, 0)
544.         END IF
545.  
546.         IF chatOpen THEN
547.             hasUnreadMessages = False
548.             LINE (50, 50)-(_WIDTH - 50, _HEIGHT - 50), _RGB32(0, 150), BF
549.             LINE (50, 50)-(_WIDTH - 50, _HEIGHT - 50), _RGB32(0), B
550.             _FONT 16
551.             COLOR _RGB32(0)
552.             FOR i = 1 TO UBOUND(chat)
553.                 IF chat(i).state THEN
554.                     y = 65 + _FONTHEIGHT * ((i - 1) * 2)
555.                     LINE (55, y - 10)-(_WIDTH - 55, y + 18), _RGB32(255, 80), BF
556.                     _FONT 8
557.                     x = 60
558.                     IF chat(i).id = me THEN x = _WIDTH - 60 - _PRINTWIDTH(chat(i).name)
559.                     COLOR _RGB32(100)
560.                     _PRINTSTRING (1 + x, 1 + y - 8), chat(i).name
561.                     COLOR colors(chat(i).color)
562.                     _PRINTSTRING (x, y - 8), chat(i).name
563.                     _FONT 16
564.                     x = 60
565.                     IF chat(i).id = me THEN x = _WIDTH - 60 - _PRINTWIDTH(chat(i).text)
566.                     COLOR _RGB32(100)
567.                     _PRINTSTRING (1 + x, 1 + y), LEFT$(chat(i).text, (_WIDTH - 100) \ _FONTWIDTH)
568.                     COLOR _RGB32(255)
569.                     _PRINTSTRING (x, y), LEFT$(chat(i).text, (_WIDTH - 100) \ _FONTWIDTH)
570.                 END IF
571.             NEXT
572.  
573.             DIM myMessage$, char$, tooFast AS _BYTE
574.             CONST messageSpeed = 1.5
575.             char$ = INKEY$
576.             SELECT CASE char$
577.                 CASE CHR$(22) 'ctrl+v
578.                     myMessage$ = myMessage$ + _CLIPBOARD$
579.                 CASE " " TO "z"
580.                     myMessage$ = myMessage$ + char$
581.                 CASE CHR$(8)
582.                     IF LEN(myMessage$) THEN
583.                         myMessage$ = LEFT$(myMessage$, LEN(myMessage$) - 1)
584.                     END IF
585.                 CASE CHR$(13)
586.                     DIM lastSentChat AS SINGLE
587.                     IF myMessage$ = ">reset" THEN
588.                         player(me).size = 15
589.                         sendData server, id_SIZE, MKI$(player(me).size)
590.                         myMessage$ = ""
591.                         chatOpen = False
592.                     ELSEIF myMessage$ = ">big" THEN
593.                         player(me).size = 25
594.                         sendData server, id_SIZE, MKI$(player(me).size)
595.                         myMessage$ = ""
596.                         chatOpen = False
597.                     ELSEIF myMessage$ = ">updateserver" THEN
598.                         'temporary solution for triggering auto-update checks
599.                         sendData server, id_UPDATESERVER, ""
600.                         myMessage$ = ""
601.                         chatOpen = False
602.                     ELSE
603.                         IF LEN(myMessage$) > 0 AND TIMER - lastSentChat > messageSpeed THEN
604.                             lastSentChat = TIMER
605.                             addMessageToChat me, myMessage$
606.                             sendData server, id_CHAT, myMessage$
607.                             myMessage$ = ""
608.                         ELSEIF LEN(myMessage$) > 0 AND TIMER - lastSentChat < messageSpeed THEN
609.                             tooFast = True
610.                         END IF
611.                     END IF
612.             END SELECT
613.  
614.             COLOR _RGB32(0)
615.             _PRINTSTRING (61, 61 + _FONTHEIGHT * (i * 2) - 24), "> " + myMessage$ + "_"
616.             COLOR _RGB32(255)
617.             _PRINTSTRING (60, 60 + _FONTHEIGHT * (i * 2) - 24), "> " + myMessage$ + "_"
618.             _FONT 8
619.  
620.             IF tooFast THEN
621.                 DIM s AS INTEGER
622.                 s = _CEIL(messageSpeed - (TIMER - lastSentChat))
623.                 m$ = "(too fast - wait" + STR$(s) + " second" + LEFT$("s", ABS(s > 1)) + ")"
624.                 y = _HEIGHT - 50 - _FONTHEIGHT
625.                 COLOR _RGB32(0)
626.                 _PRINTSTRING (61, 1 + y), m$
627.                 COLOR _RGB32(200, 177, 44)
628.                 _PRINTSTRING (60, y), m$
629.                 IF TIMER - lastSentChat > messageSpeed THEN tooFast = False
630.             END IF
631.         ELSE
632.             char$ = INKEY$
633.             SELECT CASE char$
634.                 CASE CHR$(13)
635.                     chatOpen = True
636.             END SELECT
637.         END IF
638.     END IF
639.  
640.     DIM mouseIsDown AS _BYTE, mouseDownOn AS INTEGER, mouseWheel AS INTEGER
641.     DIM mb1 AS _BYTE, mb2 AS _BYTE, mx AS INTEGER, my AS INTEGER
642.     mouseWheel = 0
643.     IF _MOUSEINPUT THEN
644.         mouseWheel = mouseWheel + _MOUSEWHEEL
645.         IF _MOUSEBUTTON(1) = mb1 AND _MOUSEBUTTON(2) = mb2 THEN
646.             DO WHILE _MOUSEINPUT
647.                 mouseWheel = mouseWheel + _MOUSEWHEEL
648.                 IF NOT (_MOUSEBUTTON(1) = mb1 AND _MOUSEBUTTON(2) = mb2) THEN EXIT DO
649.             LOOP
650.         END IF
651.         mb1 = _MOUSEBUTTON(1)
652.         mb2 = _MOUSEBUTTON(2)
653.         mx = _MOUSEX
654.         my = _MOUSEY
655.     END IF
656.  
657.     focus = 0
658.     FOR i = UBOUND(ui) TO 1 STEP -1
659.         IF mx > ui(i).x AND mx < ui(i).x + ui(i).w AND my > ui(i).y AND my < ui(i).y + ui(i).h THEN
660.             focus = i
661.             EXIT FOR
662.         END IF
663.     NEXT
664.  
665.     IF mb1 THEN
666.         mouseDownOn = focus
667.         mouseIsDown = True
668.     ELSE
669.         IF mouseIsDown THEN
670.             IF mouseDownOn THEN
671.                 SELECT CASE ui(mouseDownOn).name
672.                     CASE "messageicon"
673.                         IF mode = mode_onlineclient THEN chatOpen = NOT chatOpen
674.                 END SELECT
675.             END IF
676.         END IF
677.         mouseIsDown = False
678.     END IF
679.  
680.     IF mode = mode_onlineclient THEN
681.         _FONT 16
682.         COLOR _RGB32(0)
683.         _PRINTSTRING (1, 1), "Score:" + STR$(score)
684.         COLOR _RGB32(255)
685.         _PRINTSTRING (0, 0), "Score:" + STR$(score)
686.         _FONT 8
687.     END IF
688.  
689.     _DISPLAY
690.     _LIMIT 60
691. LOOP
692. CLOSE
693. SYSTEM
694.  
695. SUB addMessageToChat (id AS INTEGER, text$)
696.     DIM i AS INTEGER
697.     FOR i = 2 TO UBOUND(chat)
698.         SWAP chat(i), chat(i - 1)
699.     NEXT
700.     chat(UBOUND(chat)).id = id
701.     chat(UBOUND(chat)).state = True
702.     IF id > 0 THEN
703.         chat(UBOUND(chat)).name = player(id).name
704.         chat(UBOUND(chat)).color = player(id).color
705.     ELSE
706.         chat(UBOUND(chat)).name = "SYSTEM:"
707.         chat(UBOUND(chat)).color = 7
708.         chatOpen = True
709.     END IF
710.     chat(UBOUND(chat)).text = text$
711. END SUB
712.  
713. SUB addWarning (text$)
714.     DIM i AS INTEGER
715.     FOR i = 1 TO UBOUND(warning)
716.         IF warning(i).state = False THEN
717.             warning(i).state = True
718.             warning(i).name = text$
719.             warning(i).ping = TIMER
720.             EXIT FOR
721.         END IF
722.     NEXT
723. END SUB
724.  
725. SUB sendData (client AS object, id AS INTEGER, value$)
726.     DIM packet$
727.     packet$ = MKI$(id) + value$ + endSignal
728.     IF client.handle THEN PUT #client.handle, , packet$
729. END SUB
730.  
731. SUB getData (client AS object, buffer AS STRING)
732.     DIM incoming$
733.     GET #client.handle, , incoming$
734.     buffer = buffer + incoming$
735. END SUB
736.  
737. FUNCTION parse%% (buffer AS STRING, id AS INTEGER, value$)
738.     DIM endMarker AS LONG
739.     endMarker = INSTR(buffer, endSignal)
740.     IF endMarker THEN
741.         id = CVI(LEFT$(buffer, 2))
742.         value$ = MID$(buffer, 3, endMarker - 3)
743.         buffer = MID$(buffer, endMarker + LEN(endSignal))
744.         parse%% = True
745.     END IF
746. END FUNCTION
747.  
748. SUB adjustCamera
749.     IF player(me).x + camera.x > _WIDTH / 2 + cameraWindow THEN
750.         camera.x = _WIDTH / 2 - player(me).x + cameraWindow
751.     ELSEIF player(me).x + camera.x < _WIDTH / 2 - cameraWindow THEN
752.         camera.x = _WIDTH / 2 - player(me).x - cameraWindow
753.     END IF
754.     IF camera.x > 0 THEN camera.x = 0
755.     IF camera.x < -(_WIDTH(mapImage) - _WIDTH) THEN camera.x = -(_WIDTH(mapImage) - _WIDTH)
756.  
757.     IF player(me).y + camera.y > _HEIGHT / 2 + cameraWindow THEN
758.         camera.y = _HEIGHT / 2 - player(me).y + cameraWindow
759.     ELSEIF player(me).y + camera.y < _HEIGHT / 2 - cameraWindow THEN
760.         camera.y = _HEIGHT / 2 - player(me).y - cameraWindow
761.     END IF
762.     IF camera.y > 0 THEN camera.y = 0
763.     IF camera.y < -(_HEIGHT(mapImage) - _HEIGHT) THEN camera.y = -(_HEIGHT(mapImage) - _HEIGHT)
764. END SUB
765.  
766.  
767. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
768.     ' CX = center x coordinate
769.     ' CY = center y coordinate
770.     '  R = radius
771.     '  C = fill color
772.     DIM Radius AS INTEGER, RadiusError AS INTEGER
773.     DIM X AS INTEGER, Y AS INTEGER
774.     Radius = ABS(R)
775.     RadiusError = -Radius
776.     X = Radius
777.     Y = 0
778.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
779.     LINE (CX - X, CY)-(CX + X, CY), C, BF
780.     WHILE X > Y
781.         RadiusError = RadiusError + Y * 2 + 1
782.         IF RadiusError >= 0 THEN
783.             IF X <> Y + 1 THEN
784.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
785.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
786.             END IF
787.             X = X - 1
788.             RadiusError = RadiusError - X * 2
789.         END IF
790.         Y = Y + 1
791.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
792.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
793.     WEND
794. END SUB
795.  
796. SUB db (text$)
797.     $IF DEBUGGING = TRUE THEN
798.         _ECHO text$
799.     $ELSE
800.         DIM dummy$
801.         dummy$ = text$
802.     $END IF
803. END SUB
804.  
805. FUNCTION dist! (x1!, y1!, x2!, y2!)
806.     dist! = _HYPOT((x2! - x1!), (y2! - y1!))
807. END FUNCTION
808.  
809. SUB thickLine (x1 AS SINGLE, y1 AS SINGLE, x2 AS SINGLE, y2 AS SINGLE, lineWeight%, c~&)
810.     DIM a AS SINGLE, x0 AS SINGLE, y0 AS SINGLE
811.     DIM prevDest AS LONG
812.     DIM colorSample AS LONG
813.  
814.     colorSample = _NEWIMAGE(1, 1, 32)
815.  
816.     prevDest = _DEST
817.     _DEST colorSample
818.     PSET (0, 0), c~&
819.     _DEST prevDest
820.  
821.     a = _ATAN2(y2 - y1, x2 - x1)
822.     a = a + _PI / 2
823.     x0 = 0.5 * lineWeight% * COS(a)
824.     y0 = 0.5 * lineWeight% * SIN(a)
825.  
826.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), colorSample TO(x1 - x0, y1 - y0)-(x1 + x0, y1 + y0)-(x2 + x0, y2 + y0), , _SMOOTH
827.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), colorSample TO(x1 - x0, y1 - y0)-(x2 + x0, y2 + y0)-(x2 - x0, y2 - y0), , _SMOOTH
828.  
829.     _FREEIMAGE colorSample
830. END SUB
831.  
832. SUB addParticles (x AS SINGLE, y AS SINGLE, total AS INTEGER, c AS _UNSIGNED LONG)
833.     DIM addedP AS INTEGER, p AS INTEGER
834.     DIM a AS SINGLE
835.  
836.     addedP = 0: p = 0
837.     DO
838.         p = p + 1
839.         IF p > UBOUND(particle) THEN EXIT DO
840.         IF particle(p).state = True THEN _CONTINUE
841.         addedP = addedP + 1
842.         particle(p).state = True
843.         particle(p).x = x
844.         particle(p).y = y
845.         a = RND * _PI(2)
846.         particle(p).xv = COS(a) * (RND * 10)
847.         particle(p).yv = SIN(a) * (RND * 10)
848.         particle(p).r = _RED32(c)
849.         particle(p).g = _GREEN32(c)
850.         particle(p).b = _BLUE32(c)
851.         particle(p).size = _CEIL(RND * 3)
852.         particle(p).start = TIMER
853.         particle(p).duration = RND
854.     LOOP UNTIL addedP >= total
855. END SUB
856.  
857. SUB updateParticles
858.     DIM i AS INTEGER
859.  
860.     FOR i = 1 TO UBOUND(particle)
861.         CONST gravity = .1
862.         IF particle(i).state THEN
863.             particle(i).xv = particle(i).xv + particle(i).xa
864.             particle(i).x = particle(i).x + particle(i).xv
865.             particle(i).yv = particle(i).yv + particle(i).ya + gravity
866.             particle(i).y = particle(i).y + particle(i).yv
867.  
868.             IF particle(i).x > _WIDTH(mapImage) OR particle(i).x < 0 OR particle(i).y > _HEIGHT(mapImage) OR particle(i).y < 0 THEN
869.                 particle(i).state = False
870.             ELSE
871.                 CircleFill particle(i).x + camera.x, particle(i).y + camera.y, particle(i).size, _RGB32(particle(i).r, particle(i).g, particle(i).b, map(TIMER - particle(i).start, 0, particle(i).duration, 255, 0))
872.             END IF
873.         END IF
874.     NEXT
875. END SUB
876.  
877. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
878.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
879. END FUNCTION
880.  

[FellippeHeitor]

Version 3 of the client attached to this post. Notice that previous versions won't be able to connect to the servers now.

 

[SMcNeill]

Question:  Can you have the game simply try to share itself across all three servers, much like IRC and freenode does?  QB64 has a limited user base, and having to divide your chances into thirds to find someone else playing, seems like it'd just make it harder to find others to join with. 

[qbkiller101]

Hey, @FellippeHeitor can you add an option on the main screen to choose controls? WASD, arrow keys, or mouse, cuz I can't figure out graphics, I have written the code for movement of each option though.

[FellippeHeitor]

@SMcNeill We're still researching a way to keep it in sync across clients in the same server, that might at some point be considered. When you're at Discord let me know and I'll tell you in which server I currently am logged in.

@qbkiller101 I'll check it out, thanks!