From 424931951bf55c2db7a7cb3228bfccc03ea62287 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Thu, 28 May 2015 21:42:26 -0400 Subject: Shiftorium - Draggable Windows upgrade + Bugfixes Alright, I've added the Draggable Windows upgrade to the Shiftorium, as well as fixed a quick bug causing "No Items Available" to display when there were items clearly available. I've also fixed a positioning bug with BWM windows causing them to start in the center of the screen, relative to the titlebar, rather than the form. I've also re-arranged the code a bit, organizing files in folders. APIs are in the APIs folder, Desktop Environments are in the Desktop Environments folder, etc. The shiftorium still doesn't have draggable window functionality yet... --- shiftos_next.v12.suo | Bin 49152 -> 52736 bytes shiftos_next/API.vb | 205 ------- shiftos_next/APIs/API.vb | 206 +++++++ shiftos_next/APIs/TerminalGames.vb | 94 ++++ shiftos_next/APIs/filesystem.vb | 19 + shiftos_next/APIs/saveengine.vb | 611 +++++++++++++++++++++ shiftos_next/APIs/shiftorium_api.vb | 21 + shiftos_next/BWM User Controls/Titlebar.vb | 9 +- .../BWM and CMD Apps/ColorPicker.Designer.vb | 260 +++++++++ shiftos_next/BWM and CMD Apps/ColorPicker.resx | 120 ++++ shiftos_next/BWM and CMD Apps/ColorPicker.vb | 38 ++ shiftos_next/BWM and CMD Apps/TextPad.Designer.vb | 224 ++++++++ shiftos_next/BWM and CMD Apps/TextPad.resx | 123 +++++ shiftos_next/BWM and CMD Apps/TextPad.vb | 76 +++ .../BWM and CMD Apps/basicwm_infobox.Designer.vb | 115 ++++ shiftos_next/BWM and CMD Apps/basicwm_infobox.resx | 120 ++++ shiftos_next/BWM and CMD Apps/basicwm_infobox.vb | 19 + .../BWM and CMD Apps/file skimmer.Designer.vb | 280 ++++++++++ shiftos_next/BWM and CMD Apps/file skimmer.resx | 157 ++++++ shiftos_next/BWM and CMD Apps/file skimmer.vb | 178 ++++++ .../BWM and CMD Apps/shiftorium_cmd.Designer.vb | 205 +++++++ shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx | 120 ++++ shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb | 195 +++++++ shiftos_next/BWMDesktop.Designer.vb | 56 -- shiftos_next/BWMDesktop.resx | 120 ---- shiftos_next/BWMDesktop.vb | 29 - shiftos_next/BasicWM_ColorTable.vb | 293 ---------- shiftos_next/ColorPicker.Designer.vb | 260 --------- shiftos_next/ColorPicker.resx | 120 ---- shiftos_next/ColorPicker.vb | 38 -- .../Desktop Environments/BWMDesktop.Designer.vb | 56 ++ shiftos_next/Desktop Environments/BWMDesktop.resx | 120 ++++ shiftos_next/Desktop Environments/BWMDesktop.vb | 29 + shiftos_next/Hijack.Designer.vb | 93 ---- shiftos_next/Hijack.resx | 132 ----- shiftos_next/Hijack.vb | 324 ----------- shiftos_next/Menu Renderers/BasicWM_ColorTable.vb | 293 ++++++++++ shiftos_next/Menu Renderers/basicwm_renderer.vb | 6 + shiftos_next/Other/Hijack.Designer.vb | 93 ++++ shiftos_next/Other/Hijack.resx | 132 +++++ shiftos_next/Other/Hijack.vb | 324 +++++++++++ shiftos_next/Other/Terminal.Designer.vb | 79 +++ shiftos_next/Other/Terminal.resx | 123 +++++ shiftos_next/Other/Terminal.vb | 302 ++++++++++ shiftos_next/Terminal.Designer.vb | 79 --- shiftos_next/Terminal.resx | 123 ----- shiftos_next/Terminal.vb | 302 ---------- shiftos_next/TerminalGames.vb | 94 ---- shiftos_next/TextPad.Designer.vb | 224 -------- shiftos_next/TextPad.resx | 123 ----- shiftos_next/TextPad.vb | 76 --- shiftos_next/basicwm_infobox.Designer.vb | 115 ---- shiftos_next/basicwm_infobox.resx | 120 ---- shiftos_next/basicwm_infobox.vb | 19 - shiftos_next/basicwm_renderer.vb | 6 - shiftos_next/bin/Debug/shiftos_next.exe | Bin 2280448 -> 2281472 bytes shiftos_next/bin/Debug/shiftos_next.pdb | Bin 194048 -> 194048 bytes shiftos_next/file skimmer.Designer.vb | 280 ---------- shiftos_next/file skimmer.resx | 157 ------ shiftos_next/file skimmer.vb | 178 ------ shiftos_next/filesystem.vb | 19 - .../DesignTimeResolveAssemblyReferences.cache | Bin 9167 -> 9167 bytes shiftos_next/obj/Debug/shiftos_next.exe | Bin 2280448 -> 2281472 bytes shiftos_next/obj/Debug/shiftos_next.pdb | Bin 194048 -> 194048 bytes .../shiftos_next.vbproj.GenerateResource.Cache | Bin 1851 -> 1851 bytes shiftos_next/saveengine.vb | 611 --------------------- shiftos_next/shiftorium_api.vb | 21 - shiftos_next/shiftorium_cmd.Designer.vb | 205 ------- shiftos_next/shiftorium_cmd.resx | 120 ---- shiftos_next/shiftorium_cmd.vb | 187 ------- shiftos_next/shiftos_next.vbproj | 63 +-- shiftos_next/shiftos_next.vbproj.user | 2 +- 72 files changed, 4778 insertions(+), 4763 deletions(-) delete mode 100644 shiftos_next/API.vb create mode 100644 shiftos_next/APIs/API.vb create mode 100644 shiftos_next/APIs/TerminalGames.vb create mode 100644 shiftos_next/APIs/filesystem.vb create mode 100644 shiftos_next/APIs/saveengine.vb create mode 100644 shiftos_next/APIs/shiftorium_api.vb create mode 100644 shiftos_next/BWM and CMD Apps/ColorPicker.Designer.vb create mode 100644 shiftos_next/BWM and CMD Apps/ColorPicker.resx create mode 100644 shiftos_next/BWM and CMD Apps/ColorPicker.vb create mode 100644 shiftos_next/BWM and CMD Apps/TextPad.Designer.vb create mode 100644 shiftos_next/BWM and CMD Apps/TextPad.resx create mode 100644 shiftos_next/BWM and CMD Apps/TextPad.vb create mode 100644 shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb create mode 100644 shiftos_next/BWM and CMD Apps/basicwm_infobox.resx create mode 100644 shiftos_next/BWM and CMD Apps/basicwm_infobox.vb create mode 100644 shiftos_next/BWM and CMD Apps/file skimmer.Designer.vb create mode 100644 shiftos_next/BWM and CMD Apps/file skimmer.resx create mode 100644 shiftos_next/BWM and CMD Apps/file skimmer.vb create mode 100644 shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb create mode 100644 shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx create mode 100644 shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb delete mode 100644 shiftos_next/BWMDesktop.Designer.vb delete mode 100644 shiftos_next/BWMDesktop.resx delete mode 100644 shiftos_next/BWMDesktop.vb delete mode 100644 shiftos_next/BasicWM_ColorTable.vb delete mode 100644 shiftos_next/ColorPicker.Designer.vb delete mode 100644 shiftos_next/ColorPicker.resx delete mode 100644 shiftos_next/ColorPicker.vb create mode 100644 shiftos_next/Desktop Environments/BWMDesktop.Designer.vb create mode 100644 shiftos_next/Desktop Environments/BWMDesktop.resx create mode 100644 shiftos_next/Desktop Environments/BWMDesktop.vb delete mode 100644 shiftos_next/Hijack.Designer.vb delete mode 100644 shiftos_next/Hijack.resx delete mode 100644 shiftos_next/Hijack.vb create mode 100644 shiftos_next/Menu Renderers/BasicWM_ColorTable.vb create mode 100644 shiftos_next/Menu Renderers/basicwm_renderer.vb create mode 100644 shiftos_next/Other/Hijack.Designer.vb create mode 100644 shiftos_next/Other/Hijack.resx create mode 100644 shiftos_next/Other/Hijack.vb create mode 100644 shiftos_next/Other/Terminal.Designer.vb create mode 100644 shiftos_next/Other/Terminal.resx create mode 100644 shiftos_next/Other/Terminal.vb delete mode 100644 shiftos_next/Terminal.Designer.vb delete mode 100644 shiftos_next/Terminal.resx delete mode 100644 shiftos_next/Terminal.vb delete mode 100644 shiftos_next/TerminalGames.vb delete mode 100644 shiftos_next/TextPad.Designer.vb delete mode 100644 shiftos_next/TextPad.resx delete mode 100644 shiftos_next/TextPad.vb delete mode 100644 shiftos_next/basicwm_infobox.Designer.vb delete mode 100644 shiftos_next/basicwm_infobox.resx delete mode 100644 shiftos_next/basicwm_infobox.vb delete mode 100644 shiftos_next/basicwm_renderer.vb delete mode 100644 shiftos_next/file skimmer.Designer.vb delete mode 100644 shiftos_next/file skimmer.resx delete mode 100644 shiftos_next/file skimmer.vb delete mode 100644 shiftos_next/filesystem.vb delete mode 100644 shiftos_next/saveengine.vb delete mode 100644 shiftos_next/shiftorium_api.vb delete mode 100644 shiftos_next/shiftorium_cmd.Designer.vb delete mode 100644 shiftos_next/shiftorium_cmd.resx delete mode 100644 shiftos_next/shiftorium_cmd.vb diff --git a/shiftos_next.v12.suo b/shiftos_next.v12.suo index 9b99923..0726f15 100644 Binary files a/shiftos_next.v12.suo and b/shiftos_next.v12.suo differ 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 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 : Change some minimal settings in ShiftOS.") - If boughtcustomusername Then - AddLine(" Settings: ") - AddLine(" username : Set the username of the OS.") - End If - If boughtterminalsettextcolor = True Then - AddLine(" textcolor : 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 ""." & 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 diff --git a/shiftos_next/APIs/API.vb b/shiftos_next/APIs/API.vb new file mode 100644 index 0000000..d3a70fe --- /dev/null +++ b/shiftos_next/APIs/API.vb @@ -0,0 +1,206 @@ +Module API + 'Terminal + + Public debugmode As Boolean = False 'If this boolean value is set to True, any exceptions will be shown, rather than supressed. + 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 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 : Change some minimal settings in ShiftOS.") + If boughtcustomusername Then + AddLine(" Settings: ") + AddLine(" username : Set the username of the OS.") + End If + If boughtterminalsettextcolor = True Then + AddLine(" textcolor : 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 ""." & 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 diff --git a/shiftos_next/APIs/TerminalGames.vb b/shiftos_next/APIs/TerminalGames.vb new file mode 100644 index 0000000..6d4dfed --- /dev/null +++ b/shiftos_next/APIs/TerminalGames.vb @@ -0,0 +1,94 @@ +Module TerminalGames + + Public mathquiz As Boolean = False + Public guessthenumber As Boolean = False + + Public Sub MQInterpret(question As String, answer As Integer) + Dim random As New Random() + Dim correct As Boolean = False + Dim args() As String = question.Replace("What is ", "").Split(" ") + Dim cptoadd As Integer = random.Next(1, 5) + Select Case args(1) + Case "+" + correct = (answer = CInt(args(0)) + CInt(args(2))) + Case "-" + correct = (answer = args(0) - args(2)) + Case "*" + correct = (answer = args(0) * args(2)) + Case "/" + correct = (answer = args(0) / args(2)) + End Select + If (correct) Then + AddLine("Correct! You have earned " & cptoadd & " Codepoints!") + AddCP(cptoadd) + Else + AddLine("Incorrect! Better luck next time...") + End If + MQCreateQuestion() + End Sub + + Public Sub MQCreateQuestion() + Dim rand As New Random + Dim num1 As Integer = rand.Next(1, 10) + Dim num2 As Integer = rand.Next(1, 10) + Dim operandchooser As Integer = rand.Next(1, 4) + Dim operand As String + Select Case operandchooser + Case 1 + operand = " + " + Case 2 + While num2 > num1 + num2 = rand.Next(1, 10) + End While + operand = " - " + Case 3 + operand = " * " + Case 4 + operand = " / " + Case Else + operand = " + " + End Select + AddLine("What is " & num1 & operand & num2 & " ?") + End Sub + + Public Sub changeinterpreter() + If mathquiz = True Then + AddLine(" === MathQuiz ===" & vbNewLine) + AddLine("MathQuiz is a basic game for ShiftOS that allows you to earn Codepoints for solving math " & vbNewLine & "questions. These questions will always be (num1) (operand) (num2) = (answer)." & vbNewLine) + AddLine("(num1) and (num2) will always be integers between 1 and 10.") + AddLine("(operand) Will always be either a +, -, * (times) or / (division) statement that can change the answer.") + MQCreateQuestion() + End If + If guessthenumber = True Then + AddLine(" -= Guess The Number =-" & vbNewLine) + AddLine("Guess the Number is a game that allows you to earn Codepoints for") + AddLine("guessing a number between 1 and 100." & vbNewLine) + GTNStart() + End If + End Sub + + Public GTNCorrect As Integer + + Public Sub GTNStart() + Dim rand As New Random() + GTNCorrect = rand.Next(1, 100) + AddLine("Choose a number between 1 and 100:") + End Sub + + Public Sub GTNInterpret(num As Integer) + If num < 100 And num > 0 Then + If GTNCorrect = num Then + Dim rand As New Random() + Dim cptoadd As Integer = rand.Next(1, 10) + AddLine("Correct! You have earned " & cptoadd & " Codepoints.") + GTNStart() + ElseIf num > GTNCorrect Then + AddLine("Lower!") + ElseIf num < GTNCorrect Then + AddLine("Higher!") + End If + Else + AddLine("Number isn't between 1 and 100!") + End If + End Sub +End Module diff --git a/shiftos_next/APIs/filesystem.vb b/shiftos_next/APIs/filesystem.vb new file mode 100644 index 0000000..61e8053 --- /dev/null +++ b/shiftos_next/APIs/filesystem.vb @@ -0,0 +1,19 @@ +Module filesystem + 'This module represents the folder structure of the ShiftFS Filesystem. + + Public root As String = "C:\ShiftOS" + + Public home As String = root + "\Home\" 'Inconsistent to fix terminal glitch. + + Public documents As String = home + "Documents\" + Public pictures As String = home + "Pictures\" + Public music As String = home + "Music\" + + Public systemdir As String = root + "\Shiftum42\" + + Public drivers As String = systemdir + "Drivers\" + + Public save As String = drivers + "HDD.dri" + + +End Module diff --git a/shiftos_next/APIs/saveengine.vb b/shiftos_next/APIs/saveengine.vb new file mode 100644 index 0000000..2c49cbd --- /dev/null +++ b/shiftos_next/APIs/saveengine.vb @@ -0,0 +1,611 @@ +Module saveengine + 'Core for Save Engine + + Public username As String = "user" + Public osname As String = "shiftos" + + ' + ' NEWER UPGRADES: These are partly from UltraDOS, partially from Orion, and a few others created just for this project. + ' + + Public boughtdirectorysurfing As Boolean = False + Public boughtbasicsettings As Boolean = False + Public boughtbasicgui As Boolean = False + Public boughtterminalsettextcolor As Boolean = False + Public boughtbasicwm As Boolean = False + + ' + ' OLD SHIFTOS UPGRADES: These upgrades may be useful, so I've added them. + ' + + 'Shiftorium Upgrades + Public boughttitlebar As Boolean = False + Public boughtgray As Boolean = False + Public boughtsecondspastmidnight As Boolean = False + Public boughtminutespastmidnight As Boolean = False + Public boughthourspastmidnight As Boolean = False + Public boughtcustomusername As Boolean = False + Public boughtwindowsanywhere As Boolean = False + Public boughtmultitasking As Boolean = False + Public boughtautoscrollterminal As Boolean = False + Public boughtmovablewindows As Boolean = False + Public boughtdraggablewindows As Boolean = False + Public boughtwindowborders As Boolean = False + Public boughtpmandam As Boolean = False + Public boughtminuteaccuracytime As Boolean = False + Public boughtsplitsecondtime As Boolean = False + Public boughttitletext As Boolean = False + Public boughtclosebutton As Boolean = False + Public boughtdesktoppanel As Boolean = False + Public boughtclock As Boolean = False + Public boughtwindowedterminal As Boolean = False + Public boughtapplaunchermenu As Boolean = False + Public boughtalknowledgeinput As Boolean = False + Public boughtalclock As Boolean = False + Public boughtalshiftorium As Boolean = False + Public boughtapplaunchershutdown As Boolean = False + Public boughtdesktoppanelclock As Boolean = False + Public boughtterminalscrollbar As Boolean = False + Public boughtkiaddons As Boolean = False + Public boughtkicarbrands As Boolean = False + Public boughtkigameconsoles As Boolean = False + Public boughtshifter As Boolean = False + Public boughtalshifter As Boolean = False + Public boughtrollupcommand As Boolean = False + Public boughtrollupbutton As Boolean = False + Public boughtshiftdesktop As Boolean = False + Public boughtshiftpanelclock As Boolean = False + Public boughtshiftapplauncher As Boolean = False + Public boughtshiftdesktoppanel As Boolean = False + Public boughtshifttitlebar As Boolean = False + Public boughtshifttitletext As Boolean = False + Public boughtshifttitlebuttons As Boolean = False + Public boughtshiftborders As Boolean = False + Public boughtgray2 As Boolean = False + Public boughtgray3 As Boolean = False + Public boughtgray4 As Boolean = False + Public boughtanycolour As Boolean = False + Public boughtanycolour2 As Boolean = False + Public boughtanycolour3 As Boolean = False + Public boughtanycolour4 As Boolean = False + Public boughtpurple As Boolean = False + Public boughtpurple2 As Boolean = False + Public boughtpurple3 As Boolean = False + Public boughtpurple4 As Boolean = False + Public boughtblue As Boolean = False + Public boughtblue2 As Boolean = False + Public boughtblue3 As Boolean = False + Public boughtblue4 As Boolean = False + Public boughtgreen As Boolean = False + Public boughtgreen2 As Boolean = False + Public boughtgreen3 As Boolean = False + Public boughtgreen4 As Boolean = False + Public boughtyellow As Boolean = False + Public boughtyellow2 As Boolean = False + Public boughtyellow3 As Boolean = False + Public boughtyellow4 As Boolean = False + Public boughtorange As Boolean = False + Public boughtorange2 As Boolean = False + Public boughtorange3 As Boolean = False + Public boughtorange4 As Boolean = False + Public boughtbrown As Boolean = False + Public boughtbrown2 As Boolean = False + Public boughtbrown3 As Boolean = False + Public boughtbrown4 As Boolean = False + Public boughtred As Boolean = False + Public boughtred2 As Boolean = False + Public boughtred3 As Boolean = False + Public boughtred4 As Boolean = False + Public boughtpink As Boolean = False + Public boughtpink2 As Boolean = False + Public boughtpink3 As Boolean = False + Public boughtpink4 As Boolean = False + 'new 0.0.6 content + Public boughtpong As Boolean = False + Public boughtknowledgeinputicon As Boolean = False + Public boughtshiftericon As Boolean = False + Public boughtshiftoriumicon As Boolean = False + Public boughtclockicon As Boolean = False + Public boughtshutdownicon As Boolean = False + Public boughtpongicon As Boolean = False + Public boughtterminalicon As Boolean = False + Public boughtalpong As Boolean = False + Public boughtfileskimmer As Boolean = False + Public boughtalfileskimmer As Boolean = False + Public boughttextpad As Boolean = False + Public boughtaltextpad As Boolean = False + Public boughtfileskimmericon As Boolean = False + Public boughttextpadicon As Boolean = False + Public boughttextpadnew As Boolean = False + Public boughttextpadsave As Boolean = False + Public boughttextpadopen As Boolean = False + Public boughtfileskimmernewfolder As Boolean = False + Public boughtfileskimmerdelete As Boolean = False + Public boughtkielements As Boolean = False + Public boughtcolourpickericon As Boolean = False + Public boughtinfoboxicon As Boolean = False + 'new 0.0.7 content + Public boughtskinloader As Boolean = False + Public boughtminimizebutton As Boolean = False + Public boughtpanelbuttons As Boolean = False + Public boughtshiftpanelbuttons As Boolean = False + Public boughtartpad As Boolean = False + Public boughtalartpad As Boolean = False + Public boughtartpadicon As Boolean = False + Public boughtskinning As Boolean = False + Public boughtminimizecommand As Boolean = False + Public boughtusefulpanelbuttons As Boolean = False + Public boughtunitymode As Boolean = False + Public boughtartpadpixellimit4 As Boolean = False + Public boughtartpadpixellimit8 As Boolean = False + Public boughtartpadpixellimit16 As Boolean = False + Public boughtartpadpixellimit64 As Boolean = False + Public boughtartpadpixellimit256 As Boolean = False + Public boughtartpadpixellimit1024 As Boolean = False + Public boughtartpadpixellimit4096 As Boolean = False + Public boughtartpadpixellimit16384 As Boolean = False + Public boughtartpadpixellimit65536 As Boolean = False + Public boughtartpadlimitlesspixels As Boolean = False + Public boughtartpad4colorpallets As Boolean = False + Public boughtartpad8colorpallets As Boolean = False + Public boughtartpad16colorpallets As Boolean = False + Public boughtartpad32colorpallets As Boolean = False + Public boughtartpad64colorpallets As Boolean = False + Public boughtartpad128colorpallets As Boolean = False + Public boughtartpadcustompallets As Boolean = False + Public boughtartpadnew As Boolean = False + Public boughtartpadpixelplacer As Boolean = False + Public boughtartpadpixelplacermovementmode As Boolean = False + Public boughtartpadpencil As Boolean = False + Public boughtartpadpaintbrush As Boolean = False + Public boughtartpadlinetool As Boolean = False + Public boughtartpadovaltool As Boolean = False + Public boughtartpadrectangletool As Boolean = False + Public boughtartpaderaser As Boolean = False + Public boughtartpadfilltool As Boolean = False + Public boughtartpadtexttool As Boolean = False + Public boughtartpadundo As Boolean = False + Public boughtartpadredo As Boolean = False + Public boughtartpadsave As Boolean = False + Public boughtartpadload As Boolean = False + 'new 0.0.8 features + Public boughtresizablewindows As Boolean = False + Public boughtcalculator As Boolean = False + Public boughtaudioplayer As Boolean = False + Public boughtchangeosnamecommand As Boolean = False + Public boughtwebbrowser As Boolean = False + Public boughtvideoplayer As Boolean = False + Public boughtnamechanger As Boolean = False + Public boughticonmanager As Boolean = False + Public boughtbitnotewallet As Boolean = False + Public boughtbitnotedigger As Boolean = False + Public boughtskinshifter As Boolean = False + Public boughtshiftnet As Boolean = False + Public boughtdownloader As Boolean = False + Public boughtshiftneticon As Boolean = False + Public boughtalshiftnet As Boolean = False + Public boughtdodge As Boolean = False + Public boughtdownloadmanager As Boolean = False + Public boughtinstaller As Boolean = False + Public boughtsnakey As Boolean = False + Public boughtsysinfoicon As Boolean = False + Public boughtorcwrite As Boolean = False + Public boughtfloodgate As Boolean = False + Public boughtmaze As Boolean = False + Public boughtunitymodetoggle As Boolean = False + Public boughtunitytoggleicon As Boolean = False + Public bitnotediggergrade As Integer = 0 + Public boughtvirusscannericon As Boolean = False + Public virusscannergrade As Integer = 0 + Public boughttextpadtrm As Boolean = False + Public boughtshiftapplauncheritems As Boolean = False + Public boughtadvapplauncher As Boolean = False + + + Public Sub savegame() + Dim savelines(2000) As String + If boughttitlebar = True Then savelines(0) = 11 Else savelines(0) = 10 + If boughtgray = True Then savelines(1) = 11 Else savelines(1) = 10 + If boughtsecondspastmidnight = True Then savelines(2) = 11 Else savelines(2) = 10 + If boughtminutespastmidnight = True Then savelines(3) = 11 Else savelines(3) = 10 + If boughthourspastmidnight = True Then savelines(4) = 11 Else savelines(4) = 10 + If boughtcustomusername = True Then savelines(5) = 11 Else savelines(5) = 10 + If boughtwindowsanywhere = True Then savelines(6) = 11 Else savelines(6) = 10 + If boughtmultitasking = True Then savelines(7) = 11 Else savelines(7) = 10 + If boughtautoscrollterminal = True Then savelines(8) = 11 Else savelines(8) = 10 + savelines(9) = codepoints + If boughtmovablewindows = True Then savelines(10) = 11 Else savelines(10) = 10 + If boughtdraggablewindows = True Then savelines(11) = 11 Else savelines(11) = 10 + If boughtwindowborders = True Then savelines(12) = 11 Else savelines(12) = 10 + If boughtpmandam = True Then savelines(13) = 11 Else savelines(13) = 10 + If boughtminuteaccuracytime = True Then savelines(14) = 11 Else savelines(14) = 10 + If boughtsplitsecondtime = True Then savelines(15) = 11 Else savelines(15) = 10 + If boughttitletext = True Then savelines(16) = 11 Else savelines(16) = 10 + If boughtclosebutton = True Then savelines(17) = 11 Else savelines(17) = 10 + If boughtdesktoppanel = True Then savelines(18) = 11 Else savelines(18) = 10 + If boughtclock = True Then savelines(19) = 11 Else savelines(19) = 10 + If boughtwindowedterminal = True Then savelines(20) = 11 Else savelines(20) = 10 + If boughtapplaunchermenu = True Then savelines(21) = 11 Else savelines(21) = 10 + If boughtalknowledgeinput = True Then savelines(22) = 11 Else savelines(22) = 10 + If boughtalclock = True Then savelines(23) = 11 Else savelines(23) = 10 + If boughtalshiftorium = True Then savelines(24) = 11 Else savelines(24) = 10 + If boughtapplaunchershutdown = True Then savelines(25) = 11 Else savelines(25) = 10 + If boughtdesktoppanelclock = True Then savelines(26) = 11 Else savelines(26) = 10 + If boughtterminalscrollbar = True Then savelines(27) = 11 Else savelines(27) = 10 + If boughtkiaddons = True Then savelines(28) = 11 Else savelines(28) = 10 + If boughtkicarbrands = True Then savelines(29) = 11 Else savelines(29) = 10 + If boughtkigameconsoles = True Then savelines(30) = 11 Else savelines(30) = 10 + savelines(31) = username + If boughtshifter = True Then savelines(33) = 11 Else savelines(33) = 10 + If boughtalshifter = True Then savelines(34) = 11 Else savelines(34) = 10 + If boughtrollupcommand = True Then savelines(35) = 11 Else savelines(35) = 10 + If boughtrollupbutton = True Then savelines(36) = 11 Else savelines(36) = 10 + If boughtshiftdesktop = True Then savelines(37) = 11 Else savelines(37) = 10 + If boughtshiftpanelclock = True Then savelines(38) = 11 Else savelines(38) = 10 + If boughtshiftapplauncher = True Then savelines(39) = 11 Else savelines(39) = 10 + If boughtshiftdesktoppanel = True Then savelines(40) = 11 Else savelines(40) = 10 + If boughtshifttitlebar = True Then savelines(41) = 11 Else savelines(41) = 10 + If boughtshifttitletext = True Then savelines(42) = 11 Else savelines(42) = 10 + If boughtshifttitlebuttons = True Then savelines(43) = 11 Else savelines(43) = 10 + If boughtshiftborders = True Then savelines(44) = 11 Else savelines(44) = 10 + If boughtgray2 = True Then savelines(45) = 11 Else savelines(45) = 10 + If boughtgray3 = True Then savelines(46) = 11 Else savelines(46) = 10 + If boughtgray4 = True Then savelines(47) = 11 Else savelines(47) = 10 + If boughtanycolour = True Then savelines(48) = 11 Else savelines(48) = 10 + If boughtanycolour2 = True Then savelines(49) = 11 Else savelines(49) = 10 + If boughtanycolour3 = True Then savelines(50) = 11 Else savelines(50) = 10 + If boughtanycolour4 = True Then savelines(51) = 11 Else savelines(51) = 10 + If boughtpurple = True Then savelines(52) = 11 Else savelines(52) = 10 + If boughtpurple2 = True Then savelines(53) = 11 Else savelines(53) = 10 + If boughtpurple3 = True Then savelines(54) = 11 Else savelines(54) = 10 + If boughtpurple4 = True Then savelines(55) = 11 Else savelines(55) = 10 + If boughtblue = True Then savelines(56) = 11 Else savelines(56) = 10 + If boughtblue2 = True Then savelines(57) = 11 Else savelines(57) = 10 + If boughtblue3 = True Then savelines(58) = 11 Else savelines(58) = 10 + If boughtblue4 = True Then savelines(59) = 11 Else savelines(59) = 10 + If boughtgreen = True Then savelines(60) = 11 Else savelines(60) = 10 + If boughtgreen2 = True Then savelines(61) = 11 Else savelines(61) = 10 + If boughtgreen3 = True Then savelines(62) = 11 Else savelines(62) = 10 + If boughtgreen4 = True Then savelines(63) = 11 Else savelines(63) = 10 + If boughtyellow = True Then savelines(64) = 11 Else savelines(64) = 10 + If boughtyellow2 = True Then savelines(65) = 11 Else savelines(65) = 10 + If boughtyellow3 = True Then savelines(66) = 11 Else savelines(66) = 10 + If boughtyellow4 = True Then savelines(67) = 11 Else savelines(67) = 10 + If boughtorange = True Then savelines(68) = 11 Else savelines(68) = 10 + If boughtorange2 = True Then savelines(69) = 11 Else savelines(69) = 10 + If boughtorange3 = True Then savelines(70) = 11 Else savelines(70) = 10 + If boughtorange4 = True Then savelines(71) = 11 Else savelines(71) = 10 + If boughtbrown = True Then savelines(72) = 11 Else savelines(72) = 10 + If boughtbrown2 = True Then savelines(73) = 11 Else savelines(73) = 10 + If boughtbrown3 = True Then savelines(74) = 11 Else savelines(74) = 10 + If boughtbrown4 = True Then savelines(75) = 11 Else savelines(75) = 10 + If boughtred = True Then savelines(76) = 11 Else savelines(76) = 10 + If boughtred2 = True Then savelines(77) = 11 Else savelines(77) = 10 + If boughtred3 = True Then savelines(78) = 11 Else savelines(78) = 10 + If boughtred4 = True Then savelines(79) = 11 Else savelines(79) = 10 + If boughtpink = True Then savelines(80) = 11 Else savelines(80) = 10 + If boughtpink2 = True Then savelines(81) = 11 Else savelines(81) = 10 + If boughtpink3 = True Then savelines(82) = 11 Else savelines(82) = 10 + If boughtpink4 = True Then savelines(83) = 11 Else savelines(83) = 10 + If boughtdirectorysurfing = True Then savelines(84) = 11 Else savelines(84) = 10 + savelines(85) = osname + If boughtbasicsettings = True Then savelines(86) = 11 Else savelines(86) = 10 + If boughtbasicgui = True Then savelines(87) = 11 Else savelines(87) = 10 + If boughtterminalsettextcolor = True Then savelines(88) = 11 Else savelines(88) = 10 + If boughtbasicwm = True Then savelines(89) = 11 Else savelines(89) = 10 + + + 'Large gap in file. Add new features here. + + If boughtpong = True Then savelines(285) = 11 Else savelines(285) = 10 + If boughtknowledgeinputicon = True Then savelines(286) = 11 Else savelines(286) = 10 + If boughtshiftericon = True Then savelines(287) = 11 Else savelines(287) = 10 + If boughtshiftoriumicon = True Then savelines(288) = 11 Else savelines(288) = 10 + If boughtclockicon = True Then savelines(289) = 11 Else savelines(289) = 10 + If boughtshutdownicon = True Then savelines(290) = 11 Else savelines(290) = 10 + If boughtpongicon = True Then savelines(291) = 11 Else savelines(291) = 10 + If boughtterminalicon = True Then savelines(292) = 11 Else savelines(292) = 10 + If boughtalpong = True Then savelines(293) = 11 Else savelines(293) = 10 + If boughtfileskimmer = True Then savelines(294) = 11 Else savelines(294) = 10 + If boughtalfileskimmer = True Then savelines(295) = 11 Else savelines(295) = 10 + If boughttextpad = True Then savelines(296) = 11 Else savelines(296) = 10 + If boughtaltextpad = True Then savelines(297) = 11 Else savelines(297) = 10 + If boughtfileskimmericon = True Then savelines(298) = 11 Else savelines(298) = 10 + If boughttextpadicon = True Then savelines(299) = 11 Else savelines(299) = 10 + If boughttextpadnew = True Then savelines(300) = 11 Else savelines(300) = 10 + If boughttextpadsave = True Then savelines(301) = 11 Else savelines(301) = 10 + If boughttextpadopen = True Then savelines(302) = 11 Else savelines(302) = 10 + If boughtfileskimmernewfolder = True Then savelines(303) = 11 Else savelines(303) = 10 + If boughtfileskimmerdelete = True Then savelines(304) = 11 Else savelines(304) = 10 + If boughtkielements = True Then savelines(305) = 11 Else savelines(305) = 10 + If boughtcolourpickericon = True Then savelines(306) = 11 Else savelines(306) = 10 + If boughtinfoboxicon = True Then savelines(307) = 11 Else savelines(307) = 10 + + 'Large gap in file. More room for more features. + + If boughtskinloader = True Then savelines(314) = 11 Else savelines(314) = 10 + If boughtminimizebutton = True Then savelines(315) = 11 Else savelines(315) = 10 + If boughtpanelbuttons = True Then savelines(316) = 11 Else savelines(316) = 10 + If boughtshiftpanelbuttons = True Then savelines(317) = 11 Else savelines(317) = 10 + If boughtartpad = True Then savelines(318) = 11 Else savelines(318) = 10 + If boughtalartpad = True Then savelines(319) = 11 Else savelines(319) = 10 + If boughtartpadicon = True Then savelines(320) = 11 Else savelines(320) = 10 + If boughtskinning = True Then savelines(321) = 11 Else savelines(321) = 10 + If boughtminimizecommand = True Then savelines(322) = 11 Else savelines(322) = 10 + If boughtusefulpanelbuttons = True Then savelines(323) = 11 Else savelines(323) = 10 + If boughtunitymode = True Then savelines(324) = 11 Else savelines(324) = 10 + If boughtartpadpixellimit4 = True Then savelines(325) = 11 Else savelines(325) = 10 + If boughtartpadpixellimit8 = True Then savelines(326) = 11 Else savelines(326) = 10 + If boughtartpadpixellimit16 = True Then savelines(327) = 11 Else savelines(327) = 10 + If boughtartpadpixellimit64 = True Then savelines(328) = 11 Else savelines(328) = 10 + If boughtartpadpixellimit256 = True Then savelines(329) = 11 Else savelines(329) = 10 + If boughtartpadpixellimit1024 = True Then savelines(330) = 11 Else savelines(330) = 10 + If boughtartpadpixellimit4096 = True Then savelines(331) = 11 Else savelines(331) = 10 + If boughtartpadpixellimit16384 = True Then savelines(332) = 11 Else savelines(332) = 10 + If boughtartpadpixellimit65536 = True Then savelines(333) = 11 Else savelines(333) = 10 + If boughtartpadlimitlesspixels = True Then savelines(334) = 11 Else savelines(334) = 10 + If boughtartpad4colorpallets = True Then savelines(335) = 11 Else savelines(335) = 10 + If boughtartpad8colorpallets = True Then savelines(336) = 11 Else savelines(336) = 10 + If boughtartpad16colorpallets = True Then savelines(337) = 11 Else savelines(337) = 10 + If boughtartpad32colorpallets = True Then savelines(338) = 11 Else savelines(338) = 10 + If boughtartpad64colorpallets = True Then savelines(339) = 11 Else savelines(339) = 10 + If boughtartpad128colorpallets = True Then savelines(340) = 11 Else savelines(340) = 10 + If boughtartpadcustompallets = True Then savelines(341) = 11 Else savelines(341) = 10 + If boughtartpadpixelplacer = True Then savelines(342) = 11 Else savelines(342) = 10 + If boughtartpadpixelplacermovementmode = True Then savelines(343) = 11 Else savelines(343) = 10 + If boughtartpadpencil = True Then savelines(344) = 11 Else savelines(344) = 10 + If boughtartpadpaintbrush = True Then savelines(345) = 11 Else savelines(345) = 10 + If boughtartpadlinetool = True Then savelines(346) = 11 Else savelines(346) = 10 + If boughtartpadovaltool = True Then savelines(347) = 11 Else savelines(347) = 10 + If boughtartpadrectangletool = True Then savelines(348) = 11 Else savelines(348) = 10 + If boughtartpaderaser = True Then savelines(349) = 11 Else savelines(349) = 10 + If boughtartpadfilltool = True Then savelines(350) = 11 Else savelines(350) = 10 + If boughtartpadtexttool = True Then savelines(351) = 11 Else savelines(351) = 10 + If boughtartpadundo = True Then savelines(352) = 11 Else savelines(352) = 10 + If boughtartpadredo = True Then savelines(353) = 11 Else savelines(353) = 10 + If boughtartpadsave = True Then savelines(354) = 11 Else savelines(354) = 10 + If boughtartpadload = True Then savelines(355) = 11 Else savelines(355) = 10 + If boughtartpadnew = True Then savelines(484) = 11 Else savelines(484) = 10 + '0.0.8 + 'savelines(485) = ingameversion - Not yet implemented, will be soon. + If boughtresizablewindows Then savelines(486) = 11 Else savelines(486) = 10 + If boughtcalculator Then savelines(487) = 11 Else savelines(487) = 10 + If boughtaudioplayer Then savelines(488) = 11 Else savelines(488) = 10 + If boughtchangeosnamecommand Then savelines(489) = 11 Else savelines(489) = 10 + If boughtwebbrowser Then savelines(490) = 11 Else savelines(490) = 10 + If boughtvideoplayer Then savelines(491) = 11 Else savelines(491) = 10 + If boughtnamechanger Then savelines(492) = 11 Else savelines(492) = 10 + If boughticonmanager Then savelines(493) = 11 Else savelines(493) = 10 + If boughtbitnotewallet Then savelines(494) = 11 Else savelines(494) = 10 + If boughtbitnotedigger Then savelines(495) = 11 Else savelines(495) = 10 + If boughtskinshifter Then savelines(496) = 11 Else savelines(496) = 10 + If boughtshiftnet Then savelines(497) = 11 Else savelines(497) = 10 + If boughtshiftneticon Then savelines(498) = 11 Else savelines(498) = 10 + If boughtalshiftnet Then savelines(499) = 11 Else savelines(499) = 10 + If boughtdodge Then savelines(500) = 11 Else savelines(500) = 10 + If boughtdownloadmanager Then savelines(501) = 11 Else savelines(501) = 10 + If boughtinstaller Then savelines(502) = 11 Else savelines(502) = 10 + If boughtsysinfoicon Then savelines(503) = 11 Else savelines(503) = 10 + If boughtorcwrite Then savelines(504) = 11 Else savelines(504) = 10 + If boughtfloodgate Then savelines(505) = 11 Else savelines(505) = 10 + If boughtmaze Then savelines(506) = 11 Else savelines(506) = 10 + If boughtunitymodetoggle Then savelines(507) = 11 Else savelines(507) = 10 + If boughtunitytoggleicon Then savelines(508) = 11 Else savelines(508) = 10 + savelines(509) = bitnotediggergrade + If boughtvirusscannericon Then savelines(510) = 11 Else savelines(510) = 10 + savelines(511) = virusscannergrade + If boughttextpadtrm Then savelines(512) = 11 Else savelines(512) = 10 + If boughtshiftapplauncheritems Then savelines(513) = 11 Else savelines(513) = 10 + + + IO.File.WriteAllLines(save, savelines) + End Sub + + + + Public Sub loadgame() + Try + Dim loadlines() As String = IO.File.ReadAllLines(save) + If loadlines(0) = 11 Then boughttitlebar = True Else boughttitlebar = False + If loadlines(1) = 11 Then boughtgray = True Else boughtgray = False + If loadlines(2) = 11 Then boughtsecondspastmidnight = True Else boughtsecondspastmidnight = False + If loadlines(3) = 11 Then boughtminutespastmidnight = True Else boughtminutespastmidnight = False + If loadlines(4) = 11 Then boughthourspastmidnight = True Else boughthourspastmidnight = False + If loadlines(5) = 11 Then boughtcustomusername = True Else boughtcustomusername = False + If loadlines(6) = 11 Then boughtwindowsanywhere = True Else boughtwindowsanywhere = False + If loadlines(7) = 11 Then boughtmultitasking = True Else boughtmultitasking = False + If loadlines(8) = 11 Then boughtautoscrollterminal = True Else boughtautoscrollterminal = False + codepoints = loadlines(9) + If loadlines(10) = 11 Then boughtmovablewindows = True Else boughtmovablewindows = False + If loadlines(11) = 11 Then boughtdraggablewindows = True Else boughtdraggablewindows = False + If loadlines(12) = 11 Then boughtwindowborders = True Else boughtwindowborders = False + If loadlines(13) = 11 Then boughtpmandam = True Else boughtpmandam = False + If loadlines(14) = 11 Then boughtminuteaccuracytime = True Else boughtminuteaccuracytime = False + If loadlines(15) = 11 Then boughtsplitsecondtime = True Else boughtsplitsecondtime = False + If loadlines(16) = 11 Then boughttitletext = True Else boughttitletext = False + If loadlines(17) = 11 Then boughtclosebutton = True Else boughtclosebutton = False + If loadlines(18) = 11 Then boughtdesktoppanel = True Else boughtdesktoppanel = False + If loadlines(19) = 11 Then boughtclock = True Else boughtclock = False + If loadlines(20) = 11 Then boughtwindowedterminal = True Else boughtwindowedterminal = False + If loadlines(21) = 11 Then boughtapplaunchermenu = True Else boughtapplaunchermenu = False + If loadlines(22) = 11 Then boughtalknowledgeinput = True Else boughtalknowledgeinput = False + If loadlines(23) = 11 Then boughtalclock = True Else boughtalclock = False + If loadlines(24) = 11 Then boughtalshiftorium = True Else boughtalshiftorium = False + If loadlines(25) = 11 Then boughtapplaunchershutdown = True Else boughtapplaunchershutdown = False + If loadlines(26) = 11 Then boughtdesktoppanelclock = True Else boughtdesktoppanelclock = False + If loadlines(27) = 11 Then boughtterminalscrollbar = True Else boughtterminalscrollbar = False + If loadlines(28) = 11 Then boughtkiaddons = True Else boughtkiaddons = False + If loadlines(29) = 11 Then boughtkicarbrands = True Else boughtkicarbrands = False + If loadlines(30) = 11 Then boughtkigameconsoles = True Else boughtkigameconsoles = False + username = loadlines(31) + If loadlines(33) = 11 Then boughtshifter = True Else boughtshifter = False + If loadlines(34) = 11 Then boughtalshifter = True Else boughtalshifter = False + If loadlines(35) = 11 Then boughtrollupcommand = True Else boughtrollupcommand = False + If loadlines(36) = 11 Then boughtrollupbutton = True Else boughtrollupbutton = False + If loadlines(37) = 11 Then boughtshiftdesktop = True Else boughtshiftdesktop = False + If loadlines(38) = 11 Then boughtshiftpanelclock = True Else boughtshiftpanelclock = False + If loadlines(39) = 11 Then boughtshiftapplauncher = True Else boughtshiftapplauncher = False + If loadlines(40) = 11 Then boughtshiftdesktoppanel = True Else boughtshiftdesktoppanel = False + If loadlines(41) = 11 Then boughtshifttitlebar = True Else boughtshifttitlebar = False + If loadlines(42) = 11 Then boughtshifttitletext = True Else boughtshifttitletext = False + If loadlines(43) = 11 Then boughtshifttitlebuttons = True Else boughtshifttitlebuttons = False + If loadlines(44) = 11 Then boughtshiftborders = True Else boughtshiftborders = False + If loadlines(45) = 11 Then boughtgray2 = True Else boughtgray2 = False + If loadlines(46) = 11 Then boughtgray3 = True Else boughtgray3 = False + If loadlines(47) = 11 Then boughtgray4 = True Else boughtgray4 = False + If loadlines(48) = 11 Then boughtanycolour = True Else boughtanycolour = False + If loadlines(49) = 11 Then boughtanycolour2 = True Else boughtanycolour2 = False + If loadlines(50) = 11 Then boughtanycolour3 = True Else boughtanycolour3 = False + If loadlines(51) = 11 Then boughtanycolour4 = True Else boughtanycolour4 = False + If loadlines(52) = 11 Then boughtpurple = True Else boughtpurple = False + If loadlines(53) = 11 Then boughtpurple2 = True Else boughtpurple2 = False + If loadlines(54) = 11 Then boughtpurple3 = True Else boughtpurple3 = False + If loadlines(55) = 11 Then boughtpurple4 = True Else boughtpurple4 = False + If loadlines(56) = 11 Then boughtblue = True Else boughtblue = False + If loadlines(57) = 11 Then boughtblue2 = True Else boughtblue2 = False + If loadlines(58) = 11 Then boughtblue3 = True Else boughtblue3 = False + If loadlines(59) = 11 Then boughtblue4 = True Else boughtblue4 = False + If loadlines(60) = 11 Then boughtgreen = True Else boughtgreen = False + If loadlines(61) = 11 Then boughtgreen2 = True Else boughtgreen2 = False + If loadlines(62) = 11 Then boughtgreen3 = True Else boughtgreen3 = False + If loadlines(63) = 11 Then boughtgreen4 = True Else boughtgreen4 = False + If loadlines(64) = 11 Then boughtyellow = True Else boughtyellow = False + If loadlines(65) = 11 Then boughtyellow2 = True Else boughtyellow2 = False + If loadlines(66) = 11 Then boughtyellow3 = True Else boughtyellow3 = False + If loadlines(67) = 11 Then boughtyellow4 = True Else boughtyellow4 = False + If loadlines(68) = 11 Then boughtorange = True Else boughtorange = False + If loadlines(69) = 11 Then boughtorange2 = True Else boughtorange2 = False + If loadlines(70) = 11 Then boughtorange3 = True Else boughtorange3 = False + If loadlines(71) = 11 Then boughtorange4 = True Else boughtorange4 = False + If loadlines(72) = 11 Then boughtbrown = True Else boughtbrown = False + If loadlines(73) = 11 Then boughtbrown2 = True Else boughtbrown2 = False + If loadlines(74) = 11 Then boughtbrown3 = True Else boughtbrown3 = False + If loadlines(75) = 11 Then boughtbrown4 = True Else boughtbrown4 = False + If loadlines(76) = 11 Then boughtred = True Else boughtred = False + If loadlines(77) = 11 Then boughtred2 = True Else boughtred2 = False + If loadlines(78) = 11 Then boughtred3 = True Else boughtred3 = False + If loadlines(79) = 11 Then boughtred4 = True Else boughtred4 = False + If loadlines(80) = 11 Then boughtpink = True Else boughtpink = False + If loadlines(81) = 11 Then boughtpink2 = True Else boughtpink2 = False + If loadlines(82) = 11 Then boughtpink3 = True Else boughtpink3 = False + If loadlines(83) = 11 Then boughtpink4 = True Else boughtpink4 = False + If loadlines(84) = 11 Then boughtdirectorysurfing = True Else boughtdirectorysurfing = False + osname = loadlines(85) + If loadlines(86) = 11 Then boughtbasicsettings = True Else boughtbasicsettings = False + If loadlines(87) = 11 Then boughtbasicgui = True Else boughtbasicgui = False + If loadlines(88) = 11 Then boughtterminalsettextcolor = True Else boughtterminalsettextcolor = False + If loadlines(89) = 11 Then boughtbasicwm = True Else boughtbasicwm = False + + + + + + + + 'Add appropriate features here. + + If loadlines(285) = 11 Then boughtpong = True Else boughtpong = False + If loadlines(286) = 11 Then boughtknowledgeinputicon = True Else boughtknowledgeinputicon = False + If loadlines(287) = 11 Then boughtshiftericon = True Else boughtshiftericon = False + If loadlines(288) = 11 Then boughtshiftoriumicon = True Else boughtshiftoriumicon = False + If loadlines(289) = 11 Then boughtclockicon = True Else boughtclockicon = False + If loadlines(290) = 11 Then boughtshutdownicon = True Else boughtshutdownicon = False + If loadlines(291) = 11 Then boughtpongicon = True Else boughtpongicon = False + If loadlines(292) = 11 Then boughtterminalicon = True Else boughtterminalicon = False + If loadlines(293) = 11 Then boughtalpong = True Else boughtalpong = False + If loadlines(294) = 11 Then boughtfileskimmer = True Else boughtfileskimmer = False + If loadlines(295) = 11 Then boughtalfileskimmer = True Else boughtalfileskimmer = False + If loadlines(296) = 11 Then boughttextpad = True Else boughttextpad = False + If loadlines(297) = 11 Then boughtaltextpad = True Else boughtaltextpad = False + If loadlines(298) = 11 Then boughtfileskimmericon = True Else boughtfileskimmericon = False + If loadlines(299) = 11 Then boughttextpadicon = True Else boughttextpadicon = False + If loadlines(300) = 11 Then boughttextpadnew = True Else boughttextpadnew = False + If loadlines(301) = 11 Then boughttextpadsave = True Else boughttextpadsave = False + If loadlines(302) = 11 Then boughttextpadopen = True Else boughttextpadopen = False + If loadlines(303) = 11 Then boughtfileskimmernewfolder = True Else boughtfileskimmernewfolder = False + If loadlines(304) = 11 Then boughtfileskimmerdelete = True Else boughtfileskimmerdelete = False + If loadlines(305) = 11 Then boughtkielements = True Else boughtkielements = False + If loadlines(306) = 11 Then boughtcolourpickericon = True Else boughtcolourpickericon = False + If loadlines(307) = 11 Then boughtinfoboxicon = True Else boughtinfoboxicon = False + + 'Add appropriate features here + + If loadlines(314) = 11 Then boughtskinloader = True Else boughtskinloader = False + If loadlines(315) = 11 Then boughtminimizebutton = True Else boughtminimizebutton = False + If loadlines(316) = 11 Then boughtpanelbuttons = True Else boughtpanelbuttons = False + If loadlines(317) = 11 Then boughtshiftpanelbuttons = True Else boughtshiftpanelbuttons = False + If loadlines(318) = 11 Then boughtartpad = True Else boughtartpad = False + If loadlines(319) = 11 Then boughtalartpad = True Else boughtalartpad = False + If loadlines(320) = 11 Then boughtartpadicon = True Else boughtartpadicon = False + If loadlines(321) = 11 Then boughtskinning = True Else boughtskinning = False + If loadlines(322) = 11 Then boughtminimizecommand = True Else boughtminimizecommand = False + If loadlines(323) = 11 Then boughtusefulpanelbuttons = True Else boughtusefulpanelbuttons = False + If loadlines(324) = 11 Then boughtunitymode = True Else boughtunitymode = False + If loadlines(325) = 11 Then boughtartpadpixellimit4 = True Else boughtartpadpixellimit4 = False + If loadlines(326) = 11 Then boughtartpadpixellimit8 = True Else boughtartpadpixellimit8 = False + If loadlines(327) = 11 Then boughtartpadpixellimit16 = True Else boughtartpadpixellimit16 = False + If loadlines(328) = 11 Then boughtartpadpixellimit64 = True Else boughtartpadpixellimit64 = False + If loadlines(329) = 11 Then boughtartpadpixellimit256 = True Else boughtartpadpixellimit256 = False + If loadlines(330) = 11 Then boughtartpadpixellimit1024 = True Else boughtartpadpixellimit1024 = False + If loadlines(331) = 11 Then boughtartpadpixellimit4096 = True Else boughtartpadpixellimit4096 = False + If loadlines(332) = 11 Then boughtartpadpixellimit16384 = True Else boughtartpadpixellimit16384 = False + If loadlines(333) = 11 Then boughtartpadpixellimit65536 = True Else boughtartpadpixellimit65536 = False + If loadlines(334) = 11 Then boughtartpadlimitlesspixels = True Else boughtartpadlimitlesspixels = False + If loadlines(335) = 11 Then boughtartpad4colorpallets = True Else boughtartpad4colorpallets = False + If loadlines(336) = 11 Then boughtartpad8colorpallets = True Else boughtartpad8colorpallets = False + If loadlines(337) = 11 Then boughtartpad16colorpallets = True Else boughtartpad16colorpallets = False + If loadlines(338) = 11 Then boughtartpad32colorpallets = True Else boughtartpad32colorpallets = False + If loadlines(339) = 11 Then boughtartpad64colorpallets = True Else boughtartpad64colorpallets = False + If loadlines(340) = 11 Then boughtartpad128colorpallets = True Else boughtartpad128colorpallets = False + If loadlines(341) = 11 Then boughtartpadcustompallets = True Else boughtartpadcustompallets = False + If loadlines(342) = 11 Then boughtartpadpixelplacer = True Else boughtartpadpixelplacer = False + If loadlines(343) = 11 Then boughtartpadpixelplacermovementmode = True Else boughtartpadpixelplacermovementmode = False + If loadlines(344) = 11 Then boughtartpadpencil = True Else boughtartpadpencil = False + If loadlines(345) = 11 Then boughtartpadpaintbrush = True Else boughtartpadpaintbrush = False + If loadlines(346) = 11 Then boughtartpadlinetool = True Else boughtartpadlinetool = False + If loadlines(347) = 11 Then boughtartpadovaltool = True Else boughtartpadovaltool = False + If loadlines(348) = 11 Then boughtartpadrectangletool = True Else boughtartpadrectangletool = False + If loadlines(349) = 11 Then boughtartpaderaser = True Else boughtartpaderaser = False + If loadlines(350) = 11 Then boughtartpadfilltool = True Else boughtartpadfilltool = False + If loadlines(351) = 11 Then boughtartpadtexttool = True Else boughtartpadtexttool = False + If loadlines(352) = 11 Then boughtartpadundo = True Else boughtartpadundo = False + If loadlines(353) = 11 Then boughtartpadredo = True Else boughtartpadredo = False + If loadlines(354) = 11 Then boughtartpadsave = True Else boughtartpadsave = False + If loadlines(355) = 11 Then boughtartpadload = True Else boughtartpadload = False + If loadlines(484) = "" Then Else If loadlines(484) = 11 Then boughtartpadnew = True Else boughtartpadnew = False + 'Not yet implemented! ingameversion = loadlines(485) + If loadlines(486) = 11 Then boughtresizablewindows = True Else boughtresizablewindows = False + If loadlines(487) = 11 Then boughtcalculator = True Else boughtcalculator = False + If loadlines(488) = 11 Then boughtaudioplayer = True Else boughtaudioplayer = False + If loadlines(489) = 11 Then boughtchangeosnamecommand = True Else boughtchangeosnamecommand = False + If loadlines(490) = 11 Then boughtwebbrowser = True Else boughtwebbrowser = False + If loadlines(491) = 11 Then boughtvideoplayer = True Else boughtvideoplayer = False + If loadlines(492) = 11 Then boughtnamechanger = True Else boughtnamechanger = False + If loadlines(493) = 11 Then boughticonmanager = True Else boughticonmanager = False + If loadlines(494) = 11 Then boughtbitnotewallet = True Else boughtbitnotewallet = False + If loadlines(495) = 11 Then boughtbitnotedigger = True Else boughtbitnotedigger = False + If loadlines(496) = 11 Then boughtskinshifter = True Else boughtskinshifter = False + If loadlines(497) = 11 Then boughtshiftnet = True Else boughtshiftnet = False + If loadlines(498) = 11 Then boughtshiftneticon = True Else boughtshiftneticon = False + If loadlines(499) = 11 Then boughtalshiftnet = True Else boughtalshiftnet = False + If loadlines(500) = 11 Then boughtdodge = True Else boughtdodge = False + If loadlines(501) = 11 Then boughtdownloadmanager = True Else boughtdownloadmanager = False + If loadlines(502) = 11 Then boughtinstaller = True Else boughtinstaller = False + If loadlines(503) = 11 Then boughtsysinfoicon = True Else boughtsysinfoicon = False + If loadlines(504) = 11 Then boughtorcwrite = True Else boughtorcwrite = False + If loadlines(505) = 11 Then boughtfloodgate = True Else boughtfloodgate = False + If loadlines(506) = 11 Then boughtmaze = True Else boughtmaze = False + If loadlines(507) = 11 Then boughtunitymodetoggle = True Else boughtunitymodetoggle = False + If loadlines(508) = 11 Then boughtunitytoggleicon = True Else boughtunitytoggleicon = False + bitnotediggergrade = loadlines(509) + If loadlines(510) = 11 Then boughtvirusscannericon = True Else boughtvirusscannericon = False + virusscannergrade = loadlines(511) + If loadlines(512) = 11 Then boughttextpadtrm = True Else boughttextpadtrm = False + If loadlines(513) = 11 Then boughtshiftapplauncheritems = True Else boughtshiftapplauncheritems = False + Catch ex As Exception + Terminal.prompttoupdatesave = True + End Try + End Sub + + +End Module diff --git a/shiftos_next/APIs/shiftorium_api.vb b/shiftos_next/APIs/shiftorium_api.vb new file mode 100644 index 0000000..39960e4 --- /dev/null +++ b/shiftos_next/APIs/shiftorium_api.vb @@ -0,0 +1,21 @@ +Module shiftorium_api + 'API for Shiftorium Applications. + + Public listboxtoaddto As ListBox + Public codepoints As Integer + + Public Sub DeductCP(ammount As Integer) + codepoints -= ammount + savegame() + End Sub + + Public Sub AddCP(ammount As Integer) + codepoints += ammount + savegame() + End Sub + + Public Sub AddItem(name As String, CP As Integer) + listboxtoaddto.Items.Add(name & " - " & CP & " CP") + End Sub + +End Module diff --git a/shiftos_next/BWM User Controls/Titlebar.vb b/shiftos_next/BWM User Controls/Titlebar.vb index 7e380d5..2d4e6e6 100644 --- a/shiftos_next/BWM User Controls/Titlebar.vb +++ b/shiftos_next/BWM User Controls/Titlebar.vb @@ -11,6 +11,11 @@ Friend WithEvents prnt As Form = ParentForm + Private Sub Titlebar_Load(sender As Object, e As EventArgs) Handles Me.Load + Me.Dock = DockStyle.Top + Me.BringToFront() + End Sub + Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown, lbtitle.MouseDown ' Handle Draggable Windows If boughtdraggablewindows = True Then @@ -31,8 +36,8 @@ If boughtbasicwm = True Then Me.Show() ParentForm.WindowState = FormWindowState.Normal - ParentForm.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 - ParentForm.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 + ParentForm.Left = (Screen.PrimaryScreen.Bounds.Width - ParentForm.Width) / 2 + ParentForm.Top = (Screen.PrimaryScreen.Bounds.Height - ParentForm.Height) / 2 ParentForm.TopMost = True Else Me.Hide() diff --git a/shiftos_next/BWM and CMD Apps/ColorPicker.Designer.vb b/shiftos_next/BWM and CMD Apps/ColorPicker.Designer.vb new file mode 100644 index 0000000..46bdcd4 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/ColorPicker.Designer.vb @@ -0,0 +1,260 @@ +Namespace BasicWM + _ + Partial Class ColorPicker + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.pnlcolors = New System.Windows.Forms.FlowLayoutPanel() + Me.btnwhite = New System.Windows.Forms.Button() + Me.btnblack = New System.Windows.Forms.Button() + Me.btngray = New System.Windows.Forms.Button() + Me.btnred = New System.Windows.Forms.Button() + Me.btngreen = New System.Windows.Forms.Button() + Me.btnblue = New System.Windows.Forms.Button() + Me.btnyellow = New System.Windows.Forms.Button() + Me.btnorange = New System.Windows.Forms.Button() + Me.btnpink = New System.Windows.Forms.Button() + Me.btnpurple = New System.Windows.Forms.Button() + Me.btnbrown = New System.Windows.Forms.Button() + Me.btnok = New System.Windows.Forms.Button() + Me.lbselectedcolor = New System.Windows.Forms.Label() + Me.btncancel = New System.Windows.Forms.Button() + Me.pnltop = New shiftos_next.Titlebar() + Me.pnlcolors.SuspendLayout() + Me.SuspendLayout() + ' + 'pnlcolors + ' + Me.pnlcolors.Controls.Add(Me.btnwhite) + Me.pnlcolors.Controls.Add(Me.btnblack) + Me.pnlcolors.Controls.Add(Me.btngray) + Me.pnlcolors.Controls.Add(Me.btnred) + Me.pnlcolors.Controls.Add(Me.btngreen) + Me.pnlcolors.Controls.Add(Me.btnblue) + Me.pnlcolors.Controls.Add(Me.btnyellow) + Me.pnlcolors.Controls.Add(Me.btnorange) + Me.pnlcolors.Controls.Add(Me.btnpink) + Me.pnlcolors.Controls.Add(Me.btnpurple) + Me.pnlcolors.Controls.Add(Me.btnbrown) + Me.pnlcolors.Location = New System.Drawing.Point(15, 65) + Me.pnlcolors.Name = "pnlcolors" + Me.pnlcolors.Size = New System.Drawing.Size(335, 177) + Me.pnlcolors.TabIndex = 1 + ' + 'btnwhite + ' + Me.btnwhite.BackColor = System.Drawing.Color.White + Me.btnwhite.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnwhite.Location = New System.Drawing.Point(3, 3) + Me.btnwhite.Name = "btnwhite" + Me.btnwhite.Size = New System.Drawing.Size(26, 23) + Me.btnwhite.TabIndex = 0 + Me.btnwhite.UseVisualStyleBackColor = False + ' + 'btnblack + ' + Me.btnblack.BackColor = System.Drawing.Color.Black + Me.btnblack.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnblack.Location = New System.Drawing.Point(35, 3) + Me.btnblack.Name = "btnblack" + Me.btnblack.Size = New System.Drawing.Size(26, 23) + Me.btnblack.TabIndex = 1 + Me.btnblack.UseVisualStyleBackColor = False + ' + 'btngray + ' + Me.btngray.BackColor = System.Drawing.Color.Gray + Me.btngray.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btngray.Location = New System.Drawing.Point(67, 3) + Me.btngray.Name = "btngray" + Me.btngray.Size = New System.Drawing.Size(26, 23) + Me.btngray.TabIndex = 2 + Me.btngray.UseVisualStyleBackColor = False + Me.btngray.Visible = False + ' + 'btnred + ' + Me.btnred.BackColor = System.Drawing.Color.Red + Me.btnred.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnred.Location = New System.Drawing.Point(99, 3) + Me.btnred.Name = "btnred" + Me.btnred.Size = New System.Drawing.Size(26, 23) + Me.btnred.TabIndex = 3 + Me.btnred.UseVisualStyleBackColor = False + Me.btnred.Visible = False + ' + 'btngreen + ' + Me.btngreen.BackColor = System.Drawing.Color.Green + Me.btngreen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btngreen.Location = New System.Drawing.Point(131, 3) + Me.btngreen.Name = "btngreen" + Me.btngreen.Size = New System.Drawing.Size(26, 23) + Me.btngreen.TabIndex = 4 + Me.btngreen.UseVisualStyleBackColor = False + Me.btngreen.Visible = False + ' + 'btnblue + ' + Me.btnblue.BackColor = System.Drawing.Color.Blue + Me.btnblue.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnblue.Location = New System.Drawing.Point(163, 3) + Me.btnblue.Name = "btnblue" + Me.btnblue.Size = New System.Drawing.Size(26, 23) + Me.btnblue.TabIndex = 5 + Me.btnblue.UseVisualStyleBackColor = False + Me.btnblue.Visible = False + ' + 'btnyellow + ' + Me.btnyellow.BackColor = System.Drawing.Color.Yellow + Me.btnyellow.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnyellow.Location = New System.Drawing.Point(195, 3) + Me.btnyellow.Name = "btnyellow" + Me.btnyellow.Size = New System.Drawing.Size(26, 23) + Me.btnyellow.TabIndex = 6 + Me.btnyellow.UseVisualStyleBackColor = False + Me.btnyellow.Visible = False + ' + 'btnorange + ' + Me.btnorange.BackColor = System.Drawing.Color.Orange + Me.btnorange.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnorange.Location = New System.Drawing.Point(227, 3) + Me.btnorange.Name = "btnorange" + Me.btnorange.Size = New System.Drawing.Size(26, 23) + Me.btnorange.TabIndex = 7 + Me.btnorange.UseVisualStyleBackColor = False + Me.btnorange.Visible = False + ' + 'btnpink + ' + Me.btnpink.BackColor = System.Drawing.Color.Pink + Me.btnpink.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpink.Location = New System.Drawing.Point(259, 3) + Me.btnpink.Name = "btnpink" + Me.btnpink.Size = New System.Drawing.Size(26, 23) + Me.btnpink.TabIndex = 8 + Me.btnpink.UseVisualStyleBackColor = False + Me.btnpink.Visible = False + ' + 'btnpurple + ' + Me.btnpurple.BackColor = System.Drawing.Color.Purple + Me.btnpurple.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpurple.Location = New System.Drawing.Point(291, 3) + Me.btnpurple.Name = "btnpurple" + Me.btnpurple.Size = New System.Drawing.Size(26, 23) + Me.btnpurple.TabIndex = 9 + Me.btnpurple.UseVisualStyleBackColor = False + Me.btnpurple.Visible = False + ' + 'btnbrown + ' + Me.btnbrown.BackColor = System.Drawing.Color.Brown + Me.btnbrown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnbrown.Location = New System.Drawing.Point(3, 32) + Me.btnbrown.Name = "btnbrown" + Me.btnbrown.Size = New System.Drawing.Size(26, 23) + Me.btnbrown.TabIndex = 10 + Me.btnbrown.UseVisualStyleBackColor = False + Me.btnbrown.Visible = False + ' + 'btnok + ' + Me.btnok.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnok.Location = New System.Drawing.Point(275, 245) + Me.btnok.Name = "btnok" + Me.btnok.Size = New System.Drawing.Size(75, 23) + Me.btnok.TabIndex = 2 + Me.btnok.Text = "OK" + Me.btnok.UseVisualStyleBackColor = True + ' + 'lbselectedcolor + ' + Me.lbselectedcolor.AutoSize = True + Me.lbselectedcolor.Location = New System.Drawing.Point(12, 249) + Me.lbselectedcolor.Name = "lbselectedcolor" + Me.lbselectedcolor.Size = New System.Drawing.Size(154, 14) + Me.lbselectedcolor.TabIndex = 3 + Me.lbselectedcolor.Text = "Selected Color: White" + ' + 'btncancel + ' + Me.btncancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncancel.Location = New System.Drawing.Point(194, 245) + Me.btncancel.Name = "btncancel" + Me.btncancel.Size = New System.Drawing.Size(75, 23) + Me.btncancel.TabIndex = 4 + Me.btncancel.Text = "Cancel" + Me.btncancel.UseVisualStyleBackColor = True + ' + 'pnltop + ' + Me.pnltop.AppName = "Color Picker" + Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.pnltop.ForeColor = System.Drawing.Color.White + Me.pnltop.Location = New System.Drawing.Point(0, 0) + Me.pnltop.Name = "pnltop" + Me.pnltop.Size = New System.Drawing.Size(362, 32) + Me.pnltop.TabIndex = 5 + ' + 'ColorPicker + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(362, 280) + Me.Controls.Add(Me.pnltop) + Me.Controls.Add(Me.btncancel) + Me.Controls.Add(Me.lbselectedcolor) + Me.Controls.Add(Me.btnok) + Me.Controls.Add(Me.pnlcolors) + Me.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.ForeColor = System.Drawing.Color.White + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "ColorPicker" + Me.Text = "ColorPicker" + Me.pnlcolors.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pnlcolors As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents btnwhite As System.Windows.Forms.Button + Friend WithEvents btnblack As System.Windows.Forms.Button + Friend WithEvents btngray As System.Windows.Forms.Button + Friend WithEvents btnred As System.Windows.Forms.Button + Friend WithEvents btngreen As System.Windows.Forms.Button + Friend WithEvents btnblue As System.Windows.Forms.Button + Friend WithEvents btnyellow As System.Windows.Forms.Button + Friend WithEvents btnorange As System.Windows.Forms.Button + Friend WithEvents btnpink As System.Windows.Forms.Button + Friend WithEvents btnpurple As System.Windows.Forms.Button + Friend WithEvents btnbrown As System.Windows.Forms.Button + Friend WithEvents btnok As System.Windows.Forms.Button + Friend WithEvents lbselectedcolor As System.Windows.Forms.Label + Friend WithEvents btncancel As System.Windows.Forms.Button + Friend WithEvents pnltop As shiftos_next.Titlebar + End Class +End Namespace \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/ColorPicker.resx b/shiftos_next/BWM and CMD Apps/ColorPicker.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/ColorPicker.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/ColorPicker.vb b/shiftos_next/BWM and CMD Apps/ColorPicker.vb new file mode 100644 index 0000000..d569c65 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/ColorPicker.vb @@ -0,0 +1,38 @@ +Namespace BasicWM + Public Class ColorPicker + + Public Color As Color + Public oldcolor As Color + + Private Sub btnwhite_Click(sender As Object, e As EventArgs) Handles btnwhite.Click, btnblack.Click, btngray.Click, btnred.Click, btngreen.Click, btnblue.Click, btnyellow.Click, btnorange.Click, btnpink.Click, btnpurple.Click, btnbrown.Click + Color = sender.backcolor + lbselectedcolor.Text = "Selected color: " & Color.ToKnownColor.ToString + End Sub + + Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click + Me.Close() + End Sub + + Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click + Color = oldcolor + Me.Close() + End Sub + + Private Sub ColorPicker_Load(sender As Object, e As EventArgs) Handles MyBase.Load + loadcolors() + End Sub + + + Public Sub loadcolors() + If boughtgray Then btngray.Show() + If boughtred Then btnred.Show() + If boughtgreen Then btngreen.Show() + If boughtblue Then btnblue.Show() + If boughtyellow Then btnyellow.Show() + If boughtorange Then btnorange.Show() + If boughtpink Then btnpink.Show() + If boughtpurple Then btnpurple.Show() + If boughtbrown Then btnbrown.Show() + End Sub + End Class +End Namespace \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/TextPad.Designer.vb b/shiftos_next/BWM and CMD Apps/TextPad.Designer.vb new file mode 100644 index 0000000..d43bc67 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/TextPad.Designer.vb @@ -0,0 +1,224 @@ + _ +Partial Class TextPad + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.RedoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.FindToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ReplaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.txtfilebody = New System.Windows.Forms.RichTextBox() + Me.pnltop = New shiftos_next.Titlebar() + Me.MenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(0, 32) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(652, 24) + Me.MenuStrip1.TabIndex = 0 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem, Me.ExitToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(47, 20) + Me.FileToolStripMenuItem.Text = "File" + ' + 'NewToolStripMenuItem + ' + Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" + Me.NewToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.NewToolStripMenuItem.Text = "New" + ' + 'OpenToolStripMenuItem + ' + Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.OpenToolStripMenuItem.Text = "Open" + ' + 'SaveToolStripMenuItem + ' + Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.SaveToolStripMenuItem.Text = "Save" + ' + 'ExitToolStripMenuItem + ' + Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem" + Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.ExitToolStripMenuItem.Text = "Exit" + ' + 'EditToolStripMenuItem + ' + Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem, Me.ToolStripSeparator2, Me.UndoToolStripMenuItem, Me.RedoToolStripMenuItem, Me.ToolStripSeparator1, Me.SelectAllToolStripMenuItem, Me.ToolStripSeparator3, Me.FindToolStripMenuItem, Me.ReplaceToolStripMenuItem}) + Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem" + Me.EditToolStripMenuItem.Size = New System.Drawing.Size(47, 20) + Me.EditToolStripMenuItem.Text = "Edit" + ' + 'CutToolStripMenuItem + ' + Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem" + Me.CutToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.CutToolStripMenuItem.Text = "Cut" + ' + 'CopyToolStripMenuItem + ' + Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" + Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.CopyToolStripMenuItem.Text = "Copy" + ' + 'PasteToolStripMenuItem + ' + Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem" + Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.PasteToolStripMenuItem.Text = "Paste" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(141, 6) + ' + 'UndoToolStripMenuItem + ' + Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem" + Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.UndoToolStripMenuItem.Text = "Undo" + ' + 'RedoToolStripMenuItem + ' + Me.RedoToolStripMenuItem.Name = "RedoToolStripMenuItem" + Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.RedoToolStripMenuItem.Text = "Redo" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(141, 6) + ' + 'SelectAllToolStripMenuItem + ' + Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem" + Me.SelectAllToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.SelectAllToolStripMenuItem.Text = "Select All" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(141, 6) + ' + 'FindToolStripMenuItem + ' + Me.FindToolStripMenuItem.Name = "FindToolStripMenuItem" + Me.FindToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.FindToolStripMenuItem.Text = "Find" + Me.FindToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'ReplaceToolStripMenuItem + ' + Me.ReplaceToolStripMenuItem.Name = "ReplaceToolStripMenuItem" + Me.ReplaceToolStripMenuItem.Size = New System.Drawing.Size(144, 22) + Me.ReplaceToolStripMenuItem.Text = "Replace" + ' + 'txtfilebody + ' + Me.txtfilebody.BackColor = System.Drawing.Color.Black + Me.txtfilebody.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtfilebody.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtfilebody.ForeColor = System.Drawing.Color.White + Me.txtfilebody.Location = New System.Drawing.Point(0, 56) + Me.txtfilebody.Name = "txtfilebody" + Me.txtfilebody.Size = New System.Drawing.Size(652, 261) + Me.txtfilebody.TabIndex = 1 + Me.txtfilebody.Text = "" + ' + 'pnltop + ' + Me.pnltop.AppName = "TextPad" + Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.pnltop.ForeColor = System.Drawing.Color.White + Me.pnltop.Location = New System.Drawing.Point(0, 0) + Me.pnltop.Name = "pnltop" + Me.pnltop.Size = New System.Drawing.Size(652, 32) + Me.pnltop.TabIndex = 2 + ' + 'TextPad + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(652, 317) + Me.Controls.Add(Me.txtfilebody) + Me.Controls.Add(Me.MenuStrip1) + Me.Controls.Add(Me.pnltop) + Me.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.ForeColor = System.Drawing.Color.White + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MainMenuStrip = Me.MenuStrip1 + Me.Name = "TextPad" + Me.Text = "TextPad" + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip + Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PasteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents RedoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents FindToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ReplaceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents txtfilebody As System.Windows.Forms.RichTextBox + Friend WithEvents pnltop As shiftos_next.Titlebar +End Class diff --git a/shiftos_next/BWM and CMD Apps/TextPad.resx b/shiftos_next/BWM and CMD Apps/TextPad.resx new file mode 100644 index 0000000..bb70361 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/TextPad.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/TextPad.vb b/shiftos_next/BWM and CMD Apps/TextPad.vb new file mode 100644 index 0000000..1bc0d28 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/TextPad.vb @@ -0,0 +1,76 @@ +Public Class TextPad + + + Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click + file_skimmer.mode = "open" + file_skimmer.application = "textpad" + file_skimmer.Show() + End Sub + + Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click + file_skimmer.mode = "save" + file_skimmer.application = "textpad" + file_skimmer.Show() + End Sub + + Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click + Me.Close() + End Sub + + Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click + txtfilebody.Text = "" + End Sub + + Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click + txtfilebody.Cut() + End Sub + + Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click + txtfilebody.Copy() + End Sub + + Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click + txtfilebody.Paste() + End Sub + + Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UndoToolStripMenuItem.Click + txtfilebody.Undo() + End Sub + + Private Sub RedoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RedoToolStripMenuItem.Click + txtfilebody.Redo() + End Sub + + Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click + txtfilebody.SelectAll() + End Sub + + Private Sub FindToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FindToolStripMenuItem.Click + basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True) + txtfilebody.Find(basicwm_infobox.userinput) + End Sub + + Private Sub ReplaceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReplaceToolStripMenuItem.Click + basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True) + Dim whattofind As String = basicwm_infobox.userinput + basicwm_infobox.showinfo("Replace", "What shall we replace """ & whattofind & """ with?", True) + txtfilebody.Text = txtfilebody.Text.Replace(whattofind, basicwm_infobox.userinput) + End Sub + + Private Sub TextPad_Load(sender As Object, e As EventArgs) Handles Me.Load + MenuStrip1.Renderer = New basicwm_renderer() + setupmenufonts() + pnltop.DetermineMyVisibility() + End Sub + + Public Sub setupmenufonts() + For Each item In MenuStrip1.Items + item.ForeColor = Color.White + item.Font = New Font("Courier New", 8.25) + For Each SubItem In item.DropDownItems + SubItem.ForeColor = Color.White + SubItem.font = New Font("Courier New", 8.25) + Next + Next + End Sub +End Class \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb b/shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb new file mode 100644 index 0000000..000d75f --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb @@ -0,0 +1,115 @@ + _ +Partial Class basicwm_infobox + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.lbtitle = New System.Windows.Forms.Label() + Me.btnok = New System.Windows.Forms.Button() + Me.lbmessage = New System.Windows.Forms.Label() + Me.txtuserinput = New System.Windows.Forms.TextBox() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.Controls.Add(Me.lbtitle) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(433, 30) + Me.Panel1.TabIndex = 0 + ' + 'lbtitle + ' + Me.lbtitle.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbtitle.Location = New System.Drawing.Point(0, 0) + Me.lbtitle.Name = "lbtitle" + Me.lbtitle.Size = New System.Drawing.Size(433, 30) + Me.lbtitle.TabIndex = 0 + Me.lbtitle.Text = "I am a hacker." + Me.lbtitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnok + ' + Me.btnok.Dock = System.Windows.Forms.DockStyle.Bottom + Me.btnok.FlatAppearance.BorderSize = 0 + Me.btnok.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnok.Location = New System.Drawing.Point(0, 213) + Me.btnok.Name = "btnok" + Me.btnok.Size = New System.Drawing.Size(433, 44) + Me.btnok.TabIndex = 0 + Me.btnok.Text = "> Alright <" + Me.btnok.UseVisualStyleBackColor = True + ' + 'lbmessage + ' + Me.lbmessage.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbmessage.Location = New System.Drawing.Point(0, 30) + Me.lbmessage.Name = "lbmessage" + Me.lbmessage.Size = New System.Drawing.Size(433, 183) + Me.lbmessage.TabIndex = 1 + Me.lbmessage.Text = "I am already viewing my computer logs of that interview. Soon, I'll know everythi" & _ + "ng there is to know about that banana making factory." + Me.lbmessage.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'txtuserinput + ' + Me.txtuserinput.BackColor = System.Drawing.Color.Black + Me.txtuserinput.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtuserinput.Dock = System.Windows.Forms.DockStyle.Bottom + Me.txtuserinput.ForeColor = System.Drawing.Color.White + Me.txtuserinput.Location = New System.Drawing.Point(0, 200) + Me.txtuserinput.Name = "txtuserinput" + Me.txtuserinput.Size = New System.Drawing.Size(433, 13) + Me.txtuserinput.TabIndex = 2 + Me.txtuserinput.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.txtuserinput.WordWrap = False + ' + 'basicwm_infobox + ' + Me.AcceptButton = Me.btnok + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(433, 257) + Me.Controls.Add(Me.txtuserinput) + Me.Controls.Add(Me.lbmessage) + Me.Controls.Add(Me.btnok) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.ForeColor = System.Drawing.Color.White + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "basicwm_infobox" + Me.Text = "basicwm_infobox" + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lbtitle As System.Windows.Forms.Label + Friend WithEvents btnok As System.Windows.Forms.Button + Friend WithEvents lbmessage As System.Windows.Forms.Label + Friend WithEvents txtuserinput As System.Windows.Forms.TextBox +End Class diff --git a/shiftos_next/BWM and CMD Apps/basicwm_infobox.resx b/shiftos_next/BWM and CMD Apps/basicwm_infobox.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/basicwm_infobox.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb b/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb new file mode 100644 index 0000000..e4ffa55 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb @@ -0,0 +1,19 @@ +Public Class basicwm_infobox + + Public userinput As String + + Public Sub showinfo(title As String, message As String, Optional showtextbox As Boolean = False) + lbtitle.Text = title + lbmessage.Text = message + btnok.Text = "> OK <" + txtuserinput.Visible = showtextbox + Me.StartPosition = FormStartPosition.CenterScreen + Me.TopMost = True + Me.ShowDialog() + End Sub + + Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click + userinput = txtuserinput.Text + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/file skimmer.Designer.vb b/shiftos_next/BWM and CMD Apps/file skimmer.Designer.vb new file mode 100644 index 0000000..4d2aabd --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/file skimmer.Designer.vb @@ -0,0 +1,280 @@ + _ +Partial Class file_skimmer + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(file_skimmer)) + Me.topmenu = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FolderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.newseperator = New System.Windows.Forms.ToolStripSeparator() + Me.TextFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ExitSessionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ProductInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.tools = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.lbcurrentdir = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.btnnewfolder = New System.Windows.Forms.ToolStripButton() + Me.btndelete = New System.Windows.Forms.ToolStripButton() + Me.lvfiles = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.pnlsave = New System.Windows.Forms.Panel() + Me.txtfilename = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.btnsave = New System.Windows.Forms.Button() + Me.pnltop = New shiftos_next.Titlebar() + Me.topmenu.SuspendLayout() + Me.tools.SuspendLayout() + Me.pnlsave.SuspendLayout() + Me.SuspendLayout() + ' + 'topmenu + ' + Me.topmenu.BackColor = System.Drawing.Color.Gray + Me.topmenu.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.topmenu.ForeColor = System.Drawing.Color.White + Me.topmenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.AboutToolStripMenuItem}) + Me.topmenu.Location = New System.Drawing.Point(0, 32) + Me.topmenu.Name = "topmenu" + Me.topmenu.Size = New System.Drawing.Size(591, 24) + Me.topmenu.TabIndex = 0 + Me.topmenu.Text = "MenuStrip1" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.ExitSessionToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(47, 20) + Me.FileToolStripMenuItem.Text = "File" + ' + 'NewToolStripMenuItem + ' + Me.NewToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FolderToolStripMenuItem, Me.newseperator, Me.TextFileToolStripMenuItem}) + Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" + Me.NewToolStripMenuItem.Size = New System.Drawing.Size(158, 22) + Me.NewToolStripMenuItem.Text = "New" + ' + 'FolderToolStripMenuItem + ' + Me.FolderToolStripMenuItem.Name = "FolderToolStripMenuItem" + Me.FolderToolStripMenuItem.Size = New System.Drawing.Size(137, 22) + Me.FolderToolStripMenuItem.Text = "Folder" + ' + 'newseperator + ' + Me.newseperator.Name = "newseperator" + Me.newseperator.Size = New System.Drawing.Size(134, 6) + ' + 'TextFileToolStripMenuItem + ' + Me.TextFileToolStripMenuItem.Name = "TextFileToolStripMenuItem" + Me.TextFileToolStripMenuItem.Size = New System.Drawing.Size(137, 22) + Me.TextFileToolStripMenuItem.Text = "Text File" + ' + 'ExitSessionToolStripMenuItem + ' + Me.ExitSessionToolStripMenuItem.Name = "ExitSessionToolStripMenuItem" + Me.ExitSessionToolStripMenuItem.Size = New System.Drawing.Size(158, 22) + Me.ExitSessionToolStripMenuItem.Text = "Exit Session" + ' + 'AboutToolStripMenuItem + ' + Me.AboutToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProductInfoToolStripMenuItem}) + Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem" + Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(54, 20) + Me.AboutToolStripMenuItem.Text = "About" + ' + 'ProductInfoToolStripMenuItem + ' + Me.ProductInfoToolStripMenuItem.Name = "ProductInfoToolStripMenuItem" + Me.ProductInfoToolStripMenuItem.Size = New System.Drawing.Size(158, 22) + Me.ProductInfoToolStripMenuItem.Text = "Product Info" + ' + 'tools + ' + Me.tools.BackColor = System.Drawing.Color.Gray + Me.tools.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.tools.ForeColor = System.Drawing.Color.White + Me.tools.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.lbcurrentdir, Me.ToolStripSeparator1, Me.btnnewfolder, Me.btndelete}) + Me.tools.Location = New System.Drawing.Point(0, 56) + Me.tools.Name = "tools" + Me.tools.Size = New System.Drawing.Size(591, 25) + Me.tools.TabIndex = 1 + Me.tools.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(133, 22) + Me.ToolStripLabel1.Text = "Current Directory:" + ' + 'lbcurrentdir + ' + Me.lbcurrentdir.Name = "lbcurrentdir" + Me.lbcurrentdir.Size = New System.Drawing.Size(49, 22) + Me.lbcurrentdir.Text = "~/Home" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'btnnewfolder + ' + Me.btnnewfolder.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.btnnewfolder.Image = CType(resources.GetObject("btnnewfolder.Image"), System.Drawing.Image) + Me.btnnewfolder.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnnewfolder.Name = "btnnewfolder" + Me.btnnewfolder.Size = New System.Drawing.Size(81, 22) + Me.btnnewfolder.Text = "New Folder" + ' + 'btndelete + ' + Me.btndelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.btndelete.Image = CType(resources.GetObject("btndelete.Image"), System.Drawing.Image) + Me.btndelete.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(53, 22) + Me.btndelete.Text = "Delete" + ' + 'lvfiles + ' + Me.lvfiles.BackColor = System.Drawing.Color.Black + Me.lvfiles.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lvfiles.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) + Me.lvfiles.Dock = System.Windows.Forms.DockStyle.Fill + Me.lvfiles.ForeColor = System.Drawing.Color.White + Me.lvfiles.Location = New System.Drawing.Point(0, 81) + Me.lvfiles.Name = "lvfiles" + Me.lvfiles.Size = New System.Drawing.Size(591, 249) + Me.lvfiles.TabIndex = 3 + Me.lvfiles.UseCompatibleStateImageBehavior = False + Me.lvfiles.View = System.Windows.Forms.View.Tile + ' + 'pnlsave + ' + Me.pnlsave.Controls.Add(Me.txtfilename) + Me.pnlsave.Controls.Add(Me.Label1) + Me.pnlsave.Controls.Add(Me.btnsave) + Me.pnlsave.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlsave.Location = New System.Drawing.Point(0, 330) + Me.pnlsave.Name = "pnlsave" + Me.pnlsave.Size = New System.Drawing.Size(591, 30) + Me.pnlsave.TabIndex = 4 + ' + 'txtfilename + ' + Me.txtfilename.BackColor = System.Drawing.Color.Black + Me.txtfilename.ForeColor = System.Drawing.Color.White + Me.txtfilename.Location = New System.Drawing.Point(86, 5) + Me.txtfilename.Name = "txtfilename" + Me.txtfilename.Size = New System.Drawing.Size(421, 20) + Me.txtfilename.TabIndex = 2 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(3, 8) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(77, 14) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "File Name:" + ' + 'btnsave + ' + Me.btnsave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnsave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsave.Location = New System.Drawing.Point(513, 4) + Me.btnsave.Name = "btnsave" + Me.btnsave.Size = New System.Drawing.Size(75, 23) + Me.btnsave.TabIndex = 0 + Me.btnsave.Text = "Save" + Me.btnsave.UseVisualStyleBackColor = True + ' + 'pnltop + ' + Me.pnltop.AppName = "File Skimmer" + Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.pnltop.ForeColor = System.Drawing.Color.White + Me.pnltop.Location = New System.Drawing.Point(0, 0) + Me.pnltop.Name = "pnltop" + Me.pnltop.Size = New System.Drawing.Size(591, 32) + Me.pnltop.TabIndex = 5 + ' + 'file_skimmer + ' + Me.AcceptButton = Me.btnsave + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(591, 360) + Me.Controls.Add(Me.lvfiles) + Me.Controls.Add(Me.pnlsave) + Me.Controls.Add(Me.tools) + Me.Controls.Add(Me.topmenu) + Me.Controls.Add(Me.pnltop) + Me.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.ForeColor = System.Drawing.Color.White + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MainMenuStrip = Me.topmenu + Me.Name = "file_skimmer" + Me.Text = "file_skimmer" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.topmenu.ResumeLayout(False) + Me.topmenu.PerformLayout() + Me.tools.ResumeLayout(False) + Me.tools.PerformLayout() + Me.pnlsave.ResumeLayout(False) + Me.pnlsave.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents topmenu As System.Windows.Forms.MenuStrip + Friend WithEvents tools As System.Windows.Forms.ToolStrip + Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ExitSessionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbcurrentdir As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents btnnewfolder As System.Windows.Forms.ToolStripButton + Friend WithEvents btndelete As System.Windows.Forms.ToolStripButton + Friend WithEvents lvfiles As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents ProductInfoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FolderToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents newseperator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TextFileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlsave As System.Windows.Forms.Panel + Friend WithEvents txtfilename As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btnsave As System.Windows.Forms.Button + Friend WithEvents pnltop As shiftos_next.Titlebar +End Class diff --git a/shiftos_next/BWM and CMD Apps/file skimmer.resx b/shiftos_next/BWM and CMD Apps/file skimmer.resx new file mode 100644 index 0000000..b591e26 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/file skimmer.resx @@ -0,0 +1,157 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 132, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/file skimmer.vb b/shiftos_next/BWM and CMD Apps/file skimmer.vb new file mode 100644 index 0000000..4b2d9b1 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/file skimmer.vb @@ -0,0 +1,178 @@ +Public Class file_skimmer + + + + Public mode As String + Public application As String 'The application sending either an open or save mode. + Public currentdir As String = home + + Public Sub setupmenufonts() + For Each item In topmenu.Items + item.ForeColor = Color.White + item.Font = New Font("Courier New", 8.25) + For Each SubItem In item.DropDownItems + SubItem.ForeColor = Color.White + SubItem.font = New Font("Courier New", 8.25) + Next + Next + End Sub + + Public Sub showfiles() + Dim lv As ListView = lvfiles + lv.Items.Clear() + lv.View = View.Tile + lv.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent) + Dim upone As New ListViewItem + upone.Text = "Up one" + lv.Items.Add(upone) + upone.SubItems.Add("directory") + + For Each dir As String In My.Computer.FileSystem.GetDirectories(currentdir) + Dim dirinf As New IO.DirectoryInfo(dir) + Dim lvitem As New ListViewItem + lvitem.Text = dirinf.Name + lvitem.Tag = dirinf.FullName + lv.Items.Add(lvitem) + lvitem.SubItems.Add("Directory") + lvitem.SubItems.Add(dirinf.LastAccessTime) + + Next + For Each file As String In My.Computer.FileSystem.GetFiles(currentdir) + Dim filinf As New IO.DirectoryInfo(file) + Dim lvitem As New ListViewItem + lvitem.Text = filinf.Name + lvitem.Tag = filinf.FullName + lv.Items.Add(lvitem) + + lvitem.SubItems.Add(GetFileType(filinf.Extension)) + lvitem.SubItems.Add(filinf.LastAccessTime) + Next + lbcurrentdir.Text = currentdir.Replace(root, "~").Replace("\", "/") + End Sub + + Public Function GetFileType(ext As String) + Dim FileType As String + Select Case ext + Case ".txt" + FileType = "Text File" + Case ".pkg" + FileType = "Application" + Case ".deb" + FileType = "Application Installer" + Case ".sft" + FileType = "Data File" + Case ".dri" + FileType = "Driver" + Case Else + FileType = "Unknown File" + End Select + Return FileType + End Function + + Public Sub OpenFile(file As String) + If IO.Directory.Exists(file) Then + currentdir = file + showfiles() + Else + Dim filinf As New IO.FileInfo(file) + Select Case filinf.Extension + Case Else + basicwm_infobox.showinfo("Exodus - File Format not valid", "The format of the file """ & filinf.Name & """ is not a format in which Exodus File Browser can read.") + End Select + End If + End Sub + Private Sub lvfiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvfiles.DoubleClick + Try + If lvfiles.SelectedItems(0).Text = "Up one" Then + If Not currentdir = root Then + currentdir = IO.Directory.GetParent(currentdir).ToString + showfiles() + End If + Else + If mode = "open" Then + Select Case Application + Case "textpad" + Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString) + TextPad.txtfilebody.Text = sr.ReadToEnd() + sr.Close() + Me.Close() + End Select + Else + OpenFile(lvfiles.SelectedItems(0).Tag) + End If + End If + Catch + End Try + End Sub + + Private Sub file_skimmer_Load(sender As Object, e As EventArgs) Handles Me.Load + topmenu.Renderer = New basicwm_renderer() + tools.Renderer = New basicwm_renderer() + setupmenufonts() + setupui() + showfiles() + End Sub + + Public Sub setupui() + FolderToolStripMenuItem.Visible = boughtfileskimmernewfolder + newseperator.Visible = boughtfileskimmernewfolder + btnnewfolder.Visible = boughtfileskimmernewfolder + btndelete.Visible = boughtfileskimmerdelete + If mode = "save" Then + pnlsave.Visible = True + Else + pnlsave.Visible = False + End If + pnltop.DetermineMyVisibility() + End Sub + + Private Sub ExitSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitSessionToolStripMenuItem.Click + Me.Close() + End Sub + + Private Sub ProductInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProductInfoToolStripMenuItem.Click + basicwm_infobox.showinfo("File Skimmer - v1.2", "Browse, edit, move, copy and delete the files on your computer.") + End Sub + + + + Private Sub FolderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FolderToolStripMenuItem.Click, btnnewfolder.Click + basicwm_infobox.showinfo("Create New Folder", "Please specify a name for your folder.", True) + If Not IO.Directory.Exists(currentdir & "\" & basicwm_infobox.userinput) Then + IO.Directory.CreateDirectory(currentdir & "\" & basicwm_infobox.userinput) + Else + basicwm_infobox.showinfo("Create New Folder", "The specified folder already exists!") + End If + showfiles() + End Sub + + Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click + Try + If IO.Directory.Exists(lvfiles.SelectedItems(0).Tag) Then + IO.Directory.Delete(lvfiles.SelectedItems(0).Tag, True) + ElseIf IO.File.Exists(lvfiles.SelectedItems(0).Tag) Then + IO.File.Delete(lvfiles.SelectedItems(0).Tag) + End If + Catch ex As Exception + basicwm_infobox.showinfo("Error!", "The following Visual Basic exception has occurred: " & vbNewLine & vbNewLine & ex.Message) + End Try + End Sub + + Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click + If Not txtfilename.Text = "" Then + If IO.Directory.Exists(currentdir + "\" + txtfilename.Text) Then + basicwm_infobox.showinfo("Invalid File Name", "You can't save a file ontop of a directory with the same name!") + Else + Select Case Application + Case "textpad" + Dim sw As New IO.StreamWriter(currentdir + "\" + txtfilename.Text) + sw.Write(TextPad.txtfilebody.Text) + sw.Close() + Me.Close() + End Select + End If + Else + basicwm_infobox.showinfo("Invalid File Name", "Please specify a file name, and not leave it blank!") + End If + End Sub +End Class \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb new file mode 100644 index 0000000..78c1ad7 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb @@ -0,0 +1,205 @@ + _ +Partial Class shiftorium_cmd + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.pnltop = New System.Windows.Forms.Panel() + Me.lbtitle = New System.Windows.Forms.Label() + Me.pnlbottom = New System.Windows.Forms.Panel() + Me.lbcodepoints = New System.Windows.Forms.Label() + Me.lbcontrols = New System.Windows.Forms.Label() + Me.pnldetails = New System.Windows.Forms.Panel() + Me.pnlbuy = New System.Windows.Forms.Panel() + Me.btnbuy = New System.Windows.Forms.Button() + Me.lbprice = New System.Windows.Forms.Label() + Me.lbdescription = New System.Windows.Forms.Label() + Me.lbitemname = New System.Windows.Forms.Label() + Me.lbitems = New System.Windows.Forms.ListBox() + Me.pnltop.SuspendLayout() + Me.pnlbottom.SuspendLayout() + Me.pnldetails.SuspendLayout() + Me.pnlbuy.SuspendLayout() + Me.SuspendLayout() + ' + 'pnltop + ' + Me.pnltop.Controls.Add(Me.lbtitle) + Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnltop.Location = New System.Drawing.Point(0, 0) + Me.pnltop.Name = "pnltop" + Me.pnltop.Size = New System.Drawing.Size(1007, 30) + Me.pnltop.TabIndex = 0 + ' + 'lbtitle + ' + Me.lbtitle.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbtitle.Location = New System.Drawing.Point(0, 0) + Me.lbtitle.Name = "lbtitle" + Me.lbtitle.Size = New System.Drawing.Size(1007, 30) + Me.lbtitle.TabIndex = 0 + Me.lbtitle.Text = "SHIFTORIUM" + Me.lbtitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlbottom + ' + Me.pnlbottom.Controls.Add(Me.lbcodepoints) + Me.pnlbottom.Controls.Add(Me.lbcontrols) + Me.pnlbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlbottom.Location = New System.Drawing.Point(0, 570) + Me.pnlbottom.Name = "pnlbottom" + Me.pnlbottom.Size = New System.Drawing.Size(1007, 22) + Me.pnlbottom.TabIndex = 1 + ' + 'lbcodepoints + ' + Me.lbcodepoints.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbcodepoints.Location = New System.Drawing.Point(815, 0) + Me.lbcodepoints.Name = "lbcodepoints" + Me.lbcodepoints.Size = New System.Drawing.Size(192, 22) + Me.lbcodepoints.TabIndex = 1 + Me.lbcodepoints.Text = "Codepoints: {0}" + Me.lbcodepoints.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'lbcontrols + ' + Me.lbcontrols.Dock = System.Windows.Forms.DockStyle.Left + Me.lbcontrols.Location = New System.Drawing.Point(0, 0) + Me.lbcontrols.Name = "lbcontrols" + Me.lbcontrols.Size = New System.Drawing.Size(815, 22) + Me.lbcontrols.TabIndex = 0 + Me.lbcontrols.Text = "Controls: UP/DOWN - Choose item, ENTER - View details, SPACE: Download" + Me.lbcontrols.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnldetails + ' + Me.pnldetails.Controls.Add(Me.pnlbuy) + Me.pnldetails.Controls.Add(Me.lbdescription) + Me.pnldetails.Controls.Add(Me.lbitemname) + Me.pnldetails.Dock = System.Windows.Forms.DockStyle.Top + Me.pnldetails.Location = New System.Drawing.Point(0, 30) + Me.pnldetails.Name = "pnldetails" + Me.pnldetails.Size = New System.Drawing.Size(1007, 205) + Me.pnldetails.TabIndex = 2 + ' + 'pnlbuy + ' + Me.pnlbuy.Controls.Add(Me.btnbuy) + Me.pnlbuy.Controls.Add(Me.lbprice) + Me.pnlbuy.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlbuy.Location = New System.Drawing.Point(0, 176) + Me.pnlbuy.Name = "pnlbuy" + Me.pnlbuy.Size = New System.Drawing.Size(1007, 29) + Me.pnlbuy.TabIndex = 2 + ' + 'btnbuy + ' + Me.btnbuy.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnbuy.FlatAppearance.BorderSize = 0 + Me.btnbuy.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnbuy.Location = New System.Drawing.Point(815, 0) + Me.btnbuy.Name = "btnbuy" + Me.btnbuy.Size = New System.Drawing.Size(192, 29) + Me.btnbuy.TabIndex = 1 + Me.btnbuy.Text = "Press SPACE to buy" + Me.btnbuy.UseVisualStyleBackColor = True + ' + 'lbprice + ' + Me.lbprice.Dock = System.Windows.Forms.DockStyle.Left + Me.lbprice.Location = New System.Drawing.Point(0, 0) + Me.lbprice.Name = "lbprice" + Me.lbprice.Size = New System.Drawing.Size(815, 29) + Me.lbprice.TabIndex = 0 + Me.lbprice.Text = "This item costs {0} Codepoints." + Me.lbprice.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lbdescription + ' + Me.lbdescription.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbdescription.Location = New System.Drawing.Point(0, 28) + Me.lbdescription.Name = "lbdescription" + Me.lbdescription.Size = New System.Drawing.Size(1007, 177) + Me.lbdescription.TabIndex = 1 + Me.lbdescription.Text = "The Shiftorium lets you upgrade different aspects of ShiftOS using Codepoints. Yo" & _ + "u can download anything from color support, terminal commands, programs, and eve" & _ + "n desktop environments." + Me.lbdescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lbitemname + ' + Me.lbitemname.Dock = System.Windows.Forms.DockStyle.Top + Me.lbitemname.Location = New System.Drawing.Point(0, 0) + Me.lbitemname.Name = "lbitemname" + Me.lbitemname.Size = New System.Drawing.Size(1007, 28) + Me.lbitemname.TabIndex = 0 + Me.lbitemname.Text = "Welcome to the Shiftorium!" + Me.lbitemname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lbitems + ' + Me.lbitems.BackColor = System.Drawing.Color.Black + Me.lbitems.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lbitems.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbitems.ForeColor = System.Drawing.Color.White + Me.lbitems.FormattingEnabled = True + Me.lbitems.ItemHeight = 14 + Me.lbitems.Location = New System.Drawing.Point(0, 235) + Me.lbitems.Name = "lbitems" + Me.lbitems.Size = New System.Drawing.Size(1007, 335) + Me.lbitems.TabIndex = 3 + ' + 'shiftorium_cmd + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(1007, 592) + Me.Controls.Add(Me.lbitems) + Me.Controls.Add(Me.pnldetails) + Me.Controls.Add(Me.pnlbottom) + Me.Controls.Add(Me.pnltop) + Me.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.ForeColor = System.Drawing.Color.White + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "shiftorium_cmd" + Me.Text = "shiftorium_cmd" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.pnltop.ResumeLayout(False) + Me.pnlbottom.ResumeLayout(False) + Me.pnldetails.ResumeLayout(False) + Me.pnlbuy.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnltop As System.Windows.Forms.Panel + Friend WithEvents lbtitle As System.Windows.Forms.Label + Friend WithEvents pnlbottom As System.Windows.Forms.Panel + Friend WithEvents lbcodepoints As System.Windows.Forms.Label + Friend WithEvents lbcontrols As System.Windows.Forms.Label + Friend WithEvents pnldetails As System.Windows.Forms.Panel + Friend WithEvents lbitems As System.Windows.Forms.ListBox + Friend WithEvents pnlbuy As System.Windows.Forms.Panel + Friend WithEvents btnbuy As System.Windows.Forms.Button + Friend WithEvents lbprice As System.Windows.Forms.Label + Friend WithEvents lbdescription As System.Windows.Forms.Label + Friend WithEvents lbitemname As System.Windows.Forms.Label +End Class diff --git a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb new file mode 100644 index 0000000..ba9b840 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb @@ -0,0 +1,195 @@ +Public Class shiftorium_cmd + + + Public Sub shiftorium_load(s As Object, e As EventArgs) Handles MyBase.Load + listboxtoaddto = lbitems + determineitems() + lbitems.SelectedItem = 0 + lbprice.Hide() + btnbuy.Hide() + lbcodepoints.Text = "Codepoints: " & codepoints + If boughtbasicwm = True Then + lbtitle.TextAlign = ContentAlignment.MiddleLeft + lbtitle.Text = "Shiftorium" 'To make it sentence-case, rather than UPPERCASE. + lbtitle.BackColor = Color.Gray + Me.WindowState = FormWindowState.Normal + Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 + Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 + Me.TopMost = True + Else + lbtitle.TextAlign = ContentAlignment.MiddleCenter + lbtitle.Text = "SHIFTORIUM" + lbtitle.BackColor = Color.Black + Me.WindowState = FormWindowState.Maximized + End If + End Sub + + Public Sub determineitems() + lbitems.DrawMode = DrawMode.Normal + lbitems.Items.Clear() + Try + If boughtbasicsettings = False Then + AddItem("Basic Terminal Settings", 5) + Else + If boughtcustomusername = False Then + AddItem("Custom Username", 10) + End If + End If + If boughtdirectorysurfing = False Then + AddItem("Directory Surfing", 10) + Else + If boughtbasicgui = True Then + If boughtfileskimmer = False Then + AddItem("File Skimmer", 60) + Else + If boughtfileskimmernewfolder = False Then AddItem("FS New Folder", 15) + If boughtfileskimmerdelete = False Then AddItem("FS Delete", 15) + End If + If boughttextpad = False Then + AddItem("Textpad", 50) + End If + If boughttextpad = True And boughtfileskimmer = True Then + If boughtbasicwm = False Then + AddItem("Basic Window Manager", 100) + Else + If boughtdraggablewindows = False Then + AddItem("BWM Draggable Windows", 25) + End If + End If + End If + End If + End If + If boughtgray = False Then + AddItem("Gray", 25) + Else + If boughtbasicgui = False Then + AddItem("Basic GUI Server", 100) + End If + If boughtterminalsettextcolor = False And boughtbasicsettings = True Then + AddItem("Set Terminal Text Color", 10) + End If + End If + lbitems.SelectedIndex = 0 + Catch ex As Exception + If debugmode = False Then + lbitems.Items.Add("No items available.") + Else + lbitems.Items.Add(ex.Message) + End If + End Try + lbitems.DrawMode = DrawMode.OwnerDrawFixed + End Sub + + Public Sub lbitems_keydown(sender As System.Object, e As KeyEventArgs) Handles lbitems.KeyDown + Select Case e.KeyCode + Case Keys.Escape + e.SuppressKeyPress = True + Me.Close() + Terminal.Focus() + Case Keys.Down + e.SuppressKeyPress = True + If Not lbitems.SelectedIndex = lbitems.Items.Count - 1 Then + lbitems.SelectedIndex += 1 + End If + Case Keys.Up + e.SuppressKeyPress = True + If Not lbitems.SelectedIndex = 0 Then + lbitems.SelectedIndex -= 1 + End If + Case Keys.Enter + handleitemdescription("BWM Draggable Windows - 25 CP", "We are able to have multiple windows on the screen, but they all stick to the center of the screen and can't be moved! This upgrade fixes that.") + handleitemdescription("Basic Window Manager - 100 CP", "Fullscreen applications, well, suck. You can't get any work done outside of that app without closing it, and can't even view the Terminal. This upgrade changes that. We've found a way to use the Basic GUI server to create a simple window manager. It allows multiple windows on the screen, and up to 3 Terminal windows at once.") + handleitemdescription("Textpad - 50 CP", "Hmmmmm... What was I gonna do on Sunday? Oh yeah! I have to get that website written for my buddy. Better write that down before I forget... " & vbNewLine & vbNewLine & "Textpad allows you to create text documents. Handy if you need to write something down!") + handleitemdescription("FS Delete - 15 CP", "Alright, What's this unused document doing on my PC? I don't need this. I must delete it. With this upgrade, you can delete files in the File Skimmer.") + handleitemdescription("FS New Folder - 15 CP", "Well, we can view the files on our computer, but we don't have the ability to create directories in the GUI... yet. Upgrade today, and you will be able to.") + handleitemdescription("File Skimmer - 60 CP", "ShiftOS and Exodus Inc., authors of the Exodus File Browser for UltraDOS, have teamed up to create a GUI-based file browser for ShiftOS, based off the old File Skimmer.") + handleitemdescription("Set Terminal Text Color - 10 CP", "Having a black and white color scheme on a Terminal is ibfact quite a cliche. This upgrade allows you to set the text color of the Terminal. It only allows for the basic colors, but it's better than just white!") + handleitemdescription("Basic GUI Server - 100 CP", "Well, we've got Gray, and we've got the ability to write GUIs. Now, let's allow the users to run GUIs, and open a lot of possibilities up.") + handleitemdescription("Gray - 25 CP", "Black, and white. Such a bland choice of colors. Black for the background, white for the text. What a hard way to develop an app. With this upgrade, the video card driver in ShiftOS will support the output of Gray (R=127, G=127, B=127) allowing for some better capabilities in application programming.") + handleitemdescription("Directory Surfing - 10 CP", "ShiftOS came with a file system update. Instead of ShiftFS, we have ShiftFS Ultra. However, there's no point in using it... yet. This upgrade allows you to browse the filesystem in the terminal.") + handleitemdescription("Custom Username - 10 CP", "Hello, user! Isn't that wierd that that's all we know you as? Buy this upgrade to change yourr name from ""user"" to anything you want!") + handleitemdescription("Basic Terminal Settings - 5 CP", "Ever wanted to customize the terminal to act the way you'd like it to? This upgrade is for you. You won't be able to use it until you buy settings, but hey! The command is there.") + Case Keys.Space + handlebuy("BWM Draggable Windows - 25 CP", boughtdraggablewindows, "The upgrade has been applied, and now we can drag windows around using our mouse!") + handlebuy("Basic Window Manager - 100 CP", boughtbasicwm, "Awesome! Just exit the Shiftorium and type ""bwm"" into the Terminal, and away we go. Future sessions will not require typing ""bwm"".") + handlebuy("Textpad - 50 CP", boughttextpad, "Great. Now our computer is a bit more useful than before...") + handlebuy("FS Delete - 15 CP", boughtfileskimmerdelete, "There. I can finally destroy that evil document that's been taking up 3/4 of my hard drive. Just right-click a file and click 'Delete' to delete a file.") + handlebuy("FS New Folder - 15 CP", boughtfileskimmernewfolder, "Awesome. You can now create new folders in the File Skimmer!") + handlebuy("File Skimmer - 60 CP", boughtfileskimmer, "The upgrade's been downloaded, and we can now view the files on our computer in a much cleaner way. Just type 'open file skimmer' in the Terminal!") + handlebuy("Set Terminal Text Color - 10 CP", boughtterminalsettextcolor, "Awesome! Now, you can use 'set textcolor ' to set the Terminal text color. For a reference on supported colors, you can also type 'colors'.") + handlebuy("Basic GUI Server - 100 CP", boughtbasicgui, "Amazing. Come time, and money, we may be able to collaborate with other companies to develop applications, upgrades, and eventually a window manager.") + handlebuy("Gray - 25 CP", boughtgray, "Great. Right away, the Shiftorium is easier to use! Look at that amazing gray highlight.") + handlebuy("Directory Surfing - 10 CP", boughtdirectorysurfing, "Now we can do basic file navigation using the cd, dir, and mkdir commands. Hopefully, with more research, we may be able to create some apps to handle files, like a text editor.") + handlebuy("Custom Username - 10 CP", boughtcustomusername, "Amazing! Just type ""set username "" into the Terminal, and presto!") + handlebuy("Basic Terminal Settings - 5 CP", boughtbasicsettings, "Great! Now, a new command has been added to the terminal. Use it with ""set "". There are no settings to set, though.") + Case Else + e.SuppressKeyPress = True + End Select + End Sub + + + + + Private Sub handlebuy(ByVal name As String, ByRef bought As Boolean, ByVal boughttutorial As String) + + On Error Resume Next + Dim pricegrab As String + If lbitems.SelectedItem = name Then + If btnbuy.Text = "Press SPACE to download." Then + pricegrab = lbitems.SelectedItem.ToString.Substring(lbitems.SelectedItem.ToString.IndexOf("-") + 2, lbitems.SelectedItem.ToString.Length - lbitemname.Text.Length - 5) + codepoints -= Convert.ToInt32(pricegrab) + bought = True + lbdescription.Text = boughttutorial + btnbuy.Text = "Upgrade """ & name & """ installed, deducting " & pricegrab & " Codepoints." + lbprice.Hide() + determineitems() + lbcodepoints.Text = "Codepoints: " & codepoints + savegame() + End If + End If + End Sub + + 'UltraDOS Upgrade List renderer + Private Sub udos_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lbitems.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + If boughtgray Then + e.Graphics.FillRectangle(Brushes.Gray, e.Bounds) + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(lbitems.GetItemText(lbitems.Items(e.Index)), e.Font, b, e.Bounds) + End Using + Else + e.Graphics.FillRectangle(Brushes.White, e.Bounds) + Using b As New SolidBrush(Color.Black) + e.Graphics.DrawString(lbitems.GetItemText(lbitems.Items(e.Index)), e.Font, b, e.Bounds) + End Using + End If + Else + + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(lbitems.GetItemText(lbitems.Items(e.Index)), e.Font, b, e.Bounds) + End Using + End If + e.DrawFocusRectangle() + + End Sub + + + Private Sub handleitemdescription(ByVal itemname As String, ByVal itemdescription As String) + On Error Resume Next + If lbitems.SelectedItem.ToString = itemname Then + lbitemname.Text = lbitems.SelectedItem.ToString.Substring(0, lbitems.SelectedItem.ToString.IndexOf("-")) + lbdescription.Text = itemdescription + lbprice.Text = "This item costs " & lbitems.SelectedItem.ToString.Substring(lbitems.SelectedItem.ToString.IndexOf("-") + 2, lbitems.SelectedItem.ToString.Length - lbitemname.Text.Length - 5) & " Codepoints" + lbprice.Show() + btnbuy.Show() + If codepoints > Convert.ToInt32(lbitems.SelectedItem.ToString.Substring(lbitems.SelectedItem.ToString.IndexOf("-") + 2, lbitems.SelectedItem.ToString.Length - lbitemname.Text.Length - 5)) Then + btnbuy.Text = "Press SPACE to download." + Else + btnbuy.Text = "Insufficient Codepoints!" + End If + End If + End Sub + + +End Class \ No newline at end of file diff --git a/shiftos_next/BWMDesktop.Designer.vb b/shiftos_next/BWMDesktop.Designer.vb deleted file mode 100644 index 3f4ca4e..0000000 --- a/shiftos_next/BWMDesktop.Designer.vb +++ /dev/null @@ -1,56 +0,0 @@ -Namespace BasicWM - _ - Partial Class Desktop - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.btnnewterminal = New System.Windows.Forms.Button() - Me.SuspendLayout() - ' - 'btnnewterminal - ' - Me.btnnewterminal.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnnewterminal.Location = New System.Drawing.Point(12, 12) - Me.btnnewterminal.Name = "btnnewterminal" - Me.btnnewterminal.Size = New System.Drawing.Size(105, 23) - Me.btnnewterminal.TabIndex = 0 - Me.btnnewterminal.Text = "New Terminal" - Me.btnnewterminal.UseVisualStyleBackColor = True - ' - 'Desktop - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Black - Me.ClientSize = New System.Drawing.Size(535, 286) - Me.Controls.Add(Me.btnnewterminal) - Me.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.ForeColor = System.Drawing.Color.White - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None - Me.Name = "Desktop" - Me.Text = "BWMDesktop" - Me.ResumeLayout(False) - - End Sub - Friend WithEvents btnnewterminal As System.Windows.Forms.Button - End Class -End Namespace \ No newline at end of file diff --git a/shiftos_next/BWMDesktop.resx b/shiftos_next/BWMDesktop.resx deleted file mode 100644 index 1af7de1..0000000 --- a/shiftos_next/BWMDesktop.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/shiftos_next/BWMDesktop.vb b/shiftos_next/BWMDesktop.vb deleted file mode 100644 index 07841a5..0000000 --- a/shiftos_next/BWMDesktop.vb +++ /dev/null @@ -1,29 +0,0 @@ -Namespace BasicWM - Public Class Desktop - - Public openterminals As Integer = 0 - - Private Sub btnnewterminal_Click(sender As Object, e As EventArgs) Handles btnnewterminal.Click - If openterminals = 3 Then - AddLine("The maximum ammount of Terminal windows are open.") - AddLine(username + "@" + osname + " " & Terminal.currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ") - Else - Dim term As New Terminal - term.StartPosition = FormStartPosition.CenterParent - term.TopMost = True - term.Show() - openterminals += 1 - End If - End Sub - - Private Sub Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Terminal.Close() - Me.WindowState = FormWindowState.Maximized - Dim term As New Terminal - term.StartPosition = FormStartPosition.CenterParent - term.TopMost = True - term.Show() - openterminals += 1 - End Sub - End Class -End Namespace \ No newline at end of file diff --git a/shiftos_next/BasicWM_ColorTable.vb b/shiftos_next/BasicWM_ColorTable.vb deleted file mode 100644 index aa2838c..0000000 --- a/shiftos_next/BasicWM_ColorTable.vb +++ /dev/null @@ -1,293 +0,0 @@ -' -' This code was generated by the .NET ToolStrip Customizer. -' http://toolstripcustomizer.codeplex.com/ -' - -Imports System.Drawing -Imports System.Windows.Forms - -Namespace BasicWM - Class ColorTable - Inherits ProfessionalColorTable - Public Overrides ReadOnly Property ButtonSelectedHighlight() As Color - Get - Return ButtonSelectedGradientMiddle - End Get - End Property - Public Overrides ReadOnly Property ButtonSelectedHighlightBorder() As Color - Get - Return ButtonSelectedBorder - End Get - End Property - Public Overrides ReadOnly Property ButtonPressedHighlight() As Color - Get - Return ButtonPressedGradientMiddle - End Get - End Property - Public Overrides ReadOnly Property ButtonPressedHighlightBorder() As Color - Get - Return ButtonPressedBorder - End Get - End Property - Public Overrides ReadOnly Property ButtonCheckedHighlight() As Color - Get - Return ButtonCheckedGradientMiddle - End Get - End Property - Public Overrides ReadOnly Property ButtonCheckedHighlightBorder() As Color - Get - Return ButtonSelectedBorder - End Get - End Property - Public Overrides ReadOnly Property ButtonPressedBorder() As Color - Get - Return ButtonSelectedBorder - End Get - End Property - Public Overrides ReadOnly Property ButtonSelectedBorder() As Color - Get - Return Color.FromName("Black") - End Get - End Property - Public Overrides ReadOnly Property ButtonCheckedGradientBegin() As Color - Get - Return Color.FromArgb(255, 64, 0, 64) - End Get - End Property - Public Overrides ReadOnly Property ButtonCheckedGradientMiddle() As Color - Get - Return Color.FromArgb(255, 64, 0, 64) - End Get - End Property - Public Overrides ReadOnly Property ButtonCheckedGradientEnd() As Color - Get - Return Color.FromName("Black") - End Get - End Property - Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As Color - Get - Return Color.FromName("Black") - End Get - End Property - Public Overrides ReadOnly Property ButtonSelectedGradientMiddle() As Color - Get - Return Color.FromName("Black") - End Get - End Property - Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As Color - Get - Return Color.FromName("Black") - End Get - End Property - Public Overrides ReadOnly Property ButtonPressedGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ButtonPressedGradientMiddle() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ButtonPressedGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property CheckBackground() As Color - Get - Return Color.FromArgb(255, 196, 225, 255) - End Get - End Property - Public Overrides ReadOnly Property CheckSelectedBackground() As Color - Get - Return Color.FromArgb(255, 153, 204, 255) - End Get - End Property - Public Overrides ReadOnly Property CheckPressedBackground() As Color - Get - Return Color.FromArgb(255, 153, 204, 255) - End Get - End Property - Public Overrides ReadOnly Property GripDark() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property GripLight() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ImageMarginGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ImageMarginRevealedGradientMiddle() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ImageMarginRevealedGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property MenuStripGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property MenuStripGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property MenuItemSelected() As Color - Get - Return Color.FromName("Black") - End Get - End Property - Public Overrides ReadOnly Property MenuItemBorder() As Color - Get - Return Color.FromName("Black") - End Get - End Property - Public Overrides ReadOnly Property MenuBorder() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color - Get - Return Color.FromName("Black") - End Get - End Property - Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color - Get - Return Color.FromName("Black") - End Get - End Property - Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property RaftingContainerGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property RaftingContainerGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property SeparatorDark() As Color - Get - Return Color.FromName("White") - End Get - End Property - Public Overrides ReadOnly Property SeparatorLight() As Color - Get - Return Color.FromName("ButtonHighlight") - End Get - End Property - Public Overrides ReadOnly Property StatusStripGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property StatusStripGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ToolStripBorder() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ToolStripGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ToolStripGradientMiddle() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ToolStripGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ToolStripContentPanelGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ToolStripContentPanelGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ToolStripPanelGradientBegin() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property ToolStripPanelGradientEnd() As Color - Get - Return Color.FromName("Gray") - End Get - End Property - Public Overrides ReadOnly Property OverflowButtonGradientBegin() As Color - Get - Return Color.FromArgb(255, 245, 245, 245) - End Get - End Property - Public Overrides ReadOnly Property OverflowButtonGradientMiddle() As Color - Get - Return Color.FromArgb(255, 242, 242, 242) - End Get - End Property - Public Overrides ReadOnly Property OverflowButtonGradientEnd() As Color - Get - Return Color.FromName("ButtonShadow") - End Get - End Property - End Class -End Namespace diff --git a/shiftos_next/ColorPicker.Designer.vb b/shiftos_next/ColorPicker.Designer.vb deleted file mode 100644 index 46bdcd4..0000000 --- a/shiftos_next/ColorPicker.Designer.vb +++ /dev/null @@ -1,260 +0,0 @@ -Namespace BasicWM - _ - Partial Class ColorPicker - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.pnlcolors = New System.Windows.Forms.FlowLayoutPanel() - Me.btnwhite = New System.Windows.Forms.Button() - Me.btnblack = New System.Windows.Forms.Button() - Me.btngray = New System.Windows.Forms.Button() - Me.btnred = New System.Windows.Forms.Button() - Me.btngreen = New System.Windows.Forms.Button() - Me.btnblue = New System.Windows.Forms.Button() - Me.btnyellow = New System.Windows.Forms.Button() - Me.btnorange = New System.Windows.Forms.Button() - Me.btnpink = New System.Windows.Forms.Button() - Me.btnpurple = New System.Windows.Forms.Button() - Me.btnbrown = New System.Windows.Forms.Button() - Me.btnok = New System.Windows.Forms.Button() - Me.lbselectedcolor = New System.Windows.Forms.Label() - Me.btncancel = New System.Windows.Forms.Button() - Me.pnltop = New shiftos_next.Titlebar() - Me.pnlcolors.SuspendLayout() - Me.SuspendLayout() - ' - 'pnlcolors - ' - Me.pnlcolors.Controls.Add(Me.btnwhite) - Me.pnlcolors.Controls.Add(Me.btnblack) - Me.pnlcolors.Controls.Add(Me.btngray) - Me.pnlcolors.Controls.Add(Me.btnred) - Me.pnlcolors.Controls.Add(Me.btngreen) - Me.pnlcolors.Controls.Add(Me.btnblue) - Me.pnlcolors.Controls.Add(Me.btnyellow) - Me.pnlcolors.Controls.Add(Me.btnorange) - Me.pnlcolors.Controls.Add(Me.btnpink) - Me.pnlcolors.Controls.Add(Me.btnpurple) - Me.pnlcolors.Controls.Add(Me.btnbrown) - Me.pnlcolors.Location = New System.Drawing.Point(15, 65) - Me.pnlcolors.Name = "pnlcolors" - Me.pnlcolors.Size = New System.Drawing.Size(335, 177) - Me.pnlcolors.TabIndex = 1 - ' - 'btnwhite - ' - Me.btnwhite.BackColor = System.Drawing.Color.White - Me.btnwhite.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnwhite.Location = New System.Drawing.Point(3, 3) - Me.btnwhite.Name = "btnwhite" - Me.btnwhite.Size = New System.Drawing.Size(26, 23) - Me.btnwhite.TabIndex = 0 - Me.btnwhite.UseVisualStyleBackColor = False - ' - 'btnblack - ' - Me.btnblack.BackColor = System.Drawing.Color.Black - Me.btnblack.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnblack.Location = New System.Drawing.Point(35, 3) - Me.btnblack.Name = "btnblack" - Me.btnblack.Size = New System.Drawing.Size(26, 23) - Me.btnblack.TabIndex = 1 - Me.btnblack.UseVisualStyleBackColor = False - ' - 'btngray - ' - Me.btngray.BackColor = System.Drawing.Color.Gray - Me.btngray.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btngray.Location = New System.Drawing.Point(67, 3) - Me.btngray.Name = "btngray" - Me.btngray.Size = New System.Drawing.Size(26, 23) - Me.btngray.TabIndex = 2 - Me.btngray.UseVisualStyleBackColor = False - Me.btngray.Visible = False - ' - 'btnred - ' - Me.btnred.BackColor = System.Drawing.Color.Red - Me.btnred.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnred.Location = New System.Drawing.Point(99, 3) - Me.btnred.Name = "btnred" - Me.btnred.Size = New System.Drawing.Size(26, 23) - Me.btnred.TabIndex = 3 - Me.btnred.UseVisualStyleBackColor = False - Me.btnred.Visible = False - ' - 'btngreen - ' - Me.btngreen.BackColor = System.Drawing.Color.Green - Me.btngreen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btngreen.Location = New System.Drawing.Point(131, 3) - Me.btngreen.Name = "btngreen" - Me.btngreen.Size = New System.Drawing.Size(26, 23) - Me.btngreen.TabIndex = 4 - Me.btngreen.UseVisualStyleBackColor = False - Me.btngreen.Visible = False - ' - 'btnblue - ' - Me.btnblue.BackColor = System.Drawing.Color.Blue - Me.btnblue.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnblue.Location = New System.Drawing.Point(163, 3) - Me.btnblue.Name = "btnblue" - Me.btnblue.Size = New System.Drawing.Size(26, 23) - Me.btnblue.TabIndex = 5 - Me.btnblue.UseVisualStyleBackColor = False - Me.btnblue.Visible = False - ' - 'btnyellow - ' - Me.btnyellow.BackColor = System.Drawing.Color.Yellow - Me.btnyellow.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnyellow.Location = New System.Drawing.Point(195, 3) - Me.btnyellow.Name = "btnyellow" - Me.btnyellow.Size = New System.Drawing.Size(26, 23) - Me.btnyellow.TabIndex = 6 - Me.btnyellow.UseVisualStyleBackColor = False - Me.btnyellow.Visible = False - ' - 'btnorange - ' - Me.btnorange.BackColor = System.Drawing.Color.Orange - Me.btnorange.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnorange.Location = New System.Drawing.Point(227, 3) - Me.btnorange.Name = "btnorange" - Me.btnorange.Size = New System.Drawing.Size(26, 23) - Me.btnorange.TabIndex = 7 - Me.btnorange.UseVisualStyleBackColor = False - Me.btnorange.Visible = False - ' - 'btnpink - ' - Me.btnpink.BackColor = System.Drawing.Color.Pink - Me.btnpink.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnpink.Location = New System.Drawing.Point(259, 3) - Me.btnpink.Name = "btnpink" - Me.btnpink.Size = New System.Drawing.Size(26, 23) - Me.btnpink.TabIndex = 8 - Me.btnpink.UseVisualStyleBackColor = False - Me.btnpink.Visible = False - ' - 'btnpurple - ' - Me.btnpurple.BackColor = System.Drawing.Color.Purple - Me.btnpurple.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnpurple.Location = New System.Drawing.Point(291, 3) - Me.btnpurple.Name = "btnpurple" - Me.btnpurple.Size = New System.Drawing.Size(26, 23) - Me.btnpurple.TabIndex = 9 - Me.btnpurple.UseVisualStyleBackColor = False - Me.btnpurple.Visible = False - ' - 'btnbrown - ' - Me.btnbrown.BackColor = System.Drawing.Color.Brown - Me.btnbrown.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnbrown.Location = New System.Drawing.Point(3, 32) - Me.btnbrown.Name = "btnbrown" - Me.btnbrown.Size = New System.Drawing.Size(26, 23) - Me.btnbrown.TabIndex = 10 - Me.btnbrown.UseVisualStyleBackColor = False - Me.btnbrown.Visible = False - ' - 'btnok - ' - Me.btnok.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnok.Location = New System.Drawing.Point(275, 245) - Me.btnok.Name = "btnok" - Me.btnok.Size = New System.Drawing.Size(75, 23) - Me.btnok.TabIndex = 2 - Me.btnok.Text = "OK" - Me.btnok.UseVisualStyleBackColor = True - ' - 'lbselectedcolor - ' - Me.lbselectedcolor.AutoSize = True - Me.lbselectedcolor.Location = New System.Drawing.Point(12, 249) - Me.lbselectedcolor.Name = "lbselectedcolor" - Me.lbselectedcolor.Size = New System.Drawing.Size(154, 14) - Me.lbselectedcolor.TabIndex = 3 - Me.lbselectedcolor.Text = "Selected Color: White" - ' - 'btncancel - ' - Me.btncancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btncancel.Location = New System.Drawing.Point(194, 245) - Me.btncancel.Name = "btncancel" - Me.btncancel.Size = New System.Drawing.Size(75, 23) - Me.btncancel.TabIndex = 4 - Me.btncancel.Text = "Cancel" - Me.btncancel.UseVisualStyleBackColor = True - ' - 'pnltop - ' - Me.pnltop.AppName = "Color Picker" - Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top - Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.pnltop.ForeColor = System.Drawing.Color.White - Me.pnltop.Location = New System.Drawing.Point(0, 0) - Me.pnltop.Name = "pnltop" - Me.pnltop.Size = New System.Drawing.Size(362, 32) - Me.pnltop.TabIndex = 5 - ' - 'ColorPicker - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Black - Me.ClientSize = New System.Drawing.Size(362, 280) - Me.Controls.Add(Me.pnltop) - Me.Controls.Add(Me.btncancel) - Me.Controls.Add(Me.lbselectedcolor) - Me.Controls.Add(Me.btnok) - Me.Controls.Add(Me.pnlcolors) - Me.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.ForeColor = System.Drawing.Color.White - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None - Me.Name = "ColorPicker" - Me.Text = "ColorPicker" - Me.pnlcolors.ResumeLayout(False) - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents pnlcolors As System.Windows.Forms.FlowLayoutPanel - Friend WithEvents btnwhite As System.Windows.Forms.Button - Friend WithEvents btnblack As System.Windows.Forms.Button - Friend WithEvents btngray As System.Windows.Forms.Button - Friend WithEvents btnred As System.Windows.Forms.Button - Friend WithEvents btngreen As System.Windows.Forms.Button - Friend WithEvents btnblue As System.Windows.Forms.Button - Friend WithEvents btnyellow As System.Windows.Forms.Button - Friend WithEvents btnorange As System.Windows.Forms.Button - Friend WithEvents btnpink As System.Windows.Forms.Button - Friend WithEvents btnpurple As System.Windows.Forms.Button - Friend WithEvents btnbrown As System.Windows.Forms.Button - Friend WithEvents btnok As System.Windows.Forms.Button - Friend WithEvents lbselectedcolor As System.Windows.Forms.Label - Friend WithEvents btncancel As System.Windows.Forms.Button - Friend WithEvents pnltop As shiftos_next.Titlebar - End Class -End Namespace \ No newline at end of file diff --git a/shiftos_next/ColorPicker.resx b/shiftos_next/ColorPicker.resx deleted file mode 100644 index 1af7de1..0000000 --- a/shiftos_next/ColorPicker.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/shiftos_next/ColorPicker.vb b/shiftos_next/ColorPicker.vb deleted file mode 100644 index d569c65..0000000 --- a/shiftos_next/ColorPicker.vb +++ /dev/null @@ -1,38 +0,0 @@ -Namespace BasicWM - Public Class ColorPicker - - Public Color As Color - Public oldcolor As Color - - Private Sub btnwhite_Click(sender As Object, e As EventArgs) Handles btnwhite.Click, btnblack.Click, btngray.Click, btnred.Click, btngreen.Click, btnblue.Click, btnyellow.Click, btnorange.Click, btnpink.Click, btnpurple.Click, btnbrown.Click - Color = sender.backcolor - lbselectedcolor.Text = "Selected color: " & Color.ToKnownColor.ToString - End Sub - - Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click - Me.Close() - End Sub - - Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click - Color = oldcolor - Me.Close() - End Sub - - Private Sub ColorPicker_Load(sender As Object, e As EventArgs) Handles MyBase.Load - loadcolors() - End Sub - - - Public Sub loadcolors() - If boughtgray Then btngray.Show() - If boughtred Then btnred.Show() - If boughtgreen Then btngreen.Show() - If boughtblue Then btnblue.Show() - If boughtyellow Then btnyellow.Show() - If boughtorange Then btnorange.Show() - If boughtpink Then btnpink.Show() - If boughtpurple Then btnpurple.Show() - If boughtbrown Then btnbrown.Show() - End Sub - End Class -End Namespace \ No newline at end of file diff --git a/shiftos_next/Desktop Environments/BWMDesktop.Designer.vb b/shiftos_next/Desktop Environments/BWMDesktop.Designer.vb new file mode 100644 index 0000000..3f4ca4e --- /dev/null +++ b/shiftos_next/Desktop Environments/BWMDesktop.Designer.vb @@ -0,0 +1,56 @@ +Namespace BasicWM + _ + Partial Class Desktop + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.btnnewterminal = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'btnnewterminal + ' + Me.btnnewterminal.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnnewterminal.Location = New System.Drawing.Point(12, 12) + Me.btnnewterminal.Name = "btnnewterminal" + Me.btnnewterminal.Size = New System.Drawing.Size(105, 23) + Me.btnnewterminal.TabIndex = 0 + Me.btnnewterminal.Text = "New Terminal" + Me.btnnewterminal.UseVisualStyleBackColor = True + ' + 'Desktop + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(535, 286) + Me.Controls.Add(Me.btnnewterminal) + Me.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.ForeColor = System.Drawing.Color.White + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Desktop" + Me.Text = "BWMDesktop" + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btnnewterminal As System.Windows.Forms.Button + End Class +End Namespace \ No newline at end of file diff --git a/shiftos_next/Desktop Environments/BWMDesktop.resx b/shiftos_next/Desktop Environments/BWMDesktop.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/shiftos_next/Desktop Environments/BWMDesktop.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/shiftos_next/Desktop Environments/BWMDesktop.vb b/shiftos_next/Desktop Environments/BWMDesktop.vb new file mode 100644 index 0000000..07841a5 --- /dev/null +++ b/shiftos_next/Desktop Environments/BWMDesktop.vb @@ -0,0 +1,29 @@ +Namespace BasicWM + Public Class Desktop + + Public openterminals As Integer = 0 + + Private Sub btnnewterminal_Click(sender As Object, e As EventArgs) Handles btnnewterminal.Click + If openterminals = 3 Then + AddLine("The maximum ammount of Terminal windows are open.") + AddLine(username + "@" + osname + " " & Terminal.currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ") + Else + Dim term As New Terminal + term.StartPosition = FormStartPosition.CenterParent + term.TopMost = True + term.Show() + openterminals += 1 + End If + End Sub + + Private Sub Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Terminal.Close() + Me.WindowState = FormWindowState.Maximized + Dim term As New Terminal + term.StartPosition = FormStartPosition.CenterParent + term.TopMost = True + term.Show() + openterminals += 1 + End Sub + End Class +End Namespace \ No newline at end of file diff --git a/shiftos_next/Hijack.Designer.vb b/shiftos_next/Hijack.Designer.vb deleted file mode 100644 index 60d24a9..0000000 --- a/shiftos_next/Hijack.Designer.vb +++ /dev/null @@ -1,93 +0,0 @@ - _ -Partial Class HijackScreen - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Me.lblHijack = New System.Windows.Forms.Label() - Me.conversationtimer = New System.Windows.Forms.Timer(Me.components) - Me.textgen = New System.Windows.Forms.Timer(Me.components) - Me.lblhackwords = New System.Windows.Forms.Label() - Me.hackeffecttimer = New System.Windows.Forms.Timer(Me.components) - Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() - Me.SuspendLayout - ' - 'lblHijack - ' - Me.lblHijack.Anchor = System.Windows.Forms.AnchorStyles.None - Me.lblHijack.AutoSize = true - Me.lblHijack.BackColor = System.Drawing.Color.WhiteSmoke - Me.lblHijack.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) - Me.lblHijack.ForeColor = System.Drawing.Color.DimGray - Me.lblHijack.Location = New System.Drawing.Point(143, 193) - Me.lblHijack.Name = "lblHijack" - Me.lblHijack.Size = New System.Drawing.Size(18, 25) - Me.lblHijack.TabIndex = 0 - Me.lblHijack.Text = "\" - ' - 'conversationtimer - ' - ' - 'textgen - ' - Me.textgen.Interval = 20 - ' - 'lblhackwords - ' - Me.lblhackwords.AutoSize = true - Me.lblhackwords.Dock = System.Windows.Forms.DockStyle.Fill - Me.lblhackwords.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) - Me.lblhackwords.ForeColor = System.Drawing.SystemColors.ButtonFace - Me.lblhackwords.Location = New System.Drawing.Point(0, 0) - Me.lblhackwords.Name = "lblhackwords" - Me.lblhackwords.Size = New System.Drawing.Size(127, 18) - Me.lblhackwords.TabIndex = 1 - Me.lblhackwords.Text = "Hijack in progress" - ' - 'hackeffecttimer - ' - Me.hackeffecttimer.Interval = 50 - ' - 'HijackScreen - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Silver - Me.ClientSize = New System.Drawing.Size(653, 457) - Me.Controls.Add(Me.lblhackwords) - Me.Controls.Add(Me.lblHijack) - Me.Name = "HijackScreen" - Me.Text = "ShiftOS" - Me.TransparencyKey = System.Drawing.Color.White - Me.ResumeLayout(false) - Me.PerformLayout - -End Sub - Friend WithEvents lblHijack As System.Windows.Forms.Label - Friend WithEvents conversationtimer As System.Windows.Forms.Timer - Friend WithEvents textgen As System.Windows.Forms.Timer - Friend WithEvents lblhackwords As System.Windows.Forms.Label - Friend WithEvents hackeffecttimer As System.Windows.Forms.Timer - Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker - -End Class - diff --git a/shiftos_next/Hijack.resx b/shiftos_next/Hijack.resx deleted file mode 100644 index 89116b6..0000000 --- a/shiftos_next/Hijack.resx +++ /dev/null @@ -1,132 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - - 167, 17 - - - 260, 17 - - - 396, 17 - - \ No newline at end of file diff --git a/shiftos_next/Hijack.vb b/shiftos_next/Hijack.vb deleted file mode 100644 index b182254..0000000 --- a/shiftos_next/Hijack.vb +++ /dev/null @@ -1,324 +0,0 @@ -Imports System -Imports System.IO -Imports System.Text -Imports System.Net.Mail - -Public Class HijackScreen - Public actualshiftversion As String = "NEXT 0.0.1" - Dim newgame As Boolean = True - Dim tcount As Integer = 0 - Dim rtext As String - Dim gtexttotype As String - Dim charcount As Integer - Dim currentletter As Integer - Dim slashcount As Integer - Dim conversationcount As Integer = 0 - Dim textgeninput As Object - Dim di As DirectoryInfo - Dim needtoclose As Boolean = False - Dim oldversion As String - Public upgraded As Boolean = False - - Dim fs As FileStream - Dim sw As StreamWriter - Dim hackeffect As Integer - Dim percentcount As Integer - Dim cdrive As System.IO.DriveInfo - - Private Sub HijackScreen_Load(sender As Object, e As EventArgs) Handles MyBase.Load - 'extractdlls() - Control.CheckForIllegalCrossThreadCalls = False - cdrive = My.Computer.FileSystem.GetDriveInfo("C:\") - Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None - Me.WindowState = FormWindowState.Maximized - If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS") Then - If IO.File.ReadAllText("C:/ShiftOS/Shiftum42/HDAccess.sft") = actualshiftversion Then - conversationtimer.Start() - needtoclose = True - loadgame() - If boughtbasicwm = True Then - BasicWM.Desktop.Show() - Else - Terminal.Show() - End If - Else - oldversion = IO.File.ReadAllText(systemdir + "HDAccess.sft") - upgraded = True - System.IO.Directory.Delete(root, True) - BackgroundWorker1.RunWorkerAsync() - conversationtimer.Start() - hackeffecttimer.Start() - End If - Else - BackgroundWorker1.RunWorkerAsync() - conversationtimer.Start() - hackeffecttimer.Start() - End If - End Sub - - Private Sub TextType(texttotype As String) - conversationtimer.Stop() - charcount = texttotype.Length - gtexttotype = texttotype - currentletter = 0 - slashcount = 1 - textgen.Start() - End Sub - - Private Sub textgen_Tick(sender As Object, e As EventArgs) Handles textgen.Tick - - Select Case slashcount - Case 1 - If currentletter < gtexttotype.Length Then - textgeninput.Text = rtext & "\" - End If - - Case 2 - If currentletter < gtexttotype.Length Then - textgeninput.Text = rtext & "|" - End If - - Case 3 - If currentletter < gtexttotype.Length Then - textgeninput.Text = rtext & "/" - End If - - Case 4 - If currentletter < gtexttotype.Length Then - rtext = rtext + gtexttotype.ToCharArray(currentletter, 1) - currentletter = currentletter + 1 - textgeninput.Text = rtext - My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) - End If - End Select - - slashcount = slashcount + 1 - - If slashcount = 5 Then slashcount = 1 - If currentletter = gtexttotype.Length Then - gtexttotype = "" - conversationtimer.Start() - textgen.Stop() - End If - - - End Sub - - Private Sub conversationtimer_Tick(sender As Object, e As EventArgs) Handles conversationtimer.Tick - Select Case conversationcount - Case 0 - If needtoclose = True Then Me.Close() - Case 1 - - textgeninput = lblHijack - TextType("Your computer is now being Hijacked") - conversationtimer.Interval = 1000 - - Case 3 - textgeninput = lblhackwords - textgen.Interval = 10 - rtext = "" - TextType("Hello, user. My name is DevX. I am the creator of ShiftOS." & Environment.NewLine & Environment.NewLine) - Case 4 - TextType("I've been scanning your computer, and it seems you have tested a lot of ShiftOS, however since then I've released a lot of updates." & Environment.NewLine & Environment.NewLine) - Case 5 - TextType("These updates fix a lot of bugs and security holes in ShiftOS and it's mandatory that I install them for you." & Environment.NewLine & Environment.NewLine) - Case 6 - TextType("Much of the experience is similar, and you will have to upgrade the OS." & Environment.NewLine & Environment.NewLine) - Case 7 - TextType("In order to install these updates, your hard drive will be involuntarily formatted." & Environment.NewLine & Environment.NewLine) - Case 8 - TextType("Beginning Hard Drive Format...") - conversationtimer.Interval = 500 - Case 9, 10, 11, 12, 13, 14, 15, 16, 17 - TextType(".") - Case 18 - TextType(".") - Case 19 - rtext = "" - Case 20 - TextType("Scanning Drive C:\") - Case 21 - - TextType(Environment.NewLine & Environment.NewLine & "Drive Label: " & cdrive.VolumeLabel) - Case 22 - TextType(Environment.NewLine & "Total Drive Size: " & Format(cdrive.TotalSize.ToString / 1024 / 1024 / 1024, "0.00") & " GigaBytes") - Case 23 - TextType(Environment.NewLine & "Old File System: ShiftFS") - Case 24 - TextType(Environment.NewLine & "New File System: ShiftFS_Ultra") - Case 25 - TextType(Environment.NewLine & Environment.NewLine & "Formatting C:\ - ") - conversationtimer.Interval = 100 - Case 26 To 126 - textgeninput.Text = rtext & percentcount & "%" - If percentcount < 101 Then - percentcount = percentcount + 1 - My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) - End If - Case 127 - rtext = rtext + "100%" - conversationtimer.Interval = 1000 - Case 128 - TextType(Environment.NewLine & "Format Complete") - Case 129 - rtext = "" - percentcount = 0 - TextType("Installing ShiftOS Beta 1.0 - ") - conversationtimer.Interval = 200 - Case 130 To 230 - textgeninput.Text = rtext & percentcount & "%" & Environment.NewLine & Environment.NewLine - If percentcount < 101 Then - percentcount = percentcount + 1 - My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) - End If - Select Case percentcount - Case 1 To 2 - textgeninput.Text = textgeninput.Text & "~/Home" - If (Not System.IO.Directory.Exists(home)) Then System.IO.Directory.CreateDirectory(home) - Case 3 To 4 - textgeninput.Text = textgeninput.Text & "~/Home/Documents" - If (Not System.IO.Directory.Exists(documents)) Then System.IO.Directory.CreateDirectory(documents) - Case 5 To 9 - textgeninput.Text = textgeninput.Text & "~/Home/Documents/ShiftOSInfo.txt" - fs = File.Create(home + "ShiftOSInfo.txt") - fs.Close() - Case 10 To 12 - textgeninput.Text = textgeninput.Text & "~/Home/Music" - If (Not System.IO.Directory.Exists(music)) Then System.IO.Directory.CreateDirectory(music) - Case 13 To 15 - textgeninput.Text = textgeninput.Text & "~/Home/Pictures" - If (Not System.IO.Directory.Exists(pictures)) Then System.IO.Directory.CreateDirectory(pictures) - Case 16 To 18 - textgeninput.Text = textgeninput.Text & "~/Shiftum42" - If (Not System.IO.Directory.Exists(systemdir)) Then System.IO.Directory.CreateDirectory(systemdir) - Case 19 To 20 - textgeninput.Text = textgeninput.Text & "~/Shiftum42/Drivers" - If (Not System.IO.Directory.Exists(drivers)) Then System.IO.Directory.CreateDirectory(drivers) - Case 21 To 27 - textgeninput.Text = textgeninput.Text & "Writing config files..." - savegame() - Case 28 To 35 - textgeninput.Text = textgeninput.Text & "Copying Drivers..." - fs = File.Create(drivers + "Keyboard.dri") - fs.Close() - Case 36 To 44 - textgeninput.Text = textgeninput.Text & "Copying Drivers..." - fs = File.Create(drivers + "Monitor.dri") - fs.Close() - Case 45 To 52 - textgeninput.Text = textgeninput.Text & "Copying Drivers..." - fs = File.Create(drivers + "Mouse.dri") - fs.Close() - Case 53 To 60 - textgeninput.Text = textgeninput.Text & "Copying Drivers..." - fs = File.Create(drivers + "Printer.dri") - fs.Close() - Case 61 To 68 - textgeninput.Text = textgeninput.Text & "Generating Languages..." - If (Not System.IO.Directory.Exists(systemdir + "Languages/")) Then System.IO.Directory.CreateDirectory(systemdir + "Languages/") - Case 69 To 76 - textgeninput.Text = textgeninput.Text & "Generating Languages..." - fs = File.Create(systemdir + "Languages/English.lang") - fs.Close() - Case 77 To 84 - textgeninput.Text = textgeninput.Text & "Completing update..." - fs = File.Create(systemdir + "HDAccess.sft") - fs.Close() - Dim objWriter As New System.IO.StreamWriter(systemdir + "HDAccess.sft", False) - objWriter.Write(actualshiftversion) - objWriter.Close() - Case 85 To 89 - textgeninput.Text = textgeninput.Text & "Completing update..." - fs = File.Create("C:/ShiftOS/Shiftum42/ShiftGUI.sft") - fs.Close() - Case 90 To 93 - textgeninput.Text = textgeninput.Text & "Completing update..." - fs = File.Create("C:/ShiftOS/Shiftum42/SKernal.sft") - fs.Close() - Case 94 To 97 - textgeninput.Text = textgeninput.Text & "Completing update..." - fs = File.Create("C:/ShiftOS/Shiftum42/SRead.sft") - fs.Close() - Case 98 To 101 - textgeninput.Text = textgeninput.Text & "Completing update..." - fs = File.Create("C:/ShiftOS/Shiftum42/SWrite.sft") - fs.Close() - End Select - - - Case 231 - textgeninput.Text = rtext & "100%" & Environment.NewLine & Environment.NewLine & "C:/Shiftum42/SWrite.sft" - conversationtimer.Interval = 1000 - My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) - Case 232 - textgeninput.Text = rtext & "100%" & Environment.NewLine & Environment.NewLine & "ShiftOS Installation Complete!" - My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) - If (Not System.IO.Directory.Exists("C:/ShiftOS/SoftwareData/")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/SoftwareData/") - If (Not System.IO.Directory.Exists("C:/ShiftOS/SoftwareData/KnowledgeInput")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/SoftwareData/KnowledgeInput") - fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Animals.lst") - fs.Close() - fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Fruits.lst") - fs.Close() - fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Countries.lst") - fs.Close() - Case 234 - 'ShiftOSDesktop.newgame = True - 'ShiftOSDesktop.Show() - Terminal.Show() - Terminal.tmrfirstuse.Start() - Me.Close() - - End Select - conversationcount = conversationcount + 1 - End Sub - - Private Sub hackeffecttimer_Tick(sender As Object, e As EventArgs) Handles hackeffecttimer.Tick - If hackeffect < 101 Then - Select Case hackeffect - Case 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95 - Me.BackColor = Color.Black - My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) - Case 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28 - Me.BackColor = Color.White - My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) - Case 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50 - Me.BackColor = Color.Gainsboro - My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) - Case 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76 - Me.BackColor = Color.Silver - My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) - Case 76, 78, 80, 82, 84, 86, 88, 90, 92, 94 - Me.BackColor = Color.DimGray - My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) - Case 96 - lblHijack.BackColor = Color.LightGray - Case 97 - lblHijack.BackColor = Color.DarkGray - Case 98 - lblHijack.BackColor = Color.DimGray - Case 99 - lblHijack.BackColor = Color.Black - lblHijack.ForeColor = Color.DimGray - Case 100 - lblHijack.Hide() - End Select - Else - hackeffecttimer.Stop() - End If - hackeffect = hackeffect + 1 - End Sub - - 'Private Sub extractdlls() 'If dlls are not in the same folder, this extracts them from resources - ' If Not File.Exists(My.Computer.FileSystem.CurrentDirectory & "\AxInterop.WMPLib.dll") Then - ' System.IO.File.WriteAllBytes(My.Computer.FileSystem.CurrentDirectory & "\AxInterop.WMPLib.dll", My.Resources.AxInterop_WMPLib) - ' End If - ' If Not File.Exists(My.Computer.FileSystem.CurrentDirectory & "\Interop.WMPLib.dll") Then - ' System.IO.File.WriteAllBytes(My.Computer.FileSystem.CurrentDirectory & "\Interop.WMPLib.dll", My.Resources.Interop_WMPLib) - ' End If - ' If Not File.Exists(My.Computer.FileSystem.CurrentDirectory & "\ShiftOS License.txt") Then - ' System.IO.File.WriteAllBytes(My.Computer.FileSystem.CurrentDirectory & "\ShiftOS License.txt", My.Resources.license) - ' End If - 'End Sub -End Class - diff --git a/shiftos_next/Menu Renderers/BasicWM_ColorTable.vb b/shiftos_next/Menu Renderers/BasicWM_ColorTable.vb new file mode 100644 index 0000000..aa2838c --- /dev/null +++ b/shiftos_next/Menu Renderers/BasicWM_ColorTable.vb @@ -0,0 +1,293 @@ +' +' This code was generated by the .NET ToolStrip Customizer. +' http://toolstripcustomizer.codeplex.com/ +' + +Imports System.Drawing +Imports System.Windows.Forms + +Namespace BasicWM + Class ColorTable + Inherits ProfessionalColorTable + Public Overrides ReadOnly Property ButtonSelectedHighlight() As Color + Get + Return ButtonSelectedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlight() As Color + Get + Return ButtonPressedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlightBorder() As Color + Get + Return ButtonPressedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlight() As Color + Get + Return ButtonCheckedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedBorder() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientBegin() As Color + Get + Return Color.FromArgb(255, 64, 0, 64) + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientMiddle() As Color + Get + Return Color.FromArgb(255, 64, 0, 64) + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientEnd() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientMiddle() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckBackground() As Color + Get + Return Color.FromArgb(255, 196, 225, 255) + End Get + End Property + Public Overrides ReadOnly Property CheckSelectedBackground() As Color + Get + Return Color.FromArgb(255, 153, 204, 255) + End Get + End Property + Public Overrides ReadOnly Property CheckPressedBackground() As Color + Get + Return Color.FromArgb(255, 153, 204, 255) + End Get + End Property + Public Overrides ReadOnly Property GripDark() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property GripLight() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelected() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property MenuItemBorder() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property MenuBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property SeparatorDark() As Color + Get + Return Color.FromName("White") + End Get + End Property + Public Overrides ReadOnly Property SeparatorLight() As Color + Get + Return Color.FromName("ButtonHighlight") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientBegin() As Color + Get + Return Color.FromArgb(255, 245, 245, 245) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientMiddle() As Color + Get + Return Color.FromArgb(255, 242, 242, 242) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientEnd() As Color + Get + Return Color.FromName("ButtonShadow") + End Get + End Property + End Class +End Namespace diff --git a/shiftos_next/Menu Renderers/basicwm_renderer.vb b/shiftos_next/Menu Renderers/basicwm_renderer.vb new file mode 100644 index 0000000..97e25a1 --- /dev/null +++ b/shiftos_next/Menu Renderers/basicwm_renderer.vb @@ -0,0 +1,6 @@ +Public Class basicwm_renderer + Inherits ToolStripProfessionalRenderer + Public Sub New() + MyBase.New(New BasicWM.ColorTable()) + End Sub +End Class diff --git a/shiftos_next/Other/Hijack.Designer.vb b/shiftos_next/Other/Hijack.Designer.vb new file mode 100644 index 0000000..60d24a9 --- /dev/null +++ b/shiftos_next/Other/Hijack.Designer.vb @@ -0,0 +1,93 @@ + _ +Partial Class HijackScreen + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.lblHijack = New System.Windows.Forms.Label() + Me.conversationtimer = New System.Windows.Forms.Timer(Me.components) + Me.textgen = New System.Windows.Forms.Timer(Me.components) + Me.lblhackwords = New System.Windows.Forms.Label() + Me.hackeffecttimer = New System.Windows.Forms.Timer(Me.components) + Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() + Me.SuspendLayout + ' + 'lblHijack + ' + Me.lblHijack.Anchor = System.Windows.Forms.AnchorStyles.None + Me.lblHijack.AutoSize = true + Me.lblHijack.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblHijack.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.lblHijack.ForeColor = System.Drawing.Color.DimGray + Me.lblHijack.Location = New System.Drawing.Point(143, 193) + Me.lblHijack.Name = "lblHijack" + Me.lblHijack.Size = New System.Drawing.Size(18, 25) + Me.lblHijack.TabIndex = 0 + Me.lblHijack.Text = "\" + ' + 'conversationtimer + ' + ' + 'textgen + ' + Me.textgen.Interval = 20 + ' + 'lblhackwords + ' + Me.lblhackwords.AutoSize = true + Me.lblhackwords.Dock = System.Windows.Forms.DockStyle.Fill + Me.lblhackwords.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.lblhackwords.ForeColor = System.Drawing.SystemColors.ButtonFace + Me.lblhackwords.Location = New System.Drawing.Point(0, 0) + Me.lblhackwords.Name = "lblhackwords" + Me.lblhackwords.Size = New System.Drawing.Size(127, 18) + Me.lblhackwords.TabIndex = 1 + Me.lblhackwords.Text = "Hijack in progress" + ' + 'hackeffecttimer + ' + Me.hackeffecttimer.Interval = 50 + ' + 'HijackScreen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Silver + Me.ClientSize = New System.Drawing.Size(653, 457) + Me.Controls.Add(Me.lblhackwords) + Me.Controls.Add(Me.lblHijack) + Me.Name = "HijackScreen" + Me.Text = "ShiftOS" + Me.TransparencyKey = System.Drawing.Color.White + Me.ResumeLayout(false) + Me.PerformLayout + +End Sub + Friend WithEvents lblHijack As System.Windows.Forms.Label + Friend WithEvents conversationtimer As System.Windows.Forms.Timer + Friend WithEvents textgen As System.Windows.Forms.Timer + Friend WithEvents lblhackwords As System.Windows.Forms.Label + Friend WithEvents hackeffecttimer As System.Windows.Forms.Timer + Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker + +End Class + diff --git a/shiftos_next/Other/Hijack.resx b/shiftos_next/Other/Hijack.resx new file mode 100644 index 0000000..89116b6 --- /dev/null +++ b/shiftos_next/Other/Hijack.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 167, 17 + + + 260, 17 + + + 396, 17 + + \ No newline at end of file diff --git a/shiftos_next/Other/Hijack.vb b/shiftos_next/Other/Hijack.vb new file mode 100644 index 0000000..b182254 --- /dev/null +++ b/shiftos_next/Other/Hijack.vb @@ -0,0 +1,324 @@ +Imports System +Imports System.IO +Imports System.Text +Imports System.Net.Mail + +Public Class HijackScreen + Public actualshiftversion As String = "NEXT 0.0.1" + Dim newgame As Boolean = True + Dim tcount As Integer = 0 + Dim rtext As String + Dim gtexttotype As String + Dim charcount As Integer + Dim currentletter As Integer + Dim slashcount As Integer + Dim conversationcount As Integer = 0 + Dim textgeninput As Object + Dim di As DirectoryInfo + Dim needtoclose As Boolean = False + Dim oldversion As String + Public upgraded As Boolean = False + + Dim fs As FileStream + Dim sw As StreamWriter + Dim hackeffect As Integer + Dim percentcount As Integer + Dim cdrive As System.IO.DriveInfo + + Private Sub HijackScreen_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'extractdlls() + Control.CheckForIllegalCrossThreadCalls = False + cdrive = My.Computer.FileSystem.GetDriveInfo("C:\") + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None + Me.WindowState = FormWindowState.Maximized + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS") Then + If IO.File.ReadAllText("C:/ShiftOS/Shiftum42/HDAccess.sft") = actualshiftversion Then + conversationtimer.Start() + needtoclose = True + loadgame() + If boughtbasicwm = True Then + BasicWM.Desktop.Show() + Else + Terminal.Show() + End If + Else + oldversion = IO.File.ReadAllText(systemdir + "HDAccess.sft") + upgraded = True + System.IO.Directory.Delete(root, True) + BackgroundWorker1.RunWorkerAsync() + conversationtimer.Start() + hackeffecttimer.Start() + End If + Else + BackgroundWorker1.RunWorkerAsync() + conversationtimer.Start() + hackeffecttimer.Start() + End If + End Sub + + Private Sub TextType(texttotype As String) + conversationtimer.Stop() + charcount = texttotype.Length + gtexttotype = texttotype + currentletter = 0 + slashcount = 1 + textgen.Start() + End Sub + + Private Sub textgen_Tick(sender As Object, e As EventArgs) Handles textgen.Tick + + Select Case slashcount + Case 1 + If currentletter < gtexttotype.Length Then + textgeninput.Text = rtext & "\" + End If + + Case 2 + If currentletter < gtexttotype.Length Then + textgeninput.Text = rtext & "|" + End If + + Case 3 + If currentletter < gtexttotype.Length Then + textgeninput.Text = rtext & "/" + End If + + Case 4 + If currentletter < gtexttotype.Length Then + rtext = rtext + gtexttotype.ToCharArray(currentletter, 1) + currentletter = currentletter + 1 + textgeninput.Text = rtext + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + End If + End Select + + slashcount = slashcount + 1 + + If slashcount = 5 Then slashcount = 1 + If currentletter = gtexttotype.Length Then + gtexttotype = "" + conversationtimer.Start() + textgen.Stop() + End If + + + End Sub + + Private Sub conversationtimer_Tick(sender As Object, e As EventArgs) Handles conversationtimer.Tick + Select Case conversationcount + Case 0 + If needtoclose = True Then Me.Close() + Case 1 + + textgeninput = lblHijack + TextType("Your computer is now being Hijacked") + conversationtimer.Interval = 1000 + + Case 3 + textgeninput = lblhackwords + textgen.Interval = 10 + rtext = "" + TextType("Hello, user. My name is DevX. I am the creator of ShiftOS." & Environment.NewLine & Environment.NewLine) + Case 4 + TextType("I've been scanning your computer, and it seems you have tested a lot of ShiftOS, however since then I've released a lot of updates." & Environment.NewLine & Environment.NewLine) + Case 5 + TextType("These updates fix a lot of bugs and security holes in ShiftOS and it's mandatory that I install them for you." & Environment.NewLine & Environment.NewLine) + Case 6 + TextType("Much of the experience is similar, and you will have to upgrade the OS." & Environment.NewLine & Environment.NewLine) + Case 7 + TextType("In order to install these updates, your hard drive will be involuntarily formatted." & Environment.NewLine & Environment.NewLine) + Case 8 + TextType("Beginning Hard Drive Format...") + conversationtimer.Interval = 500 + Case 9, 10, 11, 12, 13, 14, 15, 16, 17 + TextType(".") + Case 18 + TextType(".") + Case 19 + rtext = "" + Case 20 + TextType("Scanning Drive C:\") + Case 21 + + TextType(Environment.NewLine & Environment.NewLine & "Drive Label: " & cdrive.VolumeLabel) + Case 22 + TextType(Environment.NewLine & "Total Drive Size: " & Format(cdrive.TotalSize.ToString / 1024 / 1024 / 1024, "0.00") & " GigaBytes") + Case 23 + TextType(Environment.NewLine & "Old File System: ShiftFS") + Case 24 + TextType(Environment.NewLine & "New File System: ShiftFS_Ultra") + Case 25 + TextType(Environment.NewLine & Environment.NewLine & "Formatting C:\ - ") + conversationtimer.Interval = 100 + Case 26 To 126 + textgeninput.Text = rtext & percentcount & "%" + If percentcount < 101 Then + percentcount = percentcount + 1 + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + End If + Case 127 + rtext = rtext + "100%" + conversationtimer.Interval = 1000 + Case 128 + TextType(Environment.NewLine & "Format Complete") + Case 129 + rtext = "" + percentcount = 0 + TextType("Installing ShiftOS Beta 1.0 - ") + conversationtimer.Interval = 200 + Case 130 To 230 + textgeninput.Text = rtext & percentcount & "%" & Environment.NewLine & Environment.NewLine + If percentcount < 101 Then + percentcount = percentcount + 1 + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + End If + Select Case percentcount + Case 1 To 2 + textgeninput.Text = textgeninput.Text & "~/Home" + If (Not System.IO.Directory.Exists(home)) Then System.IO.Directory.CreateDirectory(home) + Case 3 To 4 + textgeninput.Text = textgeninput.Text & "~/Home/Documents" + If (Not System.IO.Directory.Exists(documents)) Then System.IO.Directory.CreateDirectory(documents) + Case 5 To 9 + textgeninput.Text = textgeninput.Text & "~/Home/Documents/ShiftOSInfo.txt" + fs = File.Create(home + "ShiftOSInfo.txt") + fs.Close() + Case 10 To 12 + textgeninput.Text = textgeninput.Text & "~/Home/Music" + If (Not System.IO.Directory.Exists(music)) Then System.IO.Directory.CreateDirectory(music) + Case 13 To 15 + textgeninput.Text = textgeninput.Text & "~/Home/Pictures" + If (Not System.IO.Directory.Exists(pictures)) Then System.IO.Directory.CreateDirectory(pictures) + Case 16 To 18 + textgeninput.Text = textgeninput.Text & "~/Shiftum42" + If (Not System.IO.Directory.Exists(systemdir)) Then System.IO.Directory.CreateDirectory(systemdir) + Case 19 To 20 + textgeninput.Text = textgeninput.Text & "~/Shiftum42/Drivers" + If (Not System.IO.Directory.Exists(drivers)) Then System.IO.Directory.CreateDirectory(drivers) + Case 21 To 27 + textgeninput.Text = textgeninput.Text & "Writing config files..." + savegame() + Case 28 To 35 + textgeninput.Text = textgeninput.Text & "Copying Drivers..." + fs = File.Create(drivers + "Keyboard.dri") + fs.Close() + Case 36 To 44 + textgeninput.Text = textgeninput.Text & "Copying Drivers..." + fs = File.Create(drivers + "Monitor.dri") + fs.Close() + Case 45 To 52 + textgeninput.Text = textgeninput.Text & "Copying Drivers..." + fs = File.Create(drivers + "Mouse.dri") + fs.Close() + Case 53 To 60 + textgeninput.Text = textgeninput.Text & "Copying Drivers..." + fs = File.Create(drivers + "Printer.dri") + fs.Close() + Case 61 To 68 + textgeninput.Text = textgeninput.Text & "Generating Languages..." + If (Not System.IO.Directory.Exists(systemdir + "Languages/")) Then System.IO.Directory.CreateDirectory(systemdir + "Languages/") + Case 69 To 76 + textgeninput.Text = textgeninput.Text & "Generating Languages..." + fs = File.Create(systemdir + "Languages/English.lang") + fs.Close() + Case 77 To 84 + textgeninput.Text = textgeninput.Text & "Completing update..." + fs = File.Create(systemdir + "HDAccess.sft") + fs.Close() + Dim objWriter As New System.IO.StreamWriter(systemdir + "HDAccess.sft", False) + objWriter.Write(actualshiftversion) + objWriter.Close() + Case 85 To 89 + textgeninput.Text = textgeninput.Text & "Completing update..." + fs = File.Create("C:/ShiftOS/Shiftum42/ShiftGUI.sft") + fs.Close() + Case 90 To 93 + textgeninput.Text = textgeninput.Text & "Completing update..." + fs = File.Create("C:/ShiftOS/Shiftum42/SKernal.sft") + fs.Close() + Case 94 To 97 + textgeninput.Text = textgeninput.Text & "Completing update..." + fs = File.Create("C:/ShiftOS/Shiftum42/SRead.sft") + fs.Close() + Case 98 To 101 + textgeninput.Text = textgeninput.Text & "Completing update..." + fs = File.Create("C:/ShiftOS/Shiftum42/SWrite.sft") + fs.Close() + End Select + + + Case 231 + textgeninput.Text = rtext & "100%" & Environment.NewLine & Environment.NewLine & "C:/Shiftum42/SWrite.sft" + conversationtimer.Interval = 1000 + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 232 + textgeninput.Text = rtext & "100%" & Environment.NewLine & Environment.NewLine & "ShiftOS Installation Complete!" + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + If (Not System.IO.Directory.Exists("C:/ShiftOS/SoftwareData/")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/SoftwareData/") + If (Not System.IO.Directory.Exists("C:/ShiftOS/SoftwareData/KnowledgeInput")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/SoftwareData/KnowledgeInput") + fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Animals.lst") + fs.Close() + fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Fruits.lst") + fs.Close() + fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Countries.lst") + fs.Close() + Case 234 + 'ShiftOSDesktop.newgame = True + 'ShiftOSDesktop.Show() + Terminal.Show() + Terminal.tmrfirstuse.Start() + Me.Close() + + End Select + conversationcount = conversationcount + 1 + End Sub + + Private Sub hackeffecttimer_Tick(sender As Object, e As EventArgs) Handles hackeffecttimer.Tick + If hackeffect < 101 Then + Select Case hackeffect + Case 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95 + Me.BackColor = Color.Black + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28 + Me.BackColor = Color.White + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + Case 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50 + Me.BackColor = Color.Gainsboro + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + Case 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76 + Me.BackColor = Color.Silver + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + Case 76, 78, 80, 82, 84, 86, 88, 90, 92, 94 + Me.BackColor = Color.DimGray + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + Case 96 + lblHijack.BackColor = Color.LightGray + Case 97 + lblHijack.BackColor = Color.DarkGray + Case 98 + lblHijack.BackColor = Color.DimGray + Case 99 + lblHijack.BackColor = Color.Black + lblHijack.ForeColor = Color.DimGray + Case 100 + lblHijack.Hide() + End Select + Else + hackeffecttimer.Stop() + End If + hackeffect = hackeffect + 1 + End Sub + + 'Private Sub extractdlls() 'If dlls are not in the same folder, this extracts them from resources + ' If Not File.Exists(My.Computer.FileSystem.CurrentDirectory & "\AxInterop.WMPLib.dll") Then + ' System.IO.File.WriteAllBytes(My.Computer.FileSystem.CurrentDirectory & "\AxInterop.WMPLib.dll", My.Resources.AxInterop_WMPLib) + ' End If + ' If Not File.Exists(My.Computer.FileSystem.CurrentDirectory & "\Interop.WMPLib.dll") Then + ' System.IO.File.WriteAllBytes(My.Computer.FileSystem.CurrentDirectory & "\Interop.WMPLib.dll", My.Resources.Interop_WMPLib) + ' End If + ' If Not File.Exists(My.Computer.FileSystem.CurrentDirectory & "\ShiftOS License.txt") Then + ' System.IO.File.WriteAllBytes(My.Computer.FileSystem.CurrentDirectory & "\ShiftOS License.txt", My.Resources.license) + ' End If + 'End Sub +End Class + diff --git a/shiftos_next/Other/Terminal.Designer.vb b/shiftos_next/Other/Terminal.Designer.vb new file mode 100644 index 0000000..61e68b7 --- /dev/null +++ b/shiftos_next/Other/Terminal.Designer.vb @@ -0,0 +1,79 @@ + _ +Partial Class Terminal + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.terminaltext = New System.Windows.Forms.TextBox() + Me.tmrfirstuse = New System.Windows.Forms.Timer(Me.components) + Me.pnltop = New shiftos_next.Titlebar() + Me.SuspendLayout() + ' + 'terminaltext + ' + Me.terminaltext.BackColor = System.Drawing.Color.Black + Me.terminaltext.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.terminaltext.Cursor = System.Windows.Forms.Cursors.IBeam + Me.terminaltext.Dock = System.Windows.Forms.DockStyle.Fill + Me.terminaltext.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.terminaltext.ForeColor = System.Drawing.Color.White + Me.terminaltext.Location = New System.Drawing.Point(0, 32) + Me.terminaltext.Multiline = True + Me.terminaltext.Name = "terminaltext" + Me.terminaltext.Size = New System.Drawing.Size(635, 386) + Me.terminaltext.TabIndex = 0 + Me.terminaltext.Text = "ShiftOS Beta 1.0" + ' + 'tmrfirstuse + ' + Me.tmrfirstuse.Interval = 5000 + ' + 'pnltop + ' + Me.pnltop.AppName = "Terminal" + Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!) + Me.pnltop.ForeColor = System.Drawing.Color.White + Me.pnltop.Location = New System.Drawing.Point(0, 0) + Me.pnltop.Name = "pnltop" + Me.pnltop.Size = New System.Drawing.Size(635, 32) + Me.pnltop.TabIndex = 1 + ' + 'Terminal + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(635, 418) + Me.Controls.Add(Me.terminaltext) + Me.Controls.Add(Me.pnltop) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Terminal" + Me.Text = "Terminal" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents terminaltext As System.Windows.Forms.TextBox + Friend WithEvents tmrfirstuse As System.Windows.Forms.Timer + Friend WithEvents pnltop As shiftos_next.Titlebar +End Class diff --git a/shiftos_next/Other/Terminal.resx b/shiftos_next/Other/Terminal.resx new file mode 100644 index 0000000..42aa7dc --- /dev/null +++ b/shiftos_next/Other/Terminal.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/shiftos_next/Other/Terminal.vb b/shiftos_next/Other/Terminal.vb new file mode 100644 index 0000000..25a3e21 --- /dev/null +++ b/shiftos_next/Other/Terminal.vb @@ -0,0 +1,302 @@ +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 diff --git a/shiftos_next/Terminal.Designer.vb b/shiftos_next/Terminal.Designer.vb deleted file mode 100644 index 61e68b7..0000000 --- a/shiftos_next/Terminal.Designer.vb +++ /dev/null @@ -1,79 +0,0 @@ - _ -Partial Class Terminal - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Me.terminaltext = New System.Windows.Forms.TextBox() - Me.tmrfirstuse = New System.Windows.Forms.Timer(Me.components) - Me.pnltop = New shiftos_next.Titlebar() - Me.SuspendLayout() - ' - 'terminaltext - ' - Me.terminaltext.BackColor = System.Drawing.Color.Black - Me.terminaltext.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.terminaltext.Cursor = System.Windows.Forms.Cursors.IBeam - Me.terminaltext.Dock = System.Windows.Forms.DockStyle.Fill - Me.terminaltext.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.terminaltext.ForeColor = System.Drawing.Color.White - Me.terminaltext.Location = New System.Drawing.Point(0, 32) - Me.terminaltext.Multiline = True - Me.terminaltext.Name = "terminaltext" - Me.terminaltext.Size = New System.Drawing.Size(635, 386) - Me.terminaltext.TabIndex = 0 - Me.terminaltext.Text = "ShiftOS Beta 1.0" - ' - 'tmrfirstuse - ' - Me.tmrfirstuse.Interval = 5000 - ' - 'pnltop - ' - Me.pnltop.AppName = "Terminal" - Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top - Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.pnltop.ForeColor = System.Drawing.Color.White - Me.pnltop.Location = New System.Drawing.Point(0, 0) - Me.pnltop.Name = "pnltop" - Me.pnltop.Size = New System.Drawing.Size(635, 32) - Me.pnltop.TabIndex = 1 - ' - 'Terminal - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(635, 418) - Me.Controls.Add(Me.terminaltext) - Me.Controls.Add(Me.pnltop) - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None - Me.Name = "Terminal" - Me.Text = "Terminal" - Me.WindowState = System.Windows.Forms.FormWindowState.Maximized - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents terminaltext As System.Windows.Forms.TextBox - Friend WithEvents tmrfirstuse As System.Windows.Forms.Timer - Friend WithEvents pnltop As shiftos_next.Titlebar -End Class diff --git a/shiftos_next/Terminal.resx b/shiftos_next/Terminal.resx deleted file mode 100644 index 42aa7dc..0000000 --- a/shiftos_next/Terminal.resx +++ /dev/null @@ -1,123 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - \ No newline at end of file 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 diff --git a/shiftos_next/TerminalGames.vb b/shiftos_next/TerminalGames.vb deleted file mode 100644 index 6d4dfed..0000000 --- a/shiftos_next/TerminalGames.vb +++ /dev/null @@ -1,94 +0,0 @@ -Module TerminalGames - - Public mathquiz As Boolean = False - Public guessthenumber As Boolean = False - - Public Sub MQInterpret(question As String, answer As Integer) - Dim random As New Random() - Dim correct As Boolean = False - Dim args() As String = question.Replace("What is ", "").Split(" ") - Dim cptoadd As Integer = random.Next(1, 5) - Select Case args(1) - Case "+" - correct = (answer = CInt(args(0)) + CInt(args(2))) - Case "-" - correct = (answer = args(0) - args(2)) - Case "*" - correct = (answer = args(0) * args(2)) - Case "/" - correct = (answer = args(0) / args(2)) - End Select - If (correct) Then - AddLine("Correct! You have earned " & cptoadd & " Codepoints!") - AddCP(cptoadd) - Else - AddLine("Incorrect! Better luck next time...") - End If - MQCreateQuestion() - End Sub - - Public Sub MQCreateQuestion() - Dim rand As New Random - Dim num1 As Integer = rand.Next(1, 10) - Dim num2 As Integer = rand.Next(1, 10) - Dim operandchooser As Integer = rand.Next(1, 4) - Dim operand As String - Select Case operandchooser - Case 1 - operand = " + " - Case 2 - While num2 > num1 - num2 = rand.Next(1, 10) - End While - operand = " - " - Case 3 - operand = " * " - Case 4 - operand = " / " - Case Else - operand = " + " - End Select - AddLine("What is " & num1 & operand & num2 & " ?") - End Sub - - Public Sub changeinterpreter() - If mathquiz = True Then - AddLine(" === MathQuiz ===" & vbNewLine) - AddLine("MathQuiz is a basic game for ShiftOS that allows you to earn Codepoints for solving math " & vbNewLine & "questions. These questions will always be (num1) (operand) (num2) = (answer)." & vbNewLine) - AddLine("(num1) and (num2) will always be integers between 1 and 10.") - AddLine("(operand) Will always be either a +, -, * (times) or / (division) statement that can change the answer.") - MQCreateQuestion() - End If - If guessthenumber = True Then - AddLine(" -= Guess The Number =-" & vbNewLine) - AddLine("Guess the Number is a game that allows you to earn Codepoints for") - AddLine("guessing a number between 1 and 100." & vbNewLine) - GTNStart() - End If - End Sub - - Public GTNCorrect As Integer - - Public Sub GTNStart() - Dim rand As New Random() - GTNCorrect = rand.Next(1, 100) - AddLine("Choose a number between 1 and 100:") - End Sub - - Public Sub GTNInterpret(num As Integer) - If num < 100 And num > 0 Then - If GTNCorrect = num Then - Dim rand As New Random() - Dim cptoadd As Integer = rand.Next(1, 10) - AddLine("Correct! You have earned " & cptoadd & " Codepoints.") - GTNStart() - ElseIf num > GTNCorrect Then - AddLine("Lower!") - ElseIf num < GTNCorrect Then - AddLine("Higher!") - End If - Else - AddLine("Number isn't between 1 and 100!") - End If - End Sub -End Module diff --git a/shiftos_next/TextPad.Designer.vb b/shiftos_next/TextPad.Designer.vb deleted file mode 100644 index d43bc67..0000000 --- a/shiftos_next/TextPad.Designer.vb +++ /dev/null @@ -1,224 +0,0 @@ - _ -Partial Class TextPad - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() - Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() - Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.RedoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() - Me.FindToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ReplaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.txtfilebody = New System.Windows.Forms.RichTextBox() - Me.pnltop = New shiftos_next.Titlebar() - Me.MenuStrip1.SuspendLayout() - Me.SuspendLayout() - ' - 'MenuStrip1 - ' - Me.MenuStrip1.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem}) - Me.MenuStrip1.Location = New System.Drawing.Point(0, 32) - Me.MenuStrip1.Name = "MenuStrip1" - Me.MenuStrip1.Size = New System.Drawing.Size(652, 24) - Me.MenuStrip1.TabIndex = 0 - Me.MenuStrip1.Text = "MenuStrip1" - ' - 'FileToolStripMenuItem - ' - Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem, Me.ExitToolStripMenuItem}) - Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" - Me.FileToolStripMenuItem.Size = New System.Drawing.Size(47, 20) - Me.FileToolStripMenuItem.Text = "File" - ' - 'NewToolStripMenuItem - ' - Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" - Me.NewToolStripMenuItem.Size = New System.Drawing.Size(102, 22) - Me.NewToolStripMenuItem.Text = "New" - ' - 'OpenToolStripMenuItem - ' - Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" - Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(102, 22) - Me.OpenToolStripMenuItem.Text = "Open" - ' - 'SaveToolStripMenuItem - ' - Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" - Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(102, 22) - Me.SaveToolStripMenuItem.Text = "Save" - ' - 'ExitToolStripMenuItem - ' - Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem" - Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(102, 22) - Me.ExitToolStripMenuItem.Text = "Exit" - ' - 'EditToolStripMenuItem - ' - Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem, Me.ToolStripSeparator2, Me.UndoToolStripMenuItem, Me.RedoToolStripMenuItem, Me.ToolStripSeparator1, Me.SelectAllToolStripMenuItem, Me.ToolStripSeparator3, Me.FindToolStripMenuItem, Me.ReplaceToolStripMenuItem}) - Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem" - Me.EditToolStripMenuItem.Size = New System.Drawing.Size(47, 20) - Me.EditToolStripMenuItem.Text = "Edit" - ' - 'CutToolStripMenuItem - ' - Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem" - Me.CutToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.CutToolStripMenuItem.Text = "Cut" - ' - 'CopyToolStripMenuItem - ' - Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" - Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.CopyToolStripMenuItem.Text = "Copy" - ' - 'PasteToolStripMenuItem - ' - Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem" - Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.PasteToolStripMenuItem.Text = "Paste" - ' - 'ToolStripSeparator2 - ' - Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - Me.ToolStripSeparator2.Size = New System.Drawing.Size(141, 6) - ' - 'UndoToolStripMenuItem - ' - Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem" - Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.UndoToolStripMenuItem.Text = "Undo" - ' - 'RedoToolStripMenuItem - ' - Me.RedoToolStripMenuItem.Name = "RedoToolStripMenuItem" - Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.RedoToolStripMenuItem.Text = "Redo" - ' - 'ToolStripSeparator1 - ' - Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - Me.ToolStripSeparator1.Size = New System.Drawing.Size(141, 6) - ' - 'SelectAllToolStripMenuItem - ' - Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem" - Me.SelectAllToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.SelectAllToolStripMenuItem.Text = "Select All" - ' - 'ToolStripSeparator3 - ' - Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - Me.ToolStripSeparator3.Size = New System.Drawing.Size(141, 6) - ' - 'FindToolStripMenuItem - ' - Me.FindToolStripMenuItem.Name = "FindToolStripMenuItem" - Me.FindToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.FindToolStripMenuItem.Text = "Find" - Me.FindToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'ReplaceToolStripMenuItem - ' - Me.ReplaceToolStripMenuItem.Name = "ReplaceToolStripMenuItem" - Me.ReplaceToolStripMenuItem.Size = New System.Drawing.Size(144, 22) - Me.ReplaceToolStripMenuItem.Text = "Replace" - ' - 'txtfilebody - ' - Me.txtfilebody.BackColor = System.Drawing.Color.Black - Me.txtfilebody.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtfilebody.Dock = System.Windows.Forms.DockStyle.Fill - Me.txtfilebody.ForeColor = System.Drawing.Color.White - Me.txtfilebody.Location = New System.Drawing.Point(0, 56) - Me.txtfilebody.Name = "txtfilebody" - Me.txtfilebody.Size = New System.Drawing.Size(652, 261) - Me.txtfilebody.TabIndex = 1 - Me.txtfilebody.Text = "" - ' - 'pnltop - ' - Me.pnltop.AppName = "TextPad" - Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top - Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.pnltop.ForeColor = System.Drawing.Color.White - Me.pnltop.Location = New System.Drawing.Point(0, 0) - Me.pnltop.Name = "pnltop" - Me.pnltop.Size = New System.Drawing.Size(652, 32) - Me.pnltop.TabIndex = 2 - ' - 'TextPad - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Black - Me.ClientSize = New System.Drawing.Size(652, 317) - Me.Controls.Add(Me.txtfilebody) - Me.Controls.Add(Me.MenuStrip1) - Me.Controls.Add(Me.pnltop) - Me.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.ForeColor = System.Drawing.Color.White - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None - Me.MainMenuStrip = Me.MenuStrip1 - Me.Name = "TextPad" - Me.Text = "TextPad" - Me.MenuStrip1.ResumeLayout(False) - Me.MenuStrip1.PerformLayout() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip - Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents CutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents PasteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents RedoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents FindToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents ReplaceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents txtfilebody As System.Windows.Forms.RichTextBox - Friend WithEvents pnltop As shiftos_next.Titlebar -End Class diff --git a/shiftos_next/TextPad.resx b/shiftos_next/TextPad.resx deleted file mode 100644 index bb70361..0000000 --- a/shiftos_next/TextPad.resx +++ /dev/null @@ -1,123 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - \ No newline at end of file diff --git a/shiftos_next/TextPad.vb b/shiftos_next/TextPad.vb deleted file mode 100644 index 1bc0d28..0000000 --- a/shiftos_next/TextPad.vb +++ /dev/null @@ -1,76 +0,0 @@ -Public Class TextPad - - - Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click - file_skimmer.mode = "open" - file_skimmer.application = "textpad" - file_skimmer.Show() - End Sub - - Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click - file_skimmer.mode = "save" - file_skimmer.application = "textpad" - file_skimmer.Show() - End Sub - - Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click - Me.Close() - End Sub - - Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click - txtfilebody.Text = "" - End Sub - - Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click - txtfilebody.Cut() - End Sub - - Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click - txtfilebody.Copy() - End Sub - - Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click - txtfilebody.Paste() - End Sub - - Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UndoToolStripMenuItem.Click - txtfilebody.Undo() - End Sub - - Private Sub RedoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RedoToolStripMenuItem.Click - txtfilebody.Redo() - End Sub - - Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click - txtfilebody.SelectAll() - End Sub - - Private Sub FindToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FindToolStripMenuItem.Click - basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True) - txtfilebody.Find(basicwm_infobox.userinput) - End Sub - - Private Sub ReplaceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReplaceToolStripMenuItem.Click - basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True) - Dim whattofind As String = basicwm_infobox.userinput - basicwm_infobox.showinfo("Replace", "What shall we replace """ & whattofind & """ with?", True) - txtfilebody.Text = txtfilebody.Text.Replace(whattofind, basicwm_infobox.userinput) - End Sub - - Private Sub TextPad_Load(sender As Object, e As EventArgs) Handles Me.Load - MenuStrip1.Renderer = New basicwm_renderer() - setupmenufonts() - pnltop.DetermineMyVisibility() - End Sub - - Public Sub setupmenufonts() - For Each item In MenuStrip1.Items - item.ForeColor = Color.White - item.Font = New Font("Courier New", 8.25) - For Each SubItem In item.DropDownItems - SubItem.ForeColor = Color.White - SubItem.font = New Font("Courier New", 8.25) - Next - Next - End Sub -End Class \ No newline at end of file diff --git a/shiftos_next/basicwm_infobox.Designer.vb b/shiftos_next/basicwm_infobox.Designer.vb deleted file mode 100644 index 000d75f..0000000 --- a/shiftos_next/basicwm_infobox.Designer.vb +++ /dev/null @@ -1,115 +0,0 @@ - _ -Partial Class basicwm_infobox - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.Panel1 = New System.Windows.Forms.Panel() - Me.lbtitle = New System.Windows.Forms.Label() - Me.btnok = New System.Windows.Forms.Button() - Me.lbmessage = New System.Windows.Forms.Label() - Me.txtuserinput = New System.Windows.Forms.TextBox() - Me.Panel1.SuspendLayout() - Me.SuspendLayout() - ' - 'Panel1 - ' - Me.Panel1.BackColor = System.Drawing.Color.Gray - Me.Panel1.Controls.Add(Me.lbtitle) - Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top - Me.Panel1.Location = New System.Drawing.Point(0, 0) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(433, 30) - Me.Panel1.TabIndex = 0 - ' - 'lbtitle - ' - Me.lbtitle.Dock = System.Windows.Forms.DockStyle.Fill - Me.lbtitle.Location = New System.Drawing.Point(0, 0) - Me.lbtitle.Name = "lbtitle" - Me.lbtitle.Size = New System.Drawing.Size(433, 30) - Me.lbtitle.TabIndex = 0 - Me.lbtitle.Text = "I am a hacker." - Me.lbtitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'btnok - ' - Me.btnok.Dock = System.Windows.Forms.DockStyle.Bottom - Me.btnok.FlatAppearance.BorderSize = 0 - Me.btnok.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnok.Location = New System.Drawing.Point(0, 213) - Me.btnok.Name = "btnok" - Me.btnok.Size = New System.Drawing.Size(433, 44) - Me.btnok.TabIndex = 0 - Me.btnok.Text = "> Alright <" - Me.btnok.UseVisualStyleBackColor = True - ' - 'lbmessage - ' - Me.lbmessage.Dock = System.Windows.Forms.DockStyle.Fill - Me.lbmessage.Location = New System.Drawing.Point(0, 30) - Me.lbmessage.Name = "lbmessage" - Me.lbmessage.Size = New System.Drawing.Size(433, 183) - Me.lbmessage.TabIndex = 1 - Me.lbmessage.Text = "I am already viewing my computer logs of that interview. Soon, I'll know everythi" & _ - "ng there is to know about that banana making factory." - Me.lbmessage.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'txtuserinput - ' - Me.txtuserinput.BackColor = System.Drawing.Color.Black - Me.txtuserinput.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtuserinput.Dock = System.Windows.Forms.DockStyle.Bottom - Me.txtuserinput.ForeColor = System.Drawing.Color.White - Me.txtuserinput.Location = New System.Drawing.Point(0, 200) - Me.txtuserinput.Name = "txtuserinput" - Me.txtuserinput.Size = New System.Drawing.Size(433, 13) - Me.txtuserinput.TabIndex = 2 - Me.txtuserinput.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - Me.txtuserinput.WordWrap = False - ' - 'basicwm_infobox - ' - Me.AcceptButton = Me.btnok - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Black - Me.ClientSize = New System.Drawing.Size(433, 257) - Me.Controls.Add(Me.txtuserinput) - Me.Controls.Add(Me.lbmessage) - Me.Controls.Add(Me.btnok) - Me.Controls.Add(Me.Panel1) - Me.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.ForeColor = System.Drawing.Color.White - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None - Me.Name = "basicwm_infobox" - Me.Text = "basicwm_infobox" - Me.Panel1.ResumeLayout(False) - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents Panel1 As System.Windows.Forms.Panel - Friend WithEvents lbtitle As System.Windows.Forms.Label - Friend WithEvents btnok As System.Windows.Forms.Button - Friend WithEvents lbmessage As System.Windows.Forms.Label - Friend WithEvents txtuserinput As System.Windows.Forms.TextBox -End Class diff --git a/shiftos_next/basicwm_infobox.resx b/shiftos_next/basicwm_infobox.resx deleted file mode 100644 index 1af7de1..0000000 --- a/shiftos_next/basicwm_infobox.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/shiftos_next/basicwm_infobox.vb b/shiftos_next/basicwm_infobox.vb deleted file mode 100644 index e4ffa55..0000000 --- a/shiftos_next/basicwm_infobox.vb +++ /dev/null @@ -1,19 +0,0 @@ -Public Class basicwm_infobox - - Public userinput As String - - Public Sub showinfo(title As String, message As String, Optional showtextbox As Boolean = False) - lbtitle.Text = title - lbmessage.Text = message - btnok.Text = "> OK <" - txtuserinput.Visible = showtextbox - Me.StartPosition = FormStartPosition.CenterScreen - Me.TopMost = True - Me.ShowDialog() - End Sub - - Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click - userinput = txtuserinput.Text - Me.Close() - End Sub -End Class \ No newline at end of file diff --git a/shiftos_next/basicwm_renderer.vb b/shiftos_next/basicwm_renderer.vb deleted file mode 100644 index 97e25a1..0000000 --- a/shiftos_next/basicwm_renderer.vb +++ /dev/null @@ -1,6 +0,0 @@ -Public Class basicwm_renderer - Inherits ToolStripProfessionalRenderer - Public Sub New() - MyBase.New(New BasicWM.ColorTable()) - End Sub -End Class diff --git a/shiftos_next/bin/Debug/shiftos_next.exe b/shiftos_next/bin/Debug/shiftos_next.exe index bc00aab..cea38f3 100644 Binary files a/shiftos_next/bin/Debug/shiftos_next.exe and b/shiftos_next/bin/Debug/shiftos_next.exe differ diff --git a/shiftos_next/bin/Debug/shiftos_next.pdb b/shiftos_next/bin/Debug/shiftos_next.pdb index 7ee40d3..683dcab 100644 Binary files a/shiftos_next/bin/Debug/shiftos_next.pdb and b/shiftos_next/bin/Debug/shiftos_next.pdb differ diff --git a/shiftos_next/file skimmer.Designer.vb b/shiftos_next/file skimmer.Designer.vb deleted file mode 100644 index 4d2aabd..0000000 --- a/shiftos_next/file skimmer.Designer.vb +++ /dev/null @@ -1,280 +0,0 @@ - _ -Partial Class file_skimmer - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(file_skimmer)) - Me.topmenu = New System.Windows.Forms.MenuStrip() - Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.FolderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.newseperator = New System.Windows.Forms.ToolStripSeparator() - Me.TextFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ExitSessionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ProductInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.tools = New System.Windows.Forms.ToolStrip() - Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() - Me.lbcurrentdir = New System.Windows.Forms.ToolStripLabel() - Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.btnnewfolder = New System.Windows.Forms.ToolStripButton() - Me.btndelete = New System.Windows.Forms.ToolStripButton() - Me.lvfiles = New System.Windows.Forms.ListView() - Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.pnlsave = New System.Windows.Forms.Panel() - Me.txtfilename = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.btnsave = New System.Windows.Forms.Button() - Me.pnltop = New shiftos_next.Titlebar() - Me.topmenu.SuspendLayout() - Me.tools.SuspendLayout() - Me.pnlsave.SuspendLayout() - Me.SuspendLayout() - ' - 'topmenu - ' - Me.topmenu.BackColor = System.Drawing.Color.Gray - Me.topmenu.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.topmenu.ForeColor = System.Drawing.Color.White - Me.topmenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.AboutToolStripMenuItem}) - Me.topmenu.Location = New System.Drawing.Point(0, 32) - Me.topmenu.Name = "topmenu" - Me.topmenu.Size = New System.Drawing.Size(591, 24) - Me.topmenu.TabIndex = 0 - Me.topmenu.Text = "MenuStrip1" - ' - 'FileToolStripMenuItem - ' - Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.ExitSessionToolStripMenuItem}) - Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" - Me.FileToolStripMenuItem.Size = New System.Drawing.Size(47, 20) - Me.FileToolStripMenuItem.Text = "File" - ' - 'NewToolStripMenuItem - ' - Me.NewToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FolderToolStripMenuItem, Me.newseperator, Me.TextFileToolStripMenuItem}) - Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" - Me.NewToolStripMenuItem.Size = New System.Drawing.Size(158, 22) - Me.NewToolStripMenuItem.Text = "New" - ' - 'FolderToolStripMenuItem - ' - Me.FolderToolStripMenuItem.Name = "FolderToolStripMenuItem" - Me.FolderToolStripMenuItem.Size = New System.Drawing.Size(137, 22) - Me.FolderToolStripMenuItem.Text = "Folder" - ' - 'newseperator - ' - Me.newseperator.Name = "newseperator" - Me.newseperator.Size = New System.Drawing.Size(134, 6) - ' - 'TextFileToolStripMenuItem - ' - Me.TextFileToolStripMenuItem.Name = "TextFileToolStripMenuItem" - Me.TextFileToolStripMenuItem.Size = New System.Drawing.Size(137, 22) - Me.TextFileToolStripMenuItem.Text = "Text File" - ' - 'ExitSessionToolStripMenuItem - ' - Me.ExitSessionToolStripMenuItem.Name = "ExitSessionToolStripMenuItem" - Me.ExitSessionToolStripMenuItem.Size = New System.Drawing.Size(158, 22) - Me.ExitSessionToolStripMenuItem.Text = "Exit Session" - ' - 'AboutToolStripMenuItem - ' - Me.AboutToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProductInfoToolStripMenuItem}) - Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem" - Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(54, 20) - Me.AboutToolStripMenuItem.Text = "About" - ' - 'ProductInfoToolStripMenuItem - ' - Me.ProductInfoToolStripMenuItem.Name = "ProductInfoToolStripMenuItem" - Me.ProductInfoToolStripMenuItem.Size = New System.Drawing.Size(158, 22) - Me.ProductInfoToolStripMenuItem.Text = "Product Info" - ' - 'tools - ' - Me.tools.BackColor = System.Drawing.Color.Gray - Me.tools.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.tools.ForeColor = System.Drawing.Color.White - Me.tools.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.lbcurrentdir, Me.ToolStripSeparator1, Me.btnnewfolder, Me.btndelete}) - Me.tools.Location = New System.Drawing.Point(0, 56) - Me.tools.Name = "tools" - Me.tools.Size = New System.Drawing.Size(591, 25) - Me.tools.TabIndex = 1 - Me.tools.Text = "ToolStrip1" - ' - 'ToolStripLabel1 - ' - Me.ToolStripLabel1.Name = "ToolStripLabel1" - Me.ToolStripLabel1.Size = New System.Drawing.Size(133, 22) - Me.ToolStripLabel1.Text = "Current Directory:" - ' - 'lbcurrentdir - ' - Me.lbcurrentdir.Name = "lbcurrentdir" - Me.lbcurrentdir.Size = New System.Drawing.Size(49, 22) - Me.lbcurrentdir.Text = "~/Home" - ' - 'ToolStripSeparator1 - ' - Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) - ' - 'btnnewfolder - ' - Me.btnnewfolder.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text - Me.btnnewfolder.Image = CType(resources.GetObject("btnnewfolder.Image"), System.Drawing.Image) - Me.btnnewfolder.ImageTransparentColor = System.Drawing.Color.Magenta - Me.btnnewfolder.Name = "btnnewfolder" - Me.btnnewfolder.Size = New System.Drawing.Size(81, 22) - Me.btnnewfolder.Text = "New Folder" - ' - 'btndelete - ' - Me.btndelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text - Me.btndelete.Image = CType(resources.GetObject("btndelete.Image"), System.Drawing.Image) - Me.btndelete.ImageTransparentColor = System.Drawing.Color.Magenta - Me.btndelete.Name = "btndelete" - Me.btndelete.Size = New System.Drawing.Size(53, 22) - Me.btndelete.Text = "Delete" - ' - 'lvfiles - ' - Me.lvfiles.BackColor = System.Drawing.Color.Black - Me.lvfiles.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lvfiles.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) - Me.lvfiles.Dock = System.Windows.Forms.DockStyle.Fill - Me.lvfiles.ForeColor = System.Drawing.Color.White - Me.lvfiles.Location = New System.Drawing.Point(0, 81) - Me.lvfiles.Name = "lvfiles" - Me.lvfiles.Size = New System.Drawing.Size(591, 249) - Me.lvfiles.TabIndex = 3 - Me.lvfiles.UseCompatibleStateImageBehavior = False - Me.lvfiles.View = System.Windows.Forms.View.Tile - ' - 'pnlsave - ' - Me.pnlsave.Controls.Add(Me.txtfilename) - Me.pnlsave.Controls.Add(Me.Label1) - Me.pnlsave.Controls.Add(Me.btnsave) - Me.pnlsave.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlsave.Location = New System.Drawing.Point(0, 330) - Me.pnlsave.Name = "pnlsave" - Me.pnlsave.Size = New System.Drawing.Size(591, 30) - Me.pnlsave.TabIndex = 4 - ' - 'txtfilename - ' - Me.txtfilename.BackColor = System.Drawing.Color.Black - Me.txtfilename.ForeColor = System.Drawing.Color.White - Me.txtfilename.Location = New System.Drawing.Point(86, 5) - Me.txtfilename.Name = "txtfilename" - Me.txtfilename.Size = New System.Drawing.Size(421, 20) - Me.txtfilename.TabIndex = 2 - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(3, 8) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(77, 14) - Me.Label1.TabIndex = 1 - Me.Label1.Text = "File Name:" - ' - 'btnsave - ' - Me.btnsave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnsave.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnsave.Location = New System.Drawing.Point(513, 4) - Me.btnsave.Name = "btnsave" - Me.btnsave.Size = New System.Drawing.Size(75, 23) - Me.btnsave.TabIndex = 0 - Me.btnsave.Text = "Save" - Me.btnsave.UseVisualStyleBackColor = True - ' - 'pnltop - ' - Me.pnltop.AppName = "File Skimmer" - Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top - Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.pnltop.ForeColor = System.Drawing.Color.White - Me.pnltop.Location = New System.Drawing.Point(0, 0) - Me.pnltop.Name = "pnltop" - Me.pnltop.Size = New System.Drawing.Size(591, 32) - Me.pnltop.TabIndex = 5 - ' - 'file_skimmer - ' - Me.AcceptButton = Me.btnsave - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Black - Me.ClientSize = New System.Drawing.Size(591, 360) - Me.Controls.Add(Me.lvfiles) - Me.Controls.Add(Me.pnlsave) - Me.Controls.Add(Me.tools) - Me.Controls.Add(Me.topmenu) - Me.Controls.Add(Me.pnltop) - Me.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.ForeColor = System.Drawing.Color.White - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None - Me.MainMenuStrip = Me.topmenu - Me.Name = "file_skimmer" - Me.Text = "file_skimmer" - Me.WindowState = System.Windows.Forms.FormWindowState.Maximized - Me.topmenu.ResumeLayout(False) - Me.topmenu.PerformLayout() - Me.tools.ResumeLayout(False) - Me.tools.PerformLayout() - Me.pnlsave.ResumeLayout(False) - Me.pnlsave.PerformLayout() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents topmenu As System.Windows.Forms.MenuStrip - Friend WithEvents tools As System.Windows.Forms.ToolStrip - Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents ExitSessionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel - Friend WithEvents lbcurrentdir As System.Windows.Forms.ToolStripLabel - Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents btnnewfolder As System.Windows.Forms.ToolStripButton - Friend WithEvents btndelete As System.Windows.Forms.ToolStripButton - Friend WithEvents lvfiles As System.Windows.Forms.ListView - Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader - Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader - Friend WithEvents ProductInfoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents FolderToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents newseperator As System.Windows.Forms.ToolStripSeparator - Friend WithEvents TextFileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents pnlsave As System.Windows.Forms.Panel - Friend WithEvents txtfilename As System.Windows.Forms.TextBox - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents btnsave As System.Windows.Forms.Button - Friend WithEvents pnltop As shiftos_next.Titlebar -End Class diff --git a/shiftos_next/file skimmer.resx b/shiftos_next/file skimmer.resx deleted file mode 100644 index b591e26..0000000 --- a/shiftos_next/file skimmer.resx +++ /dev/null @@ -1,157 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - - 132, 17 - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG - YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 - 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw - bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc - VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 - c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 - Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo - mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ - kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D - TgDQASA1MVpwzwAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG - YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 - 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw - bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc - VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 - c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 - Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo - mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ - kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D - TgDQASA1MVpwzwAAAABJRU5ErkJggg== - - - \ No newline at end of file diff --git a/shiftos_next/file skimmer.vb b/shiftos_next/file skimmer.vb deleted file mode 100644 index 4b2d9b1..0000000 --- a/shiftos_next/file skimmer.vb +++ /dev/null @@ -1,178 +0,0 @@ -Public Class file_skimmer - - - - Public mode As String - Public application As String 'The application sending either an open or save mode. - Public currentdir As String = home - - Public Sub setupmenufonts() - For Each item In topmenu.Items - item.ForeColor = Color.White - item.Font = New Font("Courier New", 8.25) - For Each SubItem In item.DropDownItems - SubItem.ForeColor = Color.White - SubItem.font = New Font("Courier New", 8.25) - Next - Next - End Sub - - Public Sub showfiles() - Dim lv As ListView = lvfiles - lv.Items.Clear() - lv.View = View.Tile - lv.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent) - Dim upone As New ListViewItem - upone.Text = "Up one" - lv.Items.Add(upone) - upone.SubItems.Add("directory") - - For Each dir As String In My.Computer.FileSystem.GetDirectories(currentdir) - Dim dirinf As New IO.DirectoryInfo(dir) - Dim lvitem As New ListViewItem - lvitem.Text = dirinf.Name - lvitem.Tag = dirinf.FullName - lv.Items.Add(lvitem) - lvitem.SubItems.Add("Directory") - lvitem.SubItems.Add(dirinf.LastAccessTime) - - Next - For Each file As String In My.Computer.FileSystem.GetFiles(currentdir) - Dim filinf As New IO.DirectoryInfo(file) - Dim lvitem As New ListViewItem - lvitem.Text = filinf.Name - lvitem.Tag = filinf.FullName - lv.Items.Add(lvitem) - - lvitem.SubItems.Add(GetFileType(filinf.Extension)) - lvitem.SubItems.Add(filinf.LastAccessTime) - Next - lbcurrentdir.Text = currentdir.Replace(root, "~").Replace("\", "/") - End Sub - - Public Function GetFileType(ext As String) - Dim FileType As String - Select Case ext - Case ".txt" - FileType = "Text File" - Case ".pkg" - FileType = "Application" - Case ".deb" - FileType = "Application Installer" - Case ".sft" - FileType = "Data File" - Case ".dri" - FileType = "Driver" - Case Else - FileType = "Unknown File" - End Select - Return FileType - End Function - - Public Sub OpenFile(file As String) - If IO.Directory.Exists(file) Then - currentdir = file - showfiles() - Else - Dim filinf As New IO.FileInfo(file) - Select Case filinf.Extension - Case Else - basicwm_infobox.showinfo("Exodus - File Format not valid", "The format of the file """ & filinf.Name & """ is not a format in which Exodus File Browser can read.") - End Select - End If - End Sub - Private Sub lvfiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvfiles.DoubleClick - Try - If lvfiles.SelectedItems(0).Text = "Up one" Then - If Not currentdir = root Then - currentdir = IO.Directory.GetParent(currentdir).ToString - showfiles() - End If - Else - If mode = "open" Then - Select Case Application - Case "textpad" - Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString) - TextPad.txtfilebody.Text = sr.ReadToEnd() - sr.Close() - Me.Close() - End Select - Else - OpenFile(lvfiles.SelectedItems(0).Tag) - End If - End If - Catch - End Try - End Sub - - Private Sub file_skimmer_Load(sender As Object, e As EventArgs) Handles Me.Load - topmenu.Renderer = New basicwm_renderer() - tools.Renderer = New basicwm_renderer() - setupmenufonts() - setupui() - showfiles() - End Sub - - Public Sub setupui() - FolderToolStripMenuItem.Visible = boughtfileskimmernewfolder - newseperator.Visible = boughtfileskimmernewfolder - btnnewfolder.Visible = boughtfileskimmernewfolder - btndelete.Visible = boughtfileskimmerdelete - If mode = "save" Then - pnlsave.Visible = True - Else - pnlsave.Visible = False - End If - pnltop.DetermineMyVisibility() - End Sub - - Private Sub ExitSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitSessionToolStripMenuItem.Click - Me.Close() - End Sub - - Private Sub ProductInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProductInfoToolStripMenuItem.Click - basicwm_infobox.showinfo("File Skimmer - v1.2", "Browse, edit, move, copy and delete the files on your computer.") - End Sub - - - - Private Sub FolderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FolderToolStripMenuItem.Click, btnnewfolder.Click - basicwm_infobox.showinfo("Create New Folder", "Please specify a name for your folder.", True) - If Not IO.Directory.Exists(currentdir & "\" & basicwm_infobox.userinput) Then - IO.Directory.CreateDirectory(currentdir & "\" & basicwm_infobox.userinput) - Else - basicwm_infobox.showinfo("Create New Folder", "The specified folder already exists!") - End If - showfiles() - End Sub - - Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click - Try - If IO.Directory.Exists(lvfiles.SelectedItems(0).Tag) Then - IO.Directory.Delete(lvfiles.SelectedItems(0).Tag, True) - ElseIf IO.File.Exists(lvfiles.SelectedItems(0).Tag) Then - IO.File.Delete(lvfiles.SelectedItems(0).Tag) - End If - Catch ex As Exception - basicwm_infobox.showinfo("Error!", "The following Visual Basic exception has occurred: " & vbNewLine & vbNewLine & ex.Message) - End Try - End Sub - - Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click - If Not txtfilename.Text = "" Then - If IO.Directory.Exists(currentdir + "\" + txtfilename.Text) Then - basicwm_infobox.showinfo("Invalid File Name", "You can't save a file ontop of a directory with the same name!") - Else - Select Case Application - Case "textpad" - Dim sw As New IO.StreamWriter(currentdir + "\" + txtfilename.Text) - sw.Write(TextPad.txtfilebody.Text) - sw.Close() - Me.Close() - End Select - End If - Else - basicwm_infobox.showinfo("Invalid File Name", "Please specify a file name, and not leave it blank!") - End If - End Sub -End Class \ No newline at end of file diff --git a/shiftos_next/filesystem.vb b/shiftos_next/filesystem.vb deleted file mode 100644 index 61e8053..0000000 --- a/shiftos_next/filesystem.vb +++ /dev/null @@ -1,19 +0,0 @@ -Module filesystem - 'This module represents the folder structure of the ShiftFS Filesystem. - - Public root As String = "C:\ShiftOS" - - Public home As String = root + "\Home\" 'Inconsistent to fix terminal glitch. - - Public documents As String = home + "Documents\" - Public pictures As String = home + "Pictures\" - Public music As String = home + "Music\" - - Public systemdir As String = root + "\Shiftum42\" - - Public drivers As String = systemdir + "Drivers\" - - Public save As String = drivers + "HDD.dri" - - -End Module diff --git a/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache index ee2f7a0..d8cd611 100644 Binary files a/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/shiftos_next/obj/Debug/shiftos_next.exe b/shiftos_next/obj/Debug/shiftos_next.exe index bc00aab..cea38f3 100644 Binary files a/shiftos_next/obj/Debug/shiftos_next.exe and b/shiftos_next/obj/Debug/shiftos_next.exe differ diff --git a/shiftos_next/obj/Debug/shiftos_next.pdb b/shiftos_next/obj/Debug/shiftos_next.pdb index 7ee40d3..683dcab 100644 Binary files a/shiftos_next/obj/Debug/shiftos_next.pdb and b/shiftos_next/obj/Debug/shiftos_next.pdb differ diff --git a/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache b/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache index 4a8c593..8f96502 100644 Binary files a/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache and b/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache differ diff --git a/shiftos_next/saveengine.vb b/shiftos_next/saveengine.vb deleted file mode 100644 index 2c49cbd..0000000 --- a/shiftos_next/saveengine.vb +++ /dev/null @@ -1,611 +0,0 @@ -Module saveengine - 'Core for Save Engine - - Public username As String = "user" - Public osname As String = "shiftos" - - ' - ' NEWER UPGRADES: These are partly from UltraDOS, partially from Orion, and a few others created just for this project. - ' - - Public boughtdirectorysurfing As Boolean = False - Public boughtbasicsettings As Boolean = False - Public boughtbasicgui As Boolean = False - Public boughtterminalsettextcolor As Boolean = False - Public boughtbasicwm As Boolean = False - - ' - ' OLD SHIFTOS UPGRADES: These upgrades may be useful, so I've added them. - ' - - 'Shiftorium Upgrades - Public boughttitlebar As Boolean = False - Public boughtgray As Boolean = False - Public boughtsecondspastmidnight As Boolean = False - Public boughtminutespastmidnight As Boolean = False - Public boughthourspastmidnight As Boolean = False - Public boughtcustomusername As Boolean = False - Public boughtwindowsanywhere As Boolean = False - Public boughtmultitasking As Boolean = False - Public boughtautoscrollterminal As Boolean = False - Public boughtmovablewindows As Boolean = False - Public boughtdraggablewindows As Boolean = False - Public boughtwindowborders As Boolean = False - Public boughtpmandam As Boolean = False - Public boughtminuteaccuracytime As Boolean = False - Public boughtsplitsecondtime As Boolean = False - Public boughttitletext As Boolean = False - Public boughtclosebutton As Boolean = False - Public boughtdesktoppanel As Boolean = False - Public boughtclock As Boolean = False - Public boughtwindowedterminal As Boolean = False - Public boughtapplaunchermenu As Boolean = False - Public boughtalknowledgeinput As Boolean = False - Public boughtalclock As Boolean = False - Public boughtalshiftorium As Boolean = False - Public boughtapplaunchershutdown As Boolean = False - Public boughtdesktoppanelclock As Boolean = False - Public boughtterminalscrollbar As Boolean = False - Public boughtkiaddons As Boolean = False - Public boughtkicarbrands As Boolean = False - Public boughtkigameconsoles As Boolean = False - Public boughtshifter As Boolean = False - Public boughtalshifter As Boolean = False - Public boughtrollupcommand As Boolean = False - Public boughtrollupbutton As Boolean = False - Public boughtshiftdesktop As Boolean = False - Public boughtshiftpanelclock As Boolean = False - Public boughtshiftapplauncher As Boolean = False - Public boughtshiftdesktoppanel As Boolean = False - Public boughtshifttitlebar As Boolean = False - Public boughtshifttitletext As Boolean = False - Public boughtshifttitlebuttons As Boolean = False - Public boughtshiftborders As Boolean = False - Public boughtgray2 As Boolean = False - Public boughtgray3 As Boolean = False - Public boughtgray4 As Boolean = False - Public boughtanycolour As Boolean = False - Public boughtanycolour2 As Boolean = False - Public boughtanycolour3 As Boolean = False - Public boughtanycolour4 As Boolean = False - Public boughtpurple As Boolean = False - Public boughtpurple2 As Boolean = False - Public boughtpurple3 As Boolean = False - Public boughtpurple4 As Boolean = False - Public boughtblue As Boolean = False - Public boughtblue2 As Boolean = False - Public boughtblue3 As Boolean = False - Public boughtblue4 As Boolean = False - Public boughtgreen As Boolean = False - Public boughtgreen2 As Boolean = False - Public boughtgreen3 As Boolean = False - Public boughtgreen4 As Boolean = False - Public boughtyellow As Boolean = False - Public boughtyellow2 As Boolean = False - Public boughtyellow3 As Boolean = False - Public boughtyellow4 As Boolean = False - Public boughtorange As Boolean = False - Public boughtorange2 As Boolean = False - Public boughtorange3 As Boolean = False - Public boughtorange4 As Boolean = False - Public boughtbrown As Boolean = False - Public boughtbrown2 As Boolean = False - Public boughtbrown3 As Boolean = False - Public boughtbrown4 As Boolean = False - Public boughtred As Boolean = False - Public boughtred2 As Boolean = False - Public boughtred3 As Boolean = False - Public boughtred4 As Boolean = False - Public boughtpink As Boolean = False - Public boughtpink2 As Boolean = False - Public boughtpink3 As Boolean = False - Public boughtpink4 As Boolean = False - 'new 0.0.6 content - Public boughtpong As Boolean = False - Public boughtknowledgeinputicon As Boolean = False - Public boughtshiftericon As Boolean = False - Public boughtshiftoriumicon As Boolean = False - Public boughtclockicon As Boolean = False - Public boughtshutdownicon As Boolean = False - Public boughtpongicon As Boolean = False - Public boughtterminalicon As Boolean = False - Public boughtalpong As Boolean = False - Public boughtfileskimmer As Boolean = False - Public boughtalfileskimmer As Boolean = False - Public boughttextpad As Boolean = False - Public boughtaltextpad As Boolean = False - Public boughtfileskimmericon As Boolean = False - Public boughttextpadicon As Boolean = False - Public boughttextpadnew As Boolean = False - Public boughttextpadsave As Boolean = False - Public boughttextpadopen As Boolean = False - Public boughtfileskimmernewfolder As Boolean = False - Public boughtfileskimmerdelete As Boolean = False - Public boughtkielements As Boolean = False - Public boughtcolourpickericon As Boolean = False - Public boughtinfoboxicon As Boolean = False - 'new 0.0.7 content - Public boughtskinloader As Boolean = False - Public boughtminimizebutton As Boolean = False - Public boughtpanelbuttons As Boolean = False - Public boughtshiftpanelbuttons As Boolean = False - Public boughtartpad As Boolean = False - Public boughtalartpad As Boolean = False - Public boughtartpadicon As Boolean = False - Public boughtskinning As Boolean = False - Public boughtminimizecommand As Boolean = False - Public boughtusefulpanelbuttons As Boolean = False - Public boughtunitymode As Boolean = False - Public boughtartpadpixellimit4 As Boolean = False - Public boughtartpadpixellimit8 As Boolean = False - Public boughtartpadpixellimit16 As Boolean = False - Public boughtartpadpixellimit64 As Boolean = False - Public boughtartpadpixellimit256 As Boolean = False - Public boughtartpadpixellimit1024 As Boolean = False - Public boughtartpadpixellimit4096 As Boolean = False - Public boughtartpadpixellimit16384 As Boolean = False - Public boughtartpadpixellimit65536 As Boolean = False - Public boughtartpadlimitlesspixels As Boolean = False - Public boughtartpad4colorpallets As Boolean = False - Public boughtartpad8colorpallets As Boolean = False - Public boughtartpad16colorpallets As Boolean = False - Public boughtartpad32colorpallets As Boolean = False - Public boughtartpad64colorpallets As Boolean = False - Public boughtartpad128colorpallets As Boolean = False - Public boughtartpadcustompallets As Boolean = False - Public boughtartpadnew As Boolean = False - Public boughtartpadpixelplacer As Boolean = False - Public boughtartpadpixelplacermovementmode As Boolean = False - Public boughtartpadpencil As Boolean = False - Public boughtartpadpaintbrush As Boolean = False - Public boughtartpadlinetool As Boolean = False - Public boughtartpadovaltool As Boolean = False - Public boughtartpadrectangletool As Boolean = False - Public boughtartpaderaser As Boolean = False - Public boughtartpadfilltool As Boolean = False - Public boughtartpadtexttool As Boolean = False - Public boughtartpadundo As Boolean = False - Public boughtartpadredo As Boolean = False - Public boughtartpadsave As Boolean = False - Public boughtartpadload As Boolean = False - 'new 0.0.8 features - Public boughtresizablewindows As Boolean = False - Public boughtcalculator As Boolean = False - Public boughtaudioplayer As Boolean = False - Public boughtchangeosnamecommand As Boolean = False - Public boughtwebbrowser As Boolean = False - Public boughtvideoplayer As Boolean = False - Public boughtnamechanger As Boolean = False - Public boughticonmanager As Boolean = False - Public boughtbitnotewallet As Boolean = False - Public boughtbitnotedigger As Boolean = False - Public boughtskinshifter As Boolean = False - Public boughtshiftnet As Boolean = False - Public boughtdownloader As Boolean = False - Public boughtshiftneticon As Boolean = False - Public boughtalshiftnet As Boolean = False - Public boughtdodge As Boolean = False - Public boughtdownloadmanager As Boolean = False - Public boughtinstaller As Boolean = False - Public boughtsnakey As Boolean = False - Public boughtsysinfoicon As Boolean = False - Public boughtorcwrite As Boolean = False - Public boughtfloodgate As Boolean = False - Public boughtmaze As Boolean = False - Public boughtunitymodetoggle As Boolean = False - Public boughtunitytoggleicon As Boolean = False - Public bitnotediggergrade As Integer = 0 - Public boughtvirusscannericon As Boolean = False - Public virusscannergrade As Integer = 0 - Public boughttextpadtrm As Boolean = False - Public boughtshiftapplauncheritems As Boolean = False - Public boughtadvapplauncher As Boolean = False - - - Public Sub savegame() - Dim savelines(2000) As String - If boughttitlebar = True Then savelines(0) = 11 Else savelines(0) = 10 - If boughtgray = True Then savelines(1) = 11 Else savelines(1) = 10 - If boughtsecondspastmidnight = True Then savelines(2) = 11 Else savelines(2) = 10 - If boughtminutespastmidnight = True Then savelines(3) = 11 Else savelines(3) = 10 - If boughthourspastmidnight = True Then savelines(4) = 11 Else savelines(4) = 10 - If boughtcustomusername = True Then savelines(5) = 11 Else savelines(5) = 10 - If boughtwindowsanywhere = True Then savelines(6) = 11 Else savelines(6) = 10 - If boughtmultitasking = True Then savelines(7) = 11 Else savelines(7) = 10 - If boughtautoscrollterminal = True Then savelines(8) = 11 Else savelines(8) = 10 - savelines(9) = codepoints - If boughtmovablewindows = True Then savelines(10) = 11 Else savelines(10) = 10 - If boughtdraggablewindows = True Then savelines(11) = 11 Else savelines(11) = 10 - If boughtwindowborders = True Then savelines(12) = 11 Else savelines(12) = 10 - If boughtpmandam = True Then savelines(13) = 11 Else savelines(13) = 10 - If boughtminuteaccuracytime = True Then savelines(14) = 11 Else savelines(14) = 10 - If boughtsplitsecondtime = True Then savelines(15) = 11 Else savelines(15) = 10 - If boughttitletext = True Then savelines(16) = 11 Else savelines(16) = 10 - If boughtclosebutton = True Then savelines(17) = 11 Else savelines(17) = 10 - If boughtdesktoppanel = True Then savelines(18) = 11 Else savelines(18) = 10 - If boughtclock = True Then savelines(19) = 11 Else savelines(19) = 10 - If boughtwindowedterminal = True Then savelines(20) = 11 Else savelines(20) = 10 - If boughtapplaunchermenu = True Then savelines(21) = 11 Else savelines(21) = 10 - If boughtalknowledgeinput = True Then savelines(22) = 11 Else savelines(22) = 10 - If boughtalclock = True Then savelines(23) = 11 Else savelines(23) = 10 - If boughtalshiftorium = True Then savelines(24) = 11 Else savelines(24) = 10 - If boughtapplaunchershutdown = True Then savelines(25) = 11 Else savelines(25) = 10 - If boughtdesktoppanelclock = True Then savelines(26) = 11 Else savelines(26) = 10 - If boughtterminalscrollbar = True Then savelines(27) = 11 Else savelines(27) = 10 - If boughtkiaddons = True Then savelines(28) = 11 Else savelines(28) = 10 - If boughtkicarbrands = True Then savelines(29) = 11 Else savelines(29) = 10 - If boughtkigameconsoles = True Then savelines(30) = 11 Else savelines(30) = 10 - savelines(31) = username - If boughtshifter = True Then savelines(33) = 11 Else savelines(33) = 10 - If boughtalshifter = True Then savelines(34) = 11 Else savelines(34) = 10 - If boughtrollupcommand = True Then savelines(35) = 11 Else savelines(35) = 10 - If boughtrollupbutton = True Then savelines(36) = 11 Else savelines(36) = 10 - If boughtshiftdesktop = True Then savelines(37) = 11 Else savelines(37) = 10 - If boughtshiftpanelclock = True Then savelines(38) = 11 Else savelines(38) = 10 - If boughtshiftapplauncher = True Then savelines(39) = 11 Else savelines(39) = 10 - If boughtshiftdesktoppanel = True Then savelines(40) = 11 Else savelines(40) = 10 - If boughtshifttitlebar = True Then savelines(41) = 11 Else savelines(41) = 10 - If boughtshifttitletext = True Then savelines(42) = 11 Else savelines(42) = 10 - If boughtshifttitlebuttons = True Then savelines(43) = 11 Else savelines(43) = 10 - If boughtshiftborders = True Then savelines(44) = 11 Else savelines(44) = 10 - If boughtgray2 = True Then savelines(45) = 11 Else savelines(45) = 10 - If boughtgray3 = True Then savelines(46) = 11 Else savelines(46) = 10 - If boughtgray4 = True Then savelines(47) = 11 Else savelines(47) = 10 - If boughtanycolour = True Then savelines(48) = 11 Else savelines(48) = 10 - If boughtanycolour2 = True Then savelines(49) = 11 Else savelines(49) = 10 - If boughtanycolour3 = True Then savelines(50) = 11 Else savelines(50) = 10 - If boughtanycolour4 = True Then savelines(51) = 11 Else savelines(51) = 10 - If boughtpurple = True Then savelines(52) = 11 Else savelines(52) = 10 - If boughtpurple2 = True Then savelines(53) = 11 Else savelines(53) = 10 - If boughtpurple3 = True Then savelines(54) = 11 Else savelines(54) = 10 - If boughtpurple4 = True Then savelines(55) = 11 Else savelines(55) = 10 - If boughtblue = True Then savelines(56) = 11 Else savelines(56) = 10 - If boughtblue2 = True Then savelines(57) = 11 Else savelines(57) = 10 - If boughtblue3 = True Then savelines(58) = 11 Else savelines(58) = 10 - If boughtblue4 = True Then savelines(59) = 11 Else savelines(59) = 10 - If boughtgreen = True Then savelines(60) = 11 Else savelines(60) = 10 - If boughtgreen2 = True Then savelines(61) = 11 Else savelines(61) = 10 - If boughtgreen3 = True Then savelines(62) = 11 Else savelines(62) = 10 - If boughtgreen4 = True Then savelines(63) = 11 Else savelines(63) = 10 - If boughtyellow = True Then savelines(64) = 11 Else savelines(64) = 10 - If boughtyellow2 = True Then savelines(65) = 11 Else savelines(65) = 10 - If boughtyellow3 = True Then savelines(66) = 11 Else savelines(66) = 10 - If boughtyellow4 = True Then savelines(67) = 11 Else savelines(67) = 10 - If boughtorange = True Then savelines(68) = 11 Else savelines(68) = 10 - If boughtorange2 = True Then savelines(69) = 11 Else savelines(69) = 10 - If boughtorange3 = True Then savelines(70) = 11 Else savelines(70) = 10 - If boughtorange4 = True Then savelines(71) = 11 Else savelines(71) = 10 - If boughtbrown = True Then savelines(72) = 11 Else savelines(72) = 10 - If boughtbrown2 = True Then savelines(73) = 11 Else savelines(73) = 10 - If boughtbrown3 = True Then savelines(74) = 11 Else savelines(74) = 10 - If boughtbrown4 = True Then savelines(75) = 11 Else savelines(75) = 10 - If boughtred = True Then savelines(76) = 11 Else savelines(76) = 10 - If boughtred2 = True Then savelines(77) = 11 Else savelines(77) = 10 - If boughtred3 = True Then savelines(78) = 11 Else savelines(78) = 10 - If boughtred4 = True Then savelines(79) = 11 Else savelines(79) = 10 - If boughtpink = True Then savelines(80) = 11 Else savelines(80) = 10 - If boughtpink2 = True Then savelines(81) = 11 Else savelines(81) = 10 - If boughtpink3 = True Then savelines(82) = 11 Else savelines(82) = 10 - If boughtpink4 = True Then savelines(83) = 11 Else savelines(83) = 10 - If boughtdirectorysurfing = True Then savelines(84) = 11 Else savelines(84) = 10 - savelines(85) = osname - If boughtbasicsettings = True Then savelines(86) = 11 Else savelines(86) = 10 - If boughtbasicgui = True Then savelines(87) = 11 Else savelines(87) = 10 - If boughtterminalsettextcolor = True Then savelines(88) = 11 Else savelines(88) = 10 - If boughtbasicwm = True Then savelines(89) = 11 Else savelines(89) = 10 - - - 'Large gap in file. Add new features here. - - If boughtpong = True Then savelines(285) = 11 Else savelines(285) = 10 - If boughtknowledgeinputicon = True Then savelines(286) = 11 Else savelines(286) = 10 - If boughtshiftericon = True Then savelines(287) = 11 Else savelines(287) = 10 - If boughtshiftoriumicon = True Then savelines(288) = 11 Else savelines(288) = 10 - If boughtclockicon = True Then savelines(289) = 11 Else savelines(289) = 10 - If boughtshutdownicon = True Then savelines(290) = 11 Else savelines(290) = 10 - If boughtpongicon = True Then savelines(291) = 11 Else savelines(291) = 10 - If boughtterminalicon = True Then savelines(292) = 11 Else savelines(292) = 10 - If boughtalpong = True Then savelines(293) = 11 Else savelines(293) = 10 - If boughtfileskimmer = True Then savelines(294) = 11 Else savelines(294) = 10 - If boughtalfileskimmer = True Then savelines(295) = 11 Else savelines(295) = 10 - If boughttextpad = True Then savelines(296) = 11 Else savelines(296) = 10 - If boughtaltextpad = True Then savelines(297) = 11 Else savelines(297) = 10 - If boughtfileskimmericon = True Then savelines(298) = 11 Else savelines(298) = 10 - If boughttextpadicon = True Then savelines(299) = 11 Else savelines(299) = 10 - If boughttextpadnew = True Then savelines(300) = 11 Else savelines(300) = 10 - If boughttextpadsave = True Then savelines(301) = 11 Else savelines(301) = 10 - If boughttextpadopen = True Then savelines(302) = 11 Else savelines(302) = 10 - If boughtfileskimmernewfolder = True Then savelines(303) = 11 Else savelines(303) = 10 - If boughtfileskimmerdelete = True Then savelines(304) = 11 Else savelines(304) = 10 - If boughtkielements = True Then savelines(305) = 11 Else savelines(305) = 10 - If boughtcolourpickericon = True Then savelines(306) = 11 Else savelines(306) = 10 - If boughtinfoboxicon = True Then savelines(307) = 11 Else savelines(307) = 10 - - 'Large gap in file. More room for more features. - - If boughtskinloader = True Then savelines(314) = 11 Else savelines(314) = 10 - If boughtminimizebutton = True Then savelines(315) = 11 Else savelines(315) = 10 - If boughtpanelbuttons = True Then savelines(316) = 11 Else savelines(316) = 10 - If boughtshiftpanelbuttons = True Then savelines(317) = 11 Else savelines(317) = 10 - If boughtartpad = True Then savelines(318) = 11 Else savelines(318) = 10 - If boughtalartpad = True Then savelines(319) = 11 Else savelines(319) = 10 - If boughtartpadicon = True Then savelines(320) = 11 Else savelines(320) = 10 - If boughtskinning = True Then savelines(321) = 11 Else savelines(321) = 10 - If boughtminimizecommand = True Then savelines(322) = 11 Else savelines(322) = 10 - If boughtusefulpanelbuttons = True Then savelines(323) = 11 Else savelines(323) = 10 - If boughtunitymode = True Then savelines(324) = 11 Else savelines(324) = 10 - If boughtartpadpixellimit4 = True Then savelines(325) = 11 Else savelines(325) = 10 - If boughtartpadpixellimit8 = True Then savelines(326) = 11 Else savelines(326) = 10 - If boughtartpadpixellimit16 = True Then savelines(327) = 11 Else savelines(327) = 10 - If boughtartpadpixellimit64 = True Then savelines(328) = 11 Else savelines(328) = 10 - If boughtartpadpixellimit256 = True Then savelines(329) = 11 Else savelines(329) = 10 - If boughtartpadpixellimit1024 = True Then savelines(330) = 11 Else savelines(330) = 10 - If boughtartpadpixellimit4096 = True Then savelines(331) = 11 Else savelines(331) = 10 - If boughtartpadpixellimit16384 = True Then savelines(332) = 11 Else savelines(332) = 10 - If boughtartpadpixellimit65536 = True Then savelines(333) = 11 Else savelines(333) = 10 - If boughtartpadlimitlesspixels = True Then savelines(334) = 11 Else savelines(334) = 10 - If boughtartpad4colorpallets = True Then savelines(335) = 11 Else savelines(335) = 10 - If boughtartpad8colorpallets = True Then savelines(336) = 11 Else savelines(336) = 10 - If boughtartpad16colorpallets = True Then savelines(337) = 11 Else savelines(337) = 10 - If boughtartpad32colorpallets = True Then savelines(338) = 11 Else savelines(338) = 10 - If boughtartpad64colorpallets = True Then savelines(339) = 11 Else savelines(339) = 10 - If boughtartpad128colorpallets = True Then savelines(340) = 11 Else savelines(340) = 10 - If boughtartpadcustompallets = True Then savelines(341) = 11 Else savelines(341) = 10 - If boughtartpadpixelplacer = True Then savelines(342) = 11 Else savelines(342) = 10 - If boughtartpadpixelplacermovementmode = True Then savelines(343) = 11 Else savelines(343) = 10 - If boughtartpadpencil = True Then savelines(344) = 11 Else savelines(344) = 10 - If boughtartpadpaintbrush = True Then savelines(345) = 11 Else savelines(345) = 10 - If boughtartpadlinetool = True Then savelines(346) = 11 Else savelines(346) = 10 - If boughtartpadovaltool = True Then savelines(347) = 11 Else savelines(347) = 10 - If boughtartpadrectangletool = True Then savelines(348) = 11 Else savelines(348) = 10 - If boughtartpaderaser = True Then savelines(349) = 11 Else savelines(349) = 10 - If boughtartpadfilltool = True Then savelines(350) = 11 Else savelines(350) = 10 - If boughtartpadtexttool = True Then savelines(351) = 11 Else savelines(351) = 10 - If boughtartpadundo = True Then savelines(352) = 11 Else savelines(352) = 10 - If boughtartpadredo = True Then savelines(353) = 11 Else savelines(353) = 10 - If boughtartpadsave = True Then savelines(354) = 11 Else savelines(354) = 10 - If boughtartpadload = True Then savelines(355) = 11 Else savelines(355) = 10 - If boughtartpadnew = True Then savelines(484) = 11 Else savelines(484) = 10 - '0.0.8 - 'savelines(485) = ingameversion - Not yet implemented, will be soon. - If boughtresizablewindows Then savelines(486) = 11 Else savelines(486) = 10 - If boughtcalculator Then savelines(487) = 11 Else savelines(487) = 10 - If boughtaudioplayer Then savelines(488) = 11 Else savelines(488) = 10 - If boughtchangeosnamecommand Then savelines(489) = 11 Else savelines(489) = 10 - If boughtwebbrowser Then savelines(490) = 11 Else savelines(490) = 10 - If boughtvideoplayer Then savelines(491) = 11 Else savelines(491) = 10 - If boughtnamechanger Then savelines(492) = 11 Else savelines(492) = 10 - If boughticonmanager Then savelines(493) = 11 Else savelines(493) = 10 - If boughtbitnotewallet Then savelines(494) = 11 Else savelines(494) = 10 - If boughtbitnotedigger Then savelines(495) = 11 Else savelines(495) = 10 - If boughtskinshifter Then savelines(496) = 11 Else savelines(496) = 10 - If boughtshiftnet Then savelines(497) = 11 Else savelines(497) = 10 - If boughtshiftneticon Then savelines(498) = 11 Else savelines(498) = 10 - If boughtalshiftnet Then savelines(499) = 11 Else savelines(499) = 10 - If boughtdodge Then savelines(500) = 11 Else savelines(500) = 10 - If boughtdownloadmanager Then savelines(501) = 11 Else savelines(501) = 10 - If boughtinstaller Then savelines(502) = 11 Else savelines(502) = 10 - If boughtsysinfoicon Then savelines(503) = 11 Else savelines(503) = 10 - If boughtorcwrite Then savelines(504) = 11 Else savelines(504) = 10 - If boughtfloodgate Then savelines(505) = 11 Else savelines(505) = 10 - If boughtmaze Then savelines(506) = 11 Else savelines(506) = 10 - If boughtunitymodetoggle Then savelines(507) = 11 Else savelines(507) = 10 - If boughtunitytoggleicon Then savelines(508) = 11 Else savelines(508) = 10 - savelines(509) = bitnotediggergrade - If boughtvirusscannericon Then savelines(510) = 11 Else savelines(510) = 10 - savelines(511) = virusscannergrade - If boughttextpadtrm Then savelines(512) = 11 Else savelines(512) = 10 - If boughtshiftapplauncheritems Then savelines(513) = 11 Else savelines(513) = 10 - - - IO.File.WriteAllLines(save, savelines) - End Sub - - - - Public Sub loadgame() - Try - Dim loadlines() As String = IO.File.ReadAllLines(save) - If loadlines(0) = 11 Then boughttitlebar = True Else boughttitlebar = False - If loadlines(1) = 11 Then boughtgray = True Else boughtgray = False - If loadlines(2) = 11 Then boughtsecondspastmidnight = True Else boughtsecondspastmidnight = False - If loadlines(3) = 11 Then boughtminutespastmidnight = True Else boughtminutespastmidnight = False - If loadlines(4) = 11 Then boughthourspastmidnight = True Else boughthourspastmidnight = False - If loadlines(5) = 11 Then boughtcustomusername = True Else boughtcustomusername = False - If loadlines(6) = 11 Then boughtwindowsanywhere = True Else boughtwindowsanywhere = False - If loadlines(7) = 11 Then boughtmultitasking = True Else boughtmultitasking = False - If loadlines(8) = 11 Then boughtautoscrollterminal = True Else boughtautoscrollterminal = False - codepoints = loadlines(9) - If loadlines(10) = 11 Then boughtmovablewindows = True Else boughtmovablewindows = False - If loadlines(11) = 11 Then boughtdraggablewindows = True Else boughtdraggablewindows = False - If loadlines(12) = 11 Then boughtwindowborders = True Else boughtwindowborders = False - If loadlines(13) = 11 Then boughtpmandam = True Else boughtpmandam = False - If loadlines(14) = 11 Then boughtminuteaccuracytime = True Else boughtminuteaccuracytime = False - If loadlines(15) = 11 Then boughtsplitsecondtime = True Else boughtsplitsecondtime = False - If loadlines(16) = 11 Then boughttitletext = True Else boughttitletext = False - If loadlines(17) = 11 Then boughtclosebutton = True Else boughtclosebutton = False - If loadlines(18) = 11 Then boughtdesktoppanel = True Else boughtdesktoppanel = False - If loadlines(19) = 11 Then boughtclock = True Else boughtclock = False - If loadlines(20) = 11 Then boughtwindowedterminal = True Else boughtwindowedterminal = False - If loadlines(21) = 11 Then boughtapplaunchermenu = True Else boughtapplaunchermenu = False - If loadlines(22) = 11 Then boughtalknowledgeinput = True Else boughtalknowledgeinput = False - If loadlines(23) = 11 Then boughtalclock = True Else boughtalclock = False - If loadlines(24) = 11 Then boughtalshiftorium = True Else boughtalshiftorium = False - If loadlines(25) = 11 Then boughtapplaunchershutdown = True Else boughtapplaunchershutdown = False - If loadlines(26) = 11 Then boughtdesktoppanelclock = True Else boughtdesktoppanelclock = False - If loadlines(27) = 11 Then boughtterminalscrollbar = True Else boughtterminalscrollbar = False - If loadlines(28) = 11 Then boughtkiaddons = True Else boughtkiaddons = False - If loadlines(29) = 11 Then boughtkicarbrands = True Else boughtkicarbrands = False - If loadlines(30) = 11 Then boughtkigameconsoles = True Else boughtkigameconsoles = False - username = loadlines(31) - If loadlines(33) = 11 Then boughtshifter = True Else boughtshifter = False - If loadlines(34) = 11 Then boughtalshifter = True Else boughtalshifter = False - If loadlines(35) = 11 Then boughtrollupcommand = True Else boughtrollupcommand = False - If loadlines(36) = 11 Then boughtrollupbutton = True Else boughtrollupbutton = False - If loadlines(37) = 11 Then boughtshiftdesktop = True Else boughtshiftdesktop = False - If loadlines(38) = 11 Then boughtshiftpanelclock = True Else boughtshiftpanelclock = False - If loadlines(39) = 11 Then boughtshiftapplauncher = True Else boughtshiftapplauncher = False - If loadlines(40) = 11 Then boughtshiftdesktoppanel = True Else boughtshiftdesktoppanel = False - If loadlines(41) = 11 Then boughtshifttitlebar = True Else boughtshifttitlebar = False - If loadlines(42) = 11 Then boughtshifttitletext = True Else boughtshifttitletext = False - If loadlines(43) = 11 Then boughtshifttitlebuttons = True Else boughtshifttitlebuttons = False - If loadlines(44) = 11 Then boughtshiftborders = True Else boughtshiftborders = False - If loadlines(45) = 11 Then boughtgray2 = True Else boughtgray2 = False - If loadlines(46) = 11 Then boughtgray3 = True Else boughtgray3 = False - If loadlines(47) = 11 Then boughtgray4 = True Else boughtgray4 = False - If loadlines(48) = 11 Then boughtanycolour = True Else boughtanycolour = False - If loadlines(49) = 11 Then boughtanycolour2 = True Else boughtanycolour2 = False - If loadlines(50) = 11 Then boughtanycolour3 = True Else boughtanycolour3 = False - If loadlines(51) = 11 Then boughtanycolour4 = True Else boughtanycolour4 = False - If loadlines(52) = 11 Then boughtpurple = True Else boughtpurple = False - If loadlines(53) = 11 Then boughtpurple2 = True Else boughtpurple2 = False - If loadlines(54) = 11 Then boughtpurple3 = True Else boughtpurple3 = False - If loadlines(55) = 11 Then boughtpurple4 = True Else boughtpurple4 = False - If loadlines(56) = 11 Then boughtblue = True Else boughtblue = False - If loadlines(57) = 11 Then boughtblue2 = True Else boughtblue2 = False - If loadlines(58) = 11 Then boughtblue3 = True Else boughtblue3 = False - If loadlines(59) = 11 Then boughtblue4 = True Else boughtblue4 = False - If loadlines(60) = 11 Then boughtgreen = True Else boughtgreen = False - If loadlines(61) = 11 Then boughtgreen2 = True Else boughtgreen2 = False - If loadlines(62) = 11 Then boughtgreen3 = True Else boughtgreen3 = False - If loadlines(63) = 11 Then boughtgreen4 = True Else boughtgreen4 = False - If loadlines(64) = 11 Then boughtyellow = True Else boughtyellow = False - If loadlines(65) = 11 Then boughtyellow2 = True Else boughtyellow2 = False - If loadlines(66) = 11 Then boughtyellow3 = True Else boughtyellow3 = False - If loadlines(67) = 11 Then boughtyellow4 = True Else boughtyellow4 = False - If loadlines(68) = 11 Then boughtorange = True Else boughtorange = False - If loadlines(69) = 11 Then boughtorange2 = True Else boughtorange2 = False - If loadlines(70) = 11 Then boughtorange3 = True Else boughtorange3 = False - If loadlines(71) = 11 Then boughtorange4 = True Else boughtorange4 = False - If loadlines(72) = 11 Then boughtbrown = True Else boughtbrown = False - If loadlines(73) = 11 Then boughtbrown2 = True Else boughtbrown2 = False - If loadlines(74) = 11 Then boughtbrown3 = True Else boughtbrown3 = False - If loadlines(75) = 11 Then boughtbrown4 = True Else boughtbrown4 = False - If loadlines(76) = 11 Then boughtred = True Else boughtred = False - If loadlines(77) = 11 Then boughtred2 = True Else boughtred2 = False - If loadlines(78) = 11 Then boughtred3 = True Else boughtred3 = False - If loadlines(79) = 11 Then boughtred4 = True Else boughtred4 = False - If loadlines(80) = 11 Then boughtpink = True Else boughtpink = False - If loadlines(81) = 11 Then boughtpink2 = True Else boughtpink2 = False - If loadlines(82) = 11 Then boughtpink3 = True Else boughtpink3 = False - If loadlines(83) = 11 Then boughtpink4 = True Else boughtpink4 = False - If loadlines(84) = 11 Then boughtdirectorysurfing = True Else boughtdirectorysurfing = False - osname = loadlines(85) - If loadlines(86) = 11 Then boughtbasicsettings = True Else boughtbasicsettings = False - If loadlines(87) = 11 Then boughtbasicgui = True Else boughtbasicgui = False - If loadlines(88) = 11 Then boughtterminalsettextcolor = True Else boughtterminalsettextcolor = False - If loadlines(89) = 11 Then boughtbasicwm = True Else boughtbasicwm = False - - - - - - - - 'Add appropriate features here. - - If loadlines(285) = 11 Then boughtpong = True Else boughtpong = False - If loadlines(286) = 11 Then boughtknowledgeinputicon = True Else boughtknowledgeinputicon = False - If loadlines(287) = 11 Then boughtshiftericon = True Else boughtshiftericon = False - If loadlines(288) = 11 Then boughtshiftoriumicon = True Else boughtshiftoriumicon = False - If loadlines(289) = 11 Then boughtclockicon = True Else boughtclockicon = False - If loadlines(290) = 11 Then boughtshutdownicon = True Else boughtshutdownicon = False - If loadlines(291) = 11 Then boughtpongicon = True Else boughtpongicon = False - If loadlines(292) = 11 Then boughtterminalicon = True Else boughtterminalicon = False - If loadlines(293) = 11 Then boughtalpong = True Else boughtalpong = False - If loadlines(294) = 11 Then boughtfileskimmer = True Else boughtfileskimmer = False - If loadlines(295) = 11 Then boughtalfileskimmer = True Else boughtalfileskimmer = False - If loadlines(296) = 11 Then boughttextpad = True Else boughttextpad = False - If loadlines(297) = 11 Then boughtaltextpad = True Else boughtaltextpad = False - If loadlines(298) = 11 Then boughtfileskimmericon = True Else boughtfileskimmericon = False - If loadlines(299) = 11 Then boughttextpadicon = True Else boughttextpadicon = False - If loadlines(300) = 11 Then boughttextpadnew = True Else boughttextpadnew = False - If loadlines(301) = 11 Then boughttextpadsave = True Else boughttextpadsave = False - If loadlines(302) = 11 Then boughttextpadopen = True Else boughttextpadopen = False - If loadlines(303) = 11 Then boughtfileskimmernewfolder = True Else boughtfileskimmernewfolder = False - If loadlines(304) = 11 Then boughtfileskimmerdelete = True Else boughtfileskimmerdelete = False - If loadlines(305) = 11 Then boughtkielements = True Else boughtkielements = False - If loadlines(306) = 11 Then boughtcolourpickericon = True Else boughtcolourpickericon = False - If loadlines(307) = 11 Then boughtinfoboxicon = True Else boughtinfoboxicon = False - - 'Add appropriate features here - - If loadlines(314) = 11 Then boughtskinloader = True Else boughtskinloader = False - If loadlines(315) = 11 Then boughtminimizebutton = True Else boughtminimizebutton = False - If loadlines(316) = 11 Then boughtpanelbuttons = True Else boughtpanelbuttons = False - If loadlines(317) = 11 Then boughtshiftpanelbuttons = True Else boughtshiftpanelbuttons = False - If loadlines(318) = 11 Then boughtartpad = True Else boughtartpad = False - If loadlines(319) = 11 Then boughtalartpad = True Else boughtalartpad = False - If loadlines(320) = 11 Then boughtartpadicon = True Else boughtartpadicon = False - If loadlines(321) = 11 Then boughtskinning = True Else boughtskinning = False - If loadlines(322) = 11 Then boughtminimizecommand = True Else boughtminimizecommand = False - If loadlines(323) = 11 Then boughtusefulpanelbuttons = True Else boughtusefulpanelbuttons = False - If loadlines(324) = 11 Then boughtunitymode = True Else boughtunitymode = False - If loadlines(325) = 11 Then boughtartpadpixellimit4 = True Else boughtartpadpixellimit4 = False - If loadlines(326) = 11 Then boughtartpadpixellimit8 = True Else boughtartpadpixellimit8 = False - If loadlines(327) = 11 Then boughtartpadpixellimit16 = True Else boughtartpadpixellimit16 = False - If loadlines(328) = 11 Then boughtartpadpixellimit64 = True Else boughtartpadpixellimit64 = False - If loadlines(329) = 11 Then boughtartpadpixellimit256 = True Else boughtartpadpixellimit256 = False - If loadlines(330) = 11 Then boughtartpadpixellimit1024 = True Else boughtartpadpixellimit1024 = False - If loadlines(331) = 11 Then boughtartpadpixellimit4096 = True Else boughtartpadpixellimit4096 = False - If loadlines(332) = 11 Then boughtartpadpixellimit16384 = True Else boughtartpadpixellimit16384 = False - If loadlines(333) = 11 Then boughtartpadpixellimit65536 = True Else boughtartpadpixellimit65536 = False - If loadlines(334) = 11 Then boughtartpadlimitlesspixels = True Else boughtartpadlimitlesspixels = False - If loadlines(335) = 11 Then boughtartpad4colorpallets = True Else boughtartpad4colorpallets = False - If loadlines(336) = 11 Then boughtartpad8colorpallets = True Else boughtartpad8colorpallets = False - If loadlines(337) = 11 Then boughtartpad16colorpallets = True Else boughtartpad16colorpallets = False - If loadlines(338) = 11 Then boughtartpad32colorpallets = True Else boughtartpad32colorpallets = False - If loadlines(339) = 11 Then boughtartpad64colorpallets = True Else boughtartpad64colorpallets = False - If loadlines(340) = 11 Then boughtartpad128colorpallets = True Else boughtartpad128colorpallets = False - If loadlines(341) = 11 Then boughtartpadcustompallets = True Else boughtartpadcustompallets = False - If loadlines(342) = 11 Then boughtartpadpixelplacer = True Else boughtartpadpixelplacer = False - If loadlines(343) = 11 Then boughtartpadpixelplacermovementmode = True Else boughtartpadpixelplacermovementmode = False - If loadlines(344) = 11 Then boughtartpadpencil = True Else boughtartpadpencil = False - If loadlines(345) = 11 Then boughtartpadpaintbrush = True Else boughtartpadpaintbrush = False - If loadlines(346) = 11 Then boughtartpadlinetool = True Else boughtartpadlinetool = False - If loadlines(347) = 11 Then boughtartpadovaltool = True Else boughtartpadovaltool = False - If loadlines(348) = 11 Then boughtartpadrectangletool = True Else boughtartpadrectangletool = False - If loadlines(349) = 11 Then boughtartpaderaser = True Else boughtartpaderaser = False - If loadlines(350) = 11 Then boughtartpadfilltool = True Else boughtartpadfilltool = False - If loadlines(351) = 11 Then boughtartpadtexttool = True Else boughtartpadtexttool = False - If loadlines(352) = 11 Then boughtartpadundo = True Else boughtartpadundo = False - If loadlines(353) = 11 Then boughtartpadredo = True Else boughtartpadredo = False - If loadlines(354) = 11 Then boughtartpadsave = True Else boughtartpadsave = False - If loadlines(355) = 11 Then boughtartpadload = True Else boughtartpadload = False - If loadlines(484) = "" Then Else If loadlines(484) = 11 Then boughtartpadnew = True Else boughtartpadnew = False - 'Not yet implemented! ingameversion = loadlines(485) - If loadlines(486) = 11 Then boughtresizablewindows = True Else boughtresizablewindows = False - If loadlines(487) = 11 Then boughtcalculator = True Else boughtcalculator = False - If loadlines(488) = 11 Then boughtaudioplayer = True Else boughtaudioplayer = False - If loadlines(489) = 11 Then boughtchangeosnamecommand = True Else boughtchangeosnamecommand = False - If loadlines(490) = 11 Then boughtwebbrowser = True Else boughtwebbrowser = False - If loadlines(491) = 11 Then boughtvideoplayer = True Else boughtvideoplayer = False - If loadlines(492) = 11 Then boughtnamechanger = True Else boughtnamechanger = False - If loadlines(493) = 11 Then boughticonmanager = True Else boughticonmanager = False - If loadlines(494) = 11 Then boughtbitnotewallet = True Else boughtbitnotewallet = False - If loadlines(495) = 11 Then boughtbitnotedigger = True Else boughtbitnotedigger = False - If loadlines(496) = 11 Then boughtskinshifter = True Else boughtskinshifter = False - If loadlines(497) = 11 Then boughtshiftnet = True Else boughtshiftnet = False - If loadlines(498) = 11 Then boughtshiftneticon = True Else boughtshiftneticon = False - If loadlines(499) = 11 Then boughtalshiftnet = True Else boughtalshiftnet = False - If loadlines(500) = 11 Then boughtdodge = True Else boughtdodge = False - If loadlines(501) = 11 Then boughtdownloadmanager = True Else boughtdownloadmanager = False - If loadlines(502) = 11 Then boughtinstaller = True Else boughtinstaller = False - If loadlines(503) = 11 Then boughtsysinfoicon = True Else boughtsysinfoicon = False - If loadlines(504) = 11 Then boughtorcwrite = True Else boughtorcwrite = False - If loadlines(505) = 11 Then boughtfloodgate = True Else boughtfloodgate = False - If loadlines(506) = 11 Then boughtmaze = True Else boughtmaze = False - If loadlines(507) = 11 Then boughtunitymodetoggle = True Else boughtunitymodetoggle = False - If loadlines(508) = 11 Then boughtunitytoggleicon = True Else boughtunitytoggleicon = False - bitnotediggergrade = loadlines(509) - If loadlines(510) = 11 Then boughtvirusscannericon = True Else boughtvirusscannericon = False - virusscannergrade = loadlines(511) - If loadlines(512) = 11 Then boughttextpadtrm = True Else boughttextpadtrm = False - If loadlines(513) = 11 Then boughtshiftapplauncheritems = True Else boughtshiftapplauncheritems = False - Catch ex As Exception - Terminal.prompttoupdatesave = True - End Try - End Sub - - -End Module diff --git a/shiftos_next/shiftorium_api.vb b/shiftos_next/shiftorium_api.vb deleted file mode 100644 index 39960e4..0000000 --- a/shiftos_next/shiftorium_api.vb +++ /dev/null @@ -1,21 +0,0 @@ -Module shiftorium_api - 'API for Shiftorium Applications. - - Public listboxtoaddto As ListBox - Public codepoints As Integer - - Public Sub DeductCP(ammount As Integer) - codepoints -= ammount - savegame() - End Sub - - Public Sub AddCP(ammount As Integer) - codepoints += ammount - savegame() - End Sub - - Public Sub AddItem(name As String, CP As Integer) - listboxtoaddto.Items.Add(name & " - " & CP & " CP") - End Sub - -End Module diff --git a/shiftos_next/shiftorium_cmd.Designer.vb b/shiftos_next/shiftorium_cmd.Designer.vb deleted file mode 100644 index 78c1ad7..0000000 --- a/shiftos_next/shiftorium_cmd.Designer.vb +++ /dev/null @@ -1,205 +0,0 @@ - _ -Partial Class shiftorium_cmd - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.pnltop = New System.Windows.Forms.Panel() - Me.lbtitle = New System.Windows.Forms.Label() - Me.pnlbottom = New System.Windows.Forms.Panel() - Me.lbcodepoints = New System.Windows.Forms.Label() - Me.lbcontrols = New System.Windows.Forms.Label() - Me.pnldetails = New System.Windows.Forms.Panel() - Me.pnlbuy = New System.Windows.Forms.Panel() - Me.btnbuy = New System.Windows.Forms.Button() - Me.lbprice = New System.Windows.Forms.Label() - Me.lbdescription = New System.Windows.Forms.Label() - Me.lbitemname = New System.Windows.Forms.Label() - Me.lbitems = New System.Windows.Forms.ListBox() - Me.pnltop.SuspendLayout() - Me.pnlbottom.SuspendLayout() - Me.pnldetails.SuspendLayout() - Me.pnlbuy.SuspendLayout() - Me.SuspendLayout() - ' - 'pnltop - ' - Me.pnltop.Controls.Add(Me.lbtitle) - Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top - Me.pnltop.Location = New System.Drawing.Point(0, 0) - Me.pnltop.Name = "pnltop" - Me.pnltop.Size = New System.Drawing.Size(1007, 30) - Me.pnltop.TabIndex = 0 - ' - 'lbtitle - ' - Me.lbtitle.Dock = System.Windows.Forms.DockStyle.Fill - Me.lbtitle.Location = New System.Drawing.Point(0, 0) - Me.lbtitle.Name = "lbtitle" - Me.lbtitle.Size = New System.Drawing.Size(1007, 30) - Me.lbtitle.TabIndex = 0 - Me.lbtitle.Text = "SHIFTORIUM" - Me.lbtitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'pnlbottom - ' - Me.pnlbottom.Controls.Add(Me.lbcodepoints) - Me.pnlbottom.Controls.Add(Me.lbcontrols) - Me.pnlbottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlbottom.Location = New System.Drawing.Point(0, 570) - Me.pnlbottom.Name = "pnlbottom" - Me.pnlbottom.Size = New System.Drawing.Size(1007, 22) - Me.pnlbottom.TabIndex = 1 - ' - 'lbcodepoints - ' - Me.lbcodepoints.Dock = System.Windows.Forms.DockStyle.Fill - Me.lbcodepoints.Location = New System.Drawing.Point(815, 0) - Me.lbcodepoints.Name = "lbcodepoints" - Me.lbcodepoints.Size = New System.Drawing.Size(192, 22) - Me.lbcodepoints.TabIndex = 1 - Me.lbcodepoints.Text = "Codepoints: {0}" - Me.lbcodepoints.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'lbcontrols - ' - Me.lbcontrols.Dock = System.Windows.Forms.DockStyle.Left - Me.lbcontrols.Location = New System.Drawing.Point(0, 0) - Me.lbcontrols.Name = "lbcontrols" - Me.lbcontrols.Size = New System.Drawing.Size(815, 22) - Me.lbcontrols.TabIndex = 0 - Me.lbcontrols.Text = "Controls: UP/DOWN - Choose item, ENTER - View details, SPACE: Download" - Me.lbcontrols.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'pnldetails - ' - Me.pnldetails.Controls.Add(Me.pnlbuy) - Me.pnldetails.Controls.Add(Me.lbdescription) - Me.pnldetails.Controls.Add(Me.lbitemname) - Me.pnldetails.Dock = System.Windows.Forms.DockStyle.Top - Me.pnldetails.Location = New System.Drawing.Point(0, 30) - Me.pnldetails.Name = "pnldetails" - Me.pnldetails.Size = New System.Drawing.Size(1007, 205) - Me.pnldetails.TabIndex = 2 - ' - 'pnlbuy - ' - Me.pnlbuy.Controls.Add(Me.btnbuy) - Me.pnlbuy.Controls.Add(Me.lbprice) - Me.pnlbuy.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlbuy.Location = New System.Drawing.Point(0, 176) - Me.pnlbuy.Name = "pnlbuy" - Me.pnlbuy.Size = New System.Drawing.Size(1007, 29) - Me.pnlbuy.TabIndex = 2 - ' - 'btnbuy - ' - Me.btnbuy.Dock = System.Windows.Forms.DockStyle.Fill - Me.btnbuy.FlatAppearance.BorderSize = 0 - Me.btnbuy.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnbuy.Location = New System.Drawing.Point(815, 0) - Me.btnbuy.Name = "btnbuy" - Me.btnbuy.Size = New System.Drawing.Size(192, 29) - Me.btnbuy.TabIndex = 1 - Me.btnbuy.Text = "Press SPACE to buy" - Me.btnbuy.UseVisualStyleBackColor = True - ' - 'lbprice - ' - Me.lbprice.Dock = System.Windows.Forms.DockStyle.Left - Me.lbprice.Location = New System.Drawing.Point(0, 0) - Me.lbprice.Name = "lbprice" - Me.lbprice.Size = New System.Drawing.Size(815, 29) - Me.lbprice.TabIndex = 0 - Me.lbprice.Text = "This item costs {0} Codepoints." - Me.lbprice.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'lbdescription - ' - Me.lbdescription.Dock = System.Windows.Forms.DockStyle.Fill - Me.lbdescription.Location = New System.Drawing.Point(0, 28) - Me.lbdescription.Name = "lbdescription" - Me.lbdescription.Size = New System.Drawing.Size(1007, 177) - Me.lbdescription.TabIndex = 1 - Me.lbdescription.Text = "The Shiftorium lets you upgrade different aspects of ShiftOS using Codepoints. Yo" & _ - "u can download anything from color support, terminal commands, programs, and eve" & _ - "n desktop environments." - Me.lbdescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'lbitemname - ' - Me.lbitemname.Dock = System.Windows.Forms.DockStyle.Top - Me.lbitemname.Location = New System.Drawing.Point(0, 0) - Me.lbitemname.Name = "lbitemname" - Me.lbitemname.Size = New System.Drawing.Size(1007, 28) - Me.lbitemname.TabIndex = 0 - Me.lbitemname.Text = "Welcome to the Shiftorium!" - Me.lbitemname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'lbitems - ' - Me.lbitems.BackColor = System.Drawing.Color.Black - Me.lbitems.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lbitems.Dock = System.Windows.Forms.DockStyle.Fill - Me.lbitems.ForeColor = System.Drawing.Color.White - Me.lbitems.FormattingEnabled = True - Me.lbitems.ItemHeight = 14 - Me.lbitems.Location = New System.Drawing.Point(0, 235) - Me.lbitems.Name = "lbitems" - Me.lbitems.Size = New System.Drawing.Size(1007, 335) - Me.lbitems.TabIndex = 3 - ' - 'shiftorium_cmd - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Black - Me.ClientSize = New System.Drawing.Size(1007, 592) - Me.Controls.Add(Me.lbitems) - Me.Controls.Add(Me.pnldetails) - Me.Controls.Add(Me.pnlbottom) - Me.Controls.Add(Me.pnltop) - Me.Font = New System.Drawing.Font("Courier New", 8.25!) - Me.ForeColor = System.Drawing.Color.White - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None - Me.Name = "shiftorium_cmd" - Me.Text = "shiftorium_cmd" - Me.WindowState = System.Windows.Forms.FormWindowState.Maximized - Me.pnltop.ResumeLayout(False) - Me.pnlbottom.ResumeLayout(False) - Me.pnldetails.ResumeLayout(False) - Me.pnlbuy.ResumeLayout(False) - Me.ResumeLayout(False) - - End Sub - Friend WithEvents pnltop As System.Windows.Forms.Panel - Friend WithEvents lbtitle As System.Windows.Forms.Label - Friend WithEvents pnlbottom As System.Windows.Forms.Panel - Friend WithEvents lbcodepoints As System.Windows.Forms.Label - Friend WithEvents lbcontrols As System.Windows.Forms.Label - Friend WithEvents pnldetails As System.Windows.Forms.Panel - Friend WithEvents lbitems As System.Windows.Forms.ListBox - Friend WithEvents pnlbuy As System.Windows.Forms.Panel - Friend WithEvents btnbuy As System.Windows.Forms.Button - Friend WithEvents lbprice As System.Windows.Forms.Label - Friend WithEvents lbdescription As System.Windows.Forms.Label - Friend WithEvents lbitemname As System.Windows.Forms.Label -End Class diff --git a/shiftos_next/shiftorium_cmd.resx b/shiftos_next/shiftorium_cmd.resx deleted file mode 100644 index 1af7de1..0000000 --- a/shiftos_next/shiftorium_cmd.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/shiftos_next/shiftorium_cmd.vb b/shiftos_next/shiftorium_cmd.vb deleted file mode 100644 index 9999279..0000000 --- a/shiftos_next/shiftorium_cmd.vb +++ /dev/null @@ -1,187 +0,0 @@ -Public Class shiftorium_cmd - - - Public Sub shiftorium_load(s As Object, e As EventArgs) Handles MyBase.Load - listboxtoaddto = lbitems - determineitems() - lbitems.SelectedItem = 0 - lbprice.Hide() - btnbuy.Hide() - lbcodepoints.Text = "Codepoints: " & codepoints - If boughtbasicwm = True Then - lbtitle.TextAlign = ContentAlignment.MiddleLeft - lbtitle.Text = "Shiftorium" 'To make it sentence-case, rather than UPPERCASE. - lbtitle.BackColor = Color.Gray - Me.WindowState = FormWindowState.Normal - Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 - Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 - Me.TopMost = True - Else - lbtitle.TextAlign = ContentAlignment.MiddleCenter - lbtitle.Text = "SHIFTORIUM" - lbtitle.BackColor = Color.Black - Me.WindowState = FormWindowState.Maximized - End If - End Sub - - Public Sub determineitems() - lbitems.DrawMode = DrawMode.Normal - lbitems.Items.Clear() - Try - If boughtbasicsettings = False Then - AddItem("Basic Terminal Settings", 5) - Else - If boughtcustomusername = False Then - AddItem("Custom Username", 10) - End If - End If - If boughtdirectorysurfing = False Then - AddItem("Directory Surfing", 10) - Else - If boughtbasicgui = True Then - If boughtfileskimmer = False Then - AddItem("File Skimmer", 60) - Else - If boughtfileskimmernewfolder = False Then AddItem("FS New Folder", 15) - If boughtfileskimmerdelete = False Then AddItem("FS Delete", 15) - End If - If boughttextpad = False Then - AddItem("Textpad", 50) - End If - If boughttextpad = True And boughtfileskimmer = True Then - If boughtbasicwm = False Then - AddItem("Basic Window Manager", 100) - Else - 'Placeholder - End If - End If - End If - End If - If boughtgray = False Then - AddItem("Gray", 25) - Else - If boughtbasicgui = False Then - AddItem("Basic GUI Server", 100) - End If - If boughtterminalsettextcolor = False And boughtbasicsettings = True Then - AddItem("Set Terminal Text Color", 10) - End If - End If - lbitems.SelectedIndex = 1 - Catch ex As Exception - lbitems.Items.Add("No items available.") - End Try - lbitems.DrawMode = DrawMode.OwnerDrawFixed - End Sub - - Public Sub lbitems_keydown(sender As System.Object, e As KeyEventArgs) Handles lbitems.KeyDown - Select Case e.KeyCode - Case Keys.Escape - e.SuppressKeyPress = True - Me.Close() - Terminal.Focus() - Case Keys.Down - e.SuppressKeyPress = True - If Not lbitems.SelectedIndex = lbitems.Items.Count - 1 Then - lbitems.SelectedIndex += 1 - End If - Case Keys.Up - e.SuppressKeyPress = True - If Not lbitems.SelectedIndex = 0 Then - lbitems.SelectedIndex -= 1 - End If - Case Keys.Enter - handleitemdescription("Basic Window Manager - 100 CP", "Fullscreen applications, well, suck. You can't get any work done outside of that app without closing it, and can't even view the Terminal. This upgrade changes that. We've found a way to use the Basic GUI server to create a simple window manager. It allows multiple windows on the screen, and up to 3 Terminal windows at once.") - handleitemdescription("Textpad - 50 CP", "Hmmmmm... What was I gonna do on Sunday? Oh yeah! I have to get that website written for my buddy. Better write that down before I forget... " & vbNewLine & vbNewLine & "Textpad allows you to create text documents. Handy if you need to write something down!") - handleitemdescription("FS Delete - 15 CP", "Alright, What's this unused document doing on my PC? I don't need this. I must delete it. With this upgrade, you can delete files in the File Skimmer.") - handleitemdescription("FS New Folder - 15 CP", "Well, we can view the files on our computer, but we don't have the ability to create directories in the GUI... yet. Upgrade today, and you will be able to.") - handleitemdescription("File Skimmer - 60 CP", "ShiftOS and Exodus Inc., authors of the Exodus File Browser for UltraDOS, have teamed up to create a GUI-based file browser for ShiftOS, based off the old File Skimmer.") - handleitemdescription("Set Terminal Text Color - 10 CP", "Having a black and white color scheme on a Terminal is ibfact quite a cliche. This upgrade allows you to set the text color of the Terminal. It only allows for the basic colors, but it's better than just white!") - handleitemdescription("Basic GUI Server - 100 CP", "Well, we've got Gray, and we've got the ability to write GUIs. Now, let's allow the users to run GUIs, and open a lot of possibilities up.") - handleitemdescription("Gray - 25 CP", "Black, and white. Such a bland choice of colors. Black for the background, white for the text. What a hard way to develop an app. With this upgrade, the video card driver in ShiftOS will support the output of Gray (R=127, G=127, B=127) allowing for some better capabilities in application programming.") - handleitemdescription("Directory Surfing - 10 CP", "ShiftOS came with a file system update. Instead of ShiftFS, we have ShiftFS Ultra. However, there's no point in using it... yet. This upgrade allows you to browse the filesystem in the terminal.") - handleitemdescription("Custom Username - 10 CP", "Hello, user! Isn't that wierd that that's all we know you as? Buy this upgrade to change yourr name from ""user"" to anything you want!") - handleitemdescription("Basic Terminal Settings - 5 CP", "Ever wanted to customize the terminal to act the way you'd like it to? This upgrade is for you. You won't be able to use it until you buy settings, but hey! The command is there.") - Case Keys.Space - handlebuy("Basic Window Manager - 100 CP", boughtbasicwm, "Awesome! Just exit the Shiftorium and type ""bwm"" into the Terminal, and away we go. Future sessions will not require typing ""bwm"".") - handlebuy("Textpad - 50 CP", boughttextpad, "Great. Now our computer is a bit more useful than before...") - handlebuy("FS Delete - 15 CP", boughtfileskimmerdelete, "There. I can finally destroy that evil document that's been taking up 3/4 of my hard drive. Just right-click a file and click 'Delete' to delete a file.") - handlebuy("FS New Folder - 15 CP", boughtfileskimmernewfolder, "Awesome. You can now create new folders in the File Skimmer!") - handlebuy("File Skimmer - 60 CP", boughtfileskimmer, "The upgrade's been downloaded, and we can now view the files on our computer in a much cleaner way. Just type 'open file skimmer' in the Terminal!") - handlebuy("Set Terminal Text Color - 10 CP", boughtterminalsettextcolor, "Awesome! Now, you can use 'set textcolor ' to set the Terminal text color. For a reference on supported colors, you can also type 'colors'.") - handlebuy("Basic GUI Server - 100 CP", boughtbasicgui, "Amazing. Come time, and money, we may be able to collaborate with other companies to develop applications, upgrades, and eventually a window manager.") - handlebuy("Gray - 25 CP", boughtgray, "Great. Right away, the Shiftorium is easier to use! Look at that amazing gray highlight.") - handlebuy("Directory Surfing - 10 CP", boughtdirectorysurfing, "Now we can do basic file navigation using the cd, dir, and mkdir commands. Hopefully, with more research, we may be able to create some apps to handle files, like a text editor.") - handlebuy("Custom Username - 10 CP", boughtcustomusername, "Amazing! Just type ""set username "" into the Terminal, and presto!") - handlebuy("Basic Terminal Settings - 5 CP", boughtbasicsettings, "Great! Now, a new command has been added to the terminal. Use it with ""set "". There are no settings to set, though.") - Case Else - e.SuppressKeyPress = True - End Select - End Sub - - - - - Private Sub handlebuy(ByVal name As String, ByRef bought As Boolean, ByVal boughttutorial As String) - - On Error Resume Next - Dim pricegrab As String - If lbitems.SelectedItem = name Then - If btnbuy.Text = "Press SPACE to download." Then - pricegrab = lbitems.SelectedItem.ToString.Substring(lbitems.SelectedItem.ToString.IndexOf("-") + 2, lbitems.SelectedItem.ToString.Length - lbitemname.Text.Length - 5) - codepoints -= Convert.ToInt32(pricegrab) - bought = True - lbdescription.Text = boughttutorial - btnbuy.Text = "Upgrade """ & name & """ installed, deducting " & pricegrab & " Codepoints." - lbprice.Hide() - determineitems() - lbcodepoints.Text = "Codepoints: " & codepoints - savegame() - End If - End If - End Sub - - 'UltraDOS Upgrade List renderer - Private Sub udos_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lbitems.DrawItem - e.DrawBackground() - If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then - If boughtgray Then - e.Graphics.FillRectangle(Brushes.Gray, e.Bounds) - Using b As New SolidBrush(e.ForeColor) - e.Graphics.DrawString(lbitems.GetItemText(lbitems.Items(e.Index)), e.Font, b, e.Bounds) - End Using - Else - e.Graphics.FillRectangle(Brushes.White, e.Bounds) - Using b As New SolidBrush(Color.Black) - e.Graphics.DrawString(lbitems.GetItemText(lbitems.Items(e.Index)), e.Font, b, e.Bounds) - End Using - End If - Else - - Using b As New SolidBrush(e.ForeColor) - e.Graphics.DrawString(lbitems.GetItemText(lbitems.Items(e.Index)), e.Font, b, e.Bounds) - End Using - End If - e.DrawFocusRectangle() - - End Sub - - - Private Sub handleitemdescription(ByVal itemname As String, ByVal itemdescription As String) - On Error Resume Next - If lbitems.SelectedItem.ToString = itemname Then - lbitemname.Text = lbitems.SelectedItem.ToString.Substring(0, lbitems.SelectedItem.ToString.IndexOf("-")) - lbdescription.Text = itemdescription - lbprice.Text = "This item costs " & lbitems.SelectedItem.ToString.Substring(lbitems.SelectedItem.ToString.IndexOf("-") + 2, lbitems.SelectedItem.ToString.Length - lbitemname.Text.Length - 5) & " Codepoints" - lbprice.Show() - btnbuy.Show() - If codepoints > Convert.ToInt32(lbitems.SelectedItem.ToString.Substring(lbitems.SelectedItem.ToString.IndexOf("-") + 2, lbitems.SelectedItem.ToString.Length - lbitemname.Text.Length - 5)) Then - btnbuy.Text = "Press SPACE to download." - Else - btnbuy.Text = "Insufficient Codepoints!" - End If - End If - End Sub - - -End Class \ No newline at end of file diff --git a/shiftos_next/shiftos_next.vbproj b/shiftos_next/shiftos_next.vbproj index 35221e0..d327d3b 100644 --- a/shiftos_next/shiftos_next.vbproj +++ b/shiftos_next/shiftos_next.vbproj @@ -70,44 +70,44 @@ - - - + + + basicwm_infobox.vb - + Form - + Titlebar.vb UserControl - + BWMDesktop.vb - + Form - + ColorPicker.vb - + Form - + file skimmer.vb - + Form - - + + Hijack.vb - + Form @@ -125,45 +125,45 @@ Settings.settings True - - - + + + shiftorium_cmd.vb - + Form - + Terminal.vb - + Form - - + + TextPad.vb - + Form - + basicwm_infobox.vb Titlebar.vb - + BWMDesktop.vb - + ColorPicker.vb - + file skimmer.vb - + Hijack.vb @@ -172,13 +172,13 @@ My.Resources Designer - + shiftorium_cmd.vb - + Terminal.vb - + TextPad.vb @@ -203,6 +203,7 @@ +