Kann mir jemand Tipps zu diesem Script geben?
Und sagen, was ich verbessern muss, bitte.
Ich denke, ihr könnt alles aus den Funktionen herauslesen, bitte auch den Text so machen, dass er reinpasst, erklären.
VIELEN VIELEN DANK!!!!!!!!
Spoiler anzeigen
$falsche = 0
$richtig = 0
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!!! Bitte Groß-und Kleinschreibung beachten!")
$loesung = "Werwolf"
#include <GUIConstants.au3>
$out = _InputBox('1.Wer war der Member, der am längsten und immernoch im Clan ist?')
MsgBox(0, '', $out)
_InputBox($text)
_check()
$loesung = "4.10.2006"
#include <GUIConstants.au3>
$out = _InputBox('2.An welchem Tag wurde NTR gegründet? (TT/MM/JJJJ)')
MsgBox(0, '', $out)
_InputBox($text)
_check()
$loesung = "www.clanplanet.de"
#include <GUIConstants.au3>
$out = _InputBox('3.Auf welcher Massenclanpage wurde die erste Clanpage von NTR gemacht? (http://www.l%c3%b6sung.de)')
MsgBox(0, '', $out)
_InputBox($text)
_check()
$loesung = "Vasgalaine"
#include <GUIConstants.au3>
$out = _InputBox('4.Wer hat die meisten Beiträge im Forum?')
MsgBox(0, '', $out)
_InputBox($text)
_check()
$loesung = "3"
#include <GUIConstants.au3>
$out = _InputBox('6.Wieviele Pages hatte NTR schon (bitte als Zahl zB. 90 lol)')
MsgBox(0, '', $out)
_InputBox($text)
_check()
$loesung = "Dedy"
#include <GUIConstants.au3>
$out = _InputBox('7.Nenne den ältesten Member im Clan!"')
MsgBox(0, '', $out)
_InputBox($text)
_check()
$loesung = "Janni"
#include <GUIConstants.au3>
$out = _InputBox('8.Wie hieß der erste Leader in NTR?')
MsgBox(0, '', $out)
_InputBox($text)
_check()
$loesung = "Dedy"
#include <GUIConstants.au3>
$out = _InputBox('9.Wer hat die jetzige Clanpage gemacht (das Meiste)')
MsgBox(0, '', $out)
_InputBox($text)
_check()
$loesung = "Tenkai"
#include <GUIConstants.au3>
$out = _InputBox('10.Wer ist der Hauptchatadmin in NTR (früherer Nick)"')
MsgBox(0, '', $out)
_InputBox($text)
_check()
MsgBox(0, "", "Danke fürs Mitmachen!!!")
MsgBox(0, "Impressum", "Idee by p3X0n, Script by Nightfire")
Func _InputBox($text)
$OnEvent = Opt('GUIOnEventMode', 0)
$GUI_Input = GUICreate('Inputbox', 400, 200, -1, -1, $WS_POPUP)
WinSetOnTop('Inputbox', '', 1)
GUICtrlCreatePic('Unbenannt-1.gif', 0, 0, 400, 200)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel($text, 100, 60, 240, 30)
GUICtrlSetColor(-1, '0xffff00')
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 14, 800, 0, 'Times New Roman')
$Input = GUICtrlCreateInput('', 100, 100, 200, 30)
GUICtrlSetFont(-1, 14, 800, 0, 'Times New Roman')
GUICtrlSetBkColor(-1, '0xfffffe')
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Input
ExitLoop
EndSwitch
WEnd
$out = GUICtrlRead($Input)
GUIDelete($GUI_Input)
Opt('GUIOnEventMode', $OnEvent)
Return $out
EndFunc
Func _check()
If $box1 = $loesung Then
MsgBox(0,"", "Richtig")
$richtig +=1
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")
MsgBox(0,"", "Bitte immer auf Enter drücken! txt file nicht speichern :D")
SoundPlay(@WindowsDir & "\media\XP-Abmeldesound.wav",1)
Run("notepad.exe")
WinWaitActive ("Unbenannt - Editor")
Send ("Da musst du aber noch arbeiten!!!")
sleep (3000)
WinClose ("Unbenannt - Editor")
ControlClick("Editor", "", 7)
Exit
EndIf
If $richtig = 1 Then
SoundSetWaveVolume ("50%")
SoundPlay(@WindowsDir & "\media\XP-Benachrichtigung",1)
CDTray("e:\", "open")
SoundPlay (@WindowsDir & "\media\XP-Hardware hinzufügen.wav",1)
Run("notepad.exe")
WinWaitActive("Unbenannt - Editor")
Send ("Du bist ein NTR KENNER!!!")
sleep (3000)
WinClose ("Unbenannt - Editor")
ControlClick("Editor", "", 7)
CDTray("e:\", "close")
MsgBox (0, "", "Danke fürs Mitmachen!")
Exit
EndIf
EndFunc