Graphics 800,600,16,2
SetBuffer BackBuffer()

Global p_anz = 3
Global Port = 8000
Global max_p

Dim name$(p_anz) ;Name der Spieler
Dim IP(p_anz)    ;IP der Spieler
Dim acc(p_anz)    ;Ob eingeklinkt
Dim acc2(p_anz)    ;ob Bereit

Dim txt$(5)
Dim txtCol$(5)

For i = 1 To 5:Read txt(i):Next
For i = 1 To 5:Read txtcol(i):Next


Global stream = CreateUDPStream(Port)
Global send_ms = MilliSecs()
Global ID = 1,server

Print "Name ?"
name_$ = Input(">")
If name_ = "" Then name_ = "[NoName]"

Print "HOST (1) oder JOIN (2) ?"
Repeat
Server = Input(">")
Until Server > 0 And Server < 3

If Server = 2 Then
   Print "IP des Hosts ?"
   IP(1) = INT_IP(Input(">"))
   WriteByte(stream,2)
   WriteString(stream,name_)
   SendUDPMsg(stream,IP(1),Port)
   Delay 2000
   If RecvUDPMsg(stream) And ReadByte(stream) = 2
      ID = ReadInt(stream)
      name(1) = ReadString(stream)
      name(ID) = name_
      acc(ID) = 1
      acc(1) = 1
   Else
      Print "Konnte Server nicht finden !!":Delay 2000:End
   EndIf
   
ElseIf Server = 1
   name(1) = name_
   acc(1) = 1
EndIf


Repeat
   Color 255,255,255:Text 100,80,"NAME":Text 380,80,"STATUS"
   For i = 1 To p_anz
      Color 100,100,100:Rect 100,80+i*20,400,20
      Color 0,0,0:Rect 100,80+i*20,400,2
      If acc(i)
         SetText(110,84+i*20,1,name(i))
         If acc2(i) Then
            SetText(435,84+i*20,4,"",1)
         Else
            SetText(435,84+i*20,5,"",1)
         EndIf
      Else
         SetText(110,84+i*20,2)
         SetText(435,84+i*20,3,"",1)
      EndIf
   Next
   Color 0,0,0:Rect 370,100,2,p_anz*20
   If Server = 1 Then
      If send_ms <= MilliSecs() - 100 Then
         For i = 1 To p_anz
            If acc(i) = 1
               WriteByte(stream,1)
               For j = 1 To p_anz
                  WriteByte(stream,acc(i))
                  WriteByte(stream,acc2(i))
               Next
               SendUDPMsg(stream,IP(i),Port)
            EndIf
         Next
         send_ms = MilliSecs()
      EndIf
      If RecvUDPMsg(stream)
         Select ReadByte(stream)
         Case 1
            ID = ReadInt(stream)
            acc2(ID) = ReadByte(stream)
         Case 2
            ID = ID + 1
            name(ID) = ReadString(stream)
            IP(ID) = UDPMsgIP(stream)
            acc(ID) = 1
            WriteByte(stream,2)
            WriteInt(stream,ID)
            WriteString(stream,name(1))   
            SendUDPMsg(stream,IP(ID),Port)
         End Select
      EndIf
   ElseIf server = 2
;      If RecvUDPMsg(stream) And ReadByte(stream) = 1
;         For i = 1 To p_anz
;            If i <> ID Then
;               acc(i) = ReadByte(stream)
;               acc2(i) = ReadByte(stream)
;            EndIf
;;         Next
;      EndIf
;      If send_ms <= MilliSecs() - 100 Then
;         WriteByte(stream,1)
;         WriteByte(stream,acc2(ID))
;         SendUDPMsg(stream,IP(1),Port)
;         send_ms = MilliSecs()
;      EndIf
   EndIf
   If server = 1 Then       
      If RectsOverlap(MouseX(),MouseY(),1,1,370,100,130,20) Then
         Color 255,255,255:Rect 371,101,130,20,0
         If MouseHit(1) Then acc2(1) = 1 - acc2(1)
      EndIf
   ElseIf Server = 2
      If RectsOverlap(MouseX(),MouseY(),1,1,370,80+ID*20,130,20) Then
         Color 255,255,255:Rect 371,81+ID*20,130,20,0
         If MouseHit(1) Then acc2(ID) = 1 - acc2(ID)
      EndIf
   EndIf                      
   Flip
   Cls
Until KeyHit(1)
End

Function SetColor(ColorString$)
Local r,g,b
r = Int(Mid(ColorString$,1,Instr(ColorString$,",")-1)):ColorString$=Mid(ColorString,Instr(ColorString$,",")+1,12)
g = Int(Mid(ColorString$,1,Instr(ColorString$,",")-1)):ColorString$=Mid(ColorString,Instr(ColorString$,",")+1,12)
b = Int(Mid(ColorString$,1,Instr(ColorString$,",")-1)):ColorString$=Mid(ColorString,Instr(ColorString$,",")+1,12)
Color r,g,b
End Function

Function SetText(x,y,num,Text$="",xmid=0,ymid=0)
SetColor(txtCol(num))
If Text$ = ""
Text x,y,txt(num),xmid,ymid
Else
Text x,y,Text$,xmid,ymid
EndIf
End Function

Function INT_IP(IP$)
   If Instr(IP$,".") <> 0 a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
   If Instr(IP$,".") <> 0 a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
   If Instr(IP$,".") <> 0 a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
   a4=Int(IP$)
   Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4
End Function


Data "","[LEER]","[X]","[BEREIT]","[NICHT BEREIT]"
Data "255,255,255","150,150,150","150,150,150","0,255,0","255,0,0"