Hallo, ihr kennt sicher das release der config.cfg source
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:
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
[Release] Alte Config von mir ---> Source 06/29/2013 - Metin2 PServer Guides & Strategies - 20 Replies Hey.
Da ich meine Alte Config.exe nichtmehr brauche, schenk ich euch mal den Source von (ist uralt also bescheiden gecodet)
Have fun with it:
Screen:
http://i.epvpimg.com/9ybYc.png
[Release]Config Source 11/12/2012 - Metin2 PServer Guides & Strategies - 8 Replies Guten Abend,
Ich habe mal vor einiger Zeit die Config nachgeschrieben und veröffentliche nun mal das Script. Ihr könntet beispielsweise diese Config designen und sie für euren P Server benutzen. Die .kfx Datei ist auch im Anhang, damit ihr das mit dem Designen etwas besser abschätzen könnt oder die GUI bearbeiten könnt.
Script :
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>