Moin,
Also ich arbeite an einem Server Configurations Builder für das spiel "Land Of The Dead", ja mein problem is jetzt
ich habe 2 listbox's in der einen werden alle "game levels" angezeigt, und in der anderen kommen die wo ich adde rein, also... ich adde die und wenn ich dann auf save click sollten normal die maps die ich in die listbox2 geadded hab in die datei "server.ini" section "AdvancedEngine.AdvancedMapList" Key "Maps" schreiben.. aber funtz net so wie ich das will
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Blade Config
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiConstantsEx.au3>
#include <GuiListBox.au3>
#include <WindowsConstants.au3>
#include <File.au3>
$Path_LandOfTheDead = RegRead( "HKEY_LOCAL_MACHINE\SOFTWARE\UNREAL TECHNOLOGY\INSTALLED APPS\LANDOFTHEDEAD", "Folder" )
[/autoit][autoit][/autoit][autoit]if FileExists( "Ucc.exe" ) = False Then
MsgBox( 0, "Error", "Error - Cant Find Ucc.exe, please put 'LOTD Server Configurator.exe' in your Land Of The Dead System Folder!" )
Exit
EndIf
if FileExists( "server.ini" ) = False Then
MsgBox( 0, "Error", "Error - Cant Find Server.ini, please put 'LOTD Server Configurator.exe' in your Land Of The Dead System Folder!" )
Exit
EndIf
$Server_TimeLimit = IniRead( "server.ini", "BladeIN_V11.BladeIN", "TimeLimit", "" )
$Server_Password= IniRead( "server.ini", "Engine.AccessControl", "GamePassword", "" )
$Server_Name= IniRead( "server.ini", "Engine.GameReplicationInfo", "ServerName", "" )
$Server_Player= IniRead( "server.ini", "Engine.GameInfo", "MaxPlayers", "" )
$Server_Port= IniRead( "server.ini", "Url", "Port", "" )
$Server_GameType= IniRead( "server.ini", "Engine.LevelInfo", "DefaultGameType", "" )
$Server_Difficult= IniRead( "server.ini", "Engine.GameInfo", "Enemystrength", "" )
$Form1 = GUICreate( "Land Of The Dead - Server Configuration", 400, 380 )
$Form1_Group1 = GUICtrlCreateGroup( "Server Options", 10, 10, 260, 200 )
$Form1_CheckBox1 = GUICtrlCreateCheckbox( "Friendly Fire", 15, 185, 80, 18 )
$Form1_Button1 = GUICtrlCreateButton( "Save", 285, 15, 100, 20 )
$Form1_Button2 = GUICtrlCreateButton( "Start Server", 285, 35, 100, 20 )
$Form1_Button3 = GUICtrlCreateButton( "Add", 175, 220, 50, 20 )
$Form1_Button4 = GUICtrlCreateButton( "Remove", 175, 245, 50, 20 )
$Form1_Label1 = GUICtrlCreateLabel( "Server Name", 15, 25, 80, 19 )
$Form1_Label2 = GUICtrlCreateLabel( "Server Password", 15, 65, 80, 19 )
$Form1_Label3 = GUICtrlCreateLabel( "Server GameType", 140, 65, 90, 19 )
$Form1_Label4 = GUICtrlCreateLabel( "Time Limit", 15, 105, 90, 19 )
$Form1_Label5 = GUICtrlCreateLabel( "Difficulty", 140, 105, 90, 19 )
$Form1_Label6 = GUICtrlCreateLabel( "Max Players", 15, 145, 90, 19 )
$Form1_Label7 = GUICtrlCreateLabel( "Server Port", 140, 145, 90, 19 )
$Form1_Input1 = GUICtrlCreateInput( $Server_Name, 15, 40, 250, 18 )
$Form1_Input2 = GUICtrlCreateInput( $Server_Password, 15, 80, 120, 18 )
$Form1_Input3 = GUICtrlCreateInput( $Server_TimeLimit, 15, 120, 120, 18 )
$Form1_Input4 = GUICtrlCreateInput( $Server_Player, 15, 160, 120, 18 )
$Form1_Input5 = GUICtrlCreateInput( $Server_Port, 140, 160, 120, 18 )
$Form1_ListBox1 = _GUICtrlListBox_Create( $Form1, '', 10, 220, 150, 150 )
$Form1_ListBox2 = _GUICtrlListBox_Create( $Form1, '', 240, 220, 150, 150 )
_GUICtrlListBox_Dir( $Form1_ListBox1, $Path_LandOfTheDead & "\Levels\*.dz" )
$Form1_Combo1 = GUICtrlCreateCombo( "", 140, 80, 125, 18 )
GUICtrlSetData( $Form1_Combo1, "BladeIN v1.2|BladeDM v1.2|BladeCTF v1.2|Invasion|DeathMatch|CaptureTheFlag" )
if $Server_GameType == "Blade_v12.BladeIN" Then
GUICtrlSetData( $Form1_Combo1, "BladeIN v1.2" )
ElseIf $Server_GameType == "Blade_v12.BladeDM" Then
GUICtrlSetData( $Form1_Combo1, "BladeDM v1.2" )
ElseIf $Server_GameType == "Blade_v12.BladeCTF" Then
GUICtrlSetData( $Form1_Combo1, "BladeCTF v1.2" )
ElseIf $Server_GameType == "DOTZGame.DOTZInvasion" Then
GUICtrlSetData( $Form1_Combo1, "Invasion" )
ElseIf $Server_GameType == "DOTZGame.DOTZDeathMatch" Then
GUICtrlSetData( $Form1_Combo1, "DeathMatch" )
ElseIf $Server_GameType == "DOTZGame.DOTZCTF" Then
GUICtrlSetData( $Form1_Combo1, "CaptureTheFlag" )
EndIf
$Form1_Combo2 = GUICtrlCreateCombo( "", 140, 120, 125, 18 )
GUICtrlSetData( $Form1_Combo2, "Pathetic|Normal|Hard" )
if $Server_Difficult == "1" Then
GUICtrlSetData( $Form1_Combo2, "Pathetic" )
ElseIf $Server_Difficult == "2" Then
GUICtrlSetData( $Form1_Combo2, "Normal" )
ElseIf $Server_Difficult == "3" Then
GUICtrlSetData( $Form1_Combo2, "Hard" )
EndIf
GUISetState( @SW_SHOW, $Form1 )
[/autoit][autoit][/autoit][autoit]While( 1 )
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
Exit
Case $Msg = $Form1_Button1
IniWrite( "server.ini", "BladeIN_V11.BladeIN", "TimeLimit", GUICtrlRead( $Form1_Input3 ) )
IniWrite( "server.ini", "Engine.AccessControl", "GamePassword", GUICtrlRead( $Form1_Input2 ) )
IniWrite( "server.ini", "Engine.GameReplicationInfo", "ServerName", GUICtrlRead( $Form1_Input1 ) )
IniWrite( "server.ini", "Engine.GameInfo", "MaxPlayers", GUICtrlRead( $Form1_Input4 ) )
IniWrite( "server.ini", "Url", "Port", GUICtrlRead( $Form1_Input5 ) )
if GUICtrlRead( $Form1_Combo1 ) == "BladeIN v1.2" Then
IniWrite( "server.ini", "Engine.LevelInfo", "DefaultGameType", "Blade_v12.BladeIN" )
ElseIf GUICtrlRead( $Form1_Combo1 ) == "BladeDM v1.2" Then
IniWrite( "server.ini", "Engine.LevelInfo", "DefaultGameType", "Blade_v12.BladeDM" )
ElseIf GUICtrlRead( $Form1_Combo1 ) == "BladeCTF v1.2" Then
IniWrite( "server.ini", "Engine.LevelInfo", "DefaultGameType", "Blade_v12.BladeCTF" )
ElseIf GUICtrlRead( $Form1_Combo1 ) == "Invasion" Then
IniWrite( "server.ini", "Engine.LevelInfo", "DefaultGameType", "DOTZGame.DOTZInvasion" )
ElseIf GUICtrlRead( $Form1_Combo1 ) == "DeathMatch" Then
IniWrite( "server.ini", "Engine.LevelInfo", "DefaultGameType", "DOTZGame.DOTZDeathMatch" )
ElseIf GUICtrlRead( $Form1_Combo1 ) == "CaptureTheFlag" Then
IniWrite( "server.ini", "Engine.LevelInfo", "DefaultGameType", "DOTZGame.DOTZCTF" )
ElseIf GUICtrlRead( $Form1_Combo2 ) == "Pathetic" Then
IniWrite( "server.ini", "Engine.GameInfo", "Enemystrength", "1" )
ElseIf GUICtrlRead( $Form1_Combo2 ) == "Normal" Then
IniWrite( "server.ini", "Engine.GameInfo", "Enemystrength", "2" )
ElseIf GUICtrlRead( $Form1_Combo2 ) == "Hard" Then
IniWrite( "server.ini", "Engine.GameInfo", "Enemystrength", "3" )
EndIf
$Amount = _GUICtrlListBox_GetCount( $Form1_ListBox2 )
For $i = 0 To $Amount
$Text = _GUICtrlListBox_GetText( $Form1_ListBox2, $Amount )
IniWrite( "server.ini", "AdvancedEngine.AdvancedMapList", "Maps", $Text )
Next
Case $Msg = $Form1_Button2
if FileExists( "Server.bat" ) = True Then
FileDelete( "Server.bat" )
EndIf
if GUICtrlRead( $Form1_CheckBox1 ) = $GUI_CHECKED Then
FileWrite( "Server.bat", ":Loop" & @CRLF & "del Server.Log" & @CRLF & "Copy Server8.Log Server9.Log" & @CRLF & "Copy Server7.Log Server8.Log" & @CRLF & "Copy Server6.Log Server7.Log" & @CRLF & "Copy Server5.Log Server6.Log" & @CRLF & "Copy Server4.Log Server5.Log" & @CRLF & "Copy Server3.Log Server4.Log" & @CRLF & "Copy Server2.Log Server3.Log" & @CRLF & "Copy Server.Log Server2.Log" & @CRLF & "UCC Server ?Game=" & $Server_GameType & "?TimeLimit=" & $Server_TimeLimit & "?EnemyStrength=" & $Server_Difficult & "?FriendlyFire=True" & " INI=Server.ini LOG=Server.log" )
Else
FileWrite( "Server.bat", ":Loop" & @CRLF & "del Server.Log" & @CRLF & "Copy Server8.Log Server9.Log" & @CRLF & "Copy Server7.Log Server8.Log" & @CRLF & "Copy Server6.Log Server7.Log" & @CRLF & "Copy Server5.Log Server6.Log" & @CRLF & "Copy Server4.Log Server5.Log" & @CRLF & "Copy Server3.Log Server4.Log" & @CRLF & "Copy Server2.Log Server3.Log" & @CRLF & "Copy Server.Log Server2.Log" & @CRLF & "UCC Server ?Game=" & $Server_GameType & "?TimeLimit=" & $Server_TimeLimit & "?EnemyStrength=" & $Server_Difficult & "?FriendlyFire=False" & " INI=Server.ini LOG=Server.log" )
EndIf
RunWait( "Server.bat" )
Case $Msg = $Form1_Button3
$List1 = _GUICtrlListBox_GetCurSel( $Form1_ListBox1 )
$Text1 = _GUICtrlListBox_GetText( $Form1_ListBox1, $List1 )
_GUICtrlListBox_AddString( $Form1_ListBox2, $Text1 )
Case $Msg = $Form1_Button4
$List2 = _GUICtrlListBox_GetCurSel( $Form1_ListBox2 )
_GUICtrlListBox_DeleteString( $Form1_ListBox2, $List2 )
EndSelect
WEnd
-thank's