mein problem ist , das wenn man die einstellungen an der exe gemacht hat und dann die client exe starten und dann schließst , dass dann die einstellungen wieder gelöscht werden. hier das script:
PHP Code:
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$GUI = GUICreate("CONFIG", 500, 309, 347, 409)
$GroupDisplay = GUICtrlCreateGroup("Display", 16, 8, 225, 121)
$LabelAuflosung = GUICtrlCreateLabel("Auflösung", 32, 36, 51, 17)
$ComboAuflosung = GUICtrlCreateCombo("800x600 32bpp", 104, 32, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1024x768 32bpp|1152x864 32bpp|1280x720 32bpp|1280x768 32bpp|1280x800 32bpp|1280x960 32bpp|1280x1024 32bpp")
GUICtrlSetData(-1, "800x600 16bpp|1024x768 16bpp|1152x864 16bpp|1280x720 16bpp|1280x768 16bpp|1280x800 16bpp|1280x960 16bpp|1280x1024 16bpp")
$LabelFrequenz = GUICtrlCreateLabel("Frequenz", 32, 68, 48, 17)
$ComboFrequenz = GUICtrlCreateCombo("", 104, 64, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GuiCtrlSetData(-1,"75|60","75")
$LabelGamma = GUICtrlCreateLabel("Gamma", 32, 96, 40, 17)
$ComboGamma = GUICtrlCreateCombo("1", 104, 96, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"2|3|4|5|6")
$GroupWindowMode = GUICtrlCreateGroup("Window Mode", 256, 8, 233, 57)
$RadioFenstermodus = GUICtrlCreateRadio("Fenstermodus", 272, 32, 89, 17)
$RadioVollbildmodus = GUICtrlCreateRadio("Vollbildmodus", 368, 32, 97, 17)
$GroupIMEMode = GUICtrlCreateGroup("IME Mode", 256, 72, 233, 57)
$RadioGAMEIME = GUICtrlCreateRadio("GAME IME", 272, 96, 81, 17)
$RadioExternalIME = GUICtrlCreateRadio("External IME", 368, 96, 89, 17)
$GroupSound = GUICtrlCreateGroup("Sound", 16, 136, 225, 81)
$LabelMusik = GUICtrlCreateLabel("Musik", 32, 160, 32, 17)
$LabelSFX = GUICtrlCreateLabel("SFX", 32, 192, 24, 17)
$EditMusik = GUICtrlCreateEdit("0", 88, 160, 17, 17, $ES_WANTRETURN)
$EditSFX = GUICtrlCreateEdit("0", 88, 192, 17, 17, $ES_WANTRETURN)
$SliderMusik = GUICtrlCreateSlider(120, 152, 102, 29, BitOR($GUI_SS_DEFAULT_SLIDER,$TBS_BOTH,$TBS_NOTICKS))
GUICtrlSetLimit(-1, 5, 0)
$SliderSFX = GUICtrlCreateSlider(121, 185, 102, 29, BitOR($GUI_SS_DEFAULT_SLIDER,$TBS_BOTH,$TBS_NOTICKS))
GUICtrlSetLimit(-1, 5, 0)
$GroupGFX = GUICtrlCreateGroup("GFX", 256, 136, 233, 129)
$LabelFOG = GUICtrlCreateLabel("FOG", 264, 160, 26, 17)
$ComboFOG = GUICtrlCreateCombo("Near", 384, 156, 89, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GuiCtrlSetData(-1,"Mid|Far")
$LabelTNL = GUICtrlCreateLabel("TNL", 264, 196, 25, 17)
$ComboTNL = GUICtrlCreateCombo("Auto", 384, 192, 89, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"CPU|GPU")
$LabelSchatten = GUICtrlCreateLabel("Schatten", 264, 236, 47, 17)
$ComboSchatten = GUICtrlCreateCombo("None", 384, 232, 89, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Background|Background+Player|All")
$CheckUseSoftwarecursor = GUICtrlCreateCheckbox("Use Software cursor", 32, 232, 137, 17)
$ButtonUbernehmen = GUICtrlCreateButton("Ubernehmen", 152, 272, 83, 25)
$ButtonAbbrechen = GUICtrlCreateButton("Abbrechen", 256, 272, 83, 25)
_ReadToConfig()
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SliderMusik
GuiCtrlSetData($EditMusik,GuiCtrlRead($SliderMusik))
Case $SliderSFX
GuiCtrlSetData($EditSFX,GuiCtrlRead($SliderSFX))
Case $ButtonAbbrechen
Exit
Case $ButtonUbernehmen
$F = FileOpen("metin2.cfg",2)
_SetAuflosung()
_SetFrequenz()
_SetCursor()
_SetFog()
_SetTNL()
_SetSchatten()
_SetMusik()
_SetSFX()
_SetGamma()
_SetWindowMode()
_SetIMEMode()
Exit
EndSwitch
WEnd
Func _ReadToConfig()
$D = "metin2.cfg"
$File = FileOpen("metin2.cfg")
If FileReadLine($File,1) = "WIDTH 800" And FileReadLine($File,2) = "HEIGHT 600" And FileReadLine($File,3) = "BPP 32" Then
GuiCtrlSetData($ComboAuflosung,"800x600 32bpp")
Endif
If FileReadLine($File,1) = "WIDTH 800" And FileReadLine($File,2) = "HEIGHT 600" And FileReadLine($File,3) = "BPP 16" Then
GuiCtrlSetData($ComboAuflosung,"800x600 16bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1024" And FileReadLine($File,2) = "HEIGHT 768" And FileReadLine($File,3) = "BPP 32" Then
GuiCtrlSetData($ComboAuflosung,"1024x768 32bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1024" And FileReadLine($File,2) = "HEIGHT 768" And FileReadLine($File,3) = "BPP 16" Then
GuiCtrlSetData($ComboAuflosung,"1024x768 16bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1152" And FileReadLine($File,2) = "HEIGHT 864" And FileReadLine($File,3) = "BPP 32" Then
GuiCtrlSetData($ComboAuflosung,"1152x864 32bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1152" And FileReadLine($File,2) = "HEIGHT 864" And FileReadLine($File,3) = "BPP 16" Then
GuiCtrlSetData($ComboAuflosung,"1152x864 16bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 720" And FileReadLine($File,3) = "BPP 32" Then
GuiCtrlSetData($ComboAuflosung,"1280x720 32bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 720" And FileReadLine($File,3) = "BPP 16" Then
GuiCtrlSetData($ComboAuflosung,"1280x720 16bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 768" And FileReadLine($File,3) = "BPP 32" Then
GuiCtrlSetData($ComboAuflosung,"1280x768 32bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 768" And FileReadLine($File,3) = "BPP 16" Then
GuiCtrlSetData($ComboAuflosung,"1280x768 16bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 800" And FileReadLine($File,3) = "BPP 32" Then
GuiCtrlSetData($ComboAuflosung,"1280x800 32bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 800" And FileReadLine($File,3) = "BPP 16" Then
GuiCtrlSetData($ComboAuflosung,"1280x800 16bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 960" And FileReadLine($File,3) = "BPP 32" Then
GuiCtrlSetData($ComboAuflosung,"1280x960 32bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 960" And FileReadLine($File,3) = "BPP 16" Then
GuiCtrlSetData($ComboAuflosung,"1280x960 16bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 960" And FileReadLine($File,3) = "BPP 32" Then
GuiCtrlSetData($ComboAuflosung,"1280x960 32bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 1024" And FileReadLine($File,3) = "BPP 32" Then
GuiCtrlSetData($ComboAuflosung,"1280x1024 32bpp")
Endif
If FileReadLine($File,1) = "WIDTH 1280" And FileReadLine($File,2) = "HEIGHT 1024" And FileReadLine($File,3) = "BPP 16" Then
GuiCtrlSetData($ComboAuflosung,"1280x1024 16bpp")
Endif
If FileReadLine($File,4) = "FREQUENCY 75" Then
GuiCtrlSetData($ComboFrequenz,"75")
EndIf
If FileReadLine($File,4) = "FREQUENCY 60" Then
GuiCtrlSetData($ComboFrequenz,"60")
EndIf
If FileReadLine($File,5) = "SOFTWARE_CURSOR 1" Then
GuiCtrlSetState($CheckUseSoftwarecursor,$GUI_CHECKED)
EndIf
If FileReadLine($File,6) = "VISIBILITY 1" Then
GuiCtrlSetData($ComboFOG,"Near")
EndIf
If FileReadLine($File,6) = "VISIBILITY 2" Then
GuiCtrlSetData($ComboFOG,"Mid")
EndIf
If FileReadLine($File,6) = "VISIBILITY 3" Then
GuiCtrlSetData($ComboFOG,"Far")
EndIf
If FileReadLine($File,7) = "SOFTWARE_TILING 0" Then
GuiCtrlSetData($ComboTNL,"Auto")
EndIf
If FileReadLine($File,7) = "SOFTWARE_TILING 1" Then
GuiCtrlSetData($ComboTNL,"CPU")
EndIf
If FileReadLine($File,7) = "SOFTWARE_TILING 2" Then
GuiCtrlSetData($ComboTNL,"GPU")
EndIf
If FileReadLine($File,8) = "SHADOW_LEVEL 0" Then
GuiCtrlSetData($ComboSchatten,"None")
EndIf
If FileReadLine($File,8) = "SHADOW_LEVEL 1" Then
GuiCtrlSetData($ComboSchatten,"Background")
EndIf
If FileReadLine($File,8) = "SHADOW_LEVEL 2" Then
GuiCtrlSetData($ComboSchatten,"Background+Player")
EndIf
If FileReadLine($File,8) = "SHADOW_LEVEL 3" Then
GuiCtrlSetData($ComboSchatten,"All")
EndIf
If FileReadLine($File,9) = "MUSIC_VOLUME 1" Then
GuiCtrlSetData($SliderMusik,"1")
GuiCtrlSetData($EditMusik,"1")
EndIf
If FileReadLine($File,9) = "MUSIC_VOLUME 2" Then
GuiCtrlSetData($SliderMusik,"2")
GuiCtrlSetData($EditMusik,"2")
EndIf
If FileReadLine($File,9) = "MUSIC_VOLUME 3" Then
GuiCtrlSetData($SliderMusik,"3")
GuiCtrlSetData($EditMusik,"3")
EndIf
If FileReadLine($File,9) = "MUSIC_VOLUME 4" Then
GuiCtrlSetData($SliderMusik,"4")
GuiCtrlSetData($EditMusik,"4")
EndIf
If FileReadLine($File,9) = "MUSIC_VOLUME 5" Then
GuiCtrlSetData($SliderMusik,"5")
GuiCtrlSetData($EditMusik,"5")
EndIf
If FileReadLine($File,10) = "VOICE_VOLUME 1" Then
GuiCtrlSetData($SliderSFX,"1")
GuiCtrlSetData($EditSFX,"1")
EndIf
If FileReadLine($File,10) = "VOICE_VOLUME 2" Then
GuiCtrlSetData($SliderSFX,"2")
GuiCtrlSetData($EditSFX,"2")
EndIf
If FileReadLine($File,10) = "VOICE_VOLUME 3" Then
GuiCtrlSetData($SliderSFX,"3")
GuiCtrlSetData($EditSFX,"3")
EndIf
If FileReadLine($File,10) = "VOICE_VOLUME 4" Then
GuiCtrlSetData($SliderSFX,"4")
GuiCtrlSetData($EditSFX,"4")
EndIf
If FileReadLine($File,10) = "VOICE_VOLUME 5" Then
GuiCtrlSetData($SliderSFX,"5")
GuiCtrlSetData($EditSFX,"5")
EndIf
If FileReadLine($File,11) = "GAMMA 1" Then
GuiCtrlSetData($ComboGamma,"1")
EndIf
If FileReadLine($File,11) = "GAMMA 2" Then
GuiCtrlSetData($ComboGamma,"2")
EndIf
If FileReadLine($File,11) = "GAMMA 3" Then
GuiCtrlSetData($ComboGamma,"3")
EndIf
If FileReadLine($File,11) = "GAMMA 4" Then
GuiCtrlSetData($ComboGamma,"4")
EndIf
If FileReadLine($File,11) = "GAMMA 5" Then
GuiCtrlSetData($ComboGamma,"5")
EndIf
If FileReadLine($File,11) = "GAMMA 6" Then
GuiCtrlSetData($ComboGamma,"6")
EndIf
If FileReadLine($File,12) = "WINDOWED 0" Then
GuiCtrlSetState($RadioVollbildmodus,$GUI_Checked)
EndIf
If FileReadLine($File,12) = "WINDOWED 1" Then
GuiCtrlSetState($RadioFenstermodus,$GUI_Checked)
EndIf
If FileReadLine($File,13) = "USE_DEFAULT_IME 0" Then
GuiCtrlSetState($RadioGAMEIME,$GUI_Checked)
EndIf
If FileReadLine($File,13) = "USE_DEFAULT_IME 1" Then
GuiCtrlSetState($RadioExternalIME,$GUI_Checked)
EndIf
EndFunc
Func _SetAuflosung()
Switch GuiCtrlRead($ComboAuflosung)
Case "800x600 32bpp"
FileWrite("metin2.cfg","WIDTH 800" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 600" & @CRLF)
FileWrite("metin2.cfg","BPP 32" & @CRLF)
Case "1024x768 32bpp"
FileWrite("metin2.cfg","WIDTH 1024" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 768" & @CRLF)
FileWrite("metin2.cfg","BPP 32" & @CRLF)
Case "1152x864 32bpp"
FileWrite("metin2.cfg","WIDTH 1152" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 864" & @CRLF)
FileWrite("metin2.cfg","BPP 32" & @CRLF)
Case "1280x720 32bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 720" & @CRLF)
FileWrite("metin2.cfg","BPP 32" & @CRLF)
Case "1280x768 32bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 768" & @CRLF)
FileWrite("metin2.cfg","BPP 32" & @CRLF)
Case "1280x800 32bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 800" & @CRLF)
FileWrite("metin2.cfg","BPP 32" & @CRLF)
Case "1280x960 32bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 960" & @CRLF)
FileWrite("metin2.cfg","BPP 32" & @CRLF)
Case "1280x1024 32bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 1024" & @CRLF)
FileWrite("metin2.cfg","BPP 32" & @CRLF)
Case "800x600 16bpp"
FileWrite("metin2.cfg","WIDTH 800" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 600" & @CRLF)
FileWrite("metin2.cfg","BPP 16" & @CRLF)
Case "1024x768 16bpp"
FileWrite("metin2.cfg","WIDTH 1024" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 768" & @CRLF)
FileWrite("metin2.cfg","BPP 16" & @CRLF)
Case "1152x864 16bpp"
FileWrite("metin2.cfg","WIDTH 1152" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 864" & @CRLF)
FileWrite("metin2.cfg","BPP 16" & @CRLF)
Case "1280x720 16bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 720" & @CRLF)
FileWrite("metin2.cfg","BPP 16" & @CRLF)
Case "1280x768 16bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 768" & @CRLF)
FileWrite("metin2.cfg","BPP 16" & @CRLF)
Case "1280x800 16bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 800" & @CRLF)
FileWrite("metin2.cfg","BPP 16" & @CRLF)
Case "1280x960 16bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 960" & @CRLF)
FileWrite("metin2.cfg","BPP 16" & @CRLF)
Case "1280x1024 16bpp"
FileWrite("metin2.cfg","WIDTH 1280" & @CRLF)
FileWrite("metin2.cfg","HEIGHT 1024" & @CRLF)
FileWrite("metin2.cfg","BPP 32" & @CRLF)
EndSwitch
EndFunc
Func _SetFrequenz()
If GuiCtrlRead($ComboFrequenz) = "75" Then
FileWrite("metin2.cfg","FREQUENCY 75" & @CRLF)
Elseif GuiCtrlRead($ComboFrequenz) = "60" Then
FileWrite("metin2.cfg","FREQUENCY 60" & @CRLF)
EndIf
EndFunc
Func _SetCursor()
If GuiCtrlRead($CheckUseSoftwarecursor) = $GUI_Checked Then
FileWrite("metin2.cfg","SOFTWARE_CURSOR 1" & @CRLF)
Else
FileWrite("metin2.cfg","SOFTWARE_CURSOR 0" & @CRLF)
EndIf
EndFunc
Func _SetFog()
If GuiCtrlRead($ComboFOG) = "Near" Then
FileWrite("metin2.cfg","VISIBILITY 1" & @CRLF)
ElseIf GuiCtrlRead($ComboFOG) = "Mid" Then
FileWrite("metin2.cfg","VISIBILITY 2" & @CRLF)
ElseIf GuiCtrlRead($ComboFOG) = "Far" Then
FileWrite("metin2.cfg","VISIBILITY 3" & @CRLF)
EndIf
EndFunc
Func _SetTNL()
If GuiCtrlRead($ComboTNL) = "Auto" Then
FileWrite("metin2.cfg","SOFTWARE_TILING 0" & @CRLF)
Elseif GuiCtrlRead($ComboTNL) = "CPU" Then
FileWrite("metin2.cfg","SOFTWARE_TILING 1" & @CRLF)
Elseif GuiCtrlRead($ComboTNL) = "GPU" Then
FileWrite("metin2.cfg","SOFTWARE_TILING 2" & @CRLF)
EndIf
EndFunc
Func _SetSchatten()
If GuiCtrlRead($ComboSchatten) = "None" Then
FileWrite("metin2.cfg","SHADOW_LEVEL 0" & @CRLF)
ElseIf GuiCtrlRead($ComboSchatten) = "Background" Then
FileWrite("metin2.cfg","SHADOW_LEVEL 1" & @CRLF)
ElseIf GuiCtrlRead($ComboSchatten) = "Background+Player" Then
FileWrite("metin2.cfg","SHADOW_LEVEL 2" & @CRLF)
ElseIf GuiCtrlRead($ComboSchatten) = "All" Then
FileWrite("metin2.cfg","SHADOW_LEVEL 3" & @CRLF)
EndIf
EndFunc
Func _SetMusik()
FileWrite("metin2.cfg","MUSIC_VOLUME " & GuiCtrlRead($EditMusik) & @CRLF)
EndFunc
Func _SetSFX()
FileWrite("metin2.cfg","VOICE_VOLUME " & GuiCtrlRead($EditSFX) & @CRLF)
EndFunc
Func _SetGamma()
FileWrite("metin2.cfg","GAMMA " & GuictrlRead($ComboGamma) & @CRLF)
EndFunc
Func _SetWindowMode()
If GuiCtrlRead($RadioVollbildmodus) = $GUI_Checked Then
FileWrite("metin2.cfg","WINDOWED 0" & @CRLF)
Elseif GuiCtrlRead($RadioFenstermodus) = $GUI_Checked Then
FileWrite("metin2.cfg","WINDOWED 1" & @CRLF)
EndIf
EndFunc
Func _SetIMEMode()
If GuiCtrlRead($RadioGAMEIME) = $GUI_Checked Then
FileWrite("metin2.cfg","USE_DEFAULT_IME 0" & @CRLF)
Elseif GuiCtrlRead($RadioExternalIME) = $GUI_Checked Then
FileWrite("metin2.cfg","USE_DEFAULT_IME 1" & @CRLF)
EndIf
EndFunc
