BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"TCP network server. Handles upp to 400 players !", by wingsoffury

Here is my newest server and client codes.
this network code handles upp to 400 players.
it has ability to send username and user cordinates. and broadcasts.
server manage this by packing all user data into one big 8k package. then it sends this 8k to each clients. clients replys with a 64byte package. broadcast and messages are sent using a second stream.

Everyone may use this code in their projects. but i cant prommise it work flawless. because this is only a mear example how it works.

Code

;TCPGameNet function Engine v1.0 SERVER.
Print "Console window opened"

Graphics 320,100,32,2
SetBuffer BackBuffer()

Global serverip$="192.168.0.1"
Global server1,server2 
Global flash,flash_dir
Global message$                ;Here we store readline messages from Link2
Global sessions.session
Global lastpackage=MilliSecs()

Type user
     Field name$                ;Name of user
     Field password$            ;Password of user
     Field active               ;If true user is logged in and active
     Field sessions.session     ;Used for cordinates up to 200 each packet. always 8000bytes.
                                ;then packet is resived client reqest a new one.
     Field x#,y#,z#,dir,mode ;Players cordinates and mode.

End Type

;Sessions handler
Type session

Field link1               ;Datalink1 always packetsize 8000 bytes
     Field link2               ;Message link always packetsize 32 bytes
     Field status          ;Status
     Field users.user     ;Link to user

End Type

Global cordinates_bank ;A memmory bank storing other users cordinates.
Global recive_bank     ;A memmory bank storing this user cordinates and other datas.

cordinates_bank=CreateBank(8001) ;for send information about all users. this packet is created once every 200 millisecs.
recive_bank=CreateBank(64) ;recive xyz bank. for reciving information.

server1=CreateTCPServer(7001)  ;creates links1 server.
server2=CreateTCPServer(7002)  ;Creates links2 server

If Not server1 Then Print "Fatal !  Failed to create server at port 7001":WaitKey :End
If Not server2 Then Print "Fatal !  Failed to create server at port 7002":WaitKey :End

;initz a user database
users.user = New user
users\name$="kermit"
users\password$="kermit"
users\x#=1.1
users\y#=2.3
users\z#=3.2
users\dir=200
users\mode=1

Print "Server is running !"

oldmake=MilliSecs()

While Not KeyHit(1)

;Update cordinate bank.
     If MilliSecs()-oldmake>200 Then update_users_bank() : oldmake=MilliSecs()

t=t+1
     If t=1000
     t=0
     tt=tt+1
     broadcast("Broadcast message from server nr "+tt)
     End If

newsession=AcceptTCPStream(server1)
     If newsession
          Print "New link1 session detected"
          sessions.session=New session
          sessions\link1=newsession
           sessions\status=1    ;This means session is ready to read username. 
     End If

;Second stream check rutine.
     newsession=AcceptTCPStream(server2)
     If newsession
     
          Print "New link2 session detected"
          message$=ReadLine$(newsession)
          For sessions.session=Each session
          
               If sessions\users\name$=message$
                    If sessions\status=3
                         sessions\link2=newsession
                         Print "Link 2 for user "+sessions\users\name$+" established"
                         WriteLine(sessions\link2,"Link 2 has ben initiated ok")
                         sessions\status=4
                         Exit
                    End If
               End If
          
          Next
     
     End If
     
     handle_server()

Delay 1
     fb=fb+1
     If fb=20 Then flash: fb=0

Wend

;handle all sever functions like login.
Function handle_server()

;Handle all sessions
     For sessions.session=Each session
          size=64
          If sessions\status<=2 Then size=5
          
          If ReadAvail(sessions\link1)>=size
          
               If sessions\status=1 
                    message$=ReadLine$(sessions\link1)
                    Print message$
               
                    ;Look at user database and see if user exist.
                    hitt=False
                    For users.user = Each user
                         If message$=users\name$
                              If users\active=0
                                   users\active=1
                                   sessions\status=2 ;Time to check password
                                   hitt=True ;user found exit and save !
                                   Print "Found user "+message$
                                   sessions\users=users.user ; Link Session to a user account. for fast access
                                   users\sessions.session=sessions ; Link User to a session. for fast access
                                   Exit
                              Else
                                   Print "Cold not found user "+message$
                                   hitt=-1 ;Error code 1 user already loged on so kill this session !
                              End If
                         End If
                    Next
               
                    If hitt=True
                         WriteLine(sessions\link1,message$)
                    Else 
                         WriteLine(sessions\link1,"User not exist.")
                         Print "user does not exist ! Terminate that session"
                         Delete sessions
                    End If
                    
               Else If sessions\status=2
                    message$=ReadLine$(sessions\link1)
                    Print message$
                    If sessions\users\password$=message$
                         Print "Password correct for user "+sessions\users\name$
                         WriteLine(sessions\link1,message$)
                         sessions\status=3
                    Else
                         Print "Wrong password for user "+sessions\users\name$
                         WriteLine(sessions\link1,"Wrong pass")
                    End If
               Else If sessions\status=3 ;Do nothing main handle this status.
               Else If sessions\status=4
                   
                    ReadBytes(recive_bank,sessions\link1,0,64);Ahh recived a cordinets.

;Analyze package
                    sessions\users\x#=PeekFloat(recive_bank,20)
                    sessions\users\y#=PeekFloat(recive_bank,24)
                    
                    WriteBytes(cordinates_bank,sessions\link1,0,8000); as a thank send all other users cordinates. :)
                    a=MilliSecs()-lastpackage
                    Print "Recived and sends cordinates "+Str$(a)
                    
                    lastpackage=MilliSecs()
               Else
                    Stop ;Read packet from user ? why ?               
               End If

End If

;Session killer
          If Eof(sessions\link1)
               Print "Lost contact with user "+sessions\users\name$
               sessions\users\active=False
               Delete sessions
               
          End If
     
     Next

End Function

;This little thing packs all user cordinates and name into the zoneBank.
Function update_users_bank()

ofs=0
     For users.user = Each user
          If users\active  
          
               For x=1 To Len (users\name$)
                    PokeByte cordinates_bank,ofs+x-1,Asc(Mid$(users\name$,x,1))
                    PokeFloat cordinates_bank,ofs+20,users\x#
                    PokeFloat cordinates_bank,ofs+24,users\y#
               Next 
               ofs=ofs+40
               obj=obj+1
               If ofs>7950 Then Exit ;Emergency exit
          End If
          If ofs>7950 Then Exit ; emergency exit
     Next

;Print "made a packed users in packed = "+obj
End Function

Function broadcast(message$)

For sessions.session=Each session
          If sessions\status>=4

WriteLine(sessions\link2,message$)

End If
     Next

End Function

;Flash function show
Function flash()
 
x=flash
If flash_dir=0
     x=x+1
     If x>100 Then flash_dir=1 
Else
     x=x-1
     If x<1 Then flash_dir=0
End If

Cls
Text 0,0,"Press Esq to shutdown server"
Text 0,10,"Last message = "+message$

Rect x+100,50,10,40
Flip False

flash=x

End Function

;Some explonations.
;User is a user data base its stores user things like username password size of head and so on.
;session is a way to handle streams. each user can ony have 1 session. but 1 user can have several streams.
;Why several stream u may ask.. its because simplify fast things and slow things. not every message neds to be read direct. like broadcasts.

;*****************************************************************
;******************* CLIENTS *************************************
;Client connect to server example

Global link1,link2,message$

Global username$,password$

Global serverip$="localhost"

Global playerX#=100,playery#=100

Global send_mode=0 
Global cordinates_bank ;A memmory bank storing other users cordinates.
Global send_bank     ;A memmory bank storing this user cordinates and other datas.

cordinates_bank=CreateBank(8001) ;for get information about other users.
send_bank=CreateBank(64) ;send xyz bank. for sending information.

Print "Connects To server"

link1=OpenTCPStream("localhost",7001)

If Not link1 Then Print "Failed to open stream1 to server": Delay 5000:End

While l<4
username$=Input$("Please enter username")
password$=Input$("Password for user "+username$+" ")
l=Len(username$)
If Len(password$)<l Then l=Len(password$)
Wend

Print "Sending username"
WriteLine(link1,username$)

Print "Recives anwsare"
message$=ReadLine$(link1)
Print message$

If message$="User not exist." Then Delay 5000: End

Print "sending password"
WriteLine(link1,password$)

message$=ReadLine$(link1)
Print message$
If message$="Wrong pass" Then Delay 5000:End

Print "try to Open second channel"

link2=OpenTCPStream(serverip$,7002)
If Not link2 Then Print "Failed to open stream2 to server":Delay 5000:End

WriteLine(link2,username$)
message$=ReadLine$(link2)
Print message$
If Not message$="Link 2 has ben initiated ok" Then Print "Link2 has failed":Delay 5000:End

Print "Going to main loop in 3 secs"

Delay 3000

Graphics 640,480,32,2
SetBuffer BackBuffer()

timer=CreateTimer(85)
While Not KeyHit(1)
     Cls
     Text 10,10,"mainloop"
     
     player_controls()
     networkhandler()
     
     Color 0,0,0
     Rect playerX#-1,playerY#,1,10
     Rect playerX#+11,playerY#,1,10
     
     Color 0,255,0
     Rect playerX#,playerY#,10,10
     
     Text 0,50,message$

Flip False
     Delay 10

Wend

Function networkhandler()

If send_mode=0
          send_cords()
     Else If send_mode=1
          ;Check if new xyz packet arrived.
          If ReadAvail(link1)>=8000
     
               ;Soo its time to have some cordinates. to dinner :)
               m=MilliSecs()
               ReadBytes(cordinates_bank,link1,0,8000)
               id=1
               ofs=0
               While id>0
                    id=PeekByte (cordinates_bank,ofs)
                    If id=0 Then Exit ;Exit this read cordinates function cause no more users in bank
                    name$=""
                    i=0
                    While Not id=0
                         name$=name$+Chr$(id)
                         id=PeekByte(cordinates_bank,ofs+i)
                         i=i+1
                    
                    Wend
                    x1#=PeekFloat(cordinates_bank,ofs+20)
                    y1#=PeekFloat(cordinates_bank,ofs+24)
                    Print "Got user "+name$+" X-Pos = "+x1#+" Y-Pos = "+y1#
                    ofs=ofs+40
               
               Wend
               
               ;m=MilliSecs()-m
               ;If m>1 Then Stop
               Text 0,100,m     
               send_mode=0 ;Time to send more !

End If
     End If

;Check for messageses
     If ReadAvail(link2)>8
          message$=ReadLine(link2)
          
     End If

End Function

Function player_controls()
     x#=playerX#
     y#=playerY#
     If KeyDown(31) Then x#=x#+1
     If KeyDown(30) Then x#=x#-1
     playerX#=x#
     playerY#=y#
End Function

Function send_cords()

For x=1 To Len(username$)
          PokeByte send_bank,i,Asc(Mid$(username$,i,1))
     
     Next

PokeFloat send_bank,20,playerX#
     PokeFloat send_bank,24,playerY#

WriteBytes(send_bank,link1,0,64)

send_mode=1

End Function

Code software created by Krylar's Kreations