Graphics 800, 600, 32, 3

AppTitle "Downtown District Host V1.0"

CreateDir "LOGS"

Global log1 = WriteFile("LOGS\Serverlog vom " + CurrentDate$() + ".txt")

Print ""
Print "Downtown District Host"
Print ""

Global maxplayers = Input("Maximale Spieleranzahl: ")

Print ""

Global schwierigkeitsgrad$ = Input("Schwierigkeitsgrad (leicht, mittel, schwer, sehr schwer): ")
Print ""

.spielnameeingabe

Global SpielName$ = Input("Name des Servers: ")

Global hostaktiv = HostNetGame(SpielName$)

If hostaktiv = 2 Then
   
    Print ""
    Print "Netzwerkspiel aktiviert (" + SpielName$ + " | " + maxplayers + " | " + schwierigkeitsgrad + ")"
    WriteLine log1, CurrentTime$() + " - Server gestartet"
    WriteLine log1, ""
    WriteLine log1, "Einstellungen: "
    WriteLine log1, "--------------------------"
    WriteLine log1, "Name des Servers    : " + SpielName
    WriteLine log1, "Maximale Spielerzahl: " + maxplayers
    WriteLine log1, "Schwierigkeitsgrad  : " + schwierigkeitsgrad
    WriteLine log1, "-------------------------"
    WriteLine log1, ""
   
Else
   
    Print ""
    Print "Netzwerkspiel konnte nicht aktiviert werden."
    Goto spielnameeingabe
   
EndIf

AppTitle "Downtown District Host für " + Chr$(34) + "" + SpielName$ + " | " + maxplayers + " | " + schwierigkeitsgrad + "" + Chr$(34)

Print ""

Global FPS = CreateTimer(50)
Global durchlaeufe = 0
Global sekunden = 0
Global consoleingabe = 0

Global console$

Repeat
   
   
    If KeyHit(18) Then
       
        consoleingabe = 1
       
    EndIf
   
   
    If (consoleingabe = 1) Then
       
        console$ = Input(">> ") ;dieses Input wird immer abgefragt...
       
        If console$ = "Stop" Then
           
            StopNetGame()
           
            Exit
           
        ElseIf console$ = "Laufzeit"
           
            Print durchlaeufe + " Schleifendurchläufe (" + sekunden + " Sekunden Laufzeit)"
           
            WriteLine log1, CurrentTime$() + " - Console: " + Chr$(34) + "Laufzeit" + Chr$(34) + " (Ergebnis: " + durchlaeufe + " Schleifendurchlaeufe (" + sekunden + " Sekunden Laufzeit)"
            WriteLine log1, ""
           
        EndIf
       
    EndIf
   
   
    durchlaeufe = durchlaeufe + 1
   
    If durchlaeufe = 20 Then
       
        sekunden = 1
        durchlaeufe = 0
       
    EndIf
   
Forever

WriteLine log1, CurrentTime$() + " - Server geschlossen! (Laufzeit: " + sekunden + " Sekunden)"

CloseFile log1

End