50 lines
1.3 KiB
Plaintext
50 lines
1.3 KiB
Plaintext
'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
|