diff options
Diffstat (limited to 'shiftos_next/Terminal.vb')
| -rw-r--r-- | shiftos_next/Terminal.vb | 302 |
1 files changed, 0 insertions, 302 deletions
diff --git a/shiftos_next/Terminal.vb b/shiftos_next/Terminal.vb deleted file mode 100644 index 25a3e21..0000000 --- a/shiftos_next/Terminal.vb +++ /dev/null @@ -1,302 +0,0 @@ -Public Class Terminal - - Public currentdir As String = root - Public prompttoupdatesave As Boolean = False - Dim trackpos As Integer = 0 - - Private Sub Terminal_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - If BasicWM.Desktop.openterminals > 0 Then BasicWM.Desktop.openterminals -= 1 - End Sub - - Private Sub Terminal_GotFocus(sender As Object, e As EventArgs) Handles terminaltext.GotFocus - API.txtterm = Me.terminaltext - End Sub - - - - Public Sub terminal_Innitiate(sender As Object, e As EventArgs) Handles MyBase.Load - Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None - API.txtterm = Me.terminaltext - pnltop.DetermineMyVisibility() - AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ") - SelectBottom() - If prompttoupdatesave = True Then - AddLine("ShiftOS has encountered an error loading configuration files. Press any key to reset damaged files.") - End If - End Sub - - - - - - Public Sub Interpret(command As String) - command = command.ToLower - If command Like "help" Then - ShowHelp() - ElseIf command Like "cd *" Then - If boughtdirectorysurfing = True Then - Dim folder As String = command.Replace("cd ", "") - - If folder = ".." Then - If currentdir.ToLower = "c:\shiftos" Then - AddLine("cd: Error! You are at the root of your drive.") - Else - currentdir = IO.Directory.GetParent(currentdir).ToString - End If - Else - If IO.Directory.Exists(currentdir + "\" + folder) Then - currentdir = currentdir & "\" & folder - ElseIf IO.Directory.Exists(folder) Then - currentdir = folder - Else - AddLine("cd: Directory """ & folder & """ doesn't exist.") - End If - End If - Else - wrongcommand() - End If - ElseIf command = "dir" Or command = "ls" Then - If boughtdirectorysurfing Then - AddLine("Type | Name ") - AddLine("-------+-------------------------------------------") - For Each Dir As String In IO.Directory.GetDirectories(currentdir) - Dim dirinf As New IO.DirectoryInfo(Dir) - AddLine("[DIR] | " & dirinf.Name) - Next - For Each file As String In IO.Directory.GetFiles(currentdir) - Dim filinf As New IO.FileInfo(file) - AddLine(filinf.Extension & " | " & filinf.Name) - Next - Else - wrongcommand() - End If - ElseIf command Like "mkdir *" Then - If boughtdirectorysurfing = True Then - Dim foldertomake As String = command.Replace("mkdir ", "") - If IO.Directory.Exists(currentdir + "\" + foldertomake) Then - AddLine("Directory already exists!") - Else - IO.Directory.CreateDirectory(currentdir + "\" + foldertomake) - AddLine("mkdir: Directory created successfully.") - End If - Else - wrongcommand() - End If - ElseIf command Like "give me * codepoints" Then - Dim args() As String = command.Split(" ") - Dim cp As String = args(2) - AddCP(cp) - AddLine("Added " & cp & " to your existing ammount of Codepoints.") - ElseIf command Like "set * *" Then - Dim args() As String = command.Split(" ") - Select Case args(1) - Case "username" - If boughtcustomusername Then - username = args(2) - Else - wrongcommand() - End If - Case "textcolor" - If boughtterminalsettextcolor Then - terminaltext.ForeColor = SetColorbasic(args(2)) - End If - Case Else - AddLine("set: No valid setting node in configuration file for """ & args(1) & """.") - End Select - ElseIf command = "05tray" Then - AddLine("500 Codepoints have been added.") - AddCP(500) - ElseIf command Like "open *" Then - Dim progtoopen As String = command.Replace("open ", "") - OpenProgram(progtoopen) - ElseIf command Like "close *" Then - Dim progtoclose As String = command.Replace("close ", "") - If progtoclose = "terminal" Then - If boughtbasicwm = True Then - Me.Close() - Else - AddLine("close: Cannot close the Terminal!") - End If - Else - closeprogram(progtoclose) - End If - ElseIf command Like "shutdown" Then - savegame() - Application.Exit() - ElseIf command Like "math*" Then - mathquiz = True - changeinterpreter() - ElseIf command Like "guess the number" Or command Like "guess" Then - guessthenumber = True - changeinterpreter() - ElseIf command Like "code*" Or command = "code points" Then - AddLine("You have " & codepoints & " Codepoints.") - ElseIf command Like "bwm" Then - If boughtbasicwm = True Then - BasicWM.Desktop.Show() - Else - wrongcommand() - End If - ElseIf command = "colors" Then - showterminalcolors() - ElseIf command Like "" Then - 'This is here to make it so that the Terminal doesn't say "Wrong Command" if the user doesn't input anything. - Else - If IO.File.Exists(currentdir + "\" + command) Then - openfile(currentdir + "\" + command) - ElseIf IO.File.Exists(command) Then - openfile(command) - Else - wrongcommand() - End If - End If - End Sub - - - - - - - - Dim firstuseconversation As Integer = 0 - - Private Sub tmrfirstuse_Tick(sender As Object, e As EventArgs) Handles tmrfirstuse.Tick - Select Case firstuseconversation - Case 0 - terminaltext.ReadOnly = True - AddLine("IP Address 170.245.12.80 is connecting as ""DevX"".") - Case 1 - AddLine("DevX: It seems my updates have completly installed.") - Case 2 - AddLine("DevX: Unfortunately, due to your hard drive being formatted, you have lost all your data.") - Case 3 - AddLine("DevX: However, Don't worry! I've added some pretty cool features to the Terminal to make up for this.") - Case 4 - AddLine("DevX: I can't tell you much, except for ""Type Help for a list of commands"".") - Case 5 - AddLine("DevX: I've got to go, but I'll contact you as I develop more updates; and you test the OS.") - Case 6 - AddLine("User ""DevX"" has disconnected.") - Case 7 - terminaltext.ResetText() - AddLine("user@shiftos ~$> ") - terminaltext.ReadOnly = False - tmrfirstuse.Stop() - End Select - firstuseconversation += 1 - End Sub - - Private Sub txtterm_KeyDown(sender As Object, e As KeyEventArgs) Handles terminaltext.KeyDown - If prompttoupdatesave = False Then - - Select Case e.KeyCode - Case Keys.ShiftKey - trackpos = trackpos - 1 - Case Keys.Alt - trackpos = trackpos - 1 - Case Keys.CapsLock - trackpos = trackpos - 1 - Case Keys.ControlKey - trackpos = trackpos - 1 - Case Keys.LWin - trackpos = trackpos - 1 - Case Keys.RWin - trackpos = trackpos - 1 - Case Keys.Right - If terminaltext.SelectionStart = terminaltext.TextLength Then - trackpos = trackpos - 1 - End If - Case Keys.Left - If trackpos < 1 Then - e.SuppressKeyPress = True - trackpos = trackpos - 1 - Else - trackpos = trackpos - 2 - End If - Case Keys.Up - e.SuppressKeyPress = True - trackpos = trackpos - 1 - Case Keys.Down - e.SuppressKeyPress = True - trackpos = trackpos - 1 - End Select - - If e.KeyCode = Keys.Enter Then - e.SuppressKeyPress = True - If mathquiz = True Then - Dim question As String = terminaltext.Lines(terminaltext.Lines.Length - 2) - Dim answer As String = terminaltext.Lines(terminaltext.Lines.Length - 1).Replace("> ", "") - If answer = "exit" Then - mathquiz = False - AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ") - Else - Try - MQInterpret(question, answer) - Catch ex As Exception - AddLine("The answer provided isn't a proper number!") - End Try - AddLine("> ") - End If - ElseIf guessthenumber = True Then - Dim answer As String = terminaltext.Lines(terminaltext.Lines.Length - 1).Replace("> ", "") - If answer = "exit" Then - guessthenumber = False - AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ") - Else - Try - GTNInterpret(answer) - Catch ex As Exception - AddLine("The answer provided isn't a proper number.") - End Try - AddLine("> ") - End If - Else - Dim command As String = terminaltext.Lines(terminaltext.Lines.Length - 1).Replace(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ", "").ToLower - Interpret(command) - - If mathquiz Or guessthenumber Then - AddLine("> ") - Else - If command = "clear" Then - terminaltext.Text = username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> " - terminaltext.Select(terminaltext.Text.Length, 0) - - Else - AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ") - terminaltext.Select(terminaltext.Text.Length, 0) - End If - End If - End If - trackpos = 0 - Else - If e.KeyCode = Keys.Back Then - Else - trackpos = trackpos + 1 - End If - End If - - If e.KeyCode = Keys.Back Then - If trackpos < 1 Then - e.SuppressKeyPress = True - Else - If terminaltext.SelectedText.Length < 1 Then - trackpos = trackpos - 1 - Else - e.SuppressKeyPress = True - End If - End If - End If - - SelectBottom() - Else - e.SuppressKeyPress = True - savegame() - loadgame() - AddLine("Self-repair complete with no errors.") - prompttoupdatesave = False - AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ") - End If - End Sub - - -End Class
\ No newline at end of file |