Global Host_Name$, Joiner_Name$
Global Joiner_Sende_Stream, Joiner_Sende_Port, Joiner_Empfangs_Port, Joiner_Empfangs_Stream
Global Host_Sende_Stream, Host_Sende_Port, Host_Empfangs_Port, Host_Empfangs_Stream
Global Amt, Amt_Name$

Global Empfangs_stream, Sende_Stream, Port, User_IP
Global  x, momentane_eingabe$

Type zeile
Field zeile_text$
Field treihe
Field farbe
End Type

Global zeile
Global reihe = 30

Type Personen
Field Personen_Name$
Field Personen_Anzahl
End Type

Global Personen

Graphics 640,480,16,2


Print "UDP Chat"
Print
Print "(H)osten (auf User warten, der sich mit dir verbinden will)"
Print "(J)oinen (mit wartetenden User verbinden)"
Strich()

While Not option > 0

If KeyHit(35) Then FlushKeys():Hosten: option = 1
If KeyHit(36) Then FlushKeys():Joinen: option = 2

Wend

FlushKeys()


SetBuffer BackBuffer()
;HAUPTSCHLEIFE


While Not KeyHit(1)
Cls



Text_Update()
Update_empfangen()
schreiben()
   
Flip   
Wend


End

;_________________________

Function Hosten()
Print "Hosting:"

Host_Name$ = Input$("Dein Name:")

Host_Empfangs_Port=2000:Host_Empfangs_Stream=CreateUDPStream(Host_Empfangs_Port)
Host_Sende_Port=3000:Host_Sende_Stream=CreateUDPStream();3000)

P.Personen = New Personen
P\Personen_Name$ = Host_Name$ + " [HOST]"
P\Personen_Anzahl  = P\Personen_Anzahl  + 1



.Warte_User
Print "Bitte warten!!"

While Not RecvUDPMsg(Host_Empfangs_Stream)

Flip
Wend

IP = UDPMsgIP(Host_Empfangs_Stream)
Joiner_Name$=ReadString$(Host_Empfangs_Stream)
 
Print Joiner_Name$ + " will sich mit ihnen verbinden!"
Print "(E)rlauben oder (K)icken?"

While Not Erlaubniss_Antowort >0
If KeyHit(18) Then
   Antwort$ = Host_Name$ 
   Erlaubniss_Antowort = 1
   
   P.Personen = New Personen
   P\Personen_Name$ = Joiner_Name$
   P\Personen_Anzahl  = P\Personen_Anzahl  + 1
End If


If KeyHit(37) Antwort$ = "Keine Erlaubnis": Erlaubniss_Antowort = 2:strich():Goto Warte_User
Wend

   WriteString Host_Sende_Stream, Antwort$
   SendUDPMsg  Host_Sende_Stream,IP ,Host_Sende_Port

Strich()
Amt = 1 ; 1 = Hosten || 2 = Joinen
Amt_Name$ = Host_Name$
Empfangs_stream = Host_Empfangs_stream
Sende_Stream = Host_Sende_Stream
User_IP = IP
Port = Host_Sende_Port
End Function

;_________________________

Function Joinen()
Print "Joining:"


Joiner_Name$ = Input$("Dein Name:")
Host_IP$ = Input("Host-IP:")
IP= INT_IP(Host_IP$)



If Host_IP$ = "127.0.0.1" Then
Joiner_Empfangs_Port=3000: Joiner_Empfangs_Stream = CreateUDPStream(Joiner_Empfangs_Port)
Joiner_Sende_Port=2000:Joiner_Sende_Stream=CreateUDPStream()


Else

Joiner_Empfangs_Port=3000: Joiner_Empfangs_Stream = CreateUDPStream(Joiner_Empfangs_Port)
Joiner_Sende_Port=2000: Joiner_Sende_Stream=CreateUDPStream(Joiner_Sende_Port)
EndIf

If Joiner_Empfangs_Stream = 0 Then End

P.Personen = New Personen
P\Personen_Name = Joiner_Name$
P\Personen_Anzahl  = P\Personen_Anzahl  + 1

Print "Streams wurde erstellt!"
   
   WriteString Joiner_Sende_Stream, Joiner_Name$
   SendUDPMsg Joiner_Sende_Stream,IP ,Joiner_Sende_Port
   
Print "Warte auf Antwort des Host´s"   

While Not RecvUDPMsg(Joiner_Empfangs_Stream)
Flip
Wend

Erlaubnis_Antwort$=ReadString$(Joiner_Empfangs_Stream)
Print Erlaubnis_Antwort$

If Erlaubnis_Antwort$ = "Keine Erlaubnis" Then
Print "Der Host erlaubt Ihnen nicht sich mit ihm zu verbinden": FlushKeys(): WaitKey(): End;K
Else

Host_Name$ = Erlaubnis_Antwort$
Print "Sie sind nun mit "+ Host_Name$ + " verbunden!";E

P.Personen = New Personen
P\Personen_Name$ = Host_Name$ + " [HOST]"
P\Personen_Anzahl  = P\Personen_Anzahl  + 1

EndIf

Strich()
Amt = 2 ; 1 = Hosten || 2 = Joinen Amt = 1   
Amt_Name$ = Joiner_Name$
Empfangs_stream = Joiner_Empfangs_stream
Sende_Stream = Joiner_Sende_Stream
User_IP = IP
Port = Joiner_Sende_Port
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

;_________________________

Function Strich()
Print

Color 255,0,0
Print "-----------------------------------------------------------------------------------"
Color 255, 255, 255

Print
End Function

;_________________________


Function Text_Update()

For P.Personen = Each personen
d = d + 1
If d = 1 Then personent$ = p\personen_name$
If d = 2 Then personent$ = personent$ + " gegen " +  p\personen_name$
Next

If Amt = 1 Then Amt_Bezeichnung$ = "HOST"
If Amt = 2 Then Amt_Bezeichnung$ = "Joiner"

Text 0, 5, "Es spielen zur Zeit " + Personent$
Text 0, 15 ,"______________________________________________________________________________"
Text 0, 16 ,"______________________________________________________________________________"

Text 0, 440, "-------------------------------------------------------------------------------------"
   

For z.zeile = Each zeile
If z\farbe = 1 Then Color 255,0,0
If z\farbe = 2 Then Color 0,0,255
 
Text 1,z\treihe, z\zeile_text$
   

Next



      For z.zeile = Each zeile
      If z\treihe => 150 Then zeile_aufschieben: Exit
      Next
      
End Function

;_________________________


Function schreiben()


x = GetKey()
If X > 31 momentane_eingabe$ = momentane_eingabe$ + Chr(x)

anzahl = Len(momentane_eingabe$)
If anzahl => 25 Then momentane_eingabe$ = LSet$(momentane_eingabe$, anzahl -1)

If x = 8 Then
If Not momentane_eingabe$ = "" Then
momentane_eingabe$ = LSet$(momentane_eingabe$, anzahl -1)
EndIf
EndIf

If x = 13 Then

WriteLine Sende_Stream, "[" +CurrentTime$() + "] " + Amt_Name$ + ":  " +  momentane_eingabe$
SendUDPMsg Sende_Stream, User_IP ,Port

zeile_speichern("[" +CurrentTime$() + "] " + Amt_Name$ + ":  " +  momentane_eingabe$, 1 ): momentane_eingabe$ = ""
EndIf

Color 100,100,100: Text 5, 460, "Message: "
Color 255,0,0: Text 100,460, momentane_eingabe$
Color 0,255,0
      
End Function


;_________________________

Function Update_empfangen()

      If RecvUDPMsg(Empfangs_stream)
      nachr$=ReadLine$(Empfangs_stream)
      
      zeile_speichern(nachr$, 2)
      
      EndIf

End Function

;_________________________

Function zeile_speichern(speicher_text$, f)
z.zeile = New zeile
z\farbe = f
z\zeile_Text$ = speicher_text$
reihe = reihe + 15
z\treihe = reihe

End Function

Function zeile_aufschieben()

z.zeile = First zeile
Delete z.zeile


For z.zeile = Each zeile

z\treihe = z\treihe - 15

Next

reihe = reihe - 15
         
End Function