#include <GuiButton.au3>
#include <IRC.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <Timers.au3>

OnAutoItExitRegister("ende")

$server = "irc.german-elite.net"
$channel = '#autoitnetwork'
$port = 6667
$connected = False
$starttime = 0

#region ### START Koda GUI section ### Form=
$mainGUI = GUICreate("Form1", 228, 560, -1, -1, $WS_POPUPWINDOW)
$mainBack = GUICtrlCreatePic("mainback.jpg", 0, 0, 228, 562, 0)
$mainUser = GUICtrlCreateInput("", 54, 280, 120, 21)
GUICtrlSendMsg($mainUser, 0x1501, 0, "Username")
$mainPass = GUICtrlCreateInput("", 54, 312, 120, 21, $ES_PASSWORD)
GUICtrlSendMsg($mainPass, 0x1501, 0, "Password")
$mainLogin = GUICtrlCreateButton("Login", 76.5, 352, 75, 25)
_GUICtrlButton_SetFocus($mainLogin)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $mainLogin
            $username = GUICtrlRead($mainUser)
            $userpass = GUICtrlRead($mainPass)

            If $username <> "" And $userpass <> "" Then
                TCPStartup()
                $sock = _IRCConnect($server, $port, $username)
                $connected = True
            EndIf
    EndSwitch


    If $connected = True Then
        $recv = TCPRecv($sock, 8192)
        If @error Then
            Exit MsgBox(1, "Autitmassanger", "Server has errored or disconnected")
        EndIf
        Local $sData = StringSplit($recv, @CRLF)

        For $i = 1 To $sData[0] Step 1
            Local $sTemp = StringSplit($sData[$i], " ")
            If $sTemp[1] = "" Then ContinueLoop
            If $sTemp[1] = "PING" Then _IRCPing($sock, $sTemp[2])
            If $sTemp[0] <= 2 Then ContinueLoop


            If StringInStr($sData[$i], "Um den Missbrauch von Proxies einzuschraenken") > 0 Then
                    $starttime = _Timer_Init()
                    $sData[$i] = ""
            ElseIf StringInStr($sData[$i], "Dieser Nickname ist registriert und geschützt") > 0 Then
                _IRCSendMessage($sock, "identify " & $userpass, "nickserv")
            ElseIf StringInStr($sData[$i], "Passwort akzeptiert - du bist jetzt angemeldet.") Then
                $starttime = 0
                _IRCJoinChannel($sock, $channel)
            ElseIf StringInStr($sData[$i], "Falsches Passwort.") Then
                $starttime = 0
                ende()
                MsgBox(0, "", "Falsches Passwort für diesen Account.")
            EndIf

            If $starttime > 0 Then
                ToolTip(_Timer_Diff($starttime))
                If _Timer_Diff($starttime) > 5000 Then
                    MsgBox(0, "", "test")
                EndIf
            EndIf

            Switch $sTemp[2]
                Case "332" ; Raumthema
                    $titel = ''
                    For $k = 6 To $sTemp[0]
                        $titel &= $sTemp[$k] & ' '
                    Next
                    ConsoleWrite('Thema: ' & $titel & @CRLF)
                Case Else
                    ConsoleWrite('sonstiges: ' & $sData[$i] & @CRLF)
            EndSwitch
        Next
    EndIf
WEnd


Func ende()
    $connected = False
    _IRCQuit($sock)
    TCPShutdown()
EndFunc   ;==>ende