Func _safe()
$sname = GUICtrlRead($name)
$sxist = GUICtrlRead($xist)
$syist = GUICtrlRead($yist)
$sfarbe = GUICtrlRead($farbe)
If $sfarbe = "Ich" Then
$Xfarbe = "0x009900"
EndIf
If $sfarbe = "Viper" Then
$Xfarbe = "0x0000CC"
EndIf
If $sfarbe = "Bündnisse" Then
$Xfarbe = "0x0066FF"
EndIf
If $sfarbe = "Feind1" Then
$Xfarbe = "0xFF0000"
EndIf
If $sfarbe = "Feind2" Then
$Xfarbe = "0xFF3300"
EndIf
If $sfarbe = "Feind3" Then
$Xfarbe = "0xCC0000"
EndIf
If $sfarbe = "Feind4" Then
$Xfarbe = "0xCC3300"
EndIf
If $sfarbe = "Feind5" Then
$Xfarbe = "0x990000"
EndIf
If $sfarbe = "Neutral" Then
$Xfarbe = "0xFFFF00"
EndIf
$datei = @ScriptDir & "\Datei.ini"
$anzahl = IniReadSectionNames($datei +1)
IniWriteSection($datei,$anzahl,"Farbe="&$Xfarbe)
IniWriteSection($datei,$anzahl,"Name="&$sname)
IniWriteSection($datei,$anzahl,"x="&$sxist)
IniWriteSection($datei,$anzahl,"y="&$syist)
$sxist = ($sxist +400)
$syist = ($syist +350)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Xfarbe)
GUICtrlSetGraphic(-1, $GUI_GR_DOT, $sxist, $syist)
EndFunc
Func _open()
$datei = @ScriptDir & "\Datei.ini"
$sname = IniRead($datei,"Daten","Name","kein eintrag")
$sxist = IniRead($datei,"Daten","x","kein eintrag")
$syist = IniRead($datei,"Daten","y","kein eintrag")
$Xfarbe = IniRead($datei,"Daten","Farbe","kein eintrag")
If @error Then
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden.")
Else
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Xfarbe)
GUICtrlSetGraphic(-1, $GUI_GR_DOT, $sxist, $syist)
EndIf
EndFunc
UNd bitte schickt mich nun nicht in irgendwelche tutorials wenn es 3 Pros nicht schaffen das das klappt wird ein tutorial das auch nicht erklären
Nun was will ich genau mit diesem Scrippt
[autoit]$datei = @ScriptDir & "\Datei.ini"
$anzahl = IniReadSectionNames($datei +1)
IniWriteSection($datei,$anzahl,"Farbe="&$Xfarbe)
IniWriteSection($datei,$anzahl,"Name="&$sname)
IniWriteSection($datei,$anzahl,"x="&$sxist)
IniWriteSection($datei,$anzahl,"y="&$syist)
Es soll jeder eintrag so gespeichert werden dass vorhandene ID´s gelesen werden
es sind also ID´s 0 -17 vorhanden (als section definiert)
nun muss also die $anzahl =18 sein ( schaft niemand das er mit das erklärt)
2tes problem
[autoit]Func _open()
$datei = @ScriptDir & "\Datei.ini"
$sname = IniRead($datei,"???weis der guckkuck 1- open end?????","Name","kein eintrag")
$sxist = IniRead($datei,"???weis der guckkuck 1- open end?????","x","kein eintrag")
$syist = IniRead($datei,"???weis der guckkuck 0- open end?????","y","kein eintrag")
$Xfarbe = IniRead($datei,"???weis der guckkuck 0- open end?????","Farbe","kein eintrag")
If @error Then
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden.")
Else
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Xfarbe)
GUICtrlSetGraphic(-1, $GUI_GR_DOT, $sxist, $syist)
EndIf
EndFunc
Hier werden alle ID´s ausgelesen (0- offenes ende)
wie muss ich die unboundschleiffe setzen das er mit das scrippt
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Xfarbe)
GUICtrlSetGraphic(-1, $GUI_GR_DOT, $sxist, $syist)
für jede Section einmal wiederholt bis er sagen wir bei section 59 die letzte erreicht hat
Ich bin am ende seit nun 8 std. bin ich am basteln baun fragen flennen fast schon weinen
hab sowiel input nun gelesen das echt nix mehr reinpast
PLZ HELP