Wie schreibe ich eine Funktion

1. offizieller Beitrag

    Wie schreibe ich eine Funktion und wwomit wird sie aufgerufen? Welches Schema hat AutoIT?

    Alles was den wehrt 1 hat soll soll in eine Funktion gelangen wo die dann ein EasyUO Skript aufrufen um weiterverarbeitet zu werden.

    Spoiler anzeigen
    [autoit]


    Case $Speichern
    $Name = GuiCtrlRead($Input1 )
    Dim $ifname = "if " & $Name & " in #CHARNAME"
    If FileExists(@ScriptDir & '\Charsammlung.txt') Then
    $file = FileOpen ( "Charsammlung.txt", 1 )
    If $file = -1 Then
    MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
    Exit
    EndIf
    Dim $zu = "{"
    FileWrite($file, @CRLF)
    FileWrite($file, $ifname & @CRLF & $zu & @CRLF )
    If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
    Dim $ifname1 = " set %mitBoden 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %mitBoden 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Checkbox3), $GUI_CHECKED) Then
    Dim $ifname1 = " set %mitHaeuten 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %mitHaeuten 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Checkbox2), $GUI_CHECKED) Then
    Dim $ifname1 = " set %mitZapfen 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %mitZapfen 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then
    Dim $ifname1 = " set %mitSortieren 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %mitSortieren 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Sammelack), $GUI_CHECKED) Then
    Dim $ifname1 = " set %SammelsackBenutzung 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %SammelsackBenutzung 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Regs), $GUI_CHECKED) Then
    Dim $ifname1 = " set %RegssackBenutzung 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %RegssackBenutzung 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Samen), $GUI_CHECKED) Then
    Dim $ifname1 = " set %SamensackBenutzung 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %SamensackBenutzung 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Edelsteine), $GUI_CHECKED) Then
    Dim $ifname1 = " set %EdelsteinsackBenutzung 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %EdelsteinsackBenutzung 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Felle), $GUI_CHECKED) Then
    Dim $ifname1 = " set %FellsackBenutzung 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %FellsackBenutzung 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Nahrung), $GUI_CHECKED) Then
    Dim $ifname1 = " set %NahrungsackBenutzung 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %NahrungsackBenutzung 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Pilze), $GUI_CHECKED) Then
    Dim $ifname1 = " set %PilzesackBenutzung 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %PilzesackBenutzungn 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Zauberspruche), $GUI_CHECKED) Then
    Dim $ifname1 = " set %ZauberspruecheBenutzung 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %ZauberspruecheBenutzung 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    If BitAnd(GUICtrlRead($Sonstiges), $GUI_CHECKED) Then
    Dim $ifname1 = " set %SonstigebagBenutzung 1"
    FileWrite($file, $ifname1 & @CRLF)
    Else
    Dim $ifname1 = " set %SonstigebagBenutzung 0"
    FileWrite($file, $ifname1 & @CRLF)
    EndIf
    Dim $zu1 = "}"
    FileWrite($file, $zu1 & @CRLF)
    FileClose($file)


    Else
    MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
    EndIf

    [/autoit]