diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb index 9ebbd3e..e9c28a1 100644 --- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb +++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb @@ -3,7 +3,7 @@ Public Shared ComputerInfo(7) As String Public Shared IsFree As Boolean Public Shared OnceInfo(8) As String - Public Shared AvailableFeature(41) As String + Public Shared AvailableFeature(42) As String Public Shared CLIInterpreter As String Public Shared SaveFile As String Public Shared Achievement As String @@ -96,6 +96,7 @@ '39 = KI Fruits [Adds fruit category into the Knowledge Input] (default : 0) '40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0) '41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0) + '42 = KI US States [Adds United States States category into the Knowledge Input] (default : 0) ' 'Features bought hierarchy : ' @@ -145,4 +146,5 @@ '>>Knowledge Input (KNOWLEDGE) (275 CP) '>>>KI Animals (KI_ANIMALS) (300 CP) '>>>KI Fruits (KI_FRUITS) (300 CP) + '>>>KI US States (KI_US) (300 CP) End Class diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb index 098e782..d13c40c 100644 --- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb +++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb @@ -159,8 +159,11 @@ If Strings.AvailableFeature(39) = 0 Then NewLine("(ki_fruits | 300 CP) KI Fruits") End If + If Strings.AvailableFeature(42) = 0 Then + NewLine("(ki_us | 300 CP) KI US States") + End If + End If End If - End If End Sub Public Sub Shiftorium_InformationFeatures() @@ -495,6 +498,61 @@ NewLine(ManHeader(1)) NormalCommand() End If + Case "ki_animals" + If Strings.AvailableFeature(38) = 0 Then + ManHeader(0) = "KI Animals" + ManHeader(1) = "300 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds animals category into Knowledge Input") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "ki_fruits" + If Strings.AvailableFeature(39) = 0 Then + ManHeader(0) = "KI Fruits" + ManHeader(1) = "300 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds fruits category into Knowledge Input") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "duwmrgb" + If Strings.AvailableFeature(40) = 0 Then + ManHeader(0) = "DuWM RGB support" + ManHeader(1) = "225 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds Red, Green, and Blue and its darker/lighter color support for Dual Window Manager") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "duwmrgb2" + If Strings.AvailableFeature(41) = 0 Then + ManHeader(0) = "DuWM 16 Colors support" + ManHeader(1) = "275 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds 16 colors support for Dual Window Manager") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "ki_us" + If Strings.AvailableFeature(42) = 0 Then + ManHeader(0) = "KI US States" + ManHeader(1) = "300 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds US States category into Knowledge Input") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If Case Else NormalCommand() Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" @@ -631,6 +689,9 @@ Case "duwmrgb2" Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275) NormalCommand() + Case "ki_us" + Shiftorium_InstallFeatures(True, "ki_us", 42, 300) + NormalCommand() Case Else NormalCommand() NewLine("Shiftorium: Bad command or not available") @@ -811,6 +872,7 @@ Strings.AvailableFeature(37) = "1" Strings.AvailableFeature(38) = "0" Strings.AvailableFeature(39) = "0" + Strings.AvailableFeature(42) = "0" success = True Case "ki_animals" Strings.AvailableFeature(38) = "1" @@ -825,6 +887,9 @@ Strings.AvailableFeature(40) = "3" Strings.AvailableFeature(41) = "1" success = True + Case "ki_us" + Strings.AvailableFeature(42) = "1" + success = True End Select If success = False Then If IsCLI = True Then diff --git a/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb b/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb index 25dabb2..263c5ff 100644 --- a/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb +++ b/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb @@ -12,6 +12,7 @@ Cursor.Show() NewLine("Shutting down...") ShiftOSMenu.Show() + Cursor.Show() If IsStartG = False Then Console.Close() End If diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb index 187fcbd..97721fe 100644 --- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb @@ -2,7 +2,7 @@ Module SaveLoadSystem - Public Sub NewGameMode() + Public Sub NewGameMode(Chapter As Integer) 'Sets all features to 2 (Unavailable for Shiftorium) except ShiftOS Key (AvailableFeatures(11)) Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True) Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS", True) @@ -14,52 +14,106 @@ Module SaveLoadSystem Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = "0" Strings.ComputerInfo(4) = "0" - Strings.AvailableFeature(0) = "2" - Strings.AvailableFeature(1) = "2" - Strings.AvailableFeature(2) = "2" - Strings.AvailableFeature(3) = "2" - Strings.AvailableFeature(4) = "2" - Strings.AvailableFeature(5) = "2" - Strings.AvailableFeature(6) = "2" - Strings.AvailableFeature(7) = "2" - Strings.AvailableFeature(8) = "2" - Strings.AvailableFeature(9) = "2" - Strings.AvailableFeature(10) = "2" - Strings.AvailableFeature(11) = "0" - Strings.AvailableFeature(12) = "2" - Strings.AvailableFeature(13) = "2" - Strings.AvailableFeature(14) = "2" - Strings.AvailableFeature(15) = "2" - '0.2.4 Features - Strings.AvailableFeature(16) = "2" - Strings.AvailableFeature(17) = "2" - Strings.AvailableFeature(18) = "2" - Strings.AvailableFeature(19) = "2" - Strings.AvailableFeature(20) = "2" - Strings.AvailableFeature(21) = "2" - Strings.AvailableFeature(22) = "2" - '0.2.5 Features - Strings.AvailableFeature(23) = "2" - Strings.AvailableFeature(24) = "2" - Strings.AvailableFeature(25) = "2" - Strings.AvailableFeature(26) = "2" - Strings.AvailableFeature(27) = "2" - Strings.AvailableFeature(28) = "2" - Strings.AvailableFeature(29) = "2" - Strings.AvailableFeature(30) = "2" - '0.2.6 Features - Strings.AvailableFeature(31) = "2" - Strings.AvailableFeature(32) = "2" - Strings.AvailableFeature(33) = "2" - '0.2.7 Features - Strings.AvailableFeature(34) = "2" - Strings.AvailableFeature(35) = "2" - Strings.AvailableFeature(36) = "2" - Strings.AvailableFeature(37) = "2" - Strings.AvailableFeature(38) = "2" - Strings.AvailableFeature(39) = "2" - Strings.AvailableFeature(40) = "2" - Strings.AvailableFeature(41) = "2" + Select Case Chapter + Case 0 + Strings.AvailableFeature(0) = "2" + Strings.AvailableFeature(1) = "2" + Strings.AvailableFeature(2) = "2" + Strings.AvailableFeature(3) = "2" + Strings.AvailableFeature(4) = "2" + Strings.AvailableFeature(5) = "2" + Strings.AvailableFeature(6) = "2" + Strings.AvailableFeature(7) = "2" + Strings.AvailableFeature(8) = "2" + Strings.AvailableFeature(9) = "2" + Strings.AvailableFeature(10) = "2" + Strings.AvailableFeature(11) = "0" + Strings.AvailableFeature(12) = "2" + Strings.AvailableFeature(13) = "2" + Strings.AvailableFeature(14) = "2" + Strings.AvailableFeature(15) = "2" + '0.2.4 Features + Strings.AvailableFeature(16) = "2" + Strings.AvailableFeature(17) = "2" + Strings.AvailableFeature(18) = "2" + Strings.AvailableFeature(19) = "2" + Strings.AvailableFeature(20) = "2" + Strings.AvailableFeature(21) = "2" + Strings.AvailableFeature(22) = "2" + '0.2.5 Features + Strings.AvailableFeature(23) = "2" + Strings.AvailableFeature(24) = "2" + Strings.AvailableFeature(25) = "2" + Strings.AvailableFeature(26) = "2" + Strings.AvailableFeature(27) = "2" + Strings.AvailableFeature(28) = "2" + Strings.AvailableFeature(29) = "2" + Strings.AvailableFeature(30) = "2" + '0.2.6 Features + Strings.AvailableFeature(31) = "2" + Strings.AvailableFeature(32) = "2" + Strings.AvailableFeature(33) = "2" + '0.2.7 Features + Strings.AvailableFeature(34) = "2" + Strings.AvailableFeature(35) = "2" + Strings.AvailableFeature(36) = "2" + Strings.AvailableFeature(37) = "2" + Strings.AvailableFeature(38) = "2" + Strings.AvailableFeature(39) = "2" + Strings.AvailableFeature(40) = "2" + Strings.AvailableFeature(41) = "2" + '0.2.8 Features + Strings.AvailableFeature(42) = "2" + Case 1 + Strings.AvailableFeature(0) = "1" + Strings.AvailableFeature(1) = "1" + Strings.AvailableFeature(2) = "1" + Strings.AvailableFeature(3) = "1" + Strings.AvailableFeature(4) = "1" + Strings.AvailableFeature(5) = "3" + Strings.AvailableFeature(6) = "3" + Strings.AvailableFeature(7) = "3" + Strings.AvailableFeature(8) = "1" + Strings.AvailableFeature(9) = "1" + Strings.AvailableFeature(10) = "1" + Strings.AvailableFeature(11) = "1" + Strings.AvailableFeature(12) = "3" + Strings.AvailableFeature(13) = "1" + Strings.AvailableFeature(14) = "1" + Strings.AvailableFeature(15) = "1" + '0.2.4 Features + Strings.AvailableFeature(16) = "1" + Strings.AvailableFeature(17) = "1" + Strings.AvailableFeature(18) = "1" + Strings.AvailableFeature(19) = "1" + Strings.AvailableFeature(20) = "1" + Strings.AvailableFeature(21) = "1" + Strings.AvailableFeature(22) = "1" + '0.2.5 Features + Strings.AvailableFeature(23) = "1" + Strings.AvailableFeature(24) = "3" + Strings.AvailableFeature(25) = "3" + Strings.AvailableFeature(26) = "3" + Strings.AvailableFeature(27) = "3" + Strings.AvailableFeature(28) = "3" + Strings.AvailableFeature(29) = "1" + Strings.AvailableFeature(30) = "1" + '0.2.6 Features + Strings.AvailableFeature(31) = "1" + Strings.AvailableFeature(32) = "1" + Strings.AvailableFeature(33) = "1" + '0.2.7 Features + Strings.AvailableFeature(34) = "1" + Strings.AvailableFeature(35) = "2" + Strings.AvailableFeature(36) = "2" + Strings.AvailableFeature(37) = "2" + Strings.AvailableFeature(38) = "2" + Strings.AvailableFeature(39) = "2" + Strings.AvailableFeature(40) = "2" + Strings.AvailableFeature(41) = "2" + '0.2.8 Features + Strings.AvailableFeature(42) = "2" + End Select End Sub Public Sub FreeRoamMode() @@ -115,6 +169,8 @@ Module SaveLoadSystem Strings.AvailableFeature(39) = "1" Strings.AvailableFeature(40) = "3" Strings.AvailableFeature(41) = "1" + '0.2.8 Features + Strings.AvailableFeature(42) = "1" End Sub Public Sub GodMode() @@ -168,6 +224,8 @@ Module SaveLoadSystem Strings.AvailableFeature(39) = "2" Strings.AvailableFeature(40) = "2" Strings.AvailableFeature(41) = "2" + '0.2.8 Features + Strings.AvailableFeature(42) = "2" End Sub Public Sub SaveGame() diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.Designer.vb new file mode 100644 index 0000000..5f701af --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.Designer.vb @@ -0,0 +1,157 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Class FileSkimmerFileIcons + + Private Shared resourceMan As Global.System.Resources.ResourceManager + + Private Shared resourceCulture As Global.System.Globalization.CultureInfo + + _ + Friend Sub New() + MyBase.New + End Sub + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS_TheRevival.FileSkimmerFileIcons", GetType(FileSkimmerFileIcons).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Shared Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_exe() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_exe", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_folder() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_folder", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_picture() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_picture", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_sfp() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_sfp", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_textfile() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_textfile", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_unknown() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_unknown", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_up() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_up", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_url() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_url", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_video() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_video", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Class +End Namespace diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.resx b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.resx new file mode 100644 index 0000000..f36ed03 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.resx @@ -0,0 +1,148 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + ico_exe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ico_folder.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ico_picture.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ico_sfp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ico_textfile.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ico_unknown.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ico_up.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ico_url.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ico_video.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb new file mode 100644 index 0000000..725b336 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb @@ -0,0 +1,77 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Class FileSkimmerFunctionIcons + + Private Shared resourceMan As Global.System.Resources.ResourceManager + + Private Shared resourceCulture As Global.System.Globalization.CultureInfo + + _ + Friend Sub New() + MyBase.New + End Sub + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS_TheRevival.FileSkimmerFunctionIcons", GetType(FileSkimmerFunctionIcons).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Shared Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend Shared ReadOnly Property ico_up1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_up1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Class +End Namespace diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx new file mode 100644 index 0000000..e3944a1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx @@ -0,0 +1,124 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + ..\..\..\..\..\Resources\ico_up1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_exe.png b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_exe.png new file mode 100644 index 0000000..291770a Binary files /dev/null and b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_exe.png differ diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_folder.bmp b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_folder.bmp new file mode 100644 index 0000000..e9f684e Binary files /dev/null and b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_folder.bmp differ diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_picture.bmp b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_picture.bmp new file mode 100644 index 0000000..543a162 Binary files /dev/null and b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_picture.bmp differ diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_sfp.png b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_sfp.png new file mode 100644 index 0000000..09ad898 Binary files /dev/null and b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_sfp.png differ diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_textfile.bmp b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_textfile.bmp new file mode 100644 index 0000000..c4ffe12 Binary files /dev/null and b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_textfile.bmp differ diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_unknown.bmp b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_unknown.bmp new file mode 100644 index 0000000..ba26acb Binary files /dev/null and b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_unknown.bmp differ diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_up.bmp b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_up.bmp new file mode 100644 index 0000000..d72cd82 Binary files /dev/null and b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_up.bmp differ diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_url.bmp b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_url.bmp new file mode 100644 index 0000000..be1e63d Binary files /dev/null and b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_url.bmp differ diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_video.bmp b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_video.bmp new file mode 100644 index 0000000..d55037b Binary files /dev/null and b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_video.bmp differ diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb new file mode 100644 index 0000000..f3a1c20 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb @@ -0,0 +1,308 @@ + +Partial Class Uni_FileSkimmer + 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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Uni_FileSkimmer)) + Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("test", 0) + Me.msn_Options = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PropertyPaneToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.pnl_Ribbon = New System.Windows.Forms.Panel() + Me.pnl_Properties = New System.Windows.Forms.Panel() + Me.lbl_filesize = New System.Windows.Forms.Label() + Me.lbl_filetype = New System.Windows.Forms.Label() + Me.lbl_filename = New System.Windows.Forms.Label() + Me.lbl_Properties = New System.Windows.Forms.Label() + Me.iml_icons = New System.Windows.Forms.ImageList(Me.components) + Me.pnl_AddressBar = New System.Windows.Forms.Panel() + Me.btn_Up = New System.Windows.Forms.Button() + Me.txt_AddressBar = New System.Windows.Forms.TextBox() + Me.lbl_Address = New System.Windows.Forms.Label() + Me.lsv_Content = New System.Windows.Forms.ListView() + Me.pic_Icon = New System.Windows.Forms.PictureBox() + Me.btn_NewFolder = New System.Windows.Forms.Button() + Me.msn_Options.SuspendLayout() + Me.pnl_Ribbon.SuspendLayout() + Me.pnl_Properties.SuspendLayout() + Me.pnl_AddressBar.SuspendLayout() + CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'msn_Options + ' + Me.msn_Options.BackColor = System.Drawing.Color.White + Me.msn_Options.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.msn_Options.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.OptionsToolStripMenuItem, Me.AboutToolStripMenuItem}) + Me.msn_Options.Location = New System.Drawing.Point(0, 0) + Me.msn_Options.Name = "msn_Options" + Me.msn_Options.Size = New System.Drawing.Size(800, 27) + Me.msn_Options.TabIndex = 0 + Me.msn_Options.Text = "mns_Options" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CloseToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(41, 23) + Me.FileToolStripMenuItem.Text = "File" + ' + 'CloseToolStripMenuItem + ' + Me.CloseToolStripMenuItem.Name = "CloseToolStripMenuItem" + Me.CloseToolStripMenuItem.Size = New System.Drawing.Size(111, 24) + Me.CloseToolStripMenuItem.Text = "Close" + ' + 'OptionsToolStripMenuItem + ' + Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PropertyPaneToolStripMenuItem}) + Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem" + Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(70, 23) + Me.OptionsToolStripMenuItem.Text = "Options" + ' + 'PropertyPaneToolStripMenuItem + ' + Me.PropertyPaneToolStripMenuItem.CheckOnClick = True + Me.PropertyPaneToolStripMenuItem.Name = "PropertyPaneToolStripMenuItem" + Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(165, 24) + Me.PropertyPaneToolStripMenuItem.Text = "Property Pane" + ' + 'AboutToolStripMenuItem + ' + Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem" + Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(59, 23) + Me.AboutToolStripMenuItem.Text = "About" + ' + 'pnl_Ribbon + ' + Me.pnl_Ribbon.BackColor = System.Drawing.Color.Silver + Me.pnl_Ribbon.Controls.Add(Me.btn_NewFolder) + Me.pnl_Ribbon.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_Ribbon.Location = New System.Drawing.Point(0, 27) + Me.pnl_Ribbon.Name = "pnl_Ribbon" + Me.pnl_Ribbon.Size = New System.Drawing.Size(800, 69) + Me.pnl_Ribbon.TabIndex = 1 + ' + 'pnl_Properties + ' + Me.pnl_Properties.BackColor = System.Drawing.Color.Gray + Me.pnl_Properties.Controls.Add(Me.pic_Icon) + Me.pnl_Properties.Controls.Add(Me.lbl_filesize) + Me.pnl_Properties.Controls.Add(Me.lbl_filetype) + Me.pnl_Properties.Controls.Add(Me.lbl_filename) + Me.pnl_Properties.Controls.Add(Me.lbl_Properties) + Me.pnl_Properties.Dock = System.Windows.Forms.DockStyle.Right + Me.pnl_Properties.Location = New System.Drawing.Point(600, 132) + Me.pnl_Properties.Name = "pnl_Properties" + Me.pnl_Properties.Size = New System.Drawing.Size(200, 318) + Me.pnl_Properties.TabIndex = 2 + Me.pnl_Properties.Visible = False + ' + 'lbl_filesize + ' + Me.lbl_filesize.AutoSize = True + Me.lbl_filesize.Font = New System.Drawing.Font("Segoe UI", 8.25!) + Me.lbl_filesize.Location = New System.Drawing.Point(8, 155) + Me.lbl_filesize.Name = "lbl_filesize" + Me.lbl_filesize.Size = New System.Drawing.Size(26, 13) + Me.lbl_filesize.TabIndex = 1 + Me.lbl_filesize.Text = "size" + ' + 'lbl_filetype + ' + Me.lbl_filetype.AutoSize = True + Me.lbl_filetype.Font = New System.Drawing.Font("Segoe UI", 8.25!) + Me.lbl_filetype.Location = New System.Drawing.Point(9, 139) + Me.lbl_filetype.Name = "lbl_filetype" + Me.lbl_filetype.Size = New System.Drawing.Size(45, 13) + Me.lbl_filetype.TabIndex = 1 + Me.lbl_filetype.Text = "filetype" + ' + 'lbl_filename + ' + Me.lbl_filename.AutoSize = True + Me.lbl_filename.Font = New System.Drawing.Font("Segoe UI", 11.0!) + Me.lbl_filename.Location = New System.Drawing.Point(7, 117) + Me.lbl_filename.Name = "lbl_filename" + Me.lbl_filename.Size = New System.Drawing.Size(67, 20) + Me.lbl_filename.TabIndex = 1 + Me.lbl_filename.Text = "filename" + ' + 'lbl_Properties + ' + Me.lbl_Properties.AutoSize = True + Me.lbl_Properties.Font = New System.Drawing.Font("Segoe UI", 14.0!, System.Drawing.FontStyle.Bold) + Me.lbl_Properties.Location = New System.Drawing.Point(7, 7) + Me.lbl_Properties.Name = "lbl_Properties" + Me.lbl_Properties.Size = New System.Drawing.Size(105, 25) + Me.lbl_Properties.TabIndex = 0 + Me.lbl_Properties.Text = "Properties" + ' + 'iml_icons + ' + Me.iml_icons.ImageStream = CType(resources.GetObject("iml_icons.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.iml_icons.TransparentColor = System.Drawing.Color.Transparent + Me.iml_icons.Images.SetKeyName(0, "ico_folder.bmp") + Me.iml_icons.Images.SetKeyName(1, "ico_textfile.bmp") + Me.iml_icons.Images.SetKeyName(2, "ico_unknown.bmp") + Me.iml_icons.Images.SetKeyName(3, "ico_picture.bmp") + Me.iml_icons.Images.SetKeyName(4, "ico_up.bmp") + Me.iml_icons.Images.SetKeyName(5, "ico_url.bmp") + Me.iml_icons.Images.SetKeyName(6, "ico_video.bmp") + Me.iml_icons.Images.SetKeyName(7, "ico_sfp.png") + Me.iml_icons.Images.SetKeyName(8, "ico_exe.png") + ' + 'pnl_AddressBar + ' + Me.pnl_AddressBar.Controls.Add(Me.btn_Up) + Me.pnl_AddressBar.Controls.Add(Me.txt_AddressBar) + Me.pnl_AddressBar.Controls.Add(Me.lbl_Address) + Me.pnl_AddressBar.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_AddressBar.Location = New System.Drawing.Point(0, 96) + Me.pnl_AddressBar.Name = "pnl_AddressBar" + Me.pnl_AddressBar.Size = New System.Drawing.Size(800, 36) + Me.pnl_AddressBar.TabIndex = 4 + ' + 'btn_Up + ' + Me.btn_Up.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btn_Up.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_Up.Location = New System.Drawing.Point(65, 5) + Me.btn_Up.Name = "btn_Up" + Me.btn_Up.Size = New System.Drawing.Size(24, 24) + Me.btn_Up.TabIndex = 2 + Me.btn_Up.UseVisualStyleBackColor = True + ' + 'txt_AddressBar + ' + Me.txt_AddressBar.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txt_AddressBar.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.txt_AddressBar.Location = New System.Drawing.Point(161, 5) + Me.txt_AddressBar.Name = "txt_AddressBar" + Me.txt_AddressBar.Size = New System.Drawing.Size(627, 25) + Me.txt_AddressBar.TabIndex = 1 + ' + 'lbl_Address + ' + Me.lbl_Address.AutoSize = True + Me.lbl_Address.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.lbl_Address.Location = New System.Drawing.Point(90, 8) + Me.lbl_Address.Name = "lbl_Address" + Me.lbl_Address.Size = New System.Drawing.Size(65, 19) + Me.lbl_Address.TabIndex = 0 + Me.lbl_Address.Text = "Address :" + ' + 'lsv_Content + ' + Me.lsv_Content.BackColor = System.Drawing.Color.White + Me.lsv_Content.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lsv_Content.Dock = System.Windows.Forms.DockStyle.Fill + Me.lsv_Content.HideSelection = False + Me.lsv_Content.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem2}) + Me.lsv_Content.LargeImageList = Me.iml_icons + Me.lsv_Content.Location = New System.Drawing.Point(0, 132) + Me.lsv_Content.MultiSelect = False + Me.lsv_Content.Name = "lsv_Content" + Me.lsv_Content.Size = New System.Drawing.Size(600, 318) + Me.lsv_Content.Sorting = System.Windows.Forms.SortOrder.Ascending + Me.lsv_Content.TabIndex = 5 + Me.lsv_Content.UseCompatibleStateImageBehavior = False + ' + 'pic_Icon + ' + Me.pic_Icon.Location = New System.Drawing.Point(10, 42) + Me.pic_Icon.Name = "pic_Icon" + Me.pic_Icon.Size = New System.Drawing.Size(64, 64) + Me.pic_Icon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pic_Icon.TabIndex = 2 + Me.pic_Icon.TabStop = False + ' + 'btn_NewFolder + ' + Me.btn_NewFolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_NewFolder.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder + Me.btn_NewFolder.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btn_NewFolder.Location = New System.Drawing.Point(0, 0) + Me.btn_NewFolder.Name = "btn_NewFolder" + Me.btn_NewFolder.Size = New System.Drawing.Size(72, 69) + Me.btn_NewFolder.TabIndex = 0 + Me.btn_NewFolder.Text = "New Folder" + Me.btn_NewFolder.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btn_NewFolder.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + Me.btn_NewFolder.UseVisualStyleBackColor = True + ' + 'Uni_FileSkimmer + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.lsv_Content) + Me.Controls.Add(Me.pnl_Properties) + Me.Controls.Add(Me.pnl_AddressBar) + Me.Controls.Add(Me.pnl_Ribbon) + Me.Controls.Add(Me.msn_Options) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MainMenuStrip = Me.msn_Options + Me.Name = "Uni_FileSkimmer" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.Text = "Uni_FileSkimmer" + Me.msn_Options.ResumeLayout(False) + Me.msn_Options.PerformLayout() + Me.pnl_Ribbon.ResumeLayout(False) + Me.pnl_Properties.ResumeLayout(False) + Me.pnl_Properties.PerformLayout() + Me.pnl_AddressBar.ResumeLayout(False) + Me.pnl_AddressBar.PerformLayout() + CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents msn_Options As MenuStrip + Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem + Friend WithEvents pnl_Ribbon As Panel + Friend WithEvents pnl_Properties As Panel + Friend WithEvents pnl_AddressBar As Panel + Friend WithEvents lbl_Address As Label + Friend WithEvents txt_AddressBar As TextBox + Friend WithEvents lbl_Properties As Label + Friend WithEvents lbl_filename As Label + Friend WithEvents lbl_filetype As Label + Friend WithEvents lbl_filesize As Label + Friend WithEvents pic_Icon As PictureBox + Friend WithEvents CloseToolStripMenuItem As ToolStripMenuItem + Friend WithEvents iml_icons As ImageList + Friend WithEvents lsv_Content As ListView + Friend WithEvents OptionsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PropertyPaneToolStripMenuItem As ToolStripMenuItem + Friend WithEvents btn_NewFolder As Button + Friend WithEvents btn_Up As Button +End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx new file mode 100644 index 0000000..c259752 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx @@ -0,0 +1,234 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 140, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACA + FwAAAk1TRnQBSQFMAgEBCQEAATgBAAE4AQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABqAMAAX4DAAEBAQABCAUAAbABUhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc + AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA + AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz + AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA + AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA + AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm + AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA + ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz + AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz + AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz + AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ + AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm + AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM + Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ + AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ + AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA + ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/ + ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ + AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA + AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA + AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA + AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ + AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA + AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/ + AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/ + ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/ + AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA + AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AP8ATgAm7IIA + Aewk/wHsggAB7CT/AeyCAAHsJP8B7IIAAewk/wHsggAB7CT/AeyCAAHsJP8B7IIAAewk/wHsggAB7CT/ + AeyCAAHsJP8B7IIAAewk/wHsggAB7CT/AeyCAAHsJP8B7IIAAewk/wHsggAB7CT/AeyCAAHsJP8B7IIA + Aewk/wHsggAB7CT/AeyCAAHsJP8D7IAAAewk/wHsAf8B7IAAAewk/wHsAf8B7IAAAewk/wHsAf8B7IAA + Aewk/wHsAf8B7IAAAewk/wHsAf8B7IAAAewk/wHsAf8B7IAAJuwB/wHsgAAd7AIAAewCAAHsAgAB7AH/ + AeyAAB3sAgAB7AIAAewCAAHsAf8B7IAAJuwB/wHshAAB7CL/AeyEAAHsIv8B7IQAAewi/wHshAAk7IQA + G+wCAAHsAgAB7AIAAeyEABvsAgAB7AIAAewCAAHshAAk7P8AZAAK/5MACv8BAAr/AQAB7AP/jgAJ/wEA + DP8BAAHsAv+OAAn/AQAM/wEAAewC/10AKOwJAAj/AQAN/wEAAewC/10AD+wKAA/sCQAH/wEAA/8BAAr/ + AQAB7AL/XQAP7AEACP8BAA/sCQAH/wEAAv8CAAL/AQAC/wEAAv8BAAH/AQAB7AL/OQAc/wgAD+wBAAj/ + AQAP7AkACP8CAAHsAQAC/wEAAv8BAAL/AQAB/wEAAewC/wkAKP8IABz/CAAP7AEACP8BAA/sCQAL/wEA + Av8BAAL/AQAC/wIAAewD/wkAKP8IABz/CAAP7AEACP8BAA/sCQAL/wEAAv8BAAL/AwAB7AX/CQAo/wgA + HP8IAA/sAQAI/wEAD+wJAAv/AQAC/wMAAewI/wkAKP8IABz/CAAP7AEACP8BAA/sCQAL/wEAAv8BAAHs + Cv8JAA//AQAY/wgAHP8IAA/sAQAI/wEAD+wJAAv/AQAC/wEAAewK/wkAD/8CABf/CAAc/wgAD+wBAAj/ + AQAP7AkAC/8BAAL/AQAB7Ar/CQAP/wMAFv8IABz/CAAP7AEACP8BAA/sCQAL/wEAAv8BAAHsCv8JAA// + BAAV/wgAHP8IAA/sAQAI/wEAD+wJAAL/CfwBAAL/AQAB7Ar/CQAP/wUAFP8IABz/CAAP7AEACP8BAA/s + CQAM/wIAAewL/wkAD/8GABP/CAAc/wgAD+wBAAj/AQAP7AkAA/8E/AL/AfwE/wH8C/8JAA//BwAS/wgA + HP8IAA/sAQAI/wEAD+wJAAL/AfwE/wH8Af8B/AT/AfwL/wkAD/8IABH/CAAc/wgAD+wBAAj/AQAP7AkA + Av8B/AT/AfwB/wH8BP8B/Av/CQAP/wkAEP8IABz/CAAP7AEACP8BAA/sCQAC/wH8BP8B/AH/AvwD/wH8 + C/8JAA//CgAP/wgAHP8IAArsBgAI/wcACewJAAL/AfwE/wH8Af8B/AH/AvwB/wH8C/8JAA//CgAP/wgA + HP8IAArsAQAT/wEACewJAAL/AfwE/wH8Bv8B/Av/CQAP/wkAEP8IABz/CAAL7AEAEf8BAArsCQAC/wH8 + BP8B/Ab/AfwL/wkAD/8IABH/CAAc/wgADOwBAA//AQAL7AkAAv8B/AT/AfwG/wH8C/8JAA//BwAS/ywA + DewBAA3/AQAM7AkAAv8B/AT/AfwG/wH8C/8JAA//BgAT/ywADuwBAAv/AQAN7AkAGv8JAA//BQAU/ywA + D+wBAAn/AQAO7AkAGv8JAA//BAAV/ywAEOwBAAf/AQAP7AkAGv8JAA//AwAW/wwAFP8MABHsAQAF/wEA + EOwJABr/CQAP/wIAF/8MAA7/BAAC/wwAEuwBAAP/AQAR7AkAGv8JAA//AQAY/wwADv8EAAL/DAAT7AEA + Af8BABLsCQAa/wkAKP8MAA7/BAAC/wwAFOwBABPsCQAa/wkAKP8MAA7/BAAC/wwAKOwJABr/CQAo/wwA + Dv8EAAL/DAAo7AkAGv8JACj/DAAO/wQAAv89ABT/QwAU/wwAD+wiABT/AQAC/wLsPgAU/wwADuwjABT/ + AQAB/wLskAAU/wEAAuyRABT/AQAB7JIAFP//AOIAIf8JACH/XQAh/wkAIf9dACH/CQAh/y8AKOwGAAT/ + GuwD/wkAIf8FACjsAgAo7AYAIf8JACH/BQAo7AIAKOwGACH/CQAO/wTsD/8FACjsAgAo7AYAA/8a7AT/ + CQAO/wTsD/8FACjsAgAo7AYAIf8JAA7/BOwP/wUAKOwCACjsBgAh/wkADv8E7A//BQAo7AIAKOwGAAT/ + GuwD/wkAIf8FACTsBP8CACjsBgAh/wkAIf8FACHsB/8CACjsBgAh/wkAIf8FAAX/GuwJ/wIAKOwGAAP/ + GuwE/wkADv8BkgPsD/8FAAj/FuwF/wHsBP8CACjsBgAh/wkADv8BkgPsD/8FAA//C+wJ/wLsA/8CACjs + BgAh/wkADv8BkgPsAfIO/wUAHv8B7AX/AewD/wIAKOwGAAT/GuwD/wkADv8BBwPsAbwO/wUAHv8C7AT/ + AuwC/wIAKOwGACH/CQAO/wHxBOwO/wUAF/8D7AX/AuwE/wHsAv8CACjsBgAh/wkAD/8E7AHvDf8FABn/ + AuwF/wHsBP8B7AL/AgAo7AYAA/8a7AT/CQAP/wHxBOwB7wz/BQAa/wHsBf8B7AT/AewC/wIAKOwGACH/ + CQAQ/wG8BOwB7wH0Cv8FABr/AuwE/wHsBP8C7AH/AgAo7AYAIf8JABH/AbwE7AHtAfQJ/wUAE/8E7AT/ + AuwJ/wHsAf8CACjsBgAE/xrsA/8JABL/AfAE7AGSCf8FABb/AuwF/wHsCv8CACjsBgAh/wkAE/8B8gTs + Ae8I/wUAF/8B7An/BuwB/wIAKOwGACH/CQAU/wHyBOwB8gf/BQAX/wLsBv8J7AIAKOwGAAP/GuwE/wkA + Ff8BvAPsAe8H/wUAEP8B7Af/AuwE/wrsAgAo7AYAIf8JABb/BOwH/wUAEP8D7Ab/AuwC/wvsAgAo7AYA + If8JAAb/AfMB7wGSAewB7wv/AZID7Af/BQAS/wPsB/8M7AIAKOwGAAT/GuwD/wkABv8B9APsAe0L/wHt + A+wH/wUAFP8C7Ab/DOwCACjsBgAh/wkAB/8E7AHyCf8B8wPsAe0H/wUAFf8C7AT/DewCACjsBgAh/wkA + B/8BBwPsAfcJ/wH3A+wB7wf/BQAN/wTsBf8D7AL/DewCACjsBgAD/xrsBP8JAAf/AfQE7AHvB/8B7wTs + AfMH/wUAEP8C7An/DewCACjsBgAh/wkACP8BBwTsAZIB8AH0Af8B9AHwAZIE7AEHCP8FABH/AewJ/w3s + AgAo7AYAIf8JAAn/Ae8N7AHvCf8FABH/COwC/w3sAgAo7AYABP8a7AP/CQAK/wHwC+wB8Ar/BQAb/w3s + MAAh/wkAC/8B9AG8AfcE7AHtAe8BvAz/BQAc/wzsAgAP7B8AIf8JACH/BQAc/wzsAgAO7CAAA/8a7AT/ + CQAh/10AIf8JACH/XQAh/wkAIf9dACH/CQAh/9YAAUIBTQE+BwABPgMAASgDAAGoAwABfgMAAQEBAAEB + BQAB0AELFgAD/wEABf8BwBIABf8BwBIABf8BwBIABf8BwBIABf8BwBIAAcAEAAHAEgABwAQAAcASAAHA + BAABwBIAAcAEAAHAEgABwAQAAcASAAHABAABwBIAAcAEAAHAEgABwAQAAcASAAHABAABwBIAAcAEAAHA + EgABwAQAAcASAAHABAABwBIAAcAEAAHAEgABwAQAAcASAAHABAABwBIAAcAEAAHAEgABwAQAAcASAAHA + BAABwBIAAcAXAAHAFwABwBcAAcAXAAHAFwABwBcAAcAXAAHAFwABwBcAAcAXAAHAFwAB/BcAAfwXAAH8 + FwAB/BcAAfwXAAH8FwAB/BcABf8BwBIABv8BgAIAAQcL/wMABv8BgAIAAQcL/wMABv8BgAIAAQcG/wHA + AwABDwgAAT8BgAIAAQcG/wHAAwABDwgAAT8BgAIAAQcG/wHAAwABDwgAAT8BgAIAAQcG/wHAAwABDwgA + AT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHA + AwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHw + BAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGA + AgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEP + CAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAED + AcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEH + AfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/ + AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMA + AQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQA + AQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIA + AQcB8AQAAQMBwAMAAR8IAAE/AYACAAEHAfAEAAEDAcADAAE/CAABPwGAAgABBwHwBAABAwHAAwABfwUA + AX8D/wGAAgABDwb/AcADAAF/BQAE/wGAAgABHwv/BAABAQT/AYACAAE/C/8DAAb/AYACAAF/C/8DAAb/ + AYACAAz/AwAG/wGAAQABAQz/AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/ + BAABHwX/CAABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA + AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA + AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA + AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA + AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA + AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA + AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcCgABfwL/AfwEAAF/BAABHAoA + A/8B/AQAAX8EAAEcCQABAQP/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf + Bf8DAAX/AfwEAAF/BAABHwX/AwAL + + + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb new file mode 100644 index 0000000..c5fe628 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb @@ -0,0 +1,244 @@ +Imports System.IO + +Public Class Uni_FileSkimmer + Public CurrentDir As String + Dim FileType As Integer + Dim ItemsDeleted As Integer + + Private Sub Uni_FileSkimmer_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'Sets icons for buttons in here, for some reason + btn_Up.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_up1 + 'End thingy + CurrentDir = Strings.OnceInfo(1) + txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\") + pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_folder + ShowContent() + End Sub + + Private Sub PropertyPaneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertyPaneToolStripMenuItem.Click + If PropertyPaneToolStripMenuItem.CheckState = False Then + pnl_Properties.Visible = False + Else + pnl_Properties.Visible = True + End If + End Sub + + Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click + Dispose() + End Sub + + Private Sub btn_Up_Click(sender As Object, e As EventArgs) Handles btn_Up.Click + If txt_AddressBar.Text = "!\" Then + btn_Up.Enabled = False + Else + Try + If txt_AddressBar.Text = "!\" Then + Else + Dim directoryInfo As System.IO.DirectoryInfo + directoryInfo = System.IO.Directory.GetParent(txt_AddressBar.Text.Replace("!\", Strings.OnceInfo(1) & "\")) + txt_AddressBar.Text = directoryInfo.FullName + CurrentDir = directoryInfo.FullName + + Dim endloop As Boolean = False + txt_AddressBar.Text = txt_AddressBar.Text.Substring(0, txt_AddressBar.Text.Length - 1) + + While endloop = False + Try + If txt_AddressBar.Text.Substring(txt_AddressBar.Text.Length - 1) = "\" Then + endloop = True + Else + txt_AddressBar.Text = txt_AddressBar.Text.Substring(0, txt_AddressBar.Text.Length - 1) + End If + Catch + End Try + End While + ShowContent() + 'Try + ' ShowContent() + 'Catch + + 'End Try + End If + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub lsv_Content_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseDoubleClick + If txt_AddressBar.Text Like "*\" Then + Else + txt_AddressBar.Text = txt_AddressBar.Text + "\" + End If + ExecuteFile(txt_AddressBar.Text + lsv_Content.SelectedItems(0).Text) + End Sub + + Private Sub lsv_Content_MouseClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseClick + Select Case e.Button + Case MouseButtons.Left + If pnl_Properties.Visible = True Then + Dim IsFile As Boolean = False + If lsv_Content.SelectedItems(0).Text = Nothing Then + + Else + If lsv_Content.SelectedItems(0).Text Like "*.txt" Then + pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_textfile + lbl_filetype.Text = "Text File" + IsFile = True + End If + If IsFile = True Then + lbl_filesize.Visible = False + Dim filinf As New IO.FileInfo(CurrentDir & lsv_Content.SelectedItems(0).Text) + Dim filsize As Long = filinf.Length / 1024 + Dim thesize As Integer = 1 + Do + If filsize >= 1024 Then + filsize = filsize / 1024 + thesize = thesize + 1 + Else + Exit Do + End If + Loop + Select Case thesize + Case 1 + lbl_filesize.Text = filsize & " KB" + Case 2 + lbl_filesize.Text = filsize & " MB" + Case 3 + lbl_filesize.Text = filsize & " GB" + End Select + Else + lbl_filetype.Text = "Folder" + lbl_filesize.Visible = False + End If + lbl_filename.Text = lsv_Content.SelectedItems(0).Text + End If + End If + End Select + End Sub + + Public Sub ExecuteFile(path As String) + If path Like "*.txt" Then + Undeveloped() + Else + path = path.Replace("!\", Strings.OnceInfo(1) & "\") + If My.Computer.FileSystem.DirectoryExists(path) Then + CurrentDir = path + txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!") + ShowContent() + Else + End If + End If + End Sub + + Public Sub ShowContent() + Show() + + lsv_Content.Items.Clear() + + Dim Dir As New DirectoryInfo(CurrentDir) + Dim Files As FileInfo() = Dir.GetFiles() + Dim File As FileInfo + Dim Folders As DirectoryInfo() = Dir.GetDirectories() + Dim Folder As DirectoryInfo + + 'For Each Dir As String In IO.Directory.GetDirectories(CurrentDir) + ' Dim Dirinfo As New IO.DirectoryInfo(Dir) + ' lsv_Content.Items.Add(Dirinfo.Name, 0) + ' 'NewLine("[DIR] 0 KB " & dirinf.Name) + 'Next + + For Each Folder In Folders + Dim FolderName As String = Folder.Name + lsv_Content.Items.Add(FolderName, 0) + Next + + For Each File In Files + Dim filename As String = File.Name + Dim fileex As String = File.Extension + + FileType = GetFileType(fileex)(0) + + lsv_Content.Items.Add(filename, FileType) + Next + End Sub + + Public Function GetFileType(fileex As String) + + Dim FileType As Integer + Dim Program As String + + Select Case fileex + Case ".txt" + FileType = 1 + Program = "Text Document" + 'Case ".doc" + ' filetype = 5 + ' program = "Word Document" + 'Case ".docx" + ' filetype = 5 + ' program = "Word Document" + Case ".png" + FileType = 3 + Program = "Picture" + Case ".jpg" + FileType = 3 + Program = "Picture" + Case ".jpeg" + FileType = 3 + Program = "Picture" + Case ".bmp" + FileType = 3 + Program = "Bitmap" + Case ".gif" + FileType = 3 + Program = "Animated Picture" + 'Case ".avi" + ' filetype = 10 + ' program = "Video Clip" + 'Case ".m4v" + ' filetype = 10 + ' program = "MPEG-4 Video" + 'Case ".mp4" + ' filetype = 10 + ' program = "MPEG-4 Video" + 'Case ".wmv" + ' filetype = 10 + ' program = "Windows Media Video" + 'Case ".mp3" + ' filetype = 9 + ' program = "MPEG-3 Song" + 'Case ".zip" + ' filetype = 11 + ' program = "Compressed Files" + 'Case ".dll" + ' filetype = 8 + ' program = "System File" + 'Case ".exe" + ' filetype = 6 + ' program = "MS-DOS Executable" + 'Case ".sh" + ' filetype = 7 + ' program = "BASH Script" + 'Case ".bat" + ' filetype = 6 + ' program = "MS-DOS Batch File" + 'Case ".url" + ' filetype = 5 + ' program = "Shortcut" + 'Case ".htm", ".html" + ' filetype = 5 + ' program = "Web Page" + Case Else + FileType = 2 + Program = "Unknown File Type" + End Select + + Dim array() As String = {CStr(FileType), Program} + + Return (array) + If txt_AddressBar.Text = "!\" Then + 'WARNING TO GET BACK BUTTON DISABLED + End If + End Function +End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt index 568a289..41bd694 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt @@ -7,7 +7,7 @@ antigua and barbuda argentina armenia australia -austia +austria azerbaijan bahamas bahrain @@ -23,7 +23,7 @@ bosnia and herzegovina botswana brazil brunei -bulgraia +bulgaria burkina faso burundi cambodia @@ -37,7 +37,8 @@ china colombia comoros democratic republic of the congo -republic of the congocosta rica +republic of the congo +costa rica croatia cuba cyprus diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb index 29f224a..dea5e20 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb @@ -145,7 +145,7 @@ Namespace My.Resources '''argentina '''armenia '''australia - '''austia + '''austria '''azerbaijan '''bahamas '''bahrain @@ -161,7 +161,7 @@ Namespace My.Resources '''botswana '''brazil '''brunei - '''bulgraia + '''bulgaria '''burkina faso '''burundi '''cambodia @@ -175,13 +175,14 @@ Namespace My.Resources '''colombia '''comoros '''democratic republic of the congo - '''republic of the congocosta rica + '''republic of the congo + '''costa rica '''croatia '''cuba '''cyprus '''czechia '''denmark - '''djibou [rest of string was truncated]";. + '''dji [rest of string was truncated]";. ''' Friend Shared ReadOnly Property Countries() As String Get @@ -250,5 +251,62 @@ Namespace My.Resources Return ResourceManager.GetString("Fruits", resourceCulture) End Get End Property + + ''' + ''' Looks up a localized string similar to alabama + '''alaska + '''arizona + '''arkansas + '''california + '''colorado + '''connecticut + '''delaware + '''florida + '''georgia + '''hawaii + '''idaho + '''illinois + '''indiana + '''iowa + '''kansas + '''kentucky + '''louisiana + '''maine + '''maryland + '''massachusetts + '''michigan + '''minnesota + '''mississippi + '''missouri + '''montana + '''nebraska + '''nevada + '''new hampshire + '''new jersey + '''new mexico + '''new york + '''north carolina + '''north dakota + '''ohio + '''oklahoma + '''oregon + '''pennsylvania + '''rhode island + '''south carolina + '''south dakota + '''tennessee + '''texas + '''utah + '''vermont + '''virginia + '''washington + '''washington dc + '''west virgi [rest of string was truncated]";. + ''' + Friend Shared ReadOnly Property US_States() As String + Get + Return ResourceManager.GetString("US_States", resourceCulture) + End Get + End Property End Class End Namespace diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx index d86df8e..7efe96f 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx @@ -127,4 +127,7 @@ fruits.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + us_states.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/US_States.txt b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/US_States.txt new file mode 100644 index 0000000..f6bf5c9 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/US_States.txt @@ -0,0 +1,51 @@ +alabama +alaska +arizona +arkansas +california +colorado +connecticut +delaware +florida +georgia +hawaii +idaho +illinois +indiana +iowa +kansas +kentucky +louisiana +maine +maryland +massachusetts +michigan +minnesota +mississippi +missouri +montana +nebraska +nevada +new hampshire +new jersey +new mexico +new york +north carolina +north dakota +ohio +oklahoma +oregon +pennsylvania +rhode island +south carolina +south dakota +tennessee +texas +utah +vermont +virginia +washington +washington dc +west virginia +wisconsin +wyoming \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb index 54ccdf0..2ffa0e6 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb @@ -51,7 +51,7 @@ Partial Class Uni_KnowledgeInput Me.cmb_Category.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) Me.cmb_Category.ForeColor = System.Drawing.Color.Black Me.cmb_Category.FormattingEnabled = True - Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"}) + Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits", "US States"}) Me.cmb_Category.Location = New System.Drawing.Point(20, 96) Me.cmb_Category.Name = "cmb_Category" Me.cmb_Category.Size = New System.Drawing.Size(266, 31) diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb index a8aa28c..6d30405 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb @@ -1,9 +1,10 @@ Imports System.IO Public Class Uni_KnowledgeInput - Public Countries(193) As String + Public Countries(194) As String Public Animals(226) As String Public Fruits(75) As String + Public US_States(50) As String Public TotalGuessed As Integer Public CurrentCategory As String Public Level As Integer @@ -26,6 +27,13 @@ Public Class Uni_KnowledgeInput File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", My.Resources.KnowledgeInputContent.Fruits) End If End If + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin") = True Then + + Else + If Strings.AvailableFeature(42) = 1 Then + File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin", My.Resources.KnowledgeInputContent.US_States) + End If + End If Else Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput") File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", My.Resources.KnowledgeInputContent.Countries) @@ -91,6 +99,12 @@ Public Class Uni_KnowledgeInput End If Available = True Fruits = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin") + Case "US States" + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin") = True Then + lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin")) + End If + Available = True + US_States = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin") End Select If Available = True Then TotalGuessed = lst_Guessed.Items.Count @@ -102,6 +116,8 @@ Public Class Uni_KnowledgeInput lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length Case "Fruits" lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length + Case "US States" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length End Select Level = Math.Ceiling((TotalGuessed / 10)) CheckLevel() @@ -116,6 +132,9 @@ Public Class Uni_KnowledgeInput If Strings.AvailableFeature(39) = 0 Then cmb_Category.Items.Remove("Fruits") End If + If Strings.AvailableFeature(42) = 0 Then + cmb_Category.Items.Remove("US States") + End If End Sub Private Sub CheckLevel() @@ -177,6 +196,20 @@ Public Class Uni_KnowledgeInput Lines = Lines + 1 End If Loop + Case "US States" + Dim Lines As Integer = 0 + Do + If Lines = US_States.Length Then + Exit Do + End If + If US_States(Lines) = Input Then + US_States(Lines) = "null" + Correct = True + Exit Do + Else + Lines = Lines + 1 + End If + Loop End Select If Correct = True Then lst_Guessed.Items.Add(Input) @@ -189,6 +222,8 @@ Public Class Uni_KnowledgeInput lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length Case "Fruits" lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length + Case "US States" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length End Select CheckLevel() SaveCategory() @@ -206,6 +241,9 @@ Public Class Uni_KnowledgeInput Case "Fruits" File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", Fruits) File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin", lst_Guessed.Items.Cast(Of String).ToArray) + Case "US States" + File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin", US_States) + File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin", lst_Guessed.Items.Cast(Of String).ToArray) End Select End Sub End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Epilepsy.vb b/ShiftOS-TheRevival/MainForms/Epilepsy.vb index f1d86c1..8ce8564 100644 --- a/ShiftOS-TheRevival/MainForms/Epilepsy.vb +++ b/ShiftOS-TheRevival/MainForms/Epilepsy.vb @@ -17,7 +17,7 @@ Strings.OnceInfo(6) = "story" IntroStory.Show() ShiftOSMenu.Close() - NewGameMode() + NewGameMode(0) Close() End Select End Sub diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb index c7c35eb..2ae60a2 100644 --- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb @@ -52,6 +52,14 @@ Public Class ShiftOSMenu btn_Aboot.Text = "About" btn_Aboot.Visible = True btn_Exit.Visible = True + Case "Chapter 2" & Environment.NewLine & "Exploration" + Strings.ComputerInfo(3) = "1" + IsConsoleParent = True + Strings.IsFree = False + Strings.OnceInfo(6) = "story" + NewGameMode(1) + Console.Show() + Close() End Select End Sub diff --git a/ShiftOS-TheRevival/My Project/Resources.Designer.vb b/ShiftOS-TheRevival/My Project/Resources.Designer.vb index c89bfdd..faa47fa 100644 --- a/ShiftOS-TheRevival/My Project/Resources.Designer.vb +++ b/ShiftOS-TheRevival/My Project/Resources.Designer.vb @@ -61,7 +61,7 @@ Namespace My.Resources End Property ''' - ''' Looks up a localized string similar to 0.2.6. + ''' Looks up a localized string similar to 0.2.7. ''' Friend ReadOnly Property CurrentVersion() As String Get @@ -81,6 +81,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ico_folder() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico_folder", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Looks up a localized string similar to A basic command-line tool for simple calculation. ''' diff --git a/ShiftOS-TheRevival/My Project/Resources.resx b/ShiftOS-TheRevival/My Project/Resources.resx index 78650ad..e5fd7af 100644 --- a/ShiftOS-TheRevival/My Project/Resources.resx +++ b/ShiftOS-TheRevival/My Project/Resources.resx @@ -121,94 +121,97 @@ ..\Resources\CurrentVersion.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 - - ..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\bc.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\cd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\clear.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\color.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\colors.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\cowsay.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\del.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\dir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\guess.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\help.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\hostname.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\infobar.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\man.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\mkdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\print.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\pwd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\reboot.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\rmdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\shiftfetch.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\shiftorium.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\shutdown.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\textpad.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\resources\man manuals\time.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - ..\resources\man manuals\username.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 ..\resources\man manuals\ver.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + ..\resources\man manuals\guess.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\cd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\color.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\del.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\mkdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + ..\resources\man manuals\zip.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 ..\Resources\Menu Picture\ShiftOS_MenuBanner1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\resources\man manuals\dir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\shutdown.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + ..\Resources\Menu Picture\ShiftOS_MenuBanner2.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\resources\man manuals\hostname.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\colors.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\bc.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\pwd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\man.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\print.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\textpad.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\cowsay.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\clear.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\infobar.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\help.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\rmdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\reboot.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\shiftorium.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\shiftfetch.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\man manuals\time.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + ..\MainForms\Applications\Universal\File Skimmer\Icons\ico_folder.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/ShiftOS-TheRevival/Resources/ico_up1.png b/ShiftOS-TheRevival/Resources/ico_up1.png new file mode 100644 index 0000000..92c3841 Binary files /dev/null and b/ShiftOS-TheRevival/Resources/ico_up1.png differ diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj index 862cb6b..b504241 100644 --- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj +++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj @@ -118,6 +118,22 @@ Form + + True + True + FileSkimmerFileIcons.resx + + + True + True + FileSkimmerFunctionIcons.resx + + + Uni_FileSkimmer.vb + + + Form + True True @@ -276,6 +292,19 @@ DuWM_Shifter.vb + + My.Resources + ResXFileCodeGenerator + FileSkimmerFileIcons.Designer.vb + + + My.Resources + ResXFileCodeGenerator + FileSkimmerFunctionIcons.Designer.vb + + + Uni_FileSkimmer.vb + My.Resources ResXFileCodeGenerator @@ -352,10 +381,21 @@ + + + + + + + + + + + diff --git a/ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb b/ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb index 52a1f30..adcb3bd 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb @@ -68,6 +68,9 @@ BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2) BC_ThriceMoreValue = Nothing NewLine(BC_Result) + If BC_Result = 69 Then + NewLine("Nice!") + End If End Sub Public Sub BC_Counting(FirstNum As Integer, SecondNum As Integer, Operation As String) diff --git a/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb index 40ce30b..58ab882 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb @@ -17,34 +17,36 @@ End Sub Public Sub MQ_GiveQuestion() - Dim RandomNum As New Random - MQ_1stNum = RandomNum.Next(1, 10) - MQ_2ndNum = RandomNum.Next(1, 10) - OperationChooser = RandomNum.Next(1, 5) - Select Case OperationChooser - Case 1 - MQ_Operation = " + " - MQ_ShouldResult = MQ_1stNum + MQ_2ndNum - Case 2 - While MQ_2ndNum >= MQ_1stNum - MQ_2ndNum = RandomNum.Next(1, 10) - End While - MQ_Operation = " - " - MQ_ShouldResult = MQ_1stNum - MQ_2ndNum - Case 3 - MQ_Operation = " * " - MQ_ShouldResult = MQ_1stNum * MQ_2ndNum - Case 4 - While MQ_2ndNum > MQ_1stNum + Try + Dim RandomNum As New Random + MQ_1stNum = RandomNum.Next(1, 10) + MQ_2ndNum = RandomNum.Next(1, 10) + OperationChooser = RandomNum.Next(1, 5) + Select Case OperationChooser + Case 1 + MQ_Operation = " + " + MQ_ShouldResult = MQ_1stNum + MQ_2ndNum + Case 2 + While MQ_2ndNum >= MQ_1stNum MQ_2ndNum = RandomNum.Next(1, 10) End While - MQ_Operation = " / " - MQ_ShouldResult = MQ_1stNum / MQ_2ndNum - Case Else - MQ_Operation = " + " - MQ_ShouldResult = MQ_1stNum + MQ_2ndNum - End Select - NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?") + MQ_Operation = " - " + MQ_ShouldResult = MQ_1stNum - MQ_2ndNum + Case 3 + MQ_Operation = " * " + MQ_ShouldResult = MQ_1stNum * MQ_2ndNum + Case 4 + While MQ_2ndNum > MQ_1stNum + MQ_2ndNum = RandomNum.Next(1, 10) + End While + MQ_Operation = " / " + MQ_ShouldResult = MQ_1stNum / MQ_2ndNum + End Select + NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?") + Catch ex As Exception + NewLine(ex.Message) + TerminateApp(Nothing) + End Try End Sub Public Sub MQ_CheckAnswer() diff --git a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb index 6e8c7bd..e7952f8 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb @@ -10,7 +10,7 @@ Module TerminalExternalApps ' Terminal.TextBox1.ReadOnly = True ' Terminal.DefaultPrompt = "Press any key to continue..." ' Terminal.CurrentInterpreter = "pause" - ' FreezeText = Terminal.TextBox1.Text + ' FreezeText = Terminal.TextBox1 x .Text ' ShouldChange = True Case "shiftoriumfx" 'ShiftoriumFX : Advanced Shiftorium Console.DefaultPrompt = "Navigate> " @@ -100,6 +100,8 @@ Module TerminalExternalApps Case "ojas" NewLine("dis calculator is very gud") NewLine("it counts from another universe") + Case "cameron" + NewLine("quiet frankly it's ShiftOS") Case "exit" TerminateApp(Nothing) Case Else diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb index e7b22f1..48caef6 100644 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb @@ -14,6 +14,8 @@ If Strings.AvailableFeature(36) = 1 Then DuWM_NewProcess(DuWM_Shifter) End If + Case "file_skimmer" + DuWM_NewProcess(Uni_FileSkimmer) End Select End Select End Sub