diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input')
6 files changed, 160 insertions, 9 deletions
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]";.
'''</summary>
Friend Shared ReadOnly Property Countries() As String
Get
@@ -250,5 +251,62 @@ Namespace My.Resources Return ResourceManager.GetString("Fruits", resourceCulture)
End Get
End Property
+
+ '''<summary>
+ ''' 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]";.
+ '''</summary>
+ 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 @@ <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> + <data name="US_States" type="System.Resources.ResXFileRef, System.Windows.Forms"> + <value>us_states.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/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 |