From 9754f495672581abd7098c39027b512525b5f9ab Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Thu, 24 Nov 2022 21:26:45 +0700 Subject: [PATCH] Fully functional and partially working Shifter --- .../Functions/InGame/ROMs/Strings.vb | 18 +- .../InGame/StoreManager/Shiftoriums.vb | 71 +++++ .../Functions/OutGame/SaveLoadSystem.vb | 17 +- .../DuWM_Shifter_Desktop.Designer.vb | 3 +- .../Categories/DuWM_Shifter_Desktop.vb | 40 ++- .../DuWM/Shifter/DuWM_Shifter.Designer.vb | 4 + .../Applications/DuWM/Shifter/DuWM_Shifter.vb | 12 + .../Knowledge Input/Contents/Animals.txt | 227 ++++++++++++++++ .../Knowledge Input/Contents/Countries.txt | 194 +++++++++++++ .../Knowledge Input/Contents/Fruits.txt | 76 ++++++ .../KnowledgeInputContent.Designer.vb | 254 ++++++++++++++++++ .../Contents/KnowledgeInputContent.resx | 130 +++++++++ .../Uni_KnowledgeInput.Designer.vb | 49 +++- .../Knowledge Input/Uni_KnowledgeInput.vb | 204 +++++++++++++- .../master/Desktop.Designer.vb | 18 +- .../DesktopEnvironment/master/Desktop.vb | 2 +- .../DualWindowManager/DuWM_Main.vb | 1 + ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj | 13 + .../TerminalApplications/Internal/Com_App.vb | 6 +- 19 files changed, 1302 insertions(+), 37 deletions(-) create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Animals.txt create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Fruits.txt create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb index 86c30f3..9ebbd3e 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(37) As String + Public Shared AvailableFeature(41) As String Public Shared CLIInterpreter As String Public Shared SaveFile As String Public Shared Achievement As String @@ -92,6 +92,10 @@ '35 = Dual Window Manager [Simple Window Manager for ShiftOS] (default : 0) '36 = Shifter [Customization program for ShiftOS, DuWM version] (default : 0) '37 = Knowledge Input [Guess how much things as many as you can] (default : 0) + '38 = KI Animals [Adds animal category into the Knowledge Input] (default : 0) + '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) ' 'Features bought hierarchy : ' @@ -134,9 +138,11 @@ '>>>>>>>>>>>>Date by general (DATE, GENERALDATE (95 CP)) ' 'Chpater 2: - '>Dual Window Manager (200 CP) - '>>DuWM RGB Support (225 CP) - '>>>DuWM 16 Colors Support (275 CP) - '>>Shifter (250 CP) - '>>Knowledge Input (275 CP) + '>Dual Window Manager (DUWM) (200 CP) + '>>DuWM RGB Support (DUWMRGB) (225 CP) + '>>>DuWM 16 Colors Support (DUWMRGB2) (275 CP) + '>>Shifter (SHIFTER) (250 CP) + '>>Knowledge Input (KNOWLEDGE) (275 CP) + '>>>KI Animals (KI_ANIMALS) (300 CP) + '>>>KI Fruits (KI_FRUITS) (300 CP) End Class diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb index 066b9fd..f525073 100644 --- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb +++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb @@ -141,6 +141,24 @@ Else If Strings.AvailableFeature(36) = 0 Then NewLine("(shifter | 250 CP) Shifter") + Else + If Strings.AvailableFeature(40) = 0 Then + NewLine("(duwmrgb | 225 CP) DuWM RGB Support") + Else + If Strings.AvailableFeature(41) = 0 Then + NewLine("(duwmrgb2 | 275 CP) DuWM 16 Color Support") + End If + End If + End If + If Strings.AvailableFeature(37) = 0 Then + NewLine("(knowledge | 275 CP) Knowledge Input") + Else + If Strings.AvailableFeature(38) = 0 Then + NewLine("(ki_animals | 300 CP) KI Animals") + End If + If Strings.AvailableFeature(39) = 0 Then + NewLine("(ki_fruits | 300 CP) KI Fruits") + End If End If End If End Sub @@ -466,6 +484,17 @@ NewLine(ManHeader(1)) NormalCommand() End If + Case "knowledge" + If Strings.AvailableFeature(37) = 0 Then + ManHeader(0) = "Knowledge Input" + ManHeader(1) = "275 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Puzzle game where you have to guess as many things as you want") + 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" @@ -584,6 +613,24 @@ Case "duwm" Shiftorium_InstallFeatures(True, "duwm", 35, 200) NormalCommand() + Case "shifter" + Shiftorium_InstallFeatures(True, "shifter", 36, 250) + NormalCommand() + Case "knowledge" + Shiftorium_InstallFeatures(True, "knowledge", 37, 275) + NormalCommand() + Case "ki_animals" + Shiftorium_InstallFeatures(True, "ki_animals", 38, 300) + NormalCommand() + Case "ki_fruits" + Shiftorium_InstallFeatures(True, "ki_animals", 39, 300) + NormalCommand() + Case "duwmrgb" + Shiftorium_InstallFeatures(True, "duwmrgb", 40, 225) + NormalCommand() + Case "duwmrgb2" + Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275) + NormalCommand() Case Else NormalCommand() NewLine("Shiftorium: Bad command or not available") @@ -751,6 +798,30 @@ Case "duwm" Strings.AvailableFeature(35) = "1" Strings.AvailableFeature(36) = "0" + Strings.AvailableFeature(37) = "0" + success = True + Case "shifter" + Strings.AvailableFeature(36) = "1" + Strings.AvailableFeature(40) = "0" + Strings.AvailableFeature(41) = "0" + success = True + Case "knowledge" + Strings.AvailableFeature(37) = "1" + Strings.AvailableFeature(38) = "0" + Strings.AvailableFeature(39) = "0" + success = True + Case "ki_animals" + Strings.AvailableFeature(38) = "1" + success = True + Case "ki_fruits" + Strings.AvailableFeature(39) = "1" + success = True + Case "duwmrgb" + Strings.AvailableFeature(40) = "1" + success = True + Case "duwmrgb2" + Strings.AvailableFeature(40) = "3" + Strings.AvailableFeature(41) = "1" success = True End Select If success = False Then diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb index be9269c..5747e1d 100644 --- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb @@ -55,6 +55,11 @@ Module SaveLoadSystem 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" End Sub Public Sub FreeRoamMode() @@ -105,6 +110,11 @@ Module SaveLoadSystem Strings.AvailableFeature(34) = "1" Strings.AvailableFeature(35) = "1" Strings.AvailableFeature(36) = "1" + Strings.AvailableFeature(37) = "1" + Strings.AvailableFeature(38) = "1" + Strings.AvailableFeature(39) = "1" + Strings.AvailableFeature(40) = "3" + Strings.AvailableFeature(41) = "1" End Sub Public Sub GodMode() @@ -153,6 +163,11 @@ Module SaveLoadSystem 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" End Sub Public Sub SaveGame() @@ -171,4 +186,4 @@ Module SaveLoadSystem Strings.AvailableFeature = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos") End If End Sub -End Module +End Module \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb index 849c215..f316a71 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb @@ -39,12 +39,13 @@ Partial Class DuWM_Shifter_Desktop ' 'cmb_DesktopColor ' + Me.cmb_DesktopColor.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed Me.cmb_DesktopColor.Font = New System.Drawing.Font("Segoe UI", 12.0!) Me.cmb_DesktopColor.FormattingEnabled = True Me.cmb_DesktopColor.Items.AddRange(New Object() {"Black", "Dark Gray", "Light Gray", "Red", "Dark Red", "Green", "Light Green", "Blue", "Dark Blue", "Yellow", "Dark Yellow", "Purple", "Light Purple", "Aqua", "Light Aqua", "White"}) Me.cmb_DesktopColor.Location = New System.Drawing.Point(156, 91) Me.cmb_DesktopColor.Name = "cmb_DesktopColor" - Me.cmb_DesktopColor.Size = New System.Drawing.Size(121, 29) + Me.cmb_DesktopColor.Size = New System.Drawing.Size(121, 30) Me.cmb_DesktopColor.TabIndex = 1 ' 'Label1 diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb index 6a476e2..d7f5b26 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb @@ -3,8 +3,46 @@ CheckAvailability() End Sub - Private Sub CheckAvailability() + Private Sub cmb_DesktopColor_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_DesktopColor.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + Dim sf As New StringFormat + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(cmb_DesktopColor.GetItemText(cmb_DesktopColor.Items(e.Index)), e.Font, b, e.Bounds, sf) + End Using + e.DrawFocusRectangle() + End Sub + Private Sub CheckAvailability() + If Strings.AvailableFeature(40) = 1 Then + cmb_DesktopColor.Items.Remove("Yellow") + cmb_DesktopColor.Items.Remove("Dark Yellow") + cmb_DesktopColor.Items.Remove("Purple") + cmb_DesktopColor.Items.Remove("Light Purple") + cmb_DesktopColor.Items.Remove("Aqua") + cmb_DesktopColor.Items.Remove("Light Aqua") + ElseIf Strings.AvailableFeature(40) = 3 Then + If Strings.AvailableFeature(41) = 1 Then + 'NOTHING + Else + 'NOTHING + End If + Else + cmb_DesktopColor.Items.Remove("Red") + cmb_DesktopColor.Items.Remove("Dark Red") + cmb_DesktopColor.Items.Remove("Green") + cmb_DesktopColor.Items.Remove("Light Green") + cmb_DesktopColor.Items.Remove("Blue") + cmb_DesktopColor.Items.Remove("Dark Blue") + cmb_DesktopColor.Items.Remove("Yellow") + cmb_DesktopColor.Items.Remove("Dark Yellow") + cmb_DesktopColor.Items.Remove("Purple") + cmb_DesktopColor.Items.Remove("Light Purple") + cmb_DesktopColor.Items.Remove("Aqua") + cmb_DesktopColor.Items.Remove("Light Aqua") + End If End Sub Private Sub cmb_DesktopColor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_DesktopColor.SelectedIndexChanged diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb index a117dfc..97cb13b 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb @@ -49,6 +49,7 @@ Partial Class DuWM_Shifter Me.lst_Features.BackColor = System.Drawing.Color.Silver Me.lst_Features.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lst_Features.Dock = System.Windows.Forms.DockStyle.Bottom + Me.lst_Features.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed Me.lst_Features.Font = New System.Drawing.Font("Segoe UI", 12.0!) Me.lst_Features.FormattingEnabled = True Me.lst_Features.ItemHeight = 21 @@ -84,6 +85,7 @@ Partial Class DuWM_Shifter ' Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.Button3.ForeColor = System.Drawing.Color.White Me.Button3.Location = New System.Drawing.Point(351, 10) Me.Button3.Name = "Button3" @@ -96,6 +98,7 @@ Partial Class DuWM_Shifter ' Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btn_Close.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_Close.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.btn_Close.ForeColor = System.Drawing.Color.White Me.btn_Close.Location = New System.Drawing.Point(432, 10) Me.btn_Close.Name = "btn_Close" @@ -108,6 +111,7 @@ Partial Class DuWM_Shifter ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.Button1.ForeColor = System.Drawing.Color.White Me.Button1.Location = New System.Drawing.Point(513, 10) Me.Button1.Name = "Button1" diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb index 55f0e41..06b35c6 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb @@ -8,6 +8,18 @@ End Sub + Private Sub lst_Features_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Features.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + Dim sf As New StringFormat + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(lst_Features.GetItemText(lst_Features.Items(e.Index)), e.Font, b, e.Bounds, sf) + End Using + e.DrawFocusRectangle() + End Sub + Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click Close() End Sub diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Animals.txt b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Animals.txt new file mode 100644 index 0000000..37a793b --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Animals.txt @@ -0,0 +1,227 @@ +aardvark +albatross +alligator +alpaca +ant +anteater +antelope +ape +armadillo +ass +baboon +badger +barracuda +bat +bear +beaver +bee +bison +boar +buffalo +butterfly +camel +caribou +cat +caterpillar +cow +chamois +cheetah +chicken +chimpanzee +chinchilla +chough +clam +cobra +cockroach +cod +cormorant +coyote +crab +crane +crocodile +crow +curlew +deer +dinosaur +dog +dogfish +dolphin +donkey +dotterel +dove +dragonfly +duck +dugong +dunlin +eagle +echidna +eel +eland +elephant +elephant seal +elk +emu +falcon +ferret +finch +fish +flamingo +fly +fox +frog +galago +gaur +gazelle +gerbil +giant panda +giraffe +gnat +gnu +goat +goldfinch +goldfish +goose +gorilla +goshawk +grasshopper +grouse +guanaco +guineafowl +guinea pig +gull +hamster +hare +hawk +hedgehog +heron +herring +hippopotamus +hornet +horse +human +humming bird +hyena +jackal +jaguar +jay +jellyfish +kangaroo +koala +komodo dragon +kouprey +kudu +lizard +lark +lemur +leopard +lion +llama +lobster +locust +loris +louse +lyrebird +magpie +mallard +manatee +marten +meerkat +mink +mole +monkey +moose +mosquito +mouse +mule +narwhal +newt +nightingale +octopus +okapi +opossum +oryx +ostrich +otter +owl +ox +oyster +panther +parrot +partridge +peafowl +pelican +penguin +pheasant +pig +pigeon +pony +porcupine +porpoise +prairie dog +quail +quelea +rabbit +raccoon +rail +ram +rat +raven +red deer +red panda +reindeer +rhinoceros +rook +ruff +salamander +salmon +sand dollar +sandpiper +sardine +scorpion +sea lion +sea urchin +seahorse +seal +shark +sheep +shrew +shrimp +skunk +snail +snake +spider +squid +squirrel +starling +stingray +stink bug +stork +swallow +swan +tapir +tarsier +termite +tiger +toad +trout +turkey +turtle +vicuña +viper +vulture +wallaby +walrus +wasp +water buffalo +weasel +whale +wolf +wolverine +wombat +woodcock +woodpecker +worm +wren +yak +zebra +bird \ 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 new file mode 100644 index 0000000..568a289 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt @@ -0,0 +1,194 @@ +afghanistan +albania +algeria +andorra +angola +antigua and barbuda +argentina +armenia +australia +austia +azerbaijan +bahamas +bahrain +bangladesh +barbados +belarus +belgium +belize +benin +bhutan +bolivia +bosnia and herzegovina +botswana +brazil +brunei +bulgraia +burkina faso +burundi +cambodia +cameroon +canada +cape verde +central african republic +chad +chile +china +colombia +comoros +democratic republic of the congo +republic of the congocosta rica +croatia +cuba +cyprus +czechia +denmark +djibouti +dominica +dominican republic +east timor +ecuador +egypt +el salvador +equatorial guinea +eritrea +estonia +eswatini +ethiopia +fiji +finland +france +gabon +gambia +georgia +germany +ghana +greece +grenada +guatemala +guinea +guinea-bissau +guyana +haiti +honduras +hungary +iceland +india +indonesia +iran +iraq +ireland +israel +italy +ivory coast +jamaica +japan +jordan +kazakhstan +kenya +kiribati +north korea +south korea +kuwait +kyrgyzstan +laos +latvia +lebanon +lesotho +liberia +libya +liechtenstein +lithunania +luxembourg +madagascar +malawi +malaysia +maldives +mali +malta +marshall islands +mauritiania +mauritius +mexico +micronesia +moldova +monaco +mongolia +montonegro +morocco +mozambique +myanmar +namibia +nauru +nepal +netherlands +new zealand +nicaragua +niger +nigeria +north macedonia +norway +oman +pakistan +palau +palestine +panama +papua new guinea +paraguay +peru +philippines +poland +portugal +qatar +romania +russia +rwanda +saint kitts and nevis +saint lucia +saint vincent and the grenadines +samoa +san marino +sao tome and principe +saudi arabia +senegal +serbia +seychelles +sierra leone +singapore +slovakia +slovenia +solomon islands +somalia +south africa +south sudan +spain +sri lanka +sudan +suriname +sweden +switzerland +syria +tajikistan +tanzania +thailand +togo +tonga +trinidad and tobago +tunisia +turkey +turkmenistan +tuvalu +uganda +ukraine +united arab emirates +united kingdom +united states +uruguay +uzbekistan +vanuatu +vatican city +venezuela +vietnam +yemen +zambia +zimbabwe \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Fruits.txt b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Fruits.txt new file mode 100644 index 0000000..96171bb --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Fruits.txt @@ -0,0 +1,76 @@ +apple +apricot +avocado +banana +breadfruit +bilberry +blackberry +blackcurrant +blueberry +boysenberry +cantaloupe +currant +cherry +cherimoya +chili +cloudberry +coconut +damson +date +dragonfruit +durian +elderberry +feijoa +fig +gooseberry +grape +grapefruit +guava +huckleberry +honeydew +jackfruit +jambul +jujube +kiwi fruit +kumquat +legume +lemon +lime +loquat +lychee +mango +melon +canary melon +cantaloupe +honeydew +watermelon +rock melon +nectarine +nut +orange +clementine +mandarine +tangerine +papaya +passionfruit +peach +bell pepper +pear +persimmon +physalis +plum +pineapple +pomegranate +pomelo +purple mangosteen +quince +raspberry +rambutan +redcurrant +salal berry +satsuma +star fruit +strawberry +tamarillo +tomato +ugli fruit \ No newline at end of file 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 new file mode 100644 index 0000000..29f224a --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb @@ -0,0 +1,254 @@ +'------------------------------------------------------------------------------ +' +' 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 KnowledgeInputContent + + 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.KnowledgeInputContent", GetType(KnowledgeInputContent).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 string similar to aardvark + '''albatross + '''alligator + '''alpaca + '''ant + '''anteater + '''antelope + '''ape + '''armadillo + '''ass + '''baboon + '''badger + '''barracuda + '''bat + '''bear + '''beaver + '''bee + '''bison + '''boar + '''buffalo + '''butterfly + '''camel + '''caribou + '''cat + '''caterpillar + '''cow + '''chamois + '''cheetah + '''chicken + '''chimpanzee + '''chinchilla + '''chough + '''clam + '''cobra + '''cockroach + '''cod + '''cormorant + '''coyote + '''crab + '''crane + '''crocodile + '''crow + '''curlew + '''deer + '''dinosaur + '''dog + '''dogfish + '''dolphin + '''donkey + '''dotterel + '''dove + '''dragonfly + '''duck + '''dugong + '''dunlin + '''eagle + '''echidna + '''eel + '''eland + '''elephant + '''elephant seal + '''elk + '''emu ''' [rest of string was truncated]";. + ''' + Friend Shared ReadOnly Property Animals() As String + Get + Return ResourceManager.GetString("Animals", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized string similar to afghanistan + '''albania + '''algeria + '''andorra + '''angola + '''antigua and barbuda + '''argentina + '''armenia + '''australia + '''austia + '''azerbaijan + '''bahamas + '''bahrain + '''bangladesh + '''barbados + '''belarus + '''belgium + '''belize + '''benin + '''bhutan + '''bolivia + '''bosnia and herzegovina + '''botswana + '''brazil + '''brunei + '''bulgraia + '''burkina faso + '''burundi + '''cambodia + '''cameroon + '''canada + '''cape verde + '''central african republic + '''chad + '''chile + '''china + '''colombia + '''comoros + '''democratic republic of the congo + '''republic of the congocosta rica + '''croatia + '''cuba + '''cyprus + '''czechia + '''denmark + '''djibou [rest of string was truncated]";. + ''' + Friend Shared ReadOnly Property Countries() As String + Get + Return ResourceManager.GetString("Countries", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized string similar to apple + '''apricot + '''avocado + '''banana + '''breadfruit + '''bilberry + '''blackberry + '''blackcurrant + '''blueberry + '''boysenberry + '''cantaloupe + '''currant + '''cherry + '''cherimoya + '''chili + '''cloudberry + '''coconut + '''damson + '''date + '''dragonfruit + '''durian + '''elderberry + '''feijoa + '''fig + '''gooseberry + '''grape + '''grapefruit + '''guava + '''huckleberry + '''honeydew + '''jackfruit + '''jambul + '''jujube + '''kiwi fruit + '''kumquat + '''legume + '''lemon + '''lime + '''loquat + '''lychee + '''mango + '''melon + '''canary melon + '''cantaloupe + '''honeydew + '''watermelon + '''rock melon + '''nectarine + '''nut + '''orange + '''clementine + '''mandarine + '''tangerine + '''p [rest of string was truncated]";. + ''' + Friend Shared ReadOnly Property Fruits() As String + Get + Return ResourceManager.GetString("Fruits", 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 new file mode 100644 index 0000000..d86df8e --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx @@ -0,0 +1,130 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + animals.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + countries.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + + fruits.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/Uni_KnowledgeInput.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb index 55c7177..54ccdf0 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 @@ -25,6 +25,9 @@ Partial Class Uni_KnowledgeInput Me.lbl_Title = New System.Windows.Forms.Label() Me.cmb_Category = New System.Windows.Forms.ComboBox() Me.Panel1 = New System.Windows.Forms.Panel() + Me.lbl_NextLevel = New System.Windows.Forms.Label() + Me.lbl_Level = New System.Windows.Forms.Label() + Me.lbl_TotalGuess = New System.Windows.Forms.Label() Me.txt_InputWord = New System.Windows.Forms.TextBox() Me.lst_Guessed = New System.Windows.Forms.ListBox() Me.lbl_Guessed = New System.Windows.Forms.Label() @@ -44,11 +47,12 @@ Partial Class Uni_KnowledgeInput 'cmb_Category ' Me.cmb_Category.BackColor = System.Drawing.Color.White + Me.cmb_Category.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed 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.Location = New System.Drawing.Point(20, 73) + 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) Me.cmb_Category.TabIndex = 1 @@ -56,21 +60,54 @@ Partial Class Uni_KnowledgeInput ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.lbl_NextLevel) + Me.Panel1.Controls.Add(Me.lbl_Level) + Me.Panel1.Controls.Add(Me.lbl_TotalGuess) Me.Panel1.Controls.Add(Me.txt_InputWord) Me.Panel1.Controls.Add(Me.lbl_Title) Me.Panel1.Controls.Add(Me.cmb_Category) 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(784, 125) + Me.Panel1.Size = New System.Drawing.Size(784, 143) Me.Panel1.TabIndex = 2 ' + 'lbl_NextLevel + ' + Me.lbl_NextLevel.AutoSize = True + Me.lbl_NextLevel.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.lbl_NextLevel.Location = New System.Drawing.Point(288, 55) + Me.lbl_NextLevel.Name = "lbl_NextLevel" + Me.lbl_NextLevel.Size = New System.Drawing.Size(223, 23) + Me.lbl_NextLevel.TabIndex = 3 + Me.lbl_NextLevel.Text = "Words until next level ( CP) :" + ' + 'lbl_Level + ' + Me.lbl_Level.AutoSize = True + Me.lbl_Level.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.lbl_Level.Location = New System.Drawing.Point(288, 32) + Me.lbl_Level.Name = "lbl_Level" + Me.lbl_Level.Size = New System.Drawing.Size(63, 23) + Me.lbl_Level.TabIndex = 3 + Me.lbl_Level.Text = "Level 0" + ' + 'lbl_TotalGuess + ' + Me.lbl_TotalGuess.AutoSize = True + Me.lbl_TotalGuess.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.lbl_TotalGuess.Location = New System.Drawing.Point(288, 9) + Me.lbl_TotalGuess.Name = "lbl_TotalGuess" + Me.lbl_TotalGuess.Size = New System.Drawing.Size(112, 23) + Me.lbl_TotalGuess.TabIndex = 3 + Me.lbl_TotalGuess.Text = "Guessed : 0/0" + ' 'txt_InputWord ' Me.txt_InputWord.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_InputWord.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) - Me.txt_InputWord.Location = New System.Drawing.Point(292, 73) + Me.txt_InputWord.Location = New System.Drawing.Point(292, 96) Me.txt_InputWord.Name = "txt_InputWord" Me.txt_InputWord.Size = New System.Drawing.Size(470, 30) Me.txt_InputWord.TabIndex = 2 @@ -80,6 +117,7 @@ Partial Class Uni_KnowledgeInput Me.lst_Guessed.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lst_Guessed.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed Me.lst_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) Me.lst_Guessed.FormattingEnabled = True Me.lst_Guessed.ItemHeight = 23 @@ -92,7 +130,7 @@ Partial Class Uni_KnowledgeInput ' Me.lbl_Guessed.AutoSize = True Me.lbl_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) - Me.lbl_Guessed.Location = New System.Drawing.Point(16, 140) + Me.lbl_Guessed.Location = New System.Drawing.Point(16, 146) Me.lbl_Guessed.Name = "lbl_Guessed" Me.lbl_Guessed.Size = New System.Drawing.Size(132, 23) Me.lbl_Guessed.TabIndex = 4 @@ -129,4 +167,7 @@ Partial Class Uni_KnowledgeInput Friend WithEvents txt_InputWord As TextBox Friend WithEvents lst_Guessed As ListBox Friend WithEvents lbl_Guessed As Label + Friend WithEvents lbl_TotalGuess As Label + Friend WithEvents lbl_Level As Label + Friend WithEvents lbl_NextLevel As Label End Class 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 b806e88..a8aa28c 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb @@ -1,15 +1,211 @@ -Public Class Uni_KnowledgeInput - Dim PrevWidthTxt_InputWord As Integer = 470 +Imports System.IO + +Public Class Uni_KnowledgeInput + Public Countries(193) As String + Public Animals(226) As String + Public Fruits(75) As String + Public TotalGuessed As Integer + Public CurrentCategory As String + Public Level As Integer + Public ForNextLevel As Integer + Public JustStarted As Boolean = True Private Sub Uni_KnowledgeInput_Load(sender As Object, e As EventArgs) Handles MyBase.Load - cmb_Category.Items.Remove("Animals") + If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput") = True Then + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin") = True Then + + Else + If Strings.AvailableFeature(38) = 1 Then + File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin", My.Resources.KnowledgeInputContent.Animals) + End If + End If + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin") = True Then + + Else + If Strings.AvailableFeature(39) = 1 Then + File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", My.Resources.KnowledgeInputContent.Fruits) + 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) + End If + CurrentCategory = "Select Category" + LoadCategory() + End Sub + + Private Sub lst_Guessed_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Guessed.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + Dim sf As New StringFormat + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(lst_Guessed.GetItemText(lst_Guessed.Items(e.Index)), e.Font, b, e.Bounds, sf) + End Using + e.DrawFocusRectangle() + End Sub + + Private Sub cmb_Category_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_Category.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + Dim sf As New StringFormat + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(cmb_Category.GetItemText(cmb_Category.Items(e.Index)), e.Font, b, e.Bounds, sf) + End Using + e.DrawFocusRectangle() End Sub Private Sub txt_InputWord_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_InputWord.KeyDown Select Case e.KeyCode Case Keys.Enter - lst_Guessed.Items.Add(txt_InputWord.Text) + CheckCorrect(txt_InputWord.Text.ToLower) txt_InputWord.Text = Nothing + JustStarted = False + End Select + End Sub + + Private Sub cmb_Category_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_Category.SelectedIndexChanged + Dim Available As Boolean = False + JustStarted = True + lbl_TotalGuess.Text = "Guessed : 0/0" + lst_Guessed.Items.Clear() + Select Case cmb_Category.SelectedItem.ToString + Case "Countries" + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentCountries.kin") = True Then + lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentCountries.kin")) + End If + Available = True + Countries = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin") + Case "Animals" + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentAnimals.kin") = True Then + lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentAnimals.kin")) + End If + Available = True + Animals = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin") + Case "Fruits" + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin") = True Then + lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin")) + End If + Available = True + Fruits = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin") + End Select + If Available = True Then + TotalGuessed = lst_Guessed.Items.Count + lbl_TotalGuess.Text = "Guessed : " & TotalGuessed & "/" + Select Case cmb_Category.SelectedItem.ToString + Case "Countries" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & Countries.Length + Case "Animals" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length + Case "Fruits" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length + End Select + Level = Math.Ceiling((TotalGuessed / 10)) + CheckLevel() + CurrentCategory = cmb_Category.SelectedItem.ToString + End If + End Sub + + Private Sub LoadCategory() + If Strings.AvailableFeature(38) = 0 Then + cmb_Category.Items.Remove("Animals") + End If + If Strings.AvailableFeature(39) = 0 Then + cmb_Category.Items.Remove("Fruits") + End If + End Sub + + Private Sub CheckLevel() + lbl_Level.Text = "Level " & Level + ForNextLevel = Math.Abs(TotalGuessed - (Level * 10)) + If ForNextLevel = 0 Then + If JustStarted = False Then + ChangeCP(True, Level * 25) + End If + Level = Level + 1 + lbl_Level.Text = "Level " & Level + ForNextLevel = 10 + End If + lbl_NextLevel.Text = "Words until next level (" & Level * 25 & " CP) : " & ForNextLevel + End Sub + + Private Sub CheckCorrect(Input As String) + Dim Correct As Boolean = False + Select Case cmb_Category.SelectedItem.ToString + Case "Countries" + Dim Lines As Integer = 0 + Do + If Lines = Countries.Length Then + Exit Do + End If + If Countries(Lines) = Input Then + Countries(Lines) = "null" + Correct = True + Exit Do + Else + Lines = Lines + 1 + End If + Loop + Case "Animals" + Dim Lines As Integer = 0 + Do + If Lines = Animals.Length Then + Exit Do + End If + If Animals(Lines) = Input Then + Animals(Lines) = "null" + Correct = True + Exit Do + Else + Lines = Lines + 1 + End If + Loop + Case "Fruits" + Dim Lines As Integer = 0 + Do + If Lines = Fruits.Length Then + Exit Do + End If + If Fruits(Lines) = Input Then + Fruits(Lines) = "null" + Correct = True + Exit Do + Else + Lines = Lines + 1 + End If + Loop + End Select + If Correct = True Then + lst_Guessed.Items.Add(Input) + TotalGuessed = lst_Guessed.Items.Count + lbl_TotalGuess.Text = "Guessed : " & TotalGuessed & "/" + Select Case cmb_Category.SelectedItem.ToString + Case "Countries" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & Countries.Length + Case "Animals" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length + Case "Fruits" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length + End Select + CheckLevel() + SaveCategory() + End If + End Sub + + Private Sub SaveCategory() + Select Case CurrentCategory + Case "Countries" + File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", Countries) + File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentCountries.kin", lst_Guessed.Items.Cast(Of String).ToArray) + Case "Animals" + File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin", Animals) + File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentAnimals.kin", lst_Guessed.Items.Cast(Of String).ToArray) + 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) End Select End Sub End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.Designer.vb b/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.Designer.vb index cc9992e..333299b 100644 --- a/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.Designer.vb +++ b/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.Designer.vb @@ -23,29 +23,15 @@ Partial Class Desktop _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Me.Button1 = New System.Windows.Forms.Button() Me.DuWM = New System.Windows.Forms.Timer(Me.components) Me.SuspendLayout() ' - 'Button1 - ' - Me.Button1.BackColor = System.Drawing.Color.Black - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(12, 12) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(75, 23) - Me.Button1.TabIndex = 0 - Me.Button1.Text = "term" - Me.Button1.UseVisualStyleBackColor = False - Me.Button1.Visible = False - ' 'Desktop ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.BackColor = System.Drawing.Color.Black Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Controls.Add(Me.Button1) Me.ForeColor = System.Drawing.Color.White Me.Name = "Desktop" Me.ShowIcon = False @@ -56,7 +42,5 @@ Partial Class Desktop Me.ResumeLayout(False) End Sub - - Friend WithEvents Button1 As Button Friend WithEvents DuWM As Timer End Class diff --git a/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.vb b/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.vb index dcfcf33..404f97a 100644 --- a/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.vb +++ b/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.vb @@ -10,7 +10,7 @@ End If End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Private Sub Button1_Click(sender As Object, e As EventArgs) 'DuWM_FirstWindowSet(Console) End Sub End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb index 4a65742..bfef5c7 100644 --- a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb +++ b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb @@ -50,6 +50,7 @@ NewWindow.ChildForm.FormBorderStyle = FormBorderStyle.None NewWindow.ChildForm.WindowState = FormWindowState.Normal NewWindow.ChildForm.Visible = False + NewWindow.Text = ProcessName.Text NewWindow.DuWM_ContainerPanel.Controls.Add(NewWindow.ChildForm) Select Case NewWindow.ChildForm.Visible Case False diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj index 567ed45..bbeeccb 100644 --- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj +++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj @@ -117,6 +117,11 @@ Form + + True + True + KnowledgeInputContent.resx + Uni_KnowledgeInput.vb @@ -269,6 +274,11 @@ DuWM_Shifter.vb + + My.Resources + ResXFileCodeGenerator + KnowledgeInputContent.Designer.vb + Uni_KnowledgeInput.vb @@ -340,6 +350,9 @@ + + + diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb index e688e9c..e7b22f1 100644 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb @@ -7,9 +7,11 @@ Case 1 Select Case AppName Case "knowledge_input" - DuWM_NewProcess(Uni_KnowledgeInput) + If Strings.AvailableFeature(37) = 1 Then + DuWM_NewProcess(Uni_KnowledgeInput) + End If Case "shifter" - If Strings.AvailableFeature(36) = 0 Then + If Strings.AvailableFeature(36) = 1 Then DuWM_NewProcess(DuWM_Shifter) End If End Select