Imports System.IO.Compression
Module TerminalAPI
Public command As String
Public AdvancedCommand As Boolean
Public RawCommand As String
Public IsConsoleParent As Boolean
Public Sub InitializeTerminal()
Strings.OnceInfo(1) = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS"
Strings.OnceInfo(4) = "!"
If IsConsoleParent = True Then
Console.TopMost = False
Strings.OnceInfo(7) = Console.Width
Strings.OnceInfo(8) = Console.Height
Console.TextBox1.Font = New Font("Consolas", 11)
Console.ConsoleFontHandle.Stop()
Cursor.Hide()
If Strings.IsFree = True Then
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(7) = 2
Terminal_CheckFeature()
Terminal_PrintPrompt()
Terminal_AssignPrompt()
Else
If StayAtChapter = True Then
LoadGame()
CheckNextChapterEligibility()
If NextChapter = True Then
StayAtChapter = False
InitializeTerminal()
Else
Terminal_CheckFeature()
Terminal_PrintPrompt()
Terminal_AssignPrompt()
End If
Else
Select Case Strings.ComputerInfo(3)
Case 0
Console.TextBox1.ReadOnly = True
StayAtChapter = True
Console.StoryOnlyTimer.Start()
Case 1
Console.TextBox1.ReadOnly = True
StayAtChapter = True
Console.StoryOnlyTimer.Start()
Case Else
LoadGame()
Terminal_CheckFeature()
Terminal_PrintPrompt()
Terminal_AssignPrompt()
End Select
End If
End If
Else
Console_Windowed()
Console.TopMost = True
Try
Console.TextBox1.Font = GUISCustomizations.GUIConsoleFont
Catch ex As Exception
Console.TextBox1.Font = New Font("Consolas", 11)
End Try
Terminal_PrintPrompt()
Terminal_AssignPrompt()
Cursor.Show()
Console.ConsoleFontHandle.Start()
End If
Console.CurrentDirectory = Strings.OnceInfo(1)
Console.Pseudodir = Console.CurrentDirectory.Replace(Strings.OnceInfo(1), "!\")
Console.CurrentInterpreter = "terminal"
TextRebind()
End Sub
Public Sub Terminal_CheckFeature()
If Strings.AvailableFeature(4) = "1" Then
If Console.ToolBarUse = True Then
If Strings.OnceInfo(2) = "True" Then
Console.InfoBarTimer.Start()
Console.TextBox1.Dock = DockStyle.None
Console.ToolBar.Visible = True
Console.ToolBar.SendToBack()
Console.InfoBar.Visible = True
Console.InfoBar.SendToBack()
Console.TextBox1.Dock = DockStyle.Fill
Else
Console.TextBox1.Dock = DockStyle.None
Console.InfoBar.Visible = False
Console.ToolBar.Visible = True
Console.ToolBar.SendToBack()
Console.TextBox1.Dock = DockStyle.Fill
End If
Else
If Strings.OnceInfo(2) = "True" Then
Console.InfoBarTimer.Start()
Console.TextBox1.Dock = DockStyle.None
Console.InfoBar.Visible = True
Console.InfoBar.SendToBack()
Console.ToolBar.Visible = False
Console.TextBox1.Dock = DockStyle.Fill
Else
Console.TextBox1.Dock = DockStyle.None
Console.InfoBar.Visible = False
Console.ToolBar.Visible = False
Console.TextBox1.Dock = DockStyle.Fill
End If
End If
Else
Console.TextBox1.Dock = DockStyle.None
Console.InfoBar.Visible = False
Console.TextBox1.Dock = DockStyle.Fill
End If
End Sub
Public Sub Terminal_ExecuteInput()
Terminal_ReadCommand()
If Strings.AvailableFeature(18) = 1 Then
ShOSKey_InputCommand(command)
End If
Terminal_DoCommand()
Terminal_PrintPrompt()
TextRebind()
End Sub
Public Sub Terminal_ReadCommand()
command = Console.TextBox1.Lines(Console.TextBox1.Lines.Length - 1)
If Console.DefaultPrompt = Nothing Then
Else
command = command.Replace(Console.DefaultPrompt, "")
End If
RawCommand = command
command = command.ToLower()
End Sub
Public Sub Terminal_PrintPrompt()
If Console.TextBox1.Text = Nothing Then
If Console.ChangeInterpreter = True Then
NewLine(Console.DefaultPrompt)
Else
If Strings.OnceInfo(0) = "Yes" Then
ResetLine("root@" & Strings.ComputerInfo(0) & " #> ")
Else
ResetLine(Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> ")
End If
End If
Else
If Console.ChangeInterpreter = True Then
NewLine(Console.DefaultPrompt)
Else
If Strings.OnceInfo(0) = "Yes" Then
NewLine("root@" & Strings.ComputerInfo(0) & " #> ")
Else
NewLine(Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> ")
End If
End If
End If
End Sub
Public Sub Terminal_AssignPrompt()
If Console.ChangeInterpreter = False Then
If Strings.OnceInfo(0) = "Yes" Then
Console.DefaultPrompt = "root@" & Strings.ComputerInfo(0) & " #> "
Else
Console.DefaultPrompt = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
End If
End If
End Sub
Public Sub Terminal_RunTerminalFile(filename As String)
Dim sr As System.IO.StreamReader
If My.Computer.FileSystem.FileExists(Console.CurrentDirectory & "\" & filename) Then
Dim fileext As New IO.FileInfo(Console.CurrentDirectory & "\" & filename)
If fileext.Extension = ".scr" Then
sr = My.Computer.FileSystem.OpenTextFileReader(Console.CurrentDirectory & "\" & filename)
Dim linenum As Integer = IO.File.ReadAllLines(Console.CurrentDirectory & "\" & filename).Length
Dim i As Integer = 1
While i <= linenum
command = sr.ReadLine()
Terminal_DoCommand()
NewLine(Nothing)
i = i + 1
End While
sr.Close()
Else
End If
End If
End Sub
Public Sub Terminal_DoCommand()
AdvancedCommand = True
Console.BadCommand = True
Select Case command
Case ""
AdvancedCommand = False
NormalCommand()
Case "05tray"
_05tray()
NewLine("you cheater!")
Case "anus"
AnusWM_Menu.Show()
Case "applist"
If IsStartG = True Then
AppList()
AdvancedCommand = False
NormalCommand()
End If
Case "bc"
If Strings.AvailableFeature(9) = "1" Then
Console.ChangeInterpreter = True
BC_Start()
AdvancedCommand = False
NormalCommand()
End If
Case "clear"
If Strings.AvailableFeature(1) = "1" Then
Clear()
AdvancedCommand = False
NormalCommand()
End If
Case "close"
If IsConsoleParent = False Then
Console.Close()
End If
Case "codepoint"
Codepoint()
AdvancedCommand = False
NormalCommand()
Case "colors"
Colors()
AdvancedCommand = False
NormalCommand()
Case "date"
Terminal_Date()
Case "dir"
If Strings.AvailableFeature(16) = "1" Then
TerminalDirectories(Console.CurrentDirectory)
AdvancedCommand = False
NormalCommand()
End If
Case "exit su"
If Strings.OnceInfo(0) = "No" Then
Else
AdvancedCommand = False
NormalCommand()
NewLine("Exitting root mode...")
Strings.OnceInfo(0) = "No"
Terminal_AssignPrompt()
End If
Case "guess"
Console.ChangeInterpreter = True
GTN_Start()
AdvancedCommand = False
NormalCommand()
'Undeveloped()
Case "guide"
Guide()
AdvancedCommand = False
NormalCommand()
Case "help"
Help()
AdvancedCommand = False
NormalCommand()
Case "infobar"
If Strings.AvailableFeature(4) = 1 Then
NewLine(My.Resources.man_infobar)
End If
Case "mathquiz"
If Strings.AvailableFeature(34) = 1 Then
MQ_Start()
AdvancedCommand = False
NormalCommand()
End If
Case "pwd"
If Strings.AvailableFeature(16) = 1 Then
Pwd()
AdvancedCommand = False
NormalCommand()
End If
Case "reboot"
If IsStartG = True Then
StopG()
End If
Console.TextBox1.Text = Nothing
AdvancedCommand = False
NormalCommand()
SaveGame()
InitializeTerminal()
'Case "secure"
' Console.Secure = True
' Console.TextBox1.ReadOnly = True
Case "shiftorium"
NewLine(My.Resources.man_shiftorium)
AdvancedCommand = False
NormalCommand()
Case "shiftfetch"
If Strings.AvailableFeature(8) = "1" Then
Shiftfetch()
AdvancedCommand = False
NormalCommand()
End If
Case "shiftoriumfx"
'ChangeInterpreter = True
'AppHost("shiftoriumfx")
AdvancedCommand = False
NormalCommand()
Undeveloped()
Case "shutdown", "shut down"
TerminateShiftOS()
Case "startg"
If Strings.AvailableFeature(35) = 1 Then
If IsStartG = False Then
StartG()
AdvancedCommand = False
NormalCommand()
End If
End If
Case "stopg"
If Strings.AvailableFeature(35) = 1 Then
If IsStartG = True Then
StopG()
AdvancedCommand = False
NormalCommand()
End If
End If
Case "textpad"
If Strings.AvailableFeature(17) = "1" Then
TextPad_WarnFile()
AdvancedCommand = False
NormalCommand()
End If
Case "time"
If Strings.AvailableFeature(5) = 1 Then
Terminal_Time()
AdvancedCommand = False
NormalCommand()
ElseIf Strings.AvailableFeature(5) = 3 Then
Terminal_Time()
AdvancedCommand = False
NormalCommand()
End If
Case "su"
Terminal_Su()
AdvancedCommand = False
NormalCommand()
Case "ver"
Terminal_Version()
AdvancedCommand = False
NormalCommand()
End Select
If AdvancedCommand = True Then
If command Like "app *" Then
If IsStartG = True Then
App()
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "cat *" Then
If Strings.AvailableFeature(16) = 1 Then
CatFile(command.Substring(4))
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "cd *" Then
If Strings.AvailableFeature(16) = 1 Then
NavigateDir(command.Replace("cd ", ""))
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "color *" Then
GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1))
AdvancedCommand = False
NormalCommand()
End If
If command Like "cowsay *" Then
If Strings.AvailableFeature(22) = 1 Then
Cowsay(RawCommand.Substring(7))
NormalCommand()
End If
End If
If command Like "del *" Then
If Strings.AvailableFeature(16) = 1 Then
DeleteFile(RawCommand.Substring(4))
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "hostname *" Then
If Strings.AvailableFeature(20) = 1 Then
Hostname()
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "infobar *" Then
If Strings.AvailableFeature(4) = "1" Then
Infobar()
End If
End If
If command Like "taskkill *" Then
Taskkill()
AdvancedCommand = False
NormalCommand()
End If
If command Like "man *" Then
If Strings.AvailableFeature(0) = "1" Then
Manual(command)
End If
End If
If command Like "mkdir *" Then
If Strings.AvailableFeature(16) Then
CreateDir(command.Replace("mkdir ", ""))
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "print *" Then
If Strings.AvailableFeature(2) = "1" Then
NewLine(RawCommand.Substring(6))
NormalCommand()
AdvancedCommand = False
End If
End If
If command Like "ren '*' '*'" Then
If Strings.AvailableFeature(31) = 1 Then
Rename()
NormalCommand()
AdvancedCommand = False
End If
End If
If command Like "rev *" Then
If Strings.AvailableFeature(21) = 1 Then
Reverse()
NormalCommand()
AdvancedCommand = False
End If
End If
If command Like "rmdir *" Then
If Strings.AvailableFeature(16) = 1 Then
RemoveDir(command.Replace("rmdir ", ""))
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "run *" Then
If Strings.AvailableFeature(30) = 1 Then
Terminal_RunTerminalFile(command.Substring(4))
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "shiftorium *" Then
Shiftorium()
End If
If command Like "textpad *" Then
If Strings.AvailableFeature(17) = 1 Then
Console.ChangeInterpreter = True
command = RawCommand.Replace("textpad ", "")
TextPad_Start()
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "username *" Then
If Strings.AvailableFeature(19) = 1 Then
If command.Substring(9) = "root" Then
NewLine("This username is already taken!")
Else
Username()
End If
AdvancedCommand = False
NormalCommand()
End If
End If
If command Like "unzip *" Then
If Strings.AvailableFeature(33) = 1 Then
Unzip()
End If
AdvancedCommand = False
NormalCommand()
End If
If command Like "zip *" Then
If Strings.AvailableFeature(32) = 1 Then
Zip()
End If
AdvancedCommand = False
NormalCommand()
End If
End If
If Console.BadCommand = True Then
NewLine("Bad command or wrong file name")
End If
End Sub
Public Sub NormalCommand()
Console.BadCommand = False
End Sub
End Module