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
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