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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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