Lineage II Server Script

[Biohazard1985]

So für alle die keine lust haben immer alles nach und nach zu starten um zocken zu können, habe ich mich mal ran gemacht und ein kleinen Script geschrieben.
Einfach entpacken und die "config.ini" datei im Ordner anpassen.
Speichern und Fertig...
Und für die Leute die da noch was dran schrauben wollen hier der Code dafür:

;==============================================================
;  Neon´s Lineage II Script 1.0
;==============================================================
#Region
SplashImageOn("Neon´s Lineage II Script 1.0	", "start.jpg", "630", "470", "-1", "-1", 0)
#EndRegion
Sleep(3000)
SplashOff()
Global $LogIt
HotKeySet("{F5}", "Minimize1")
HotKeySet("{F6}", "Minimize2")
HotKeySet("{F7}", "Minimize3")
$ADelay = IniRead("config.ini", "Delays", "Delay_A", "")
$BDelay = IniRead("config.ini", "Delays", "Delay_B", "")
$ServerPath = IniRead("config.ini", "Settings", "Server_Path", "")
$ServerExe = IniRead("config.ini", "Settings", "Server_Exe", "")
$LoginPath = IniRead("config.ini", "Settings", "Login_Path", "")
$LoginExe = IniRead("config.ini", "Settings", "Login_Exe", "")
$TelnetNick = IniRead("config.ini", "Login", "Telnet_Nick", "")
$TelnetPass = IniRead("config.ini", "Login", "Telnet_Pass", "")
$LoginDrive = IniRead("config.ini", "Drive", "Login_Drive", "")
$TelnetDrive = IniRead("config.ini", "Drive", "Telnet_Drive", "")
$ServerDrive = IniRead("config.ini", "Drive", "Server_Drive", "")
FileDelete("Script_Log.txt")
SetLog("========================================")
SetLog("Neon´s Lineage II Script.")
SetLog("========================================")
Func SetLog($LogIt)
	$Date = @MDAY & "/" & @MON & " " & @HOUR & ":" & @MIN & ":" & @SEC & " > "
	$Log = FileOpen("Script_Log.txt", 1)
	FileWrite($Log, $Date & $LogIt & @CRLF)
	FileClose($Log)
EndFunc
SetLog("Files Loading Complett.")
SetLog("Loading Login Server...")
Run($TelnetDrive & "WINDOWS\system32\cmd.exe")
Sleep(1000)
Send("cd{SPACE}")
Send($TelnetDrive, 1)
SetLog("Enter Drive...")
Send("{Enter}")
Sleep(1000)
Send("cd{SPACE}")
Send($LoginPath, 1)
SetLog("Enter Path...")
Send("{Enter}")
Sleep(1000)
Send($LoginExe, 1)
SetLog("Enter *.bat...")
Send("{Enter}")
If Not WinExists($TelnetDrive & "WINDOWS\system32\cmd.exe - startLoginServer","") Then SetLog("Login Server is not running.")
If WinExists($TelnetDrive & "WINDOWS\system32\cmd.exe - startLoginServer","") Then SetLog("Login Server Run.")
Sleep($ADelay)
Func Minimize1()
	Const $Minimize = WinSetState($TelnetDrive & "WINDOWS\system32\cmd.exe - startLoginServer","",@SW_MINIMIZE)
EndFunc &#59;==>Minimize
Send("{F5}")
SetLog("Loading Telnet Server...")
Run($TelnetDrive & "WINDOWS\system32\telnet.exe")
Sleep(1000)
Send("open{SPACE}127.0.0.1{SPACE}12345")
SetLog("Enter IP and Port...")
Send("{Enter}")
Sleep(1000)
Send($TelnetNick, 1)
SetLog("Enter Nick...")
Send("{Enter}")
Sleep(1000)
Send($TelnetPass, 1)
SetLog("Enter Pass...")
Send("{Enter}")
If Not WinExists("Telnet 127.0.0.1","") Then SetLog("Telnet Server is not running.")
If WinExists("Telnet 127.0.0.1","") Then SetLog("Telnet Server Run.")
Sleep($BDelay)
Func Minimize2()
	Const $Minimize = WinSetState("Telnet 127.0.0.1","",@SW_MINIMIZE)
EndFunc &#59;==>Minimize
Send("{F6}")
SetLog("Loading Lineage II Server...")
Run($TelnetDrive & "WINDOWS\system32\cmd.exe")
Sleep(1000)
Send("cd{SPACE}")
Send($TelnetDrive, 1)
SetLog("Enter Drive...")
Send("{Enter}")
Sleep(1000)
Send("cd{SPACE}")
Send($ServerPath, 1)
SetLog("Enter Path...")
Send("{Enter}")
Sleep(1000)
Send($ServerExe, 1)
SetLog("Enter *.bat...")
Send("{Enter}")
If Not WinExists($TelnetDrive & "WINDOWS\system32\cmd.exe - startGameServer","") Then SetLog("Lineage II Server is not running.")
If WinExists($TelnetDrive & "WINDOWS\system32\cmd.exe - startGameServer","") Then SetLog("Lineage II Server Run.")
Sleep(101000)
Func Minimize3()
	Const $Minimize = WinSetState($TelnetDrive & "WINDOWS\system32\cmd.exe - startGameServer","",@SW_MINIMIZE)
EndFunc &#59;==>Minimize
Send("{F7}")
SetLog("All Systems Ready")
SetLog("Have Fun =)")