mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
16 lines
397 B
VB.net
16 lines
397 B
VB.net
|
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
|