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
$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!!!")
$loesung = "Werwolf"
$box1 = InputBox("Frage", "1. Wer war der erste Member nach Janni in NTR?", "", "", 30, 200, -1, -1, 10)
_check()
$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()
$loesung = "clanplanet"
$box1 = InputBox("Frage", "3. Auf welcher Massenclanpage wurde die erste Clanpage von NTR gemacht?", "", "", 30, 200, -1, -1, 10)
_check()
$loesung = "Vasgalaine"
$box1 = InputBox("Frage", "4. Wer hat die meisten Beiträge im Forum?", "", "", 30, 200, -1, -1, 10)
_check()
$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()
$loesung = "3"
$box1 = InputBox("Frage", "6. Wie viele Pages hatte NTR schon? (bitte als Zahl zB 90 lol)", "", "", 30, 200, -1, -1, 10)
_check()
$loesung = "Dedy"
$box1 = InputBox("Frage", "7. Nenne den ältesten Member im Clan", "", "", 30, 200, -1, -1, 10)
_check()
$loesung = "Janni"
$box1 = InputBox("Frage", "8. Wie hieß der erste Leader in NTR?", "", "", 30, 200, -1, -1, 10)
_check()
$loesung = "Dedy"
$box1 = InputBox("Frage", "9. Wer hat die jetzige Clanpage gemacht?", "", "", 30, 200, -1, -1, 10)
_check()
$loesung = "Tenkai"
$box1 = InputBox("Frage", "10. Wer ist der Hauptchatadmin in NTR? (früherer Nick)", "", "", 30, 200, -1, -1, 10)
_check()
MsgBox(0, "", "Danke fürs Mitmachen!!!")
MsgBox(0, "Impressum", "Idee by p3X0n, Script by Nightfire")
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