Global Server$ = "irc.blitzed.org"
Global Port = 6667
Global NickName$ = "Ion[ownirc]"
Global HostName$ = "127.0.0.1"
Global Channel$ = "#german"

Stream = OpenTCPStream(Server$, Port)

Zeit = MilliSecs()
TimeOut = 5000

While Not Stream
   If MilliSecs() - Zeit > TimeOut Then
      DebugLog "Server antwortet nicht!"
      Stop
   EndIf
Wend

WriteLine Stream, "USER " + NickName$ + " " + HostName$ + " " + Server$ + " :" + NickName$
WriteLine Stream, "NICK " + NickName$
WriteLine Stream, "PONG "

DebugLog "Verbindung erfolgreich"

NetFenster = CreateWindow("Irc",50,150,640,480,Desktop(),1)
NetTextArea = CreateTextArea(0,0,632,430,NetFenster,0)
NetParameter = CreateTextField(0,430,580,23,NetFenster,0)
NetSenden = CreateButton("Senden",583,432,48,20,NetFenster,0)


Verbindung = 1
While Verbindung = 1


   ;---------- GUI -----------
   
   ID = WaitEvent(1)
   
   Select ID
   
      Case $401
      
         Select EventSource()
         
            Case NetSenden
            
               WriteLine Stream, TextFieldText(NetParameter)
      
         End Select
         
      Case $803
      
         Select EventSource()
         
            Case NetFenster
            
               WriteLine Stream, "QUIT :DOH DA ION IRC PURE POWER ALWAYS"
               Beenden()
               
         End Select
      
   End Select
      
   ;---------- IRC -----------

   If Stream <> 0 Then
      
      Bytes = ReadAvail(Stream)
      
      While Bytes <> 0
         
         Daten$ = ReadLine(Stream) + Chr$(13) + Chr$(10)
         AddTextAreaText NetTextArea, Daten$
         
         If Left$(Daten$, 4) = "PING" Then
         
            WriteLine Stream, "PONG " + Mid$(Daten$, 7, Len(Daten$) - 6)
            DebugLog "PONG " + Mid$(Daten$, 7, Len(Daten$) - 6)

         
         EndIf
         
         
         Bytes = ReadAvail(Stream)
            
      Wend
      
      If KeyHit(1) Then WriteLine Stream, "JOIN " + Channel$ : DebugLog "x"
         
   EndIf

Wend

Function Beenden()

End()

End Function