Replaced executable and batch files with VBScript.

L2J_Mobius_08.2_Homunculus/dist/game/GameServer.vbs

@@ -0,0 +1,49 @@
+'Get Java path.
+Dim path
+Set shell = WScript.CreateObject("WScript.Shell")
+path = shell.Environment.Item("JAVA_HOME")
+If path = "" Then
+	MsgBox "Could not find JAVA_HOME environment variable!", vbOKOnly, "Game Server"
+Else
+	If InStr(path, "\bin") = 0 Then
+		path = path + "\bin\"
+	Else
+		path = path + "\"
+	End If
+	path = Replace(path, "\\", "\")
+	path = Replace(path, "Program Files", "Progra~1")
+End If
+
+'Load java.cfg parameters.
+Dim parameters
+Set file = CreateObject("Scripting.FileSystemObject").OpenTextFile("java.cfg", 1)
+parameters = file.ReadLine()
+file.Close
+Set file = Nothing
+
+'Load GUI configuration.
+window = 1
+Set file = CreateObject("Scripting.FileSystemObject").OpenTextFile("config\Interface.ini", 1)
+Do While Not file.AtEndOfStream
+	If Replace(LCase(file.ReadLine()), " ", "") = "enablegui=true" Then
+		window = 0
+		Exit Do
+	End If
+Loop
+file.Close
+Set file = Nothing
+
+'Generate command.
+command = path & "java " & parameters & " -jar ../libs/GameServer.jar"
+If window = 1 Then
+	command = "cmd /c start ""L2J Mobius - Game Server Console"" " & command
+End If
+
+'Run the server.
+exitcode = 0
+Do
+	exitcode = shell.Run(command, window, True)
+	If exitcode <> 0 And exitcode <> 2 Then	'0 Terminated - 2 Restarted
+		MsgBox "Game Server terminated abnormally!", vbOKOnly, "Game Server"
+	End If
+Loop While exitcode = 2