diff options
Diffstat (limited to 'shiftos_next/API.vb')
| -rw-r--r-- | shiftos_next/API.vb | 205 |
1 files changed, 0 insertions, 205 deletions
diff --git a/shiftos_next/API.vb b/shiftos_next/API.vb deleted file mode 100644 index 0b37667..0000000 --- a/shiftos_next/API.vb +++ /dev/null @@ -1,205 +0,0 @@ -Module API - 'Terminal - - Public txtterm As TextBox = Terminal.terminaltext - - Public Function SetColorbasic(colorname As String) - Dim element As Color - Select Case colorname - Case "black" - AddLine("Error! Black and black don't go too well...") - Case "white" - element = Color.White - Case "gray" - If boughtgray Then - element = Color.Gray - Else - AddLine("Error! Unsupported color.") - End If - Case "red" - If boughtred Then - element = Color.Red - Else - AddLine("Error! Unsupported color.") - End If - Case "green" - If boughtgreen Then - element = Color.Green - Else - AddLine("Error! Unsupported color.") - End If - Case "blue" - If boughtblue Then - element = Color.Blue - Else - AddLine("Error! Unsupported color.") - End If - Case "yellow" - If boughtyellow Then - element = Color.Yellow - Else - AddLine("Error! Unsupported color.") - End If - Case "orange" - If boughtorange Then - element = Color.Orange - Else - AddLine("Error! Unsupported color.") - End If - Case "pink" - If boughtpink Then - element = Color.Pink - Else - AddLine("Error! Unsupported color.") - End If - Case "purple" - If boughtpurple Then - element = Color.Purple - Else - AddLine("Error! Unsupported color.") - End If - Case "brown" - If boughtbrown Then - element = Color.Brown - Else - AddLine("Error! Unsupported color.") - End If - Case Else - AddLine("Error! Unsupported color, check 'colors' for a list of supported colors.") - End Select - Return element - End Function - - Public Sub OpenProgram(progtoopen As String) - Select Case progtoopen - Case "shiftorium", "packages", "pacman", "code shop" - shiftorium_cmd.Show() - Case "files", "fileskimmer", "file skimmer", "fs", "file browser" - If boughtfileskimmer = True Then - file_skimmer.Show() - Else - AddLine("open: Invalid program """ & progtoopen & """.") - End If - Case "textpad", "text", "notepad" - If boughttextpad = True Then - TextPad.Show() - Else - AddLine("open: Invalid program """ & progtoopen & """.") - End If - Case Else - AddLine("open: Invalid program """ & progtoopen & """.") - End Select - End Sub - - Public Sub closeprogram(progtoclose As String) - Select Case progtoclose - Case "shiftorium", "packages", "pacman", "code shop" - shiftorium_cmd.Hide() - Case "files", "fileskimmer", "file skimmer", "fs", "file browser" - If boughtfileskimmer = True Then - file_skimmer.Hide() - Else - AddLine("close: Invalid program """ & progtoclose & """.") - End If - Case "textpad", "text", "notepad" - If boughttextpad = True Then - TextPad.Hide() - Else - AddLine("close: Invalid program """ & progtoclose & """.") - End If - - Case Else - AddLine("close: Invalid program """ & progtoclose & """.") - End Select - End Sub - - Public Sub wrongcommand() - AddLine("Invalid command! Type ""help"" for a list of commands.") - End Sub - - Public Sub AddLine(text As String) - txtterm.Text += vbNewLine + text - SelectBottom() - End Sub - - Public Sub openfile(file As String) - Dim filinfo As New IO.FileInfo(file) - Select Case filinfo.Extension - Case ".txt" - If boughttextpad = True Then - Dim sr As New IO.StreamReader(file) - TextPad.txtfilebody.Text = sr.ReadToEnd() - sr.Close() - TextPad.Show() - Else - wrongcommand() - End If - Case Else - wrongcommand() - End Select - End Sub - - - Public Sub showterminalcolors() - AddLine(" ==== SUPPORTED TERMINAL COLORS ==== " & vbNewLine) - AddLine("Below is a list of values that you can specify in <colorname> arguments. Note that only certain colors are supported; and if the video driver can output a color but it isn't on this list, it is not supported by the Terminal display engine." & vbNewLine) - If boughtgray Then AddLine("gray") - AddLine("white") - AddLine("black") - If boughtred Then AddLine("red") - If boughtgreen Then AddLine("green") - If boughtblue Then AddLine("blue") - If boughtyellow Then AddLine("yellow") - If boughtorange Then AddLine("orange") - If boughtpink Then AddLine("pink") - If boughtpurple Then AddLine("purple") - If boughtbrown Then AddLine("brown") - End Sub - - Public Sub ShowHelp() - AddLine("ShiftOS Help" & vbNewLine) - AddLine("Usage tips: " & vbNewLine) - AddLine(" - The terminal runs in full-screen.") - If boughttextpad = True Then AddLine(" - Typing the path to a text file will open it in Textpad.") - AddLine(" - There are no window managers or desktop environments.") - If boughtbasicgui = True Then - AddLine(" - Applications can use the GUI server to display a proper GUI.") - Else - AddLine(" - Applications are fully text-based.") - End If - AddLine(" - Terminal commands are case-insensitive." & vbNewLine) - AddLine("Commands: " & vbNewLine) - If boughtdirectorysurfing Then - AddLine(" - cd: Change to the specified directory.") - AddLine(" - mkdir: Create a directory inside the current directory (marked before the %)") - AddLine(" - ls, dir: View the contents of the current directory.") - End If - If boughtbasicsettings Then - AddLine(" - set <setting> <value>: Change some minimal settings in ShiftOS.") - If boughtcustomusername Then - AddLine(" Settings: ") - AddLine(" username <string>: Set the username of the OS.") - End If - If boughtterminalsettextcolor = True Then - AddLine(" textcolor <colorname>: Set the terminal text color.") - End If - End If - AddLine(" - codepoints: Shows the current amount of codepoints.") - AddLine(" - shutdown: Shuts the system down.") - AddLine(" - colors: Shows the colors supported by both the Terminal display engine, and the video driver.") - AddLine(" - help: Shows this screen." & vbNewLine) - AddLine("Installed Programs:" & vbNewLine) - AddLine("Below is a list of all the programs on your computer, followed by what they do. You can open one by typing ""open <name>""." & vbNewLine) - AddLine(" - shiftorium: Upgrade the OS with Codepoints using this application.") - If boughtfileskimmer Then AddLine(" - file skimmer: A handy little file browser.") - If boughttextpad Then AddLine(" - textpad: An application that allows for creating and editing text files.") - AddLine(" - MathQuiz: Earn Codepoints by solving math questions.") - AddLine(" - Guess the Number: Earn Codepoints by guessing a random number between 1 and 100.") - End Sub - - Public Sub SelectBottom() - txtterm.Select(txtterm.Text.Length, 0) - txtterm.ScrollToCaret() - End Sub - -End Module |