Variable used without being declared.: Ratlos :/

  • Hey,

    bekomme immer diesen Error:

    Variable used without being declared obwohl die Variable eine aufgabe hat!?

    Spoiler anzeigen
    [autoit]


    $S = 1
    Sleep(500)

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

    $F = 9
    sleep(500)
    MsgBox(0,"Ergebniss","Staffel:" & $S & " " & "Folge:" & $F)

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

    If $S & $F = 1 & 9 Then
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Soundmemos", 319, 86, 192, 124)
    $Button1 = GUICtrlCreateButton("Starten", 8, 32, 153, 41)
    $Button2 = GUICtrlCreateButton("Exit", 160, 32, 153, 41)
    $Label1 = GUICtrlCreateLabel("Soundmemos vorhanden", 8, 0, 308, 28)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    SoundPlay("SGA191.mp3")
    MsgBox(0,"Infos","Techniker: Das ZPM hat wohl nicht genügend Energie, um das Wurmloch zu öffnen." & @CRLF & "McKay (sieht sich einige Daten auf einem Klemmbrett an): Aus dem werden Sie das nicht gefolgert haben. Da könnte auch draufstehen „Bäng Tiddel-Tiddel Bong“, das ist totaler Schwachsinn! Jetzt verschwinden Sie, ich mach das!" & @CRLF & "(Techniker geht)" & @CRLF & "McKay (ruft hinterher): Gehen Sie! (zu sich selbst) Die nehmen mich auf den Arm! " & @CRLF & @CRLF & "McKay (zu Weir): Ich versuch ihnen das zu erklären, ok? Laut diesen Ergebnissen ist das ZPM nicht funktionstüchtig und es unterliegt auch keinen Naturgesetzen. Als würde man sich durch ein Mikroskop ne Zelle ansehn und sieht tausend tanzende Hamster! Das gibt es nicht!"& @CRLF & "(virtuelle) Weir: Rodney, Sie sollten sich beruhigen!" & @CRLF & "McKay (explodiert vor Wut): Oh Nein! Ich sollte mich sogar noch mehr aufregen! Weil mir langsam klar wird, dass das Alles eine Lüge ist! Das! (Schmeißt den Laptopdeckel zu) Und das! (Wirft mit Papieren um sich) Und das! (Reißt mit voller Wucht das ZPM vom Tisch, welches dann auf dem Boden zerschellt)" & @CRLF & @CRLF & "Sheppard(nachdem er plötzlich im Gate-Raum steht): Was ist passiert?" & @CRLF & "General Hammond': ich habe sie aus ihren Realitäten hergeholt." & @CRLF & "Sheppard:Nein, ich rede von dem Bier, das ich hatte.")
    SoundPlay("SGA192.mp3")
    Case $Button2
    Exit
    EndSwitch
    WEnd

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

    EndIf

    [/autoit]

    Einmal editiert, zuletzt von 3l3ctric (11. Januar 2011 um 15:10)

  • hier hast du mal den gesamten skript

    Spoiler anzeigen
    [autoit]

    $S = 1
    Sleep(500)

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

    $F = 9
    sleep(500)
    MsgBox(0,"Ergebniss","Staffel:" & $S & " " & "Folge:" & $F)

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

    If $S & $F = 1 & 1 Then
    MsgBox(0,"Infos", "(Dr. Beckett soll den Stuhl in Antarctica benutzen)" & @CRLF & "McKay: Diesmal versuchen sie sich vorzustellen, wo im Sonnensystem wir uns befinden." & @CRLF & "(Beckett schließt die Augen. Stille)" & @CRLF & "Beckett: Ich glaube ich spüre etwas." & @CRLF & "(Beckett öffnet seine Augen)" & @CRLF & "Beckett: Könnte die Verdauung sein. " & @CRLF & @CRLF & "(nach O'Neills Ankunft)" & @CRLF & "O'Neill (zu Daniel): Gehen wir doch zu dem Teil über, in dem du redest wie ein Wasserfall. " & @CRLF & @CRLF & "(nachdem Dr. Beckett sich einige Zeit zuvor in den Kontrollstuhl gesetzt hatte und ihn nur mit Schwierigkeiten aktivieren konnte und den Stuhl gleichzeitig nicht kontrollieren konnte, kommt Major Sheppard vorbei und setzt sich hinein, woraufhin sich der Kontrollstuhl aktiviert)" & @CRLF & "Beckett: Doktor Weir! Ähh… Nicht bewegen!" & @CRLF & "(Elizabeth Weir, General O'Neill, Dr. Jackson und Rodney McKay kommen angerannt und sehen Sheppard im Kontrollstuhl sitzen)" & @CRLF & "Weir (zu O'Neill): Wer ist das?" & @CRLF & "O'Neill (zu Sheppard): Ich sagte doch nichts anfassen!" & @CRLF & "Sheppard: Ich hab' mich nur hingesetzt." & @CRLF & "McKay: Major, wo befinden wir uns im Sonnensytem?" & @CRLF & "(ein Hologramm unseres Sonnensystems erscheint über dem Kontrollstuhl)" & @CRLF & "Sheppard: Bin ich das gewesen? " & @CRLF & @CRLF & "(das Atlantis-Expeditionsteam macht sich zum Aufbruch im Torraum bereit; General O'Neill und Daniel Jackson beobachten das Geschehen vom Kontrollraum aus)" & @CRLF & "Daniel: Jack, ich könnte noch immer…" & @CRLF & "O'Neill: Nein." & @CRLF & "Daniel: Ich pack' schnell meine…" & @CRLF & "O'Neill: Nein. " & @CRLF & @CRLF & "(Sheppard steht mit Ford vor dem Stargate; Ford stellt sich zur Hälfte in den Ereignishorizont)" & @CRLF & "Sheppard: Wie fühlt es sich an?" & @CRLF & "Ford: Tut höllisch weh, Sir. (springt freudig in den Ereignishorizont)" & @CRLF & @CRLF & "(die Lichter gehen überall in der Stadt an; als Major Sheppard gerade an einem Gerät vorbeigeht schaltet auch es sich ein)" & @CRLF & "Sheppard: Ich hab' nichts angefasst. ")
    EndIf

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

    If $S & $F = 1 & 2 Then
    MsgBox(0,"Infos","Sheppard: Wann erfahre ich, wohin die Wraith Colonel Sumner und die anderen gebracht haben?" & @CRLF & "McKay: Selbst mit den 6 Symbolen von Lieutenant Ford gibt es noch Hunderte von Permutationen…" & @CRLF & "Sheppard: 720." & @CRLF & "McKay: Ja… Ich weiß das, ich frage mich nur, woher Sie das wissen. " & @CRLF & @CRLF & "(Sheppard hat einen Lebenszeichendetektor in der Hand)" & @CRLF & "Sheppard: Gehen sie da 'rüber." & @CRLF & "Sheppard: Ja das sind sie. (zeigt auf einen blinkenden Punkt auf dem Bildschirm)" & @CRLF & "Ford: Oh, dann ist das sowas wie ein Lebenszeichendetektor." & @CRLF & "Sheppard: Einen Namen finden wir noch. " & @CRLF & @CRLF & "Summner: Sie haben meine Leute gefangen genommen, wieso?" & @CRLF & "Wraith-Königin: Ihr haltet euch unbefugt auf unserem Weidegrund auf." & @CRLF & "Summner: Weidegrund?" & @CRLF & "Wraith-Königin: Alle Lebewesen müssen sich nähren. Darin sind wir uns sicherlich ähnlich"& @CRLF & @CRLF & "(Beckett beobachtet wie Sheppard und Teyla sich unterhalten)"& @CRLF & "Beckett (zu McKay): Warum lern' ich eigentlich nie Freunde wie die kennen?"& @CRLF & "McKay: Sie müssen mehr 'rausgehen."& @CRLF & "Beckett: Wir sind in 'ner anderen Galaxie - wie weit soll ich denn noch rausgehen? ")
    EndIf

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

    If $S & $F = 1 & 3 Then
    MsgBox(0,"Infos","(Als Rodney seine Gen-Therapie bekommt und ihm Beckett vorher erzählt hat, dass Mäuse die Gen-Therapie bekommen haben)" & @CRLF & "Rodney: Gibt es hierbei irgendwelche Nebeneffekte?" & @CRLF & "Beckett: Trockener Mund, Kopfschmerzen,... der Drang in einem kleinen Rädchen laufen zu müssen." & @CRLF & @CRLF & "(Rodney erklärt den neuen persönlichen Schild, den er entdeckt hat)" & @CRLF & "McKay (zu Weir): Passen Sie auf!"& @CRLF & "McKay (zu Grodin): Schlagen Sie mich." & @CRLF & "(Grodin schlägt zu und wird vom Schild schmerzhaft daran gehindert)" & @CRLF & "McKay (gelangweilt): Was schlagen Sie auch so hart zu...?!" & @CRLF & "McKay (zu Sheppard und Weir): ...und ist Ihnen aufgefallen, dass er nicht einen Moment gezögert hat?" & @CRLF & "Weir: Mir ist immer noch nicht ganz klar, wie Sie darauf kamen, dass es eine gute Idee wäre, dieses Gerät zu testen, indem Sie jemand von einem Balkon wirft?" & @CRLF & "McKay: Glauben Sie mir, das war nicht unser erster Versuch." & @CRLF & "Sheppard: Ich hab' auf ihn geschossen." & @CRLF & "(Weir schaut ihn ungläubig an)" & @CRLF & "Sheppard: (achselzuckend): In den Fuß." & @CRLF & "McKay: Ich bin unverwundbar!" & @CRLF & "Weir: Haben Sie nicht immer gesagt, wie korrekt und sorgfältig wissenschaftliche Vorgehensweise eingehalten werden muss?" & @CRLF & "(Rodney mit Grinsen über beide Ohren)" & @CRLF & "McKay: Unverwundbar!")
    EndIf

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

    If $S & $F = 1 & 4 Then
    MsgBox(0,"Infos","(Aiden Ford behandelt den Iratus-Käfer gerade mit Iod.)" & @CRLF & "Beckett: Was haben Sie sonst noch?" & @CRLF & "Beckett: Was haben Sie sonst noch?" & @CRLF & "McKay: Genau. Haben Sie etwas zum Essen?" & @CRLF & "Ford: Nicht ihr Ernst?!" & @CRLF & "McKay: Ich habe noch knapp 20 Minuten, um uns zu retten, und krieg' gleich 'nen hypoglykämischen Anfall!"& @CRLF & "(Ford wirft ihm einen Energieriegel zu.)" & @CRLF & "McKay (sarkastisch): Danke.")
    EndIf

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

    If $S & $F = 1 & 5 Then
    MsgBox(0,"Infos","Keine Dialogzitate vorhanden!")
    EndIf

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

    If $S & $F = 1 & 6 Then
    MsgBox(0,"Infos","Keine Dialogzitate vorhanden!")
    EndIf

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

    If $S & $F = 1 & 7 Then
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Soundmemos", 319, 86, 192, 124)
    $Button1 = GUICtrlCreateButton("Starten", 8, 32, 153, 41)
    $Button2 = GUICtrlCreateButton("Exit", 160, 32, 153, 41)
    $Label1 = GUICtrlCreateLabel("Soundmemos vorhanden", 8, 0, 308, 28)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    SoundPlay("SGA171.mp3")
    MsgBox(64,"Achtung!","Dieses Fenster erst schließen wenn das erste Memo vorbei ist!!")
    SoundPlay("SGA172.mp3")
    Case $Button2
    Exit
    EndSwitch
    WEnd

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

    EndIf

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

    If $S & $F = 1 & 8 Then
    MsgBox(0,"Infos","(Sheppard und McKay kommen gerade vom Gate und haben sich verlaufen)" & @CRLF & "McKay: Wir haben uns verlaufen. Die haben uns den Weg doch genau erklärt!" & @CRLF & "Sheppard: Ich geh lieber geradeaus." & @CRLF & "McKay: Ja. Denn in Sheppards Welt gibt es nur Abkürzungen! " & @CRLF & @CRLF & "(Während des Mahls mit den Genii)" & @CRLF & "McKay: Ich hab' in der Sechsten 'ne Atombombe für die Austellung auf 'ner Forschungsmesse gebaut." & @CRLF & "Ford: Das durften Sie in Kanada tun?!" & @CRLF & "McKay: Kein funktionierendes Modell, dennoch wurde ich sechs Stunden von der CIA verhört, weil die dachten, ich gehörte zu 'nem Kindergeheimbund. So kam ich zu meinem ersten Job... ")
    EndIf

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

    If $S & $F = 1 & 9 Then
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Soundmemos", 319, 86, 192, 124)
    $Button1 = GUICtrlCreateButton("Starten", 8, 32, 153, 41)
    $Button2 = GUICtrlCreateButton("Exit", 160, 32, 153, 41)
    $Label1 = GUICtrlCreateLabel("Soundmemos vorhanden", 8, 0, 308, 28)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    SoundPlay("SGA191.mp3")
    MsgBox(0,"Infos","Techniker: Das ZPM hat wohl nicht genügend Energie, um das Wurmloch zu öffnen." & @CRLF & "McKay (sieht sich einige Daten auf einem Klemmbrett an): Aus dem werden Sie das nicht gefolgert haben. Da könnte auch draufstehen „Bäng Tiddel-Tiddel Bong“, das ist totaler Schwachsinn! Jetzt verschwinden Sie, ich mach das!" & @CRLF & "(Techniker geht)" & @CRLF & "McKay (ruft hinterher): Gehen Sie! (zu sich selbst) Die nehmen mich auf den Arm! " & @CRLF & @CRLF & "McKay (zu Weir): Ich versuch ihnen das zu erklären, ok? Laut diesen Ergebnissen ist das ZPM nicht funktionstüchtig und es unterliegt auch keinen Naturgesetzen. Als würde man sich durch ein Mikroskop ne Zelle ansehn und sieht tausend tanzende Hamster! Das gibt es nicht!"& @CRLF & "(virtuelle) Weir: Rodney, Sie sollten sich beruhigen!" & @CRLF & "McKay (explodiert vor Wut): Oh Nein! Ich sollte mich sogar noch mehr aufregen! Weil mir langsam klar wird, dass das Alles eine Lüge ist! Das! (Schmeißt den Laptopdeckel zu) Und das! (Wirft mit Papieren um sich) Und das! (Reißt mit voller Wucht das ZPM vom Tisch, welches dann auf dem Boden zerschellt)" & @CRLF & @CRLF & "Sheppard(nachdem er plötzlich im Gate-Raum steht): Was ist passiert?" & @CRLF & "General Hammond': ich habe sie aus ihren Realitäten hergeholt." & @CRLF & "Sheppard:Nein, ich rede von dem Bier, das ich hatte.")
    SoundPlay("SGA192.mp3")
    Case $Button2
    Exit
    EndSwitch
    WEnd

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

    EndIf

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

    If $S & $F = 1 & 10 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 11 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 12 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 13 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 14 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 15 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 16 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 17 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 18 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 19 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 20 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

    [/autoit]
  • Also bei mir kommt da nix. Ich klick auf das X im GUI (mit Start und Exit) und er schließt sich ohne Meldung

  • bei mir net :/

    versuch es mal mit dem gesamten skript

    Spoiler anzeigen
    [autoit]

    $S = 1
    Sleep(500)

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

    $F = 9
    sleep(500)
    MsgBox(0,"Ergebniss","Staffel:" & $S & " " & "Folge:" & $F)

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

    If $S & $F = 1 & 1 Then
    MsgBox(0,"Infos", "(Dr. Beckett soll den Stuhl in Antarctica benutzen)" & @CRLF & "McKay: Diesmal versuchen sie sich vorzustellen, wo im Sonnensystem wir uns befinden." & @CRLF & "(Beckett schließt die Augen. Stille)" & @CRLF & "Beckett: Ich glaube ich spüre etwas." & @CRLF & "(Beckett öffnet seine Augen)" & @CRLF & "Beckett: Könnte die Verdauung sein. " & @CRLF & @CRLF & "(nach O'Neills Ankunft)" & @CRLF & "O'Neill (zu Daniel): Gehen wir doch zu dem Teil über, in dem du redest wie ein Wasserfall. " & @CRLF & @CRLF & "(nachdem Dr. Beckett sich einige Zeit zuvor in den Kontrollstuhl gesetzt hatte und ihn nur mit Schwierigkeiten aktivieren konnte und den Stuhl gleichzeitig nicht kontrollieren konnte, kommt Major Sheppard vorbei und setzt sich hinein, woraufhin sich der Kontrollstuhl aktiviert)" & @CRLF & "Beckett: Doktor Weir! Ähh… Nicht bewegen!" & @CRLF & "(Elizabeth Weir, General O'Neill, Dr. Jackson und Rodney McKay kommen angerannt und sehen Sheppard im Kontrollstuhl sitzen)" & @CRLF & "Weir (zu O'Neill): Wer ist das?" & @CRLF & "O'Neill (zu Sheppard): Ich sagte doch nichts anfassen!" & @CRLF & "Sheppard: Ich hab' mich nur hingesetzt." & @CRLF & "McKay: Major, wo befinden wir uns im Sonnensytem?" & @CRLF & "(ein Hologramm unseres Sonnensystems erscheint über dem Kontrollstuhl)" & @CRLF & "Sheppard: Bin ich das gewesen? " & @CRLF & @CRLF & "(das Atlantis-Expeditionsteam macht sich zum Aufbruch im Torraum bereit; General O'Neill und Daniel Jackson beobachten das Geschehen vom Kontrollraum aus)" & @CRLF & "Daniel: Jack, ich könnte noch immer…" & @CRLF & "O'Neill: Nein." & @CRLF & "Daniel: Ich pack' schnell meine…" & @CRLF & "O'Neill: Nein. " & @CRLF & @CRLF & "(Sheppard steht mit Ford vor dem Stargate; Ford stellt sich zur Hälfte in den Ereignishorizont)" & @CRLF & "Sheppard: Wie fühlt es sich an?" & @CRLF & "Ford: Tut höllisch weh, Sir. (springt freudig in den Ereignishorizont)" & @CRLF & @CRLF & "(die Lichter gehen überall in der Stadt an; als Major Sheppard gerade an einem Gerät vorbeigeht schaltet auch es sich ein)" & @CRLF & "Sheppard: Ich hab' nichts angefasst. ")
    EndIf

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

    If $S & $F = 1 & 2 Then
    MsgBox(0,"Infos","Sheppard: Wann erfahre ich, wohin die Wraith Colonel Sumner und die anderen gebracht haben?" & @CRLF & "McKay: Selbst mit den 6 Symbolen von Lieutenant Ford gibt es noch Hunderte von Permutationen…" & @CRLF & "Sheppard: 720." & @CRLF & "McKay: Ja… Ich weiß das, ich frage mich nur, woher Sie das wissen. " & @CRLF & @CRLF & "(Sheppard hat einen Lebenszeichendetektor in der Hand)" & @CRLF & "Sheppard: Gehen sie da 'rüber." & @CRLF & "Sheppard: Ja das sind sie. (zeigt auf einen blinkenden Punkt auf dem Bildschirm)" & @CRLF & "Ford: Oh, dann ist das sowas wie ein Lebenszeichendetektor." & @CRLF & "Sheppard: Einen Namen finden wir noch. " & @CRLF & @CRLF & "Summner: Sie haben meine Leute gefangen genommen, wieso?" & @CRLF & "Wraith-Königin: Ihr haltet euch unbefugt auf unserem Weidegrund auf." & @CRLF & "Summner: Weidegrund?" & @CRLF & "Wraith-Königin: Alle Lebewesen müssen sich nähren. Darin sind wir uns sicherlich ähnlich"& @CRLF & @CRLF & "(Beckett beobachtet wie Sheppard und Teyla sich unterhalten)"& @CRLF & "Beckett (zu McKay): Warum lern' ich eigentlich nie Freunde wie die kennen?"& @CRLF & "McKay: Sie müssen mehr 'rausgehen."& @CRLF & "Beckett: Wir sind in 'ner anderen Galaxie - wie weit soll ich denn noch rausgehen? ")
    EndIf

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

    If $S & $F = 1 & 3 Then
    MsgBox(0,"Infos","(Als Rodney seine Gen-Therapie bekommt und ihm Beckett vorher erzählt hat, dass Mäuse die Gen-Therapie bekommen haben)" & @CRLF & "Rodney: Gibt es hierbei irgendwelche Nebeneffekte?" & @CRLF & "Beckett: Trockener Mund, Kopfschmerzen,... der Drang in einem kleinen Rädchen laufen zu müssen." & @CRLF & @CRLF & "(Rodney erklärt den neuen persönlichen Schild, den er entdeckt hat)" & @CRLF & "McKay (zu Weir): Passen Sie auf!"& @CRLF & "McKay (zu Grodin): Schlagen Sie mich." & @CRLF & "(Grodin schlägt zu und wird vom Schild schmerzhaft daran gehindert)" & @CRLF & "McKay (gelangweilt): Was schlagen Sie auch so hart zu...?!" & @CRLF & "McKay (zu Sheppard und Weir): ...und ist Ihnen aufgefallen, dass er nicht einen Moment gezögert hat?" & @CRLF & "Weir: Mir ist immer noch nicht ganz klar, wie Sie darauf kamen, dass es eine gute Idee wäre, dieses Gerät zu testen, indem Sie jemand von einem Balkon wirft?" & @CRLF & "McKay: Glauben Sie mir, das war nicht unser erster Versuch." & @CRLF & "Sheppard: Ich hab' auf ihn geschossen." & @CRLF & "(Weir schaut ihn ungläubig an)" & @CRLF & "Sheppard: (achselzuckend): In den Fuß." & @CRLF & "McKay: Ich bin unverwundbar!" & @CRLF & "Weir: Haben Sie nicht immer gesagt, wie korrekt und sorgfältig wissenschaftliche Vorgehensweise eingehalten werden muss?" & @CRLF & "(Rodney mit Grinsen über beide Ohren)" & @CRLF & "McKay: Unverwundbar!")
    EndIf

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

    If $S & $F = 1 & 4 Then
    MsgBox(0,"Infos","(Aiden Ford behandelt den Iratus-Käfer gerade mit Iod.)" & @CRLF & "Beckett: Was haben Sie sonst noch?" & @CRLF & "Beckett: Was haben Sie sonst noch?" & @CRLF & "McKay: Genau. Haben Sie etwas zum Essen?" & @CRLF & "Ford: Nicht ihr Ernst?!" & @CRLF & "McKay: Ich habe noch knapp 20 Minuten, um uns zu retten, und krieg' gleich 'nen hypoglykämischen Anfall!"& @CRLF & "(Ford wirft ihm einen Energieriegel zu.)" & @CRLF & "McKay (sarkastisch): Danke.")
    EndIf

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

    If $S & $F = 1 & 5 Then
    MsgBox(0,"Infos","Keine Dialogzitate vorhanden!")
    EndIf

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

    If $S & $F = 1 & 6 Then
    MsgBox(0,"Infos","Keine Dialogzitate vorhanden!")
    EndIf

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

    If $S & $F = 1 & 7 Then
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Soundmemos", 319, 86, 192, 124)
    $Button1 = GUICtrlCreateButton("Starten", 8, 32, 153, 41)
    $Button2 = GUICtrlCreateButton("Exit", 160, 32, 153, 41)
    $Label1 = GUICtrlCreateLabel("Soundmemos vorhanden", 8, 0, 308, 28)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    SoundPlay("SGA171.mp3")
    MsgBox(64,"Achtung!","Dieses Fenster erst schließen wenn das erste Memo vorbei ist!!")
    SoundPlay("SGA172.mp3")
    Case $Button2
    Exit
    EndSwitch
    WEnd

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

    EndIf

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

    If $S & $F = 1 & 8 Then
    MsgBox(0,"Infos","(Sheppard und McKay kommen gerade vom Gate und haben sich verlaufen)" & @CRLF & "McKay: Wir haben uns verlaufen. Die haben uns den Weg doch genau erklärt!" & @CRLF & "Sheppard: Ich geh lieber geradeaus." & @CRLF & "McKay: Ja. Denn in Sheppards Welt gibt es nur Abkürzungen! " & @CRLF & @CRLF & "(Während des Mahls mit den Genii)" & @CRLF & "McKay: Ich hab' in der Sechsten 'ne Atombombe für die Austellung auf 'ner Forschungsmesse gebaut." & @CRLF & "Ford: Das durften Sie in Kanada tun?!" & @CRLF & "McKay: Kein funktionierendes Modell, dennoch wurde ich sechs Stunden von der CIA verhört, weil die dachten, ich gehörte zu 'nem Kindergeheimbund. So kam ich zu meinem ersten Job... ")
    EndIf

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

    If $S & $F = 1 & 9 Then
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Soundmemos", 319, 86, 192, 124)
    $Button1 = GUICtrlCreateButton("Starten", 8, 32, 153, 41)
    $Button2 = GUICtrlCreateButton("Exit", 160, 32, 153, 41)
    $Label1 = GUICtrlCreateLabel("Soundmemos vorhanden", 8, 0, 308, 28)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    SoundPlay("SGA191.mp3")
    MsgBox(0,"Infos","Techniker: Das ZPM hat wohl nicht genügend Energie, um das Wurmloch zu öffnen." & @CRLF & "McKay (sieht sich einige Daten auf einem Klemmbrett an): Aus dem werden Sie das nicht gefolgert haben. Da könnte auch draufstehen „Bäng Tiddel-Tiddel Bong“, das ist totaler Schwachsinn! Jetzt verschwinden Sie, ich mach das!" & @CRLF & "(Techniker geht)" & @CRLF & "McKay (ruft hinterher): Gehen Sie! (zu sich selbst) Die nehmen mich auf den Arm! " & @CRLF & @CRLF & "McKay (zu Weir): Ich versuch ihnen das zu erklären, ok? Laut diesen Ergebnissen ist das ZPM nicht funktionstüchtig und es unterliegt auch keinen Naturgesetzen. Als würde man sich durch ein Mikroskop ne Zelle ansehn und sieht tausend tanzende Hamster! Das gibt es nicht!"& @CRLF & "(virtuelle) Weir: Rodney, Sie sollten sich beruhigen!" & @CRLF & "McKay (explodiert vor Wut): Oh Nein! Ich sollte mich sogar noch mehr aufregen! Weil mir langsam klar wird, dass das Alles eine Lüge ist! Das! (Schmeißt den Laptopdeckel zu) Und das! (Wirft mit Papieren um sich) Und das! (Reißt mit voller Wucht das ZPM vom Tisch, welches dann auf dem Boden zerschellt)" & @CRLF & @CRLF & "Sheppard(nachdem er plötzlich im Gate-Raum steht): Was ist passiert?" & @CRLF & "General Hammond': ich habe sie aus ihren Realitäten hergeholt." & @CRLF & "Sheppard:Nein, ich rede von dem Bier, das ich hatte.")
    SoundPlay("SGA192.mp3")
    Case $Button2
    Exit
    EndSwitch
    WEnd

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

    EndIf

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

    If $S & $F = 1 & 10 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 11 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 12 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 13 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 14 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 15 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 16 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 17 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 18 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 19 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

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

    If $S & $F = 1 & 20 Then
    MsgBox(0,"Infos","" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""& @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "")
    EndIf

    [/autoit]
  • Also .... was soll das Skript den am Ende machen?
    Wenn ich ehrlich bin ... dein Skript ist irgendwie schon Grundlegend falsch.

    1. Du musst die UDFs nicht doppelt einfügen. 1x am Skriptanfang reicht

    2. Die 2. While-Schleife wirst du nie erreichen, da dein Skript in der ersten "hängt".

    3. Ein ziemliches durcheinander .... sieht du den noch selber durch? ;)

    4. Du hast variablen bei Buttons doppelt belegt.

  • aber da ich noch so ziemlich am anfang stehe lasse ich die finger erstmal weg von While, Func u.s.w :)

  • Hallo 3l3ctric,

    Prixma hat recht, es ist tatsächlich sehr chaotisch ...

    Dein Script sollte so starten:

    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Soundmemos", 319, 86, 192, 124)
    $Button1 = GUICtrlCreateButton("Starten", 8, 32, 153, 41)
    $Button2 = GUICtrlCreateButton("Exit", 160, 32, 153, 41)
    $Label1 = GUICtrlCreateLabel("Soundmemos vorhanden", 8, 0, 308, 28)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit]

    usw ...
    Damit ist auch dein Fehler behoben.

  • Hi,

    Ich hab da auch noch ein Tipp für dich.
    Ich hab gesehen das du zum Teil so lange Strings hast, dass die garnich übersichtlich sein können^^

    Mit hilfe des Unterstrichs ( _ ) kannst du Befehle über mehrere Zeilen erstellen. der Unterstrich dient dabei nur dazu damit der Compiler weiß das der befehl in der nächsten Zeile weiter geht. Hier ein Beispiel dazu:

    [autoit]


    $Langerstring = "Das ist ein ganz ganz " & _
    "ganz ganz ganz ganz ganz ganz ganz " & _
    "ganz ganz ganz ganz ganz ganz ganz" & _
    " langer String"
    MsgBox(0, "Langer String", $Langerstring)

    [/autoit]
  • Füge mal folgende zwei Zeilen hinzu:

    [autoit]


    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    Opt("MustDeclareVars", 1)

    [/autoit]

    und lass' dein Skript nochmals laufen.

    Gruß,
    UEZ

    Auch am Arsch geht ein Weg vorbei...

    ¯\_(ツ)_/¯