Register for your free account! | Forgot your password?

You last visited: Today at 23:56

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

[Release]Config Source

Discussion on [Release]Config Source within the Metin2 PServer Guides & Strategies forum part of the Metin2 Private Server category.

Closed Thread
 
Old   #1



 
xShizoidx's Avatar
 
elite*gold: 0
The Black Market: 283/0/0
Join Date: Feb 2011
Posts: 1,351
Received Thanks: 410
[Release]Config Source

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 :

Es ist zwar nicht gerade brilliant geschrieben, aber es läuft einwandfrei.

Mit freundlichen Grüßen,

Netterwurm8
Attached Files
File Type: zip Alte Kfx fürs Designen.zip (1.8 KB, 662 views)
xShizoidx is offline  
Thanks
14 Users
Old 01/19/2012, 00:49   #2


 
elite*gold: 0
The Black Market: 71/1/1
Join Date: Feb 2010
Posts: 7,220
Received Thanks: 6,758
Du hast nicht ehrlich die Metin2 Config.exe in AutoIT nachgecodet? Du bist ehrlich der ruhigste Typ der Welt, ich kenne keinen, der sich sonst die Zeit dafür genommen hätte :-O
Gibt's nämlich schon in zig anderen größeren Sprachen.
#SoNiice is offline  
Thanks
1 User
Old 06/23/2012, 10:42   #3
 
elite*gold: 15
The Black Market: 0/0/0
Join Date: Mar 2009
Posts: 295
Received Thanks: 150
Hallo Leute,

entschuldigung wenn ich nun dieses alte Thema wieder hervorgrame aber ich benötige hilfe dazu.

Ich bekomm folgenden fehler bei diesen Script:
Config.au3 (81) : ==> Incorrect number of parameters in function call.:
$File = FileOpen("metin2.cfg")
$File = ^ ERROR
>Exit code: 1 Time: 0.309

Kann mir bitte jemand helfen.

MFG Lordechen
Lordechen is offline  
Old 06/23/2012, 11:04   #4

 
Unpublished's Avatar
 
elite*gold: 725
The Black Market: 4/0/0
Join Date: Sep 2009
Posts: 1,432
Received Thanks: 1,911
Code:
$File = FileOpen("metin2.cfg", 0)
Aber sollte man auch mit FileClose wieder schließen
Unpublished is offline  
Old 06/23/2012, 11:32   #5
 
elite*gold: 15
The Black Market: 0/0/0
Join Date: Mar 2009
Posts: 295
Received Thanks: 150
Danke funktioniert soweit doch bekanntlich läst das nächste problem nicht lange auf sich warten.

Nun speichert er leider keine änderungen
Lordechen is offline  
Old 06/23/2012, 11:37   #6

 
Unpublished's Avatar
 
elite*gold: 725
The Black Market: 4/0/0
Join Date: Sep 2009
Posts: 1,432
Received Thanks: 1,911
Hast du schon ein FileClose($File) am Ende der _ReadToConfig Funktion?
Unpublished is offline  
Old 06/23/2012, 11:42   #7
 
elite*gold: 15
The Black Market: 0/0/0
Join Date: Mar 2009
Posts: 295
Received Thanks: 150
Hab ich grade rein aber das problem ist er übrschreibt mir nun die datei so das sie lehr ist

Hier mal der code:
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", 0)
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
FileClose($File)
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 

Jup hab ich nur die config datei ist anschließend komplett lehr
Lordechen is offline  
Old 06/23/2012, 11:47   #8

 
Unpublished's Avatar
 
elite*gold: 725
The Black Market: 4/0/0
Join Date: Sep 2009
Posts: 1,432
Received Thanks: 1,911
Das liegt daran
Code:
Case $ButtonUbernehmen
$F = FileOpen("metin2.cfg",2)
Einfach die 2. Zeile löschen, die Variable benutzt du eh nirgendwo.
Unpublished is offline  
Old 11/12/2012, 14:50   #9
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Mar 2012
Posts: 17
Received Thanks: 0
I don't know

Hello,I'm sorry,but I don't know which program to do it.Can you recommend anyprogram for me or how to do it,please!THx
Burbank is offline  
Closed Thread

« [RELAESE] Enterpage | [Release]Weitere neue waffen zum download »

Similar Threads Similar Threads
[RELEASE] [OPEN SOURCE] CE 5.5 Pointer to AutoIt Source-Code
02/13/2011 - AutoIt - 6 Replies
Habe heute erst gemerkt, dass es hier eine AutoIt Sektion gibt xD also poste ich mal mein Programm mit rein. Funktionsweise: 1. in CE Rechtsklick auf den Pointer und auf "Copy" klicken 2. in meinem Programm auf "Code generieren" klicken 3. In euer Scite gehen und einfügen Hier ist der Source Code vom Programm:
[Release]How To Make Tq Source Work + Working Source + Server ByBass + Commands
12/08/2008 - CO2 PServer Guides & Releases - 15 Replies
1: How To Make The Server Work In fact, before other people did not just let ACC now with hi EACC Columbia landing on the settlement of the issue, and the rest is our own how to improve the content of those interested can improve the next. MY MY set and the same. INI MAP INI files and MAP with the client-to-date coverage of the account. server.dat ！ And then as long as the client will be able to modify server.dat! 127.0.0.1 192.168.0.1 192.168.1.1 IP。 Please do generally use...
[Release] Project-X Source (Lolmasters Secret Source)
09/29/2008 - CO2 Private Server - 11 Replies
Projekt-X Source (Lolmasters Secret Source) Example that is in the source, stigma guards LINK: RapidShare: Easy Filehosting Well People search for things in this source that others dont got and use it for your server ;) or just release it to get many thankes:p



All times are GMT +1. The time now is 23:59.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.