;TCP

Global TCPServer
Global TCPStream
Global TCPInput$
Global TCPInputLast$
Dim TCPInputP$(128)

TCPServer=CreateTCPServer(8080)
TCPTimeouts 60000,0 ;1 Minute before TimeOut and connection close :-) Allways send to Server NOP CRLF

.MainLoop
 
While Not KeyHit(1)
 
 UpdateWorld
 RenderWorld

 TCPRemoteInput

 Flip

Wend
end

Function TCPRemoteInput()

 ;----------------------------------------------------------------------------- Waiting Connect , Connect , Read Input from TCP Stream

 ;Read a Line from TCP until crlf come :-)

 Local r$

 TCPInput$=""

 If TCPServer = 0 Then
 
  Text 10,10+9*fonty,"Blitz Server not started !?"

 Else
  If TCPStream Then
   Text 10,10+9*fonty,"IP "+DottedIP$(TCPStreamIP(TCPStream))+" READ STREAM (WAIT UNTIL CRLF)"
   ;Flip
   If Not Eof(TCPStream)
    r$=ReadLine(TCPStream) ;Here it waits until incomming crlf
    If Len(r$)>0
     TCPInput=TCPInput+r$
     TCPInputLast=TCPInput
     TCPInput=TCPInput+Chr$(13)
    EndIf
   EndIf
   
   If Eof(TCPStream) Then CloseTCPStream TCPStream:TCPStream=0
   
  Else
   TCPStream=AcceptTCPStream(TCPServer)
   Text 10,10+9*fonty,"Server waiting for connect"
  EndIf
 EndIf

 ;----------------------------------------------------------------------------- Stream to Functions :-)

 otext 10,10+10*fonty,"TCPInputLast "+TCPInputLast$

 Local c$,o$,x,x1,x2,p,i
 c$=""
 o$=""

 ;---------------------------------------------------------

 ;Command
 x=Instr(TCPInput,":")
 If x>1 Then
  c$=Mid(TCPInput,1,x-1)
  c$=Upper(c$)
 EndIf

 ;---------------------------------------------------------

 ;Clear Parameter
 p=0
 For i=1 To 128
  TCPInputP(i)=""
 Next

 ;Search for Parameters
 x2=0
 If Len(TCPInput)>x Then
  x1=x+1
  Repeat
   x2=Instr(TCPInput,",",x1)
   If x2=0 Then x2=Instr(TCPInput,Chr(13),x1) ;or to End
   If x2>x1 Then
    p=p+1
    TCPInputP(p)=Mid(TCPInput,x1,x2-x1)
    x1=x2+1
   EndIf
   If x2=Len(TCPInput) Then x2=0 ;no endless loop ;-)
  Until x2=0
 EndIf

 ;------------------------------------------------------------> COMMADS <---

.TCPCommands

 ;Functions
 If Len(c$)>0 Then
 Select c$
 Case "SETMOUSE","MOUSEXY","MOUSE"
  ;RSetMouseXY TCPInputP(1),TCPInputP(2)
  o$=c$
 Case "CAMERAMOVE","MOVECAMERA"
  ;RSetCameraMove TCPInputP(1),TCPInputP(2),TCPInputP(3)
  o$=c$
 Case "CAMERATURN","TURNCAMERA"
  ;RSetCameraTurn TCPInputP(1),TCPInputP(2),TCPInputP(3)
  o$=c$
 Case "CAMERAROTATE"
  ;RSetCameraRotate TCPInputP(1),TCPInputP(2),TCPInputP(3)
  o$=c$
 Case "HELP"
  o$="Sorry no Help there :-("
 Case "NOP"
  o$="NOP"
 Default
  o$="UNKNOWN COMMAND "+c$
 End Select
 EndIf ;Command >0

 ;---------------------------------------------------------

 ;Output what i have done :-)

 If Len(o$)>0 Then o$=o$+":"

 If p>0 Then
  For i=1 To p
   o$=o$+TCPInputP(i)
   If i<p Then o$=o$+","
  Next
 EndIf

 If Len(o$)>0 Then
    If  TCPStream Then WriteLine  TCPStream,o$
 EndIf
 
End Function

;-------------------------------------------------------------