Server-Control

#NoTrayIcon
Opt("TrayMenuMode",1)
HotKeySet("{F11}", "end")
$file = FileOpen("servercontrollog.txt", 1)
MsgBox(0, "Info", "Zum beenden F11 drücken")
FileWriteLine($file, @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":")
FileWriteLine($file, "> Server Control wurde gestartet")
FileWriteLine($file, " ")
FileWriteLine($file, " ")
While 1
If ProcessExists("samp-server.exe") Then
    sleep(100)
Else
    Run(@ScriptDir & "\samp-server.exe")
    FileWriteLine($file, @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":")
    FileWriteLine($file, "   Warning: Server wurde beendet (gecrasht).")
    FileWriteLine($file, "            Server wurde neu gestartet")
    FileWriteLine($file, " ")
    FileWriteLine($file, " ")
EndIf
WEnd
Func end()
    FileWriteLine($file, @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":")
    FileWriteLine($file, "> Server Control beendet")
    FileWriteLine($file, " ")
    FileWriteLine($file, " ")
    FileClose($file)
    Exit
EndFunc