AppTitle "Gamer: "+Gamers+"/5000"
Dim gamer(5000,7)
Global datei = WriteFile("logfile.log")
;gamer(1,1) = hp
;gamer(1,2) = mp
;gamer(1,3) = xp
;gamer(1,4) = class
;gamer(1,5) = x
;gamer(1,6) = y
;gamer(1,7) = map
Stream = CreateTCPServer(2525)
Repeat

ClientStream = AcceptTCPStream(Stream)
Text 100,100, "Eingabe"
a = GetKey()                                         
If a > 31 Then name1$ = name1$ + Chr$(a)
If (a = 8) And Len(name1$) > 0 Then name1$ = Left$(name1$, Len(name1$) - 1 )
Text 170,100,name1$
If KeyHit(28) Then
Select name1
Case "end" End
End Select
name1$ = ""
EndIf
If clientstream <> 0 Then
art = ReadByte(clientstream)
Select art
   Case 1
        AppTitle "Gamer: "+Gamers+"/5000"
   name$ = ReadString(clientstream)
   printb(name$+" eingetreten")
   gamers = gamers+1
   Case 2
   gamer(1,1) = ReadString(clientstream)
   printb(gamer(1,1))
End Select
EndIf
Forever

Function printb(k$)
Print k$
WriteLine datei,k$
End Function

AppTitle "MMORPG"
Global rectx
Global recty
Global koord$
Global Stream = OpenTCPStream("127.0.0.1",2525)
If Not Stream Then Color 255,100,100 : Print "Netzwerkfehler!" : Delay 1000 : End
FlushKeys
name$ = "Jussi"
WriteByte stream,1
WriteString stream,name
Repeat
Cls
If KeyDown(205) = 1 Then
sendkoord()
rectx = rectx +1
EndIf

If KeyDown(203) = 1 Then
sendkoord()
rectx = rectx -1
EndIf

If KeyDown(200) = 1 Then
sendkoord()
recty = recty -1
EndIf

If KeyDown(208) = 1 Then
sendkoord()
recty = recty +1
EndIf
koord$ = rectx+","+recty
Rect rectx,recty,10,10
Flip
Until KeyHit(1)
End

Function sendkoord()
WriteByte stream,2
WriteString stream,koord
End Function