openTCPstream in loop ?

Blitz3D Forums/Blitz3D Beginners Area/openTCPstream in loop ?

Prym (Posted 2014) [#1]

Have I to place the OpenTCPStream command in the main loop, or is it exclued ? I don't find any info in the forums . (I have not read all) I know how to use AcceptTCPStream ( in the loop ) , but I am in doubt concerning OpenTCPStream . It seems that this is slowing the main loop speed . Is that command like CreateTCPServer , and may be called only in the beginning , before the loop . Thanks .

Wings (Posted 2014) [#2]

Hi Yes one can put it anywhere in code. but it will make program slow. like 8000 ms delays. Specialy if it fails. I recomend look at code arcive and find your own way. Remember after open a stream dont Close it. instead reuse the stream untill it breaks of it self. 1) OpenTCPStream 2) In main Loop use the stream with WriteBytes,Readbytes. (not to me self To optimise Blitz basic TCP ip never send more than 1800 bytes untill recived its a feature not a bug. if you do it also slow down :/)

Gauge (Posted 2014) [#3]

Years ago I was making a mud, and i have a little code. I don't know what type of file your trying to open/stream. whats the purpose of the stream? if your attempting to send information, then a tcp stream should always stay open. Then pass information from the server to the client using writeline, and readline or readbyte. If your stream needs to open/close you should be using udp. I'd be more than happy to give you a sample, server, client, game, whatever.

Gauge (Posted 2014) [#4]

OH a little code: note while keep a tcp stream open, you have to make sure you have a stream avail with information or blitz shuts down. (probably too much) [/B] global server server=createtcp server() if not server then print "server failed to start" end elseif print "*connected" endif While() ;main loop stream=acceptcpstream(server) If stream then p.player =new player p\stream=stream writeline p\stream, "Whats your name?" delay 100 ;nothing else to put here yet and check each stream for p.player=each player if readavail(p\stream) msg$=readline(p\stream) ;;;;or yyou could use the following: ;;;;while readavail(p\stream) then ;;;;b=readbyte(p\stream) ;;;;msg$=msg$+chr$(b) ;;;;wend for pp.player=each player writeline pp\stream msg$ next endif wend type Player field stream field name field msg$ end type

Prym (Posted 2014) [#5]

An extract of my code , the 'play' loop . Why does Not it work when I suppress the two lines with OpenTCPStream And with CloseTCPStream ? I have Not used Type declarations For MULTIplayers yet , only arrays . ;;;; ; inits ... ;if serverexist then ; partie = joinnetgame = 1 ... ;else ;createserver ; partie = hostnetgame = 2 ... strStream48cli = OpenTCPStream ( adresserveur$ , 8080 ) ; , 1 ) ; 1 : absolutely needed for a local net/play ??? While Not KeyHit ( 27 ) If MULTI = True Then For Nmodele = 0 To 3 PositionEntity playerMULTI ( Nmodele ) , Xplayer0MULTI ( Nmodele ) , Yplayer0MULTI ( Nmodele ) , Zplayer0MULTI ( Nmodele ) ; , 1 RotateEntity playerMULTI ( Nmodele ) , pitchplayer0MULTI ( Nmodele ) , yawplayer0MULTI ( Nmodele ) , rollplayer0MULTI ( Nmodele ) ; , 1 Next EndIf ; CaptureWorld UpdateWorld RenderWorld ; tween# Flip If MULTI = True Then Xplayer0MULTI ( numplayer0 ) = EntityX ( player0 , 1 ) Yplayer0MULTI ( numplayer0 ) = EntityY ( player0 , 1 ) Zplayer0MULTI ( numplayer0 ) = EntityZ ( player0 , 1 ) pitchplayer0MULTI ( numplayer0 ) = EntityPitch ( player0 , 1 ) yawplayer0MULTI ( numplayer0 ) = EntityYaw ( player0 , 1 ) rollplayer0MULTI ( numplayer0 ) = EntityRoll ( player0 , 1 ) If partie = 2 Then strStream48ser = AcceptTCPStream ( TCP48 ) If strStream48ser <> 0 Then Nmodele = ReadInt ( strStream48ser ) playerID ( Nmodele ) = ReadInt ( strStream48ser ) numplayer0pris ( Nmodele ) = ReadInt ( strStream48cli ) Xplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) Yplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) Zplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) pitchplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) yawplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) rollplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) For Nmodele = 0 To 3 WriteInt strStream48ser , Nmodele WriteInt strStream48ser , playerID ( Nmodele ) WriteInt strStream48ser , numplayer0pris ( Nmodele ) WriteInt strStream48ser , Xplayer0MULTI ( Nmodele ) WriteInt strStream48ser , Yplayer0MULTI ( Nmodele ) WriteInt strStream48ser , Zplayer0MULTI ( Nmodele ) WriteInt strStream48ser , pitchplayer0MULTI ( Nmodele ) WriteInt strStream48ser , yawplayer0MULTI ( Nmodele ) WriteInt strStream48ser , rollplayer0MULTI ( Nmodele ) Next EndIf ElseIf partie = 1 Then ; strStream48cli = OpenTCPStream ( adresserveur$ , 8080 ) ; ( DottedIP$ ( HOSTplayerID ) , 8080 ) ; If strStream48cli <> 0 Then WriteInt strStream48cli , numplayer0 WriteInt strStream48cli , playerID ( numplayer0 ) WriteInt strStream48cli , numplayer0pris ( numplayer0 ) ; 1 ; WriteInt strStream48cli , Xplayer0MULTI ( numplayer0 ) ; EntityX ( player0 , 1 ) ; WriteInt strStream48cli , Yplayer0MULTI ( numplayer0 ) ; EntityY ( player0 , 1 ) ; WriteInt strStream48cli , Zplayer0MULTI ( numplayer0 ) ; EntityZ ( player0 , 1 ) ; WriteInt strStream48cli , pitchplayer0MULTI ( numplayer0 ) ; EntityPitch ( player0 , 1 ) ; WriteInt strStream48cli , yawplayer0MULTI ( numplayer0 ) ; EntityYaw ( player0 , 1 ) ; WriteInt strStream48cli , rollplayer0MULTI ( numplayer0 ) ; EntityRoll ( player0 , 1 ) ; For Nmodele = 0 To 3 cubemodele = ReadInt ( strStream48cli ) ; Nmodele = ; cubemodele = sa dépane playerID ( Nmodele ) = ReadInt ( strStream48cli ) numplayer0pris ( Nmodele ) = ReadInt ( strStream48cli ) Xplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) Yplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) Zplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) pitchplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) yawplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) rollplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) Next ; CloseTCPStream strStream48cli ; EndIf EndIf Wend CloseTCPStream strStream48cli End ;;;;

Gauge (Posted 2014) [#6]

what is your good doing/not doing from when you the the open/close tcp streams enabled and what does it do when disabled? Do not reopen a tcpstream, you should only open a tcpstream when the player connects. Then that stream remains open. until they are done playing. And keep your server stream open. I can't really make heads/tails out of your code, however have declared the streams as a global? global strstream48ser and you client streams if not. I think your losing some info/data somewhere, make sure all your globals are declared. Also the more write/reads you have write int to stream etc the more slow down your going to have. It would be better for you to add them all to one line writethem and readthem. Good luck

Guy Fawkes (Posted 2014) [#7]

Graphics3D(800, 600, 0, 2) Global game_name$ = "Test" Global adresserveur$ = "127.0.0.1" Global port% = 8080 Global strStream48ser Global strStream48cli = OpenTCPStream(adresserveur$, port%) If Not strStream48cli Then RuntimeError "Could not connect to game: '"+game_name$+"' on server: '"+adresserveur$+": "+port%+"'..." Global max_players = 0 Dim playerMulti(max_players) Dim Xplayer0MULTI#(max_players) Dim Yplayer0MULTI#(max_players) Dim Zplayer0MULTI#(max_players) Dim pitchplayer0MULTI#(max_players) Dim yawplayer0MULTI#(max_players) Dim rollplayer0MULTI#(max_players) Dim playerID(max_players) Dim numplayer0pris(max_players) If strStream48cli Then partie = JoinNetGame(game_name$, adresserveur$) If strStream48cli = 0 Then partie = HostNetGame(game_name$) Global MULTI = True Global cam = CreateCamera() PositionEntity cam, 0, 1, 0 CameraRange cam, .01, 10000.0 Global light = CreateLight() RotateEntity light, 45, 45, 0 Global player0 = CreateCube() PositionEntity(player0, 0, 1, 10, 1) api_ShowWindow(SystemProperty$("AppHWND"), 1) While Not KeyDown(1) While Not Eof(strStream48cli) If MULTI = True Then Xplayer0MULTI#(numplayer0) = EntityX#(player0, 1) Yplayer0MULTI#(numplayer0) = EntityY#(player0, 1) Zplayer0MULTI#(numplayer0) = EntityZ#(player0, 1) pitchplayer0MULTI#(numplayer0) = EntityPitch#(player0, 1) yawplayer0MULTI#(numplayer0) = EntityYaw#(player0, 1) rollplayer0MULTI#(numplayer0) = EntityRoll#(player0, 1) If partie = 1 Then WriteInt strStream48cli, numplayer0 WriteInt strStream48cli, playerID(numplayer0) WriteInt strStream48cli, numplayer0pris(numplayer0) WriteInt strStream48cli, Xplayer0MULTI#(numplayer0) WriteInt strStream48cli, Yplayer0MULTI#(numplayer0) WriteInt strStream48cli, Zplayer0MULTI#(numplayer0) WriteInt strStream48cli, pitchplayer0MULTI#(numplayer0) WriteInt strStream48cli, yawplayer0MULTI#(numplayer0) WriteInt strStream48cli, rollplayer0MULTI#(numplayer0) Else If partie = 2 Then strStream48ser = AcceptTCPStream(strStream48cli) If strStream48ser Then Nmodele = ReadInt(strStream48ser) playerID(Nmodele) = ReadInt(strStream48ser) numplayer0pris(Nmodele) = ReadInt(strStream48cli) Xplayer0MULTI#(Nmodele) = ReadFloat(strStream48ser) Yplayer0MULTI#(Nmodele) = ReadFloat(strStream48ser) Zplayer0MULTI#(Nmodele) = ReadFloat(strStream48ser) pitchplayer0MULTI#(Nmodele) = ReadFloat(strStream48ser) yawplayer0MULTI#(Nmodele) = ReadFloat(strStream48ser) rollplayer0MULTI#(Nmodele) = ReadFloat(strStream48ser) For Nmodele = 0 To 3 cubemodele = ReadInt(strStream48cli) playerID(Nmodele) = ReadInt(strStream48cli) numplayer0pris(Nmodele) = ReadInt(strStream48cli) Xplayer0MULTI#(Nmodele) = ReadFloat(strStream48cli) Yplayer0MULTI#(Nmodele) = ReadFloat(strStream48cli) Zplayer0MULTI#(Nmodele) = ReadFloat(strStream48cli) pitchplayer0MULTI#(Nmodele) = ReadFloat(strStream48cli) yawplayer0MULTI#(Nmodele) = ReadFloat(strStream48cli) rollplayer0MULTI#(Nmodele) = ReadFloat(strStream48cli) WriteInt strStream48ser, Nmodele WriteInt strStream48ser, playerID(Nmodele) WriteInt strStream48ser, numplayer0pris(Nmodele) WriteInt strStream48ser, Xplayer0MULTI#(Nmodele) WriteInt strStream48ser, Yplayer0MULTI#(Nmodele) WriteInt strStream48ser, Zplayer0MULTI#(Nmodele) WriteInt strStream48ser, pitchplayer0MULTI#(Nmodele) WriteInt strStream48ser, yawplayer0MULTI#(Nmodele) WriteInt strStream48ser, rollplayer0MULTI#(Nmodele) If MULTI = True Then PositionEntity playerMULTI(Nmodele), Xplayer0MULTI#(Nmodele), Yplayer0MULTI#(Nmodele), Zplayer0MULTI#(Nmodele) ;, 1 RotateEntity playerMULTI(Nmodele), pitchplayer0MULTI#(Nmodele), yawplayer0MULTI#(Nmodele), rollplayer0MULTI#(Nmodele) ;, 1 EndIf Next EndIf EndIf If KeyHit(1) Then End Wend UpdateWorld RenderWorld Flip Wend CloseTCPStream strStream48cli End

Prym (Posted 2014) [#8]

Hello Gauge, Thank you for your precisions . I will go back to my PC and try some things. I have to translate (oups!) exactly what you mean. I wonder where in my code the datas are lost and the stream closed. The datas are all globals and no other trace of closestream in my code . See you. Thank.

Prym (Posted 2014) [#9]

Hello to all the members of the blitzbasic forum Is there someone who can help me to correct my LAN game Galaxang (space 3D) ? I have put the multiplayer chunk of the main loop . I have modified? it and expose it in this post . Status : I have connected two Windows 7 home PCs with a blue LAN cable in their net plugs . My net is declared as "Reseau indefini" (FR : windows 7 "net and connections" page ) . Is it normal ? Can it be the reason why my program loop does not work ? Is there a configuration in windows that I have to do to use a LAN net ? The loop chunk works with this line : ; strStream48cli = OpenTCPStream ( adresserveur$ , 8080 ) ; ( DottedIP$ ( HOSTplayerID ) , 8080 ) But it slows too much the loop, and I know I don't have to do like that . Thank you for your answers and suggestions . The Gauge example does not work anymore for me . .pabonreso If MULTI = True Then If parentplayer0 = pivotterrainchateau Then Xplayer0MULTI ( numplayer0 ) = EntityX ( player0 , 0 ) ; Xplayer0 Yplayer0MULTI ( numplayer0 ) = EntityY ( player0 , 0 ) Zplayer0MULTI ( numplayer0 ) = EntityZ ( player0 , 0 ) ; pitchplayer0MULTI ( numplayer0 ) = EntityPitch ( player0 , 0 ) ; yawplayer0MULTI ( numplayer0 ) = EntityYaw ( player0 , 0 ) ; rollplayer0MULTI ( numplayer0 ) = EntityRoll ( player0 , 0 ) Else ; If parentplayer0 = 0 , pivotTEMP , ou autres Then Xplayer0MULTI ( numplayer0 ) = EntityX ( player0 , 1 ) Yplayer0MULTI ( numplayer0 ) = EntityY ( player0 , 1 ) Zplayer0MULTI ( numplayer0 ) = EntityZ ( player0 , 1 ) ; pitchplayer0MULTI ( numplayer0 ) = EntityPitch ( player0 , 1 ) ; yawplayer0MULTI ( numplayer0 ) = EntityYaw ( player0 , 1 ) ; rollplayer0MULTI ( numplayer0 ) = EntityRoll ( player0 , 1 ) EndIf pitchplayer0MULTI ( numplayer0 ) = EntityPitch ( player0 ) ; , 1 ) yawplayer0MULTI ( numplayer0 ) = EntityYaw ( player0 ) ; , 1 ) rollplayer0MULTI ( numplayer0 ) = EntityRoll ( player0 ) ; , 1 ) If KeyHit ( 57 ) Stop ; 57 = Espace ; DebugLog verifs If partie = 2 Then strStream48ser = AcceptTCPStream ( TCP48 ) DebugLog "TCP48 = " + TCP48 DebugLog "strStream48ser = " + strStream48ser ; DebugLog "ReadAvail ( strStream48ser ) = " + ReadAvail ( strStream48ser ) ; DebugLog "strStream48cli = " + strStream48cli ; DebugLog "ReadAvail ( strStream48cli ) = " + ReadAvail ( strStream48cli ) If strStream48ser <> 0 Then If ReadString$ ( strStream48ser ) = "coordscli" Then Nmodele = ReadInt ( strStream48ser ) playerID ( Nmodele ) = ReadInt ( strStream48ser ) numplayer0pris ( Nmodele ) = ReadInt ( strStream48ser ) Xplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) Yplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) Zplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) pitchplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) yawplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) rollplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) EndIf ; EndIf WriteString strStream48ser , "coordsser" For Nmodele = 0 To 3 WriteInt strStream48ser , Nmodele WriteInt strStream48ser , playerID ( Nmodele ) WriteInt strStream48ser , numplayer0pris ( Nmodele ) WriteInt strStream48ser , Xplayer0MULTI ( Nmodele ) WriteInt strStream48ser , Yplayer0MULTI ( Nmodele ) WriteInt strStream48ser , Zplayer0MULTI ( Nmodele ) WriteInt strStream48ser , pitchplayer0MULTI ( Nmodele ) WriteInt strStream48ser , yawplayer0MULTI ( Nmodele ) WriteInt strStream48ser , rollplayer0MULTI ( Nmodele ) Next DebugLog "TCP48 = " + TCP48 DebugLog "strStream48ser = " + strStream48ser ; DebugLog "ReadAvail ( strStream48ser ) = " + ReadAvail ( strStream48ser ) ; DebugLog "strStream48cli = " + strStream48cli ; DebugLog "ReadAvail ( strStream48cli ) = " + ReadAvail ( strStream48cli ) ; CloseTCPStream strStream48ser EndIf ElseIf partie = 1 Then ; strStream48cli = OpenTCPStream ( adresserveur$ , 8080 ) ; ( DottedIP$ ( HOSTplayerID ) , 8080 ) ; DebugLog "TCP48 = " + TCP48 ; DebugLog "strStream48ser = " + strStream48ser ; DebugLog "ReadAvail ( strStream48ser ) = " + ReadAvail ( strStream48ser ) DebugLog "strStream48cli = " + strStream48cli DebugLog "ReadAvail ( strStream48cli ) = " + ReadAvail ( strStream48cli ) If strStream48cli <> 0 ; And ReadAvail ( strStream48cli ) = 0 Then WriteString strStream48cli , "coordscli" WriteInt strStream48cli , numplayer0 WriteInt strStream48cli , playerID ( numplayer0 ) WriteInt strStream48cli , numplayer0pris ( numplayer0 ) ; 1 ; WriteInt strStream48cli , Xplayer0MULTI ( numplayer0 ) ; EntityX ( player0 , 1 ) ; WriteInt strStream48cli , Yplayer0MULTI ( numplayer0 ) ; EntityY ( player0 , 1 ) ; WriteInt strStream48cli , Zplayer0MULTI ( numplayer0 ) ; EntityZ ( player0 , 1 ) ; WriteInt strStream48cli , pitchplayer0MULTI ( numplayer0 ) ; EntityPitch ( player0 , 1 ) ; WriteInt strStream48cli , yawplayer0MULTI ( numplayer0 ) ; EntityYaw ( player0 , 1 ) ; WriteInt strStream48cli , rollplayer0MULTI ( numplayer0 ) ; EntityRoll ( player0 , 1 ) ; If ReadString$ ( strStream48cli ) = "coordsser" Then For Xmodele = 0 To 3 Nmodele = ReadInt ( strStream48cli ) ; Nmodele = cubemodele = : sa dépane playerID ( Nmodele ) = ReadInt ( strStream48cli ) numplayer0pris ( Nmodele ) = ReadInt ( strStream48cli ) Xplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) Yplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) Zplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) pitchplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) yawplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) rollplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) Next EndIf ; DebugLog "TCP48 = " + TCP48 ; DebugLog "strStream48ser = " + strStream48ser ; DebugLog "ReadAvail ( strStream48ser ) = " + ReadAvail ( strStream48ser ) DebugLog "strStream48cli = " + strStream48cli DebugLog "ReadAvail ( strStream48cli ) = " + ReadAvail ( strStream48cli ) EndIf EndIf EndIf

Guy Fawkes (Posted 2014) [#10]

Prym.. Please use "[ codebox][ /codebox]" (remove the spaces) around your source code so it doesn't take up the whole forum. Thank You! Sincerely, ~GF

Wings (Posted 2014) [#11]

Prym please read this post its explains tcpip networking sample. its clearly wee need turtorial about this :) http://www.blitzbasic.com/Community/posts.php?topic=76772

Prym (Posted 2014) [#12]

Hi Wings and Guy Fawkes, Thank you for your suggestion. I run to read this post . I hope that my question has been posted in the right place . I have asked if my local net configuration was correct . I am in doubt about it . I am not connected to internet . Can some configuration be missing ? Is it enough for testing my LOCAL multiplayer section ? I see that the client stream is cut for every pass of my program loop . Thanks I can go and try .

Guy Fawkes (Posted 2014) [#13]

Please see my K-Netlib thread for help with networking!

Wings (Posted 2014) [#14]

here a full example. no downloads. i hacked this yesterday :) unlimitet players 10.000 limit. its unstable code to be small smal as possible. tested with 5 clients on my pc "localhost" with no lagg. feel free to use, improve and sale it :) ; Example blitz3d tcpip game. ; Written by wings on blitz forum wings@... ; Global server Global player Global player_guid ; player clident global indentifyer. Global player_guid_counter ; Here we create new ids Global client_debug_network ; A millisecond counter for debuging Global link ; This is player link. accaly i store session in this. i prefare name link. ;Data base for players Type player_type Field name$ Field player_guid Field x#,y#,z#,rot#,status Field mesh Field link End Type ;Data base for sessions connection to server. not all sessions is players. you will discover liker hackers, bots, crawler and ipred ;) ;Type sessions ; Field link ;End Type ;Try to Start the server. if port 7001 is not available game goes into client mode. Server = CreateTCPServer (7001) ; if this fails game will go on as a client Global rec_bank=CreateBank(512) ; A common datablock. used to store data from client Global send_bank=CreateBank(512) ; A common datablock. used to store data that is sent to clients. ;Setup Graphics mode & camera envornoment Graphics3D 800,600 SetBuffer BackBuffer() camera=CreateCamera() CameraViewport camera,0,0,800,600 CameraRange camera,1,100 CameraFogRange camera,2,100 CameraFogMode camera,True CameraFogColor camera,150,200,255 CameraClsColor camera,150,200,255 PositionEntity camera,0,10,-10 TurnEntity camera,30,0,0 light=CreateLight() ;Create a grass texture 64*64 with 1 flag and that is color. one can also use loadtexture grass=CreateTexture(64,64,1) SetBuffer TextureBuffer(grass) ClsColor 22,100,22 Cls For i=0 To 256 Color 0+Rnd(10),50+Rnd(155),0+Rnd(10) Plot Rnd(64),Rnd(64) Next SetBuffer BackBuffer() ScaleTexture grass,3,3 Color 255,255,255 ClsColor 0,0,0 ;Create the grass entity as a endless plane plane=CreatePlane() EntityTexture plane,grass ;Create player mesh player=CreateCube() PositionEntity player,5,1,5 ;The big main. mixed server & client in same code. While Not KeyHit(1) server_function() player_controlls() update_player_positions() UpdateWorld() RenderWorld() draw_status_texts() client_networking() Flip Wend ;Draw varius status text on screen. and some help. Function draw_status_texts() Text 0,0,"Blitz3d TCPIP Example" If server Text 0,10,"player_guid_counter="+player_guid_counter Else If link=0 Then Text 0,10,"Press F1 for connect to server" Text 0,30,"client_debug_network="+client_debug_network End If If link=0 Text 0,20,"Not Connected" Else Text 0,20,"Connected" End If End Function ; Here we place all server handling functions. like accept new streams and send recive data from clients. Function server_function() ;Only run this if its the server. If server ;TCP/IP stream check for new one. server_check() ; ;TCP/IP Handling of streams. like sending reciving. server_handle_player() ;update client position of server object. this makes the server also move at clients no neet to send our self to server. ;) p.player_type = First player_type p\x#=EntityX#(player) p\y#=EntityY#(player) p\z#=EntityZ#(player) p\rot#=EntityYaw(player) End If End Function ;Here we handle all player controlls. left/right forward/backward even commands for connect to server. Function player_controlls() If KeyHit(59) And server=False Then connect_to_server() ; Connect to server F1 If KeyDown(17) ; Mover forward "w" MoveEntity player,0,0,0.05 End If If KeyDown(31) ; Move backward "s" MoveEntity player,0,0,-0.05 End If If KeyDown(30) ; Turn Left "a" TurnEntity player,0,1,0 End If If KeyDown(32) ; Turn right "d" TurnEntity player,0,-1,0 End If End Function ;Updates the meshes from data structure. that been loaded from network last. this makes players move on each other screens. and rotates Function update_player_positions() ;Update player positions For p.player_type=Each player_type If p\mesh<>player PositionEntity p\mesh,p\x#,p\y#,p\z# RotateEntity p\mesh,EntityPitch(p\mesh),p\rot#,EntityRoll(p\mesh) End If Next End Function ;Server needs to check for new players connection setup. it alls hapends here. Function server_check() ;This code counts the registred players i=0 For p.player_type = Each player_type i=i+1 Next ;If there is no one register even the server is not register. then this code creates the first player with the Guid 0 The first one :) If i=0 p.player_type= New player_type p\x#=EntityX#(player) p\y#=EntityY#(player) p\z#=EntityZ#(player) p\player_guid=0 p\mesh=player End If ;Check for new streams connected. and if detect a new stream create a new player give it a guid. stream=AcceptTCPStream(Server) If stream Cls Print "A new stream connected !" Delay 2000 ;Create a new player for stream p.player_type= New player_type p\link = stream p\mesh=CreateCube() player_guid_counter=player_guid_counter+1 p\player_guid = player_guid_counter ; The stream has now a global indentifyer. now that is nice. End If ;Security code If player_guid_counter>10000 Then RuntimeError ("Some fool is hacking our little game client or you been playing far to long.") ; Be sure to put in this kind of bugs. lamo lama End Function ;Player networking handling. here player clients get there data from server and sending it curent position. Function client_networking() ;Only run this code if a datalink has been establish If link ms=MilliSecs() ;Send client data to server. evert frame this is done ;) PokeInt send_bank,0,1000 ; CLient cord package. PokeFloat send_bank,4,EntityX#(player) PokeFloat send_bank,4+8,EntityY#(player) PokeFloat send_bank,4+16,EntityZ#(player) PokeFloat send_bank,4+24,EntityYaw#(player) WriteBytes send_bank,link,0,512 ; Write it all to stream. Repeat again=False If ReadAvail(link)>=512 ; Ya we got somthing to read. again=True bytes=ReadBytes(rec_bank,link,0,512) If bytes<512 Then RuntimeError "The client stream broke sir.." ; Lamo was here Select PeekInt(rec_bank,0) Case 1001 ; Found a client cordinate package. guid=PeekInt(rec_bank,4) ; global id newplayer=True For p2.player_type = Each player_type If guid=p2\player_guid newplayer = False ; Found the player.. now store data p2\x#=PeekFloat#(rec_bank,8) p2\y#=PeekFloat#(rec_bank,16) p2\z#=PeekFloat#(rec_bank,24) p2\rot#=PeekFloat#(rec_bank,32) End If Next If newplayer=True p2.player_type = New player_type p2\mesh=CreateCube() EntityColor p2\mesh,Rnd(255),Rnd(255),Rnd(255) p2\player_guid=guid p2\x#=PeekFloat#(rec_bank,8) p2\y#=PeekFloat#(rec_bank,16) p2\z#=PeekFloat#(rec_bank,24) p2\rot#=PeekFloat#(rec_bank,32) End If End Select End If Until ReadAvail(link)<512 client_debug_network=MilliSecs()-ms End If ;End of whole network block End Function ;This functions takes care of all player in/out puts. Function server_handle_player() For p.player_type= Each player_type If p\player_guid<>0 If Eof(p\link) Then RuntimeError "A client quitet.. server crash ! Best regards Lamo coder" ;Realy put in some client kill & cleanup code here ;D Repeat If ReadAvail(p\link)>=512 ; Yes only 512 is a magic thing. bytes=ReadBytes(rec_bank,p\link,0,512) If bytes<>512 Then RuntimeError ("Awsome client dint send 512.. wat to to Regards Lamo coder"); Yes we shold kick and ban this hacker or poor internet connection for a user. Select PeekInt(rec_bank,0) ; Reads the first byte and we go from there.. Case 1000 ; Defaul x,y,z, data player cordinate packet recived. ;Read the data from packet into the database. X,Y,Z and Rotation (yaw) p\x#=PeekFloat(rec_bank,4) p\y#=PeekFloat(rec_bank,4+8) p\z#=PeekFloat(rec_bank,4+16) p\rot#=PeekFloat(rec_bank,4+24) ;Well we shold make a payback to client as thanks for player cords ;) For p2.player_type= Each player_type If p2.player_type<> p.player_type;Every one except it self. PokeInt rec_bank,0,1001 ; A client cordinate package. Note i call this one 1001.. a reply from server clients cords. its verry important PokeInt rec_bank,4,p2\player_guid PokeFloat rec_bank,8,p2\x# ;X position PokeFloat rec_bank,16,p2\y# ;Y position PokeFloat rec_bank,24,p2\z# ;Z Position PokeFloat rec_bank,32,p2\rot# ; Rotation WriteBytes rec_bank,p\link,0,512 ; Send the data block End If Next ; End of all other clients cords to the client End Select End If Until ReadAvail(p\link)<512 ; we need to read all packets before continue to clear tcp buffer. End If Next End Function ;Simple try to connect to server. Function connect_to_server() Cls Print "Trying to connect to server" Print "Open stream" link=OpenTCPStream("localhost",7001) Print link If Not link Then RuntimeError "Failed to connect to server." Print "Connection success" Flip Delay 2000 End Function

Guy Fawkes (Posted 2014) [#15]

Nice, Wings!

Prym (Posted 2014) [#16]

I thank you , Wings , but please , I would like someone to tell me what is wrong in my code . Now I think that the acceptTCPstream command may not be present in main loop . Is it right ? I omissed to say that I already had written my LAN inits code for server and players ( partie = 2 = HostNetGame and partie = 1 = JoinNetGame ) , and it seems working well to define the streams and players . The problem is in my loop code . I have hope that you read that few lines to suggest what is definitely wrong or nocive in my loop code . Note : When I use OpenTCPstream at every round, the transmissions are working ( but slowly ) Thank you for your patience(fr?~) .

Guy Fawkes (Posted 2014) [#17]

Please see my K-Netlib thread for help with networking! It's easier with the K-Netlib. Trust me.

Wings (Posted 2014) [#18]

OpenTCP stream will take a while. dont do it every frame :)

Prym (Posted 2014) [#19]

Hello , Thank you Wings for this confirmation about OpenTCPStream (not in loop) Thank you Guy Fawkes for the reference to K-NNetlib . I have gone , download the materials , began to resd . But I think it's too much evolued for me . OK, I have to translate all that in french . It would be better . It seems a big tool , and the server/client config is not the same to me . I am a little beginner forever . Thank you for your help . We'll try .

Prym (Posted 2014) [#20]

Hi Wings, Here are some things I'd like to precise to you . I am not internet connected . My two Win 7 PCs are both connected with a blue LAN cable . Is it the reason why the IP adress, localhost or 127.0.0.1, is not present on my machines (two Win7 PCs) ? The "full example" that you indicate to me does not work . I think my personal streams code could work well . I don't know, now . My problem is perhaps the config and connections of my PCs/net . Is there somebody who can light the way to me ?

Wings (Posted 2014) [#21]

1) make suer the lan Cable is a crossover Cable. and not straigt. http://en.wikipedia.org/wiki/Ethernet_crossover_cable 2) You need to set ip adress of your network card on both computers. pc1 ip 192.168.0.5 Mask 255.255.255.0 (Gateway its not used but usaly set to 192.168.0.1) pc2 ip 192.168.0.10 mask 255.255.255.0 (Gateway its not used but usaly set to 192.168.0.1) to test connectivity and share files printers you need to turn of your firewall on both computers. usaly try use the ping command from pc1 start / run / cmd ping 192.167.0.10 you sold get respond ?

Prym (Posted 2014) [#22]

Hi, Wings, and thank you to take care of my problem. I had set the same IP for the server and the client ( server PC ) And as you tell me , I'll turn off both firewalls . Thanks for the info of the ping command in the command line . And I have to check the LAN cable . I will come back to the forum to say if it runs or not . I see a little light, enough for me for keeping to work .

Prym (Posted 2014) [#23]

Hello Wings I bought a network cable "crossover". I disabled the firewalls for both my Win7 PCs (x64 and x86). This still does not work. Neither my program nor your example "fullexample." For my program, I set the same IP address (169.254.66.224 server PC) for the server and the client. For your fullexample I tested with "127.0.0.1" and "169.254.66.224". My network are displayed as "Reseau indefini" (undefined network)? I know it's not BB3D, but can you give me some suggestions? Thank you for your efforts.

Wings (Posted 2014) [#24]

the ip adress 169.254.66.224 is a local never goes online adress. try change ip adress Computer 1 ip 192.168.0.10 mask 255.255.255.0 gateway Computer 2 ip 192.167.0.11 mask 255.255.255.0 After set ip adresses run cmd.exe from computer1 ping 192.168.0.11 se if you get respond.

Prym (Posted 2014) [#25]

Hello Wings, Another remark : I want to have a LAN play on a local network . Server and players are using the same ip adress . Can I use the ip adress 169.254.66.224 in this case ? And how ? ( it doesn't work well at this time ) Thank you for your precise technical answers . I go and try all these IP configurations . And I'll Come back to inform you about success . http://www.prymprog.wikeo.net

Wings (Posted 2014) [#26]

I dont trust the 169.254.66.224. i got bad experiance about it. as working on it department in 1997. i keep a Eye on this thread later..

Prym (Posted 2014) [#27]

Hello Wings, I want to tell you that my prog does not work with the IP changes. The ping tests have worked well . Even my routine initiation of the network does not work. I remind you that I like to have a local multiplayer (to see, for starters). What do you think of the multiplayer code, which I introduced earlier, for my main loop? What comments? What evidence? I rewrite here (simplified): Xplayer0MULTI ( numplayer0 ) = EntityX ( player0 , 1 ) Yplayer0MULTI ( numplayer0 ) = EntityY ( player0 , 1 ) Zplayer0MULTI ( numplayer0 ) = EntityZ ( player0 , 1 ) pitchplayer0MULTI ( numplayer0 ) = EntityPitch ( player0 ) , 1 ) yawplayer0MULTI ( numplayer0 ) = EntityYaw ( player0 ) , 1 ) rollplayer0MULTI ( numplayer0 ) = EntityRoll ( player0 ) , 1 ) If partie = 2 Then strStream48ser = AcceptTCPStream ( TCP48 ) If strStream48ser <> 0 Then If ReadString$ ( strStream48ser ) = "coordscli" Then Nmodele = ReadInt ( strStream48ser ) playerID ( Nmodele ) = ReadInt ( strStream48ser ) Xplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) Yplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) Zplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) pitchplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) yawplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) rollplayer0MULTI ( Nmodele ) = ReadInt ( strStream48ser ) EndIf EndIf WriteString strStream48ser , "coordsser" For Nmodele = 0 To 3 WriteInt strStream48ser , Nmodele WriteInt strStream48ser , playerID ( Nmodele ) WriteInt strStream48ser , Xplayer0MULTI ( Nmodele ) WriteInt strStream48ser , Yplayer0MULTI ( Nmodele ) WriteInt strStream48ser , Zplayer0MULTI ( Nmodele ) WriteInt strStream48ser , pitchplayer0MULTI ( Nmodele ) WriteInt strStream48ser , yawplayer0MULTI ( Nmodele ) WriteInt strStream48ser , rollplayer0MULTI ( Nmodele ) Next ; CloseTCPStream strStream48ser EndIf ElseIf partie = 1 Then ; strStream48cli = OpenTCPStream ( adresserveur$ , 8080 ) ; ( DottedIP$ ( HOSTplayerID ) , 8080 ) If strStream48cli <> 0 ; And ReadAvail ( strStream48cli ) = 0 Then WriteString strStream48cli , "coordscli" WriteInt strStream48cli , numplayer0 WriteInt strStream48cli , playerID ( numplayer0 ) WriteInt strStream48cli , Xplayer0MULTI ( numplayer0 ) ; EntityX ( player0 , 1 ) ; WriteInt strStream48cli , Yplayer0MULTI ( numplayer0 ) ; EntityY ( player0 , 1 ) ; WriteInt strStream48cli , Zplayer0MULTI ( numplayer0 ) ; EntityZ ( player0 , 1 ) ; WriteInt strStream48cli , pitchplayer0MULTI ( numplayer0 ) ; EntityPitch ( player0 , 1 ) ; WriteInt strStream48cli , yawplayer0MULTI ( numplayer0 ) ; EntityYaw ( player0 , 1 ) ; WriteInt strStream48cli , rollplayer0MULTI ( numplayer0 ) ; EntityRoll ( player0 , 1 ) ; If ReadString$ ( strStream48cli ) = "coordsser" Then For X = 0 To 3 Nmodele = ReadInt ( strStream48cli ) playerID ( Nmodele ) = ReadInt ( strStream48cli ) Xplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) Yplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) Zplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) pitchplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) yawplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) rollplayer0MULTI ( Nmodele ) = ReadInt ( strStream48cli ) Next EndIf EndIf EndIf EndIf

Guy Fawkes (Posted 2014) [#28]

Wings, please use translator so others can understand what you need help with. :) Thank You!

Prym (Posted 2014) [#29]

Hello ! It is traduced , now ... Can I have your help ?

Wings (Posted 2014) [#30]

Hey Prym Good to hear ping now works Try somthing simpler first to get know TCPIP. like sending a Hello World to other computer.

Prym (Posted 2014) [#31]

I would like to put my init routine for Lan in the forum . I have make mistakes the last time I tried . Can you tell me how to do exactly ? Could I put it in or after these lines ? This routine works well and I'd like to keep it for my project . My pb is in the main loop I have already put in the forum . Thank you for your answer and effort .