diff options
Diffstat (limited to 'ShiftOS-TheRevival')
19 files changed, 1302 insertions, 37 deletions
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 @@ +'------------------------------------------------------------------------------
+' <auto-generated>
+' 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.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+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.
+ '''<summary>
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''</summary>
+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+ Friend Class KnowledgeInputContent
+
+ Private Shared resourceMan As Global.System.Resources.ResourceManager
+
+ Private Shared resourceCulture As Global.System.Globalization.CultureInfo
+
+ <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
+ Friend Sub New()
+ MyBase.New
+ End Sub
+
+ '''<summary>
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ 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
+
+ '''<summary>
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''</summary>
+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+ Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+
+ '''<summary>
+ ''' 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]";.
+ '''</summary>
+ Friend Shared ReadOnly Property Animals() As String
+ Get
+ Return ResourceManager.GetString("Animals", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
+ ''' 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]";.
+ '''</summary>
+ Friend Shared ReadOnly Property Countries() As String
+ Get
+ Return ResourceManager.GetString("Countries", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
+ ''' 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]";.
+ '''</summary>
+ 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 @@ +<?xml version="1.0" encoding="utf-8"?> +<root> + <!-- + Microsoft ResX Schema + + Version 2.0 + + The primary goals of this format is to allow a simple XML format + that is mostly human readable. The generation and parsing of the + various data types are done through the TypeConverter classes + associated with the data types. + + Example: + + ... ado.net/XML headers & schema ... + <resheader name="resmimetype">text/microsoft-resx</resheader> + <resheader name="version">2.0</resheader> + <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader> + <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader> + <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data> + <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data> + <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64"> + <value>[base64 mime encoded serialized .NET Framework object]</value> + </data> + <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> + <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value> + <comment>This is a comment</comment> + </data> + + There are any number of "resheader" rows that contain simple + name/value pairs. + + Each data row contains a name, and value. The row also contains a + type or mimetype. Type corresponds to a .NET class that support + text/value conversion through the TypeConverter architecture. + Classes that don't support this are serialized and stored with the + mimetype set. + + The mimetype is used for serialized objects, and tells the + ResXResourceReader how to depersist the object. This is currently not + extensible. For a given mimetype the value must be set accordingly: + + Note - application/x-microsoft.net.object.binary.base64 is the format + that the ResXResourceWriter will generate, however the reader can + read any of the formats listed below. + + mimetype: application/x-microsoft.net.object.binary.base64 + value : The object must be serialized with + : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter + : and then encoded with base64 encoding. + + mimetype: application/x-microsoft.net.object.soap.base64 + value : The object must be serialized with + : System.Runtime.Serialization.Formatters.Soap.SoapFormatter + : and then encoded with base64 encoding. + + mimetype: application/x-microsoft.net.object.bytearray.base64 + value : The object must be serialized into a byte array + : using a System.ComponentModel.TypeConverter + : and then encoded with base64 encoding. + --> + <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"> + <xsd:import namespace="http://www.w3.org/XML/1998/namespace" /> + <xsd:element name="root" msdata:IsDataSet="true"> + <xsd:complexType> + <xsd:choice maxOccurs="unbounded"> + <xsd:element name="metadata"> + <xsd:complexType> + <xsd:sequence> + <xsd:element name="value" type="xsd:string" minOccurs="0" /> + </xsd:sequence> + <xsd:attribute name="name" use="required" type="xsd:string" /> + <xsd:attribute name="type" type="xsd:string" /> + <xsd:attribute name="mimetype" type="xsd:string" /> + <xsd:attribute ref="xml:space" /> + </xsd:complexType> + </xsd:element> + <xsd:element name="assembly"> + <xsd:complexType> + <xsd:attribute name="alias" type="xsd:string" /> + <xsd:attribute name="name" type="xsd:string" /> + </xsd:complexType> + </xsd:element> + <xsd:element name="data"> + <xsd:complexType> + <xsd:sequence> + <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> + <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" /> + </xsd:sequence> + <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" /> + <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" /> + <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" /> + <xsd:attribute ref="xml:space" /> + </xsd:complexType> + </xsd:element> + <xsd:element name="resheader"> + <xsd:complexType> + <xsd:sequence> + <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> + </xsd:sequence> + <xsd:attribute name="name" type="xsd:string" use="required" /> + </xsd:complexType> + </xsd:element> + </xsd:choice> + </xsd:complexType> + </xsd:element> + </xsd:schema> + <resheader name="resmimetype"> + <value>text/microsoft-resx</value> + </resheader> + <resheader name="version"> + <value>2.0</value> + </resheader> + <resheader name="reader"> + <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> + </resheader> + <resheader name="writer"> + <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> + </resheader> + <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> + <data name="Animals" type="System.Resources.ResXFileRef, System.Windows.Forms"> + <value>animals.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> + </data> + <data name="Countries" type="System.Resources.ResXFileRef, System.Windows.Forms"> + <value>countries.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> + </data> + <data name="Fruits" type="System.Resources.ResXFileRef, System.Windows.Forms"> + <value>fruits.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> + </data> +</root>
\ 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 <System.Diagnostics.DebuggerStepThrough()> _ 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 @@ <Compile Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.vb"> <SubType>Form</SubType> </Compile> + <Compile Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.Designer.vb"> + <AutoGen>True</AutoGen> + <DesignTime>True</DesignTime> + <DependentUpon>KnowledgeInputContent.resx</DependentUpon> + </Compile> <Compile Include="MainForms\Applications\Universal\Knowledge Input\Uni_KnowledgeInput.Designer.vb"> <DependentUpon>Uni_KnowledgeInput.vb</DependentUpon> </Compile> @@ -269,6 +274,11 @@ <EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.resx"> <DependentUpon>DuWM_Shifter.vb</DependentUpon> </EmbeddedResource> + <EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.resx"> + <CustomToolNamespace>My.Resources</CustomToolNamespace> + <Generator>ResXFileCodeGenerator</Generator> + <LastGenOutput>KnowledgeInputContent.Designer.vb</LastGenOutput> + </EmbeddedResource> <EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Uni_KnowledgeInput.resx"> <DependentUpon>Uni_KnowledgeInput.vb</DependentUpon> </EmbeddedResource> @@ -340,6 +350,9 @@ </ItemGroup> <ItemGroup> <None Include="Resources\CurrentVersion.txt" /> + <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Animals.txt" /> + <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Countries.txt" /> + <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Fruits.txt" /> <Content Include="MainForms\rev.txt" /> <Content Include="Resources\man Manuals\zip.txt" /> <Content Include="Resources\man Manuals\textpad.txt" /> 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 |