From d7cdf48c58d3663550a88975747c3db04efe7c29 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 27 Nov 2022 20:58:48 +0700 Subject: nice try on file skimmer lol --- .../Knowledge Input/Contents/Countries.txt | 7 ++- .../Contents/KnowledgeInputContent.Designer.vb | 66 ++++++++++++++++++++-- .../Contents/KnowledgeInputContent.resx | 3 + .../Knowledge Input/Contents/US_States.txt | 51 +++++++++++++++++ .../Knowledge Input/Uni_KnowledgeInput.Designer.vb | 2 +- .../Knowledge Input/Uni_KnowledgeInput.vb | 40 ++++++++++++- 6 files changed, 160 insertions(+), 9 deletions(-) create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/US_States.txt (limited to 'ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input') diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt index 568a289..41bd694 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt @@ -7,7 +7,7 @@ antigua and barbuda argentina armenia australia -austia +austria azerbaijan bahamas bahrain @@ -23,7 +23,7 @@ bosnia and herzegovina botswana brazil brunei -bulgraia +bulgaria burkina faso burundi cambodia @@ -37,7 +37,8 @@ china colombia comoros democratic republic of the congo -republic of the congocosta rica +republic of the congo +costa rica croatia cuba cyprus diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb index 29f224a..dea5e20 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb @@ -145,7 +145,7 @@ Namespace My.Resources '''argentina '''armenia '''australia - '''austia + '''austria '''azerbaijan '''bahamas '''bahrain @@ -161,7 +161,7 @@ Namespace My.Resources '''botswana '''brazil '''brunei - '''bulgraia + '''bulgaria '''burkina faso '''burundi '''cambodia @@ -175,13 +175,14 @@ Namespace My.Resources '''colombia '''comoros '''democratic republic of the congo - '''republic of the congocosta rica + '''republic of the congo + '''costa rica '''croatia '''cuba '''cyprus '''czechia '''denmark - '''djibou [rest of string was truncated]";. + '''dji [rest of string was truncated]";. ''' Friend Shared ReadOnly Property Countries() As String Get @@ -250,5 +251,62 @@ Namespace My.Resources Return ResourceManager.GetString("Fruits", resourceCulture) End Get End Property + + ''' + ''' Looks up a localized string similar to alabama + '''alaska + '''arizona + '''arkansas + '''california + '''colorado + '''connecticut + '''delaware + '''florida + '''georgia + '''hawaii + '''idaho + '''illinois + '''indiana + '''iowa + '''kansas + '''kentucky + '''louisiana + '''maine + '''maryland + '''massachusetts + '''michigan + '''minnesota + '''mississippi + '''missouri + '''montana + '''nebraska + '''nevada + '''new hampshire + '''new jersey + '''new mexico + '''new york + '''north carolina + '''north dakota + '''ohio + '''oklahoma + '''oregon + '''pennsylvania + '''rhode island + '''south carolina + '''south dakota + '''tennessee + '''texas + '''utah + '''vermont + '''virginia + '''washington + '''washington dc + '''west virgi [rest of string was truncated]";. + ''' + Friend Shared ReadOnly Property US_States() As String + Get + Return ResourceManager.GetString("US_States", resourceCulture) + End Get + End Property End Class End Namespace diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx index d86df8e..7efe96f 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx @@ -127,4 +127,7 @@ fruits.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + + us_states.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/US_States.txt b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/US_States.txt new file mode 100644 index 0000000..f6bf5c9 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/US_States.txt @@ -0,0 +1,51 @@ +alabama +alaska +arizona +arkansas +california +colorado +connecticut +delaware +florida +georgia +hawaii +idaho +illinois +indiana +iowa +kansas +kentucky +louisiana +maine +maryland +massachusetts +michigan +minnesota +mississippi +missouri +montana +nebraska +nevada +new hampshire +new jersey +new mexico +new york +north carolina +north dakota +ohio +oklahoma +oregon +pennsylvania +rhode island +south carolina +south dakota +tennessee +texas +utah +vermont +virginia +washington +washington dc +west virginia +wisconsin +wyoming \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb index 54ccdf0..2ffa0e6 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb @@ -51,7 +51,7 @@ Partial Class Uni_KnowledgeInput Me.cmb_Category.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) Me.cmb_Category.ForeColor = System.Drawing.Color.Black Me.cmb_Category.FormattingEnabled = True - Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"}) + Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits", "US States"}) Me.cmb_Category.Location = New System.Drawing.Point(20, 96) Me.cmb_Category.Name = "cmb_Category" Me.cmb_Category.Size = New System.Drawing.Size(266, 31) diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb index a8aa28c..6d30405 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb @@ -1,9 +1,10 @@ Imports System.IO Public Class Uni_KnowledgeInput - Public Countries(193) As String + Public Countries(194) As String Public Animals(226) As String Public Fruits(75) As String + Public US_States(50) As String Public TotalGuessed As Integer Public CurrentCategory As String Public Level As Integer @@ -26,6 +27,13 @@ Public Class Uni_KnowledgeInput File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", My.Resources.KnowledgeInputContent.Fruits) End If End If + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin") = True Then + + Else + If Strings.AvailableFeature(42) = 1 Then + File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin", My.Resources.KnowledgeInputContent.US_States) + End If + End If Else Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput") File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", My.Resources.KnowledgeInputContent.Countries) @@ -91,6 +99,12 @@ Public Class Uni_KnowledgeInput End If Available = True Fruits = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin") + Case "US States" + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin") = True Then + lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin")) + End If + Available = True + US_States = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin") End Select If Available = True Then TotalGuessed = lst_Guessed.Items.Count @@ -102,6 +116,8 @@ Public Class Uni_KnowledgeInput lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length Case "Fruits" lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length + Case "US States" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length End Select Level = Math.Ceiling((TotalGuessed / 10)) CheckLevel() @@ -116,6 +132,9 @@ Public Class Uni_KnowledgeInput If Strings.AvailableFeature(39) = 0 Then cmb_Category.Items.Remove("Fruits") End If + If Strings.AvailableFeature(42) = 0 Then + cmb_Category.Items.Remove("US States") + End If End Sub Private Sub CheckLevel() @@ -177,6 +196,20 @@ Public Class Uni_KnowledgeInput Lines = Lines + 1 End If Loop + Case "US States" + Dim Lines As Integer = 0 + Do + If Lines = US_States.Length Then + Exit Do + End If + If US_States(Lines) = Input Then + US_States(Lines) = "null" + Correct = True + Exit Do + Else + Lines = Lines + 1 + End If + Loop End Select If Correct = True Then lst_Guessed.Items.Add(Input) @@ -189,6 +222,8 @@ Public Class Uni_KnowledgeInput lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length Case "Fruits" lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length + Case "US States" + lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length End Select CheckLevel() SaveCategory() @@ -206,6 +241,9 @@ Public Class Uni_KnowledgeInput Case "Fruits" File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", Fruits) File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin", lst_Guessed.Items.Cast(Of String).ToArray) + Case "US States" + File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin", US_States) + File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin", lst_Guessed.Items.Cast(Of String).ToArray) End Select End Sub End Class \ No newline at end of file -- cgit v1.2.3