Graphics 1024,768,16,2
SetBuffer BackBuffer()

IP$ = "127.0.0.1"


Port = 8888
sendport=8000
empfport = CreateUDPStream(Port)



Type player
 Field x
 Field y
 Field mx
 Field my
 Field typ
 Field life
 Field winkel
End Type


Type gegner
 Field x
 Field y
 Field typ
 Field life
 Field winkel
End Type




Dim orange(359)
Dim rot(359)

Global orangep=LoadImage("gfx\orange.png")
 MidHandle orangep

Global rotp=LoadImage("gfx\rot.png")
 MidHandle rotp



TFormFilter 0
For i = 0 To 359
  rot(i) = CopyImage(rotp)
    RotateImage rot(i),i

orange(i) = CopyImage(orangep)
    RotateImage orange(i),i
Next


;Team wählen
team=Input("2= orange 1=rot:  ")

;Spieler erstellen
p.player=New player
p\typ=team
p\life=100



Repeat
Cls

For p.player=Each player

 p\my=MouseY()
 p\mx=MouseX()

 p\x=300-p\mx
 p\y=300-p\my

 p\winkel=ATan2(p\x,p\y)
If p\typ=1 Then DrawImage rot(180-p\winkel),p\x,p\y
If p\typ=2 Then DrawImage orange(180-p\winkel),p\x,p\y

;Alle daten schicken
WriteLine empfport, p\x
WriteLine empfport, p\y
WriteLine empfport, p\winkel
WriteLine empfport, p\life
WriteLine empfport, p\typ
SendUDPMsg empfport, IP(IP$), sendport

Next



For g.gegner=Each gegner

;Nachricht empfangen
If RecvUDPMsg(empfport) Then
 g\x=ReadLine(empfport)
 g\y=ReadLine(empfport)
 g\winkel=ReadLine(empfport)
 g\life=ReadLine(empfport)
 g\typ=ReadLine(empfport)
EndIf

If g\typ=1 Then DrawImage rot(180-g\winkel),g\x,g\y
If g\typ=2 Then DrawImage orange(180-g\winkel),g\x,g\y

Next



Flip
Until KeyHit(1)
End


Function IP(IP$)
A1 = Int(Left(IP$,Instr(IP$,".")-1)) : IP$ = Right(IP$,Len(IP$)-Instr(IP$,"."))
A2 = Int(Left(IP$,Instr(IP$,".")-1)) : IP$ = Right(IP$,Len(IP$)-Instr(IP$,"."))
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