ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Module Terminate
    Public Sub TerminateShiftOS()
        NewLine("Stopping the Window Manager...")
        StopX()
        Console_Full()
        If Strings.OnceInfo(6) = "story" Then
            NewLine("Saving game...")
            SaveGame()
        End If
        Cursor.Show()
        NewLine("Shutting down...")
        ShiftOSMenu.Show()
        Console.Close()
    End Sub
End Module