; UPD Test
Graphics3D 800,600,0,2
SetBuffer BackBuffer()

AppTitle("Basic UDP Example")
Global Status$
Global PortIn = 25000
Global PortOut = 25001
Global RecMsg$
Global SndMsg$
Global PType%
Global Client%
Global Server%
Global Join_IP$
Global Send_IP%
Global Serv_IP%
Global Temp%


Global x1, y1, x2, y2, x1alt, y1alt

Choice$ = Input("Would you like to host a chat server or join one? [h or j]")

If Choice = "h" Or Choice = "H" Then
   Server = CreateUDPStream(PortIn) ;Server listens on 25000
   If Server <> 0 Then
      Status = "Server started..."
   Else
      Status = "Error starting server."
   EndIf
   PType = 1 ;Is Player a host?
Else
   Join_IP$ = Input("Enter the ip address of host: [192.168.0.1]")
   If Len(Join_IP) = 0 Then Join_IP = "192.168.0.1"
   Serv_IP = IntegerIP(Join_IP) ;need to change entered ip address to ip format so blitz can read
   Client = CreateUDPStream(PortIn) ;Client Listens on 25000
   If Client <> 0 Then
      Status = "Client connected to "+Serv_IP
   Else
      Status = "Error starting client."
   EndIf
   PType = 2 ;Is Player a Client?
EndIf

Repeat
   Cls
   Check_Keys()
   
   If PType = 1 Then Temp% = RecvUDPMsg(Server)
   If PType = 2 Then Temp% = RecvUDPMsg(Client)
   If Temp <> 0 Then DebugLog Temp
   If Temp <> 0 Then
      If PType = 1
         Send_IP = UDPMsgIP(Server) ;Get IP Address of Message Sender
         x1 = ReadShort (Server)
         y1 = ReadShort (Server)
      Else
         Send_IP = UDPMsgIP(Client) ;Get IP Address of Message Sender
         x2 = ReadShort (Client)
         y2 = ReadShort (Client)
      EndIf      
   EndIf
   
   ; Remote Kreis
   If PType = 1
      Color 255, 0, 0
   Else
      Color 0, 255, 255
   EndIf
   Oval x2, y2, 30, 30, 1

   ; lokaler Kreis
   x1 = MouseX()
   y1 = MouseY()
   If PType = 1
      Color 0, 255, 0
   Else
      Color 255, 0, 255
   EndIf
   Oval x1, y1, 30, 30, 1

   Text 10,20,"Status: "+Status
   Text 10, 400, "Server   "+"X1= "+X1+"   Y1= "+Y1
   Text 10, 420, "Client   "+"X2= "+X2+"   Y2= "+Y2
   Flip
Until KeyHit(1)
End

Function Check_Keys()
      ; mauszeiger und objekte
      If PType = 1 And Send_IP <> 0                ;Player is a host, send message to client
         WriteShort (Server, x1)
         WriteShort (Server, y1)
         SendUDPMsg(Server, Send_IP, PortIn)
      EndIf
      
      If PType = 2 And Serv_IP <> 0                                    ;Player is a client, send message to server
         WriteShort (Client, x1)
         WriteShort (Client, y1)
         SendUDPMsg(Client, Serv_IP, PortIn)
      EndIf
End Function

Function IntegerIP(IP$)
   ;From Blitzbasic Forums 'Chroma'
   ;IP address must be converted to an integer
   off1=Instr(ip$,".")     :ip1=Left$(ip$,off1-1)
   off2=Instr(ip$,".",off1+1):ip2=Mid$(ip$,off1+1,off2-off1-1)
   off3=Instr(ip$,".",off2+1):ip3=Mid$(ip$,off2+1,off3-off2-1)
   off4=Instr(ip$," ",off3+1):ip4=Mid$(ip$,off3+1,off4-off3-1)
   Return ip1 Shl 24 + ip2 Shl 16 + ip3 Shl 8 + ip4
End Function

udp_read=CREATEUDPSTREAM(In_Port)
udp_write=CREATEUDPSTREAM(Out_Port)

 Client = CreateUDPStream(PortIn) ;Client Listens on 25000

 Client = CreateUDPStream() ;Client port specified by system