Type player
Field x,y,z
Field walk,stand,atk,atk2,beh,back
Field lauf,ruck
Field anim
Field img
Field c
Field skill
Field ip
Field mana
Field rotation
Field send,recv
Field damage
Field byte$
Field id$
Field port
Field satz$
Field links,rechts
Field wait
End Type

Graphics 600,600
Color 0,255,0
Print "START----DRÜCKE ENTER xD"
WaitKey()
stream = CreateUDPStream(8888)
Print "server online!"
While Not KeyHit(1)

ip= RecvUDPMsg(stream)
If ip<>0 Then

While ReadAvail(stream)

byte$=ReadString$(stream)
send$=byte$

If nwort$(byte$, 1)="New"
Name$=nwort$(byte$, 2)
P.player=New player
P\id$=Name$
P\recv=ip
P\port=nwort$(byte$, 3)

ElseIf nwort$(byte$, 1)="Play" Or nwort$(byte$, 1)="Chat" Or nwort$(byte$, 1)="Exit"
Name$=nwort$(byte$, 2)
EndIf

For P.player=Each player
If P\id$<>Name$
Print send$
WriteString(stream,send$)
SendUDPMsg stream,P\recv,P\port
EndIf
Next

Wend
EndIf

Flip 0
Wend

Function nwort$(byte$, wort)
If wort < 1 Then Return ""
trenn$ = " " ;<-- Trennzeichen
byte$ = byte$ + trenn$
w = 0
pos = 1
While w < wort And pos > 0
While Mid$(byte$, pos, 1) = trenn$
pos = pos + 1
Wend
x = pos
y = Instr(byte$, trenn$, pos)
pos = y
w = w + 1
Wend
Return Mid$(byte$, x, y - x)
End Function

Function INT_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

ip= RecvUDPMsg(stream)
If ip<>0 Then

P\recv=ip