[Tadeus]

;Player
Type TConnection
 Field tcpstream%
 Field id%
End Type
;Listen Server on port 7777
tcpserv = CreateTCPServer(7777)
If tcpserv <> 0 Then
 Print "Listen Server Started!"
Else 
 Print "Listen Server start Failed!"
EndIf
While True
 connection_accept(tcpserv)
 read_sockets()
Wend

Function connection_accept%(tcps%)
 Local tcpst%
 tcpst = AcceptTCPStream(tcps)
 If tcpst Then
  Print "New user connected with IP"
  WriteLine (tcpst,"You connect") ;temp
  new_connect.TConnection = New TConnection
  new_connect\tcpstream = tcpst
  Return tcpst
 Else
  Return 0
 EndIf
End Function

Function read_sockets()
 For consock.TConnection = Each TConnection
  If ReadAvail(consock\tcpstream)>0 Then
   packet$=ReadLine$(consock\tcpstream)
   Print packet
   WriteLine(consock\tcpstream,"You message OK")
  EndIf
 Next
End Function

Вот уже сервак отсылает что сообщение дошло ) Ты забыл поставить знак $. А вот почему оно не читает - не совсем понятно )