Graphics 640,480,0,2
SetBuffer = BackBuffer()

Global art$,save$
Global timer=CreateTimer(20)


Global play[35],geg[35]

For i=0 To 350 Step 10
play[i/10]=LoadImage("DATA/Car1.bmp")
MidHandle play[i/10]
RotateImage play[i/10],i
geg[i/10]=LoadImage("DATA/Car2.bmp")
MidHandle geg[i/10]
RotateImage geg[i/10],i
Next

Global x#,y#,xx#,yy#,grad,dd=10
Global speed#=1

CountHostIPs(Input("IP des Anderen?")) ;Umwandeln der eingegebenen String-IP nach IntegerIP
IP=HostIP(1) ;Abspeichern der ersten möglichen Umgewandelten IP
host=Input("Spielernummer(0/1)?") ;Spielernummer zum Bestimmen des Ports, wenn das Programm auf 2PCs läuft kann die nummer gleich sein
stream=CreateUDPStream(6000+host) ;Erstellen eines UDPStreams zum Senden und Empfangen
Repeat
   Cls
   

   
   
   speed=speed*0.98
   If speed<0 Then speed=0
   x=x+Sin(grad*10)*speed
   y=y-Cos(grad*10)*speed
   If KeyDown(200) Then
      speed=speed*1.31
      If speed=0 Then speed=1
   ElseIf KeyDown(208) Then
       speed=speed*0.9
   EndIf
   If KeyDown(203) Then grad=grad-1
   If KeyDown(205) Then grad=grad+1
   
   If grad<0 Then grad=35
   If grad>35 Then grad=0


   recv=RecvUDPMsg(stream);Nachrichten empfangen
   If(recv<>0) ;Wenn eine Nachricht da ist
      art=ReadString(stream)
      dd=RSet(art,Len(art)-Instr(art,"#"))
      xx=LSet(art,Instr(art,"/")-1)
      save = LSet(art,Instr(art,"#")-1)
      yy=RSet(save,Len(save)-Instr(save,"/"))
   EndIf
      
   
   If x>640 Then x=630
   If x<0 Then x=0
   If y>470 Then y=470
   If y<0 Then y=0
         
   WriteString(stream,x+"/"+y+"#"+grad)
   SendUDPMsg(stream,IP,6001-host) ;Absenden einer Nachricht
   

   DrawImage geg[dd],xx,yy
   DrawImage play[grad],x,y
   
   
   WaitTimer(timer)
   Flip
Until KeyHit(1)
CloseUDPStream stream ;Stream schließen

While RecvUDPMsg(und so weiter)

   recv=RecvUDPMsg(stream);Nachrichten empfangen

   If(recv<>0) ;Wenn eine Nachricht da ist
      while not Eof(stream)
      art=ReadString(stream)
      dd=RSet(art,Len(art)-Instr(art,"#"))
      xx=LSet(art,Instr(art,"/")-1)
      save = LSet(art,Instr(art,"#")-1)
      yy=RSet(save,Len(save)-Instr(save,"/"))
      Wend
   EndIf