~7::
if (IsDialogOpen() == 0)
{
    Array := []
    LoopCount := 1

    Loop, read, %A_ScriptDir%\Texte\Fragenkatalog.txt
    {
        Array.Push(A_LoopReadLine)
        LoopCount := A_Index
    }

    SendChat("Ich werde Ihnen nun 5 Fragen stellen.")
    Sleep, 1000
    SendChat("Sie müssen mindestens 3 Fragen richtig beantworten.")
    Sleep, 1000
    SendChat("Bitte die Fragen genau in der Reihenfolge beantworten in der sie gestellt wurden.")
    Sleep, 1000
    SendChat("Wir beginnen in 5 Sekunden mit den Fragen.")
    Sleep, 5000

    Loop, 5
    {
        Sleep, 500
        Random, rand, 1, %LoopCount%
        Sleep, 500
        Frage := StrSplit(Array[rand], "?")

        SendChat("Frage " A_Index ": " Frage[1] "?")
        Sleep, 1000
        AddChatMessage("{199AD6}[DMV-Binder] {AAAAAA}Antwort " A_Index ": " Frage[2])

        Array.Remove[rand]
        LoopCount--
        Sleep, 1500
    }
}
return