Schleife beenden

  • Also ich habe dieses Quiz zusammengeschrieben, bei 5 falschen Antworten kommt n bisschen Zeug, und dann soll es aufhören, tut es aber ned <.<
    Könnt ihr mir sagen, wie man das macht?

    Spoiler anzeigen
    [autoit]

    $falsche = 0

    [/autoit] [autoit][/autoit] [autoit]

    SoundPlay(@WindowsDir & "\media\tada.wav",1)

    [/autoit] [autoit][/autoit] [autoit]

    MsgBox(0, "NTR Quiz", "Hier ist es, das UNGLAUBLICHE NTR QUIZ!!!")
    MsgBox(0,"", "Beantworte die Fragen richtig, das ist alles!!!")

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Werwolf"
    $box1 = InputBox("Frage", "1. Wer war der erste Member nach Janni in NTR?", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "4.10.2006"
    $box1 = InputBox("Frage", "2. An welchem tag wurde NTR gegründet? (Bitte mit Am TT/MM/JJJJ)", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "clanplanet"
    $box1 = InputBox("Frage", "3. Auf welcher Massenclanpage wurde die erste Clanpage von NTR gemacht?", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Vasgalaine"
    $box1 = InputBox("Frage", "4. Wer hat die meisten Beiträge im Forum?", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Nightshade"
    $box1 = InputBox("Frage", "5. Wer war der bis jetzt - vermutlich- beste MPH Spieler in NTR und hatte 1 Bruder, der auch schon in NTR war?", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "3"
    $box1 = InputBox("Frage", "6. Wie viele Pages hatte NTR schon? (bitte als Zahl zB 90 lol)", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Dedy"
    $box1 = InputBox("Frage", "7. Nenne den ältesten Member im Clan", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Janni"
    $box1 = InputBox("Frage", "8. Wie hieß der erste Leader in NTR?", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Dedy"
    $box1 = InputBox("Frage", "9. Wer hat die jetzige Clanpage gemacht?", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Tenkai"
    $box1 = InputBox("Frage", "10. Wer ist der Hauptchatadmin in NTR? (früherer Nick)", "", "", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    MsgBox(0, "", "Danke fürs Mitmachen!!!")
    MsgBox(0, "Impressum", "Idee by p3X0n, Script by Nightfire")

    [/autoit] [autoit][/autoit] [autoit]

    Func _check()
    If $box1 = $loesung Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $falsche +=1
    EndIf
    If $falsche = 5 Then
    SoundSetWaveVolume ("50%")
    SoundPlay(@WindowsDir & "\media\Windows XP-Fehler.wav",1)
    CDTray("e:\", "open")
    WinClose ("Frage")
    Run("notepad.exe")
    WinWaitActive ("Unbenannt - Editor")
    sleep (3000)
    Send ("Da musst du aber noch arbeiten!!!")
    sleep (3000)
    WinClose ("Unbenannt - Editor")
    CDTray("e:\","close")
    SoundPlay(@WindowsDir & "\media\XP Startvorgang.wav",1)
    EndIf
    EndFunc

    [/autoit]
    • Offizieller Beitrag
    [autoit]


    If $falsche = 5 Then
    SoundSetWaveVolume ("50%")
    SoundPlay(@WindowsDir & "\media\Windows XP-Fehler.wav",1)
    CDTray("e:\", "open")
    WinClose ("Frage")
    Run("notepad.exe")
    WinWaitActive ("Unbenannt - Editor")
    sleep (3000)
    Send ("Da musst du aber noch arbeiten!!!")
    sleep (3000)
    WinClose ("Unbenannt - Editor")
    CDTray("e:\","close")
    SoundPlay(@WindowsDir & "\media\XP Startvorgang.wav",1)
    ; hier einfach beenden:
    Exit
    EndIf

    [/autoit]