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

"Verry basic tpc port 80 server code. v0.01", by wingsoffury

This code almoust works.

It shows you how you can use sessions to serve a game server.

users.

Code

;Server code

;Status 1  = user has establish a uplink.

Type player
     Field xpos,ypos,zpos
     Field downlink_session
     Field uplink_session
     Field username$
     Field status
End Type

server=CreateTCPServer(80)

While Not KeyHit(1)

session=AcceptTCPStream (server)

If session Then handle_new_session(session)

handle_users()

Delay 1   ; return some processor power to system.

Wend

;Handles new user sessions.
Function handle_new_session(session)
     user.player = New player
     user\uplink_session=session
     user\status=1
End Function

Function handle_users()

For user.player = Each player

If ReadAvail(user\uplink_session)
                    
               Message$=ReadLine$(user\uplink_session)

;Handle session setup
               If user\status=1
                    user\downlink_session=user\uplink_session
                    user\status=2
                    WriteLine(user\downlink_session,"Please Respond to my downlink in uplink")
               Else If user\status=2
                    If message$="I Comfirm your downlink is working !"
                         user\status=10 ; Now uplink is good and downlink is good. we can go to main mode
                    End If

Else If user\status=10     
               
                    If message$="Update my Cordinates" Then user\status=100
                    If message$="Broad Cast"     Then user\status=110
                    
               Else If user\status=100
                    
                    If message$="New Clients Cordinates"
                         
                         user\xpos=ReadLine$(user\uplink_session)
                         user\ypos=ReadLine$(user\uplink_session)
                         user\zpos=ReadLine$(user\uplink_session)
     
                    End If

End If
          End If
     Next

End Function

Code software created by Krylar's Kreations