hostmodus = 1

sendeport     = 2000
empfangsport  = 2001

If hostmodus = 0 Then
sendeport    = 2000
empfangsport = 2001
EndIf

senden = CreateUDPStream(sendeport)
empfangen = CreateUDPStream(empfangsport)

If hostmodus = 0 Then
ip = integerip("192.168.0.1")
Else
Print "warten"
Repeat
ip = RecvUDPMsg(empfangen)
If KeyHit(1) Then End
Until ip <> 0
Print "verbindung steht"
Print "ip-adresse des senders - "+DottedIP(ip)
Print "<Taste drücken>"
WaitKey
EndIf

Graphics 640,480
SetBuffer BackBuffer()

Repeat
Cls

If RecvUDPMsg(empfangen) Then
x2 = ReadShort(empfangen)
y2 = ReadShort(empfangen)
EndIf

If hostmodus = 1 Then
Color 255,0,0
Else
Color 0,0,255
EndIf

Oval x2,y2,30,30,1

x1alt = x1
y1alt = y1
x1 = MouseX()
y1 = MouseY()
If x1 <> x1alt And y1 <> y1alt Then
WriteShort senden,x1
WriteShort senden,y1
SendUDPMsg senden,ip,sendeport
EndIf

If hostmodus = 1 Then
Color 0,0,255
Else
Color 255,0,0
EndIf

Oval x1,y1,30,30,1
Flip
Until KeyHit(1)

CloseUDPStream senden
CloseUDPStream empfangen

Function integerip(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