Public Class Knowledge_Input Public rolldownsize As Integer Public oldbordersize As Integer Public oldtitlebarheight As Integer Public justopened As Boolean = False Public needtorollback As Boolean = False Public minimumsizewidth As Integer = 0 Public minimumsizeheight As Integer = 0 Dim guessalreadydone As Boolean Dim guesscorrect As Boolean Dim levelup As Boolean Dim rewardbase As Integer Dim savecontent() As String Dim totalguessed As Integer Dim level As Integer Dim tillnextlevel As Integer Dim animalslist(226) As String Dim fruitslist(75) As String Dim countrieslist(232) As String Dim carbrandslist(328) As String Dim gameconsoleslist(124) As String Dim elementslist(117) As String Private Sub Knowledge_Input_Load(sender As Object, e As EventArgs) Handles MyBase.Load justopened = True setuptitlebar() setupborders() ShiftOSDesktop.setcolours() pnlcategorydisplay.Hide() Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 setskin() ShiftOSDesktop.pnlpanelbuttonknowledgeinput.SendToBack() ShiftOSDesktop.setuppanelbuttons() ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonknowledgeinput, ShiftOSDesktop.tbknowledgeinputicon, ShiftOSDesktop.tbknowledgeinputtext, True) ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 level = 1 tillnextlevel = 10 makeanimallist() makefruitlist() makecountrieslist() makecarbrandslist() makegameconsoleslist() makeelementslist() If ShiftOSDesktop.boughtkicarbrands = True Then If ListBox1.Items.Contains("Car Brands") Then Else ListBox1.Items.Add("Car Brands") End If End If If ShiftOSDesktop.boughtkigameconsoles = True Then If ListBox1.Items.Contains("Game Consoles") Then Else ListBox1.Items.Add("Game Consoles") End If End If If ShiftOSDesktop.boughtkielements = True Then If ListBox1.Items.Contains("Elements") Then Else ListBox1.Items.Add("Elements") End If End If End Sub Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 'Make terminal appear If e.KeyCode = Keys.T AndAlso e.Control Then Terminal.Show() Terminal.Visible = True Terminal.BringToFront() End If 'Movable Windows If ShiftOSDesktop.boughtmovablewindows = True Then If e.KeyCode = Keys.A AndAlso e.Control Then e.Handled = True Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y) e.SuppressKeyPress = True End If If e.KeyCode = Keys.D AndAlso e.Control Then e.Handled = True Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y) e.SuppressKeyPress = True End If If e.KeyCode = Keys.W AndAlso e.Control Then e.Handled = True Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber) e.SuppressKeyPress = True End If If e.KeyCode = Keys.S AndAlso e.Control Then e.Handled = True Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber) e.SuppressKeyPress = True End If End If End Sub Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown ' Handle Draggable Windows If ShiftOSDesktop.boughtdraggablewindows = True Then If e.Button = MouseButtons.Left Then titlebar.Capture = False lbtitletext.Capture = False pnlicon.Capture = False pgtoplcorner.Capture = False pgtoprcorner.Capture = False Const WM_NCLBUTTONDOWN As Integer = &HA1S Const HTCAPTION As Integer = 2 Dim msg As Message = _ Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _ New IntPtr(HTCAPTION), IntPtr.Zero) Me.DefWndProc(msg) End If ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine End If End Sub Public Sub setupborders() If ShiftOSDesktop.boughtwindowborders = False Then pgleft.Hide() pgbottom.Hide() pgright.Hide() Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height) End If End Sub Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click Me.Close() End Sub Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1) End Sub Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0) End Sub Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2) End Sub Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click ShiftOSDesktop.minimizeprogram(Me) End Sub Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1) End Sub Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0) End Sub Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click rollupanddown() End Sub Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1) End Sub Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0) End Sub Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2) End Sub Public Sub setuptitlebar() If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True pgleft.Width = ShiftOSDesktop.windowbordersize pgright.Width = ShiftOSDesktop.windowbordersize pgbottom.Height = ShiftOSDesktop.windowbordersize titlebar.Height = ShiftOSDesktop.titlebarheight If justopened = True Then Me.Size = New Size(673, 304) 'put the default size of your window here Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30) Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize) oldbordersize = ShiftOSDesktop.windowbordersize oldtitlebarheight = ShiftOSDesktop.titlebarheight justopened = False Else If Me.Visible = True Then Me.Hide() Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30) Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) oldbordersize = ShiftOSDesktop.windowbordersize oldtitlebarheight = ShiftOSDesktop.titlebarheight Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30) Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize) rolldownsize = Me.Height If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide() Me.Show() End If End If If ShiftOSDesktop.showwindowcorners = True Then pgtoplcorner.Show() pgtoprcorner.Show() pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth Else pgtoplcorner.Hide() pgtoprcorner.Hide() End If If ShiftOSDesktop.boughttitlebar = False Then titlebar.Hide() Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height) End If If ShiftOSDesktop.boughttitletext = False Then lbtitletext.Hide() Else lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle) lbtitletext.Text = ShiftOSDesktop.knowledgeinputname lbtitletext.Show() End If If ShiftOSDesktop.boughtclosebutton = False Then closebutton.Hide() Else closebutton.BackColor = ShiftOSDesktop.closebuttoncolour closebutton.Height = ShiftOSDesktop.closebuttonheight closebutton.Width = ShiftOSDesktop.closebuttonwidth closebutton.Show() End If If ShiftOSDesktop.boughtrollupbutton = False Then rollupbutton.Hide() Else rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth rollupbutton.Show() End If If ShiftOSDesktop.boughtminimizebutton = False Then minimizebutton.Hide() Else minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth minimizebutton.Show() End If If ShiftOSDesktop.boughtwindowborders = True Then closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop) rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop) minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop) Select Case ShiftOSDesktop.titletextposition Case "Left" lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop) Case "Centre" lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop) End Select lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour Else closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop) rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop) minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop) Select Case ShiftOSDesktop.titletextposition Case "Left" lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop) Case "Centre" lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop) End Select lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour End If If ShiftOSDesktop.boughtknowledgeinputicon = True Then pnlicon.Visible = True pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) pnlicon.Image = ShiftOSDesktop.knowledgeinputicontitlebar 'Replace with the correct icon for the program. End If End Sub Public Sub rollupanddown() If Me.Height = Me.titlebar.Height Then pgleft.Show() pgbottom.Show() pgright.Show() Me.Height = rolldownsize Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight) Else Me.MinimumSize = New Size(0, 0) pgleft.Hide() pgbottom.Hide() pgright.Hide() rolldownsize = Me.Height Me.Height = Me.titlebar.Height End If End Sub Public Sub setskin() If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle 'remove background colour when image is present If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour End Sub Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1 Me.Hide() ShiftOSDesktop.setuppanelbuttons() End Sub 'end of general setup Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.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 sf.Alignment = StringAlignment.Center Using b As New SolidBrush(e.ForeColor) e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Font, b, e.Bounds, sf) End Using e.DrawFocusRectangle() End Sub Private Sub listblistedstuff_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles listblistedstuff.DrawItem e.DrawBackground() If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then e.Graphics.FillRectangle(Brushes.Black, e.Bounds) End If Using b As New SolidBrush(e.ForeColor) e.Graphics.DrawString(listblistedstuff.GetItemText(listblistedstuff.Items(e.Index)), e.Font, b, e.Bounds) End Using e.DrawFocusRectangle() End Sub Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged On Error Resume Next 'Remember to create the files for each category in the hijack screen and add the category in the design view and make the countries list in this load event Select Case ListBox1.SelectedItem.ToString Case "Animals" loadsavepoint("Animals", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Animals.lst", "There are many animals out there! Can you list them all?" & Environment.NewLine _ & "Note that you get points for listing animals... not animal breeds!", animalslist) Case "Fruits" loadsavepoint("Fruits", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Fruits.lst", "Do you get your daily serving of fruit each day?" & Environment.NewLine _ & "Really...? See if you can list them then ;)", fruitslist) Case "Countries" loadsavepoint("Countries", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Countries.lst", "Ever wanted to travel the entire world?" & Environment.NewLine _ & "Well before you do see if you can list every country in the world!", countrieslist) Case "Car Brands" loadsavepoint("Car Brands", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Car Brands.lst", "Can you list every single car brand?" & Environment.NewLine _ & "Don't use words like automobiles, motors or cars!", carbrandslist) Case "Game Consoles" loadsavepoint("Game Consoles", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Game Consoles.lst", "Do you call yourself a gamer?" & Environment.NewLine _ & "Earn that title by listing non-handheld game consoles!", gameconsoleslist) Case "Elements" loadsavepoint("Elements", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Elements.lst", "Have you memorized the periodic table of elements?" & Environment.NewLine _ & "No? Well don't even attempt trying to guess them all here!", elementslist) End Select End Sub Private Sub handleword() Select Case ListBox1.SelectedItem.ToString Case "Animals" handlewordtype(animalslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Animals.lst") Case "Fruits" handlewordtype(fruitslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Fruits.lst") Case "Countries" handlewordtype(countrieslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Countries.lst") Case "Car Brands" handlewordtype(carbrandslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Car Brands.lst") Case "Game Consoles" handlewordtype(gameconsoleslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Game Consoles.lst") Case "Elements" handlewordtype(elementslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Elements.lst") End Select guessbox.Text = "" listblistedstuff.TopIndex = listblistedstuff.Items.Count - 1 End Sub Private Sub btnquit_Click(sender As Object, e As EventArgs) Me.Close() End Sub Private Sub btnstart_Click(sender As Object, e As EventArgs) Handles btnstart.Click handleword() End Sub Private Sub guessbox_click(sender As Object, e As EventArgs) Handles guessbox.MouseClick guessbox.Text = "" End Sub Private Sub guessbox_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles guessbox.KeyDown If e.KeyCode = Keys.Enter Then e.SuppressKeyPress = True handleword() End If End Sub Private Sub decider_Tick(sender As Object, e As EventArgs) Handles decider.Tick lblcurrentlevel.Text = "Current Level: " & level lblnextreward.Text = "Reward for completing level " & level & " : " & rewardbase * level & "CP" guessalreadydone = False guesscorrect = False levelup = False decider.Interval = 500 decider.Stop() End Sub Private Sub loadsavepoint(ByVal title As String, ByVal reward As Integer, ByVal loadpath As String, ByVal info As String, ByVal listtype() As String) lblcategory.Text = title rewardbase = reward listblistedstuff.Items.Clear() listblistedstuff.Items.AddRange(IO.File.ReadAllLines(loadpath)) totalguessed = listblistedstuff.Items.Count level = Math.Ceiling((totalguessed / 10)) tillnextlevel = Math.Abs(totalguessed - (level * 10)) If tillnextlevel = 0 Then level = level + 1 tillnextlevel = 10 End If lblcatedescription.Text = info pnlcategorydisplay.Show() lbltillnextlevel.Text = "Words Until Next Level: " & tillnextlevel lblcurrentlevel.Text = "Current Level: " & level lbltotal.Text = "Guessed: " & totalguessed & "/" & listtype.Length lblnextreward.Text = "Reward for completing level " & level & " : " & rewardbase * level & "CP" End Sub Private Sub handlewordtype(ByVal listtype() As String, ByVal savepath As String) Dim userguess As String = guessbox.Text userguess = userguess.ToLower For Each Str As String In listtype If Str = userguess Then If listblistedstuff.Items.Contains(userguess) Then guessalreadydone = True ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Knowledge Input Already Did " & ListBox1.SelectedItem.ToString & ": " & userguess & Environment.NewLine Else guesscorrect = True listblistedstuff.Items.Add(userguess) ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Knowledge Input Guessed " & ListBox1.SelectedItem.ToString & ": " & userguess & Environment.NewLine tillnextlevel = tillnextlevel - 1 totalguessed = totalguessed + 1 IO.File.WriteAllLines(savepath, listblistedstuff.Items.Cast(Of String).ToArray) If tillnextlevel = 0 Then levelup = True tillnextlevel = 10 ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + rewardbase * level Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/SKernal.sft", False) objWriter.Write(ShiftOSDesktop.codepoints) objWriter.Close() level = level + 1 ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Reached " & ListBox1.SelectedItem.ToString & " Level: " & level & Environment.NewLine End If End If End If Next lbltillnextlevel.Text = "Words Until Next Level: " & tillnextlevel lblcurrentlevel.Text = "Current Level: " & level lbltotal.Text = "Guessed: " & totalguessed & "/" & listtype.Length lblnextreward.Text = "Reward for completing level " & level & " : " & rewardbase * level & "CP" If levelup = True Then decider.Interval = 2000 lblcurrentlevel.Text = "Level Up!" lblnextreward.Text = "You have earned " & rewardbase * (level - 1) & " Code Points!" ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User has " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine decider.Start() Else If guessalreadydone = True Then lblcurrentlevel.Text = "Already Guessed" decider.Start() Else If guesscorrect = True Then lblcurrentlevel.Text = "Correct :)" decider.Start() Else lblcurrentlevel.Text = "Wrong :(" ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Knowledge Input Wrong " & ListBox1.SelectedItem.ToString & ": " & userguess & Environment.NewLine decider.Start() End If End If End If End Sub Private Sub makeanimallist() animalslist(0) = "aardvark" animalslist(1) = "albatross" animalslist(2) = "alligator" animalslist(3) = "alpaca" animalslist(4) = "ant" animalslist(5) = "anteater" animalslist(6) = "antelope" animalslist(7) = "ape" animalslist(8) = "armadillo" animalslist(9) = "ass" animalslist(10) = "baboon" animalslist(11) = "badger" animalslist(12) = "barracuda" animalslist(13) = "bat" animalslist(14) = "bear" animalslist(15) = "beaver" animalslist(16) = "bee" animalslist(17) = "bison" animalslist(18) = "boar" animalslist(19) = "buffalo" animalslist(20) = "butterfly" animalslist(21) = "camel" animalslist(22) = "caribou" animalslist(23) = "cat" animalslist(24) = "caterpillar" animalslist(25) = "cow" animalslist(26) = "chamois" animalslist(27) = "cheetah" animalslist(28) = "chicken" animalslist(29) = "chimpanzee" animalslist(30) = "chinchilla" animalslist(31) = "chough" animalslist(32) = "clam" animalslist(33) = "cobra" animalslist(34) = "cockroach" animalslist(35) = "cod" animalslist(36) = "cormorant" animalslist(37) = "coyote" animalslist(38) = "crab" animalslist(39) = "crane" animalslist(40) = "crocodile" animalslist(41) = "crow" animalslist(42) = "curlew" animalslist(43) = "deer" animalslist(44) = "dinosaur" animalslist(45) = "dog" animalslist(46) = "dogfish" animalslist(47) = "dolphin" animalslist(48) = "donkey" animalslist(49) = "dotterel" animalslist(50) = "dove" animalslist(51) = "dragonfly" animalslist(52) = "duck" animalslist(53) = "dugong" animalslist(54) = "dunlin" animalslist(55) = "eagle" animalslist(56) = "echidna" animalslist(57) = "eel" animalslist(58) = "eland" animalslist(59) = "elephant" animalslist(60) = "elephant seal" animalslist(61) = "elk" animalslist(62) = "emu" animalslist(63) = "falcon" animalslist(64) = "ferret" animalslist(65) = "finch" animalslist(66) = "fish" animalslist(67) = "flamingo" animalslist(68) = "fly" animalslist(69) = "fox" animalslist(70) = "frog" animalslist(71) = "galago" animalslist(72) = "gaur" animalslist(73) = "gazelle" animalslist(74) = "gerbil" animalslist(75) = "giant panda" animalslist(76) = "giraffe" animalslist(77) = "gnat" animalslist(78) = "gnu" animalslist(79) = "goat" animalslist(80) = "goldfinch" animalslist(81) = "goldfish" animalslist(82) = "goose" animalslist(83) = "gorilla" animalslist(84) = "goshawk" animalslist(85) = "grasshopper" animalslist(86) = "grouse" animalslist(87) = "guanaco" animalslist(88) = "guineafowl" animalslist(89) = "guinea pig" animalslist(90) = "gull" animalslist(91) = "hamster" animalslist(92) = "hare" animalslist(93) = "hawk" animalslist(94) = "hedgehog" animalslist(95) = "heron" animalslist(96) = "herring" animalslist(97) = "hippopotamus" animalslist(98) = "hornet" animalslist(99) = "horse" animalslist(100) = "human" animalslist(101) = "humming bird" animalslist(102) = "hyena" animalslist(103) = "jackal" animalslist(104) = "jaguar" animalslist(105) = "jay" animalslist(106) = "jellyfish" animalslist(107) = "kangaroo" animalslist(108) = "koala" animalslist(109) = "komodo dragon" animalslist(110) = "kouprey" animalslist(111) = "kudu" animalslist(112) = "lizard" animalslist(113) = "lark" animalslist(114) = "lemur" animalslist(115) = "leopard" animalslist(116) = "lion" animalslist(117) = "llama" animalslist(118) = "lobster" animalslist(119) = "locust" animalslist(120) = "loris" animalslist(121) = "louse" animalslist(122) = "lyrebird" animalslist(123) = "magpie" animalslist(124) = "mallard" animalslist(125) = "manatee" animalslist(126) = "marten" animalslist(127) = "meerkat" animalslist(128) = "mink" animalslist(129) = "mole" animalslist(130) = "monkey" animalslist(131) = "moose" animalslist(132) = "mosquito" animalslist(133) = "mouse" animalslist(134) = "mule" animalslist(135) = "narwhal" animalslist(136) = "newt" animalslist(137) = "nightingale" animalslist(138) = "octopus" animalslist(139) = "okapi" animalslist(140) = "opossum" animalslist(141) = "oryx" animalslist(142) = "ostrich" animalslist(143) = "otter" animalslist(144) = "owl" animalslist(145) = "ox" animalslist(146) = "oyster" animalslist(147) = "panther" animalslist(148) = "parrot" animalslist(149) = "partridge" animalslist(150) = "peafowl" animalslist(151) = "pelican" animalslist(152) = "penguin" animalslist(153) = "pheasant" animalslist(154) = "pig" animalslist(155) = "pigeon" animalslist(156) = "pony" animalslist(157) = "porcupine" animalslist(158) = "porpoise" animalslist(159) = "prairie dog" animalslist(160) = "quail" animalslist(161) = "quelea" animalslist(162) = "rabbit" animalslist(163) = "raccoon" animalslist(164) = "rail" animalslist(165) = "ram" animalslist(166) = "rat" animalslist(167) = "raven" animalslist(168) = "red deer" animalslist(169) = "red panda" animalslist(170) = "reindeer" animalslist(171) = "rhinoceros" animalslist(172) = "rook" animalslist(173) = "ruff" animalslist(174) = "salamander" animalslist(175) = "salmon" animalslist(176) = "sand dollar" animalslist(177) = "sandpiper" animalslist(178) = "sardine" animalslist(179) = "scorpion" animalslist(180) = "sea lion" animalslist(181) = "sea urchin" animalslist(182) = "seahorse" animalslist(183) = "seal" animalslist(184) = "shark" animalslist(185) = "sheep" animalslist(186) = "shrew" animalslist(187) = "shrimp" animalslist(188) = "skunk" animalslist(189) = "snail" animalslist(190) = "snake" animalslist(191) = "spider" animalslist(192) = "squid" animalslist(193) = "squirrel" animalslist(194) = "starling" animalslist(195) = "stingray" animalslist(196) = "stink bug" animalslist(197) = "stork" animalslist(198) = "swallow" animalslist(199) = "swan" animalslist(200) = "tapir" animalslist(201) = "tarsier" animalslist(202) = "termite" animalslist(203) = "tiger" animalslist(204) = "toad" animalslist(205) = "trout" animalslist(206) = "turkey" animalslist(207) = "turtle" animalslist(208) = "vicuña" animalslist(209) = "viper" animalslist(210) = "vulture" animalslist(211) = "wallaby" animalslist(212) = "walrus" animalslist(213) = "wasp" animalslist(214) = "water buffalo" animalslist(215) = "weasel" animalslist(216) = "whale" animalslist(217) = "wolf" animalslist(218) = "wolverine" animalslist(219) = "wombat" animalslist(220) = "woodcock" animalslist(221) = "woodpecker" animalslist(222) = "worm" animalslist(223) = "wren" animalslist(224) = "yak" animalslist(225) = "zebra" animalslist(226) = "bird" End Sub Private Sub makefruitlist() fruitslist(0) = "apple" fruitslist(1) = "apricot" fruitslist(2) = "avocado" fruitslist(3) = "banana" fruitslist(4) = "breadfruit" fruitslist(5) = "bilberry" fruitslist(6) = "blackberry" fruitslist(7) = "blackcurrant" fruitslist(8) = "blueberry" fruitslist(9) = "boysenberry" fruitslist(10) = "cantaloupe" fruitslist(11) = "currant" fruitslist(12) = "cherry" fruitslist(13) = "cherimoya" fruitslist(14) = "chili" fruitslist(15) = "cloudberry" fruitslist(16) = "coconut" fruitslist(17) = "damson" fruitslist(18) = "date" fruitslist(19) = "dragonfruit" fruitslist(20) = "durian" fruitslist(21) = "elderberry" fruitslist(22) = "feijoa" fruitslist(23) = "fig" fruitslist(24) = "gooseberry" fruitslist(25) = "grape" fruitslist(26) = "grapefruit" fruitslist(27) = "guava" fruitslist(28) = "huckleberry" fruitslist(29) = "honeydew" fruitslist(30) = "jackfruit" fruitslist(31) = "jambul" fruitslist(32) = "jujube" fruitslist(33) = "kiwi fruit" fruitslist(34) = "kumquat" fruitslist(35) = "legume" fruitslist(36) = "lemon" fruitslist(37) = "lime" fruitslist(38) = "loquat" fruitslist(39) = "lychee" fruitslist(40) = "mango" fruitslist(41) = "melon" fruitslist(42) = "canary melon" fruitslist(43) = "cantaloupe" fruitslist(44) = "honeydew" fruitslist(45) = "watermelon" fruitslist(46) = "rock melon" fruitslist(47) = "nectarine" fruitslist(48) = "nut" fruitslist(49) = "orange" fruitslist(50) = "clementine" fruitslist(51) = "mandarine" fruitslist(52) = "tangerine" fruitslist(53) = "papaya" fruitslist(54) = "passionfruit" fruitslist(55) = "peach" fruitslist(56) = "bell pepper" fruitslist(57) = "pear" fruitslist(58) = "persimmon" fruitslist(59) = "physalis" fruitslist(60) = "plum" fruitslist(61) = "pineapple" fruitslist(62) = "pomegranate" fruitslist(63) = "pomelo" fruitslist(64) = "purple mangosteen" fruitslist(65) = "quince" fruitslist(66) = "raspberry" fruitslist(67) = "rambutan" fruitslist(68) = "redcurrant" fruitslist(69) = "salal berry" fruitslist(70) = "satsuma" fruitslist(71) = "star fruit" fruitslist(72) = "strawberry" fruitslist(73) = "tamarillo" fruitslist(74) = "tomato" fruitslist(75) = "ugli fruit" End Sub Private Sub makecountrieslist() countrieslist(0) = "afghanistan" countrieslist(1) = "albania" countrieslist(2) = "algeria" countrieslist(3) = "american samoa" countrieslist(4) = "andorra" countrieslist(5) = "angola" countrieslist(6) = "anguilla" countrieslist(7) = "antigua" countrieslist(8) = "argentina" countrieslist(9) = "armenia" countrieslist(10) = "aruba" countrieslist(11) = "australia" countrieslist(12) = "austria" countrieslist(13) = "azerbaijan" countrieslist(14) = "bahamas" countrieslist(15) = "bahrain" countrieslist(16) = "bangladesh" countrieslist(17) = "barbados" countrieslist(18) = "barbuda" countrieslist(19) = "belarus" countrieslist(20) = "belgium" countrieslist(21) = "belize" countrieslist(22) = "benin" countrieslist(23) = "bermuda" countrieslist(24) = "bhutan" countrieslist(25) = "bolivia" countrieslist(26) = "bosnia" countrieslist(27) = "botswana" countrieslist(28) = "bouvet island" countrieslist(29) = "brazil" countrieslist(30) = "brunei" countrieslist(31) = "bulgaria" countrieslist(32) = "burkina faso" countrieslist(33) = "burundi" countrieslist(34) = "cambodia" countrieslist(35) = "cameroon" countrieslist(36) = "canada" countrieslist(37) = "cape verde" countrieslist(38) = "cayman islands" countrieslist(39) = "central african republic" countrieslist(40) = "chad" countrieslist(41) = "chile" countrieslist(42) = "china" countrieslist(43) = "christmas island" countrieslist(44) = "cocos islands" countrieslist(45) = "colombia" countrieslist(46) = "comoros" countrieslist(47) = "democratic republic of the congo" countrieslist(48) = "republic of congo" countrieslist(49) = "cook islands" countrieslist(50) = "costa rica" countrieslist(51) = "croatia" countrieslist(52) = "cuba" countrieslist(53) = "cyprus" countrieslist(54) = "czech republic" countrieslist(55) = "denmark" countrieslist(56) = "djibouti" countrieslist(57) = "dominica" countrieslist(58) = "dominican republic" countrieslist(59) = "ecuador" countrieslist(60) = "egypt" countrieslist(61) = "el salvador" countrieslist(62) = "equatorial guinea" countrieslist(63) = "eritrea" countrieslist(64) = "estonia" countrieslist(65) = "ethiopia" countrieslist(66) = "falkland islands" countrieslist(67) = "faroe islands" countrieslist(68) = "fiji" countrieslist(69) = "finland" countrieslist(70) = "france" countrieslist(71) = "french guiana" countrieslist(72) = "gabon" countrieslist(73) = "gambia" countrieslist(74) = "georgia" countrieslist(75) = "germany" countrieslist(76) = "ghana" countrieslist(77) = "gibraltar" countrieslist(78) = "greece" countrieslist(79) = "greenland" countrieslist(80) = "grenada" countrieslist(81) = "guadeloupe" countrieslist(82) = "guam" countrieslist(83) = "guatemala" countrieslist(84) = "guinea" countrieslist(85) = "guinea bissau" countrieslist(86) = "guyana" countrieslist(87) = "haiti" countrieslist(88) = "holy see" countrieslist(89) = "honduras" countrieslist(90) = "hong kong" countrieslist(91) = "hungary" countrieslist(92) = "iceland" countrieslist(93) = "india" countrieslist(94) = "indonesia" countrieslist(95) = "iran" countrieslist(96) = "iraq" countrieslist(97) = "ireland" countrieslist(98) = "israel" countrieslist(99) = "italy" countrieslist(100) = "ivory coas" countrieslist(101) = "jamaica" countrieslist(102) = "japan" countrieslist(103) = "jordan" countrieslist(104) = "kazakhstan" countrieslist(105) = "kenya" countrieslist(106) = "kiribati" countrieslist(107) = "kuwait" countrieslist(108) = "kyrgyzstan" countrieslist(109) = "laos" countrieslist(110) = "latvia" countrieslist(111) = "lebanon" countrieslist(112) = "lesotho" countrieslist(113) = "liberia" countrieslist(114) = "libya" countrieslist(115) = "liechtenstein" countrieslist(116) = "lithuania" countrieslist(117) = "luxembourg" countrieslist(118) = "macau" countrieslist(119) = "macedonia" countrieslist(120) = "madagascar" countrieslist(121) = "malawi" countrieslist(122) = "malaysia" countrieslist(123) = "maldives" countrieslist(124) = "mali" countrieslist(125) = "malta" countrieslist(126) = "marshall islands" countrieslist(127) = "martinique" countrieslist(128) = "mauritania" countrieslist(129) = "mauritius" countrieslist(130) = "mayotte" countrieslist(131) = "mexico" countrieslist(132) = "micronesia" countrieslist(133) = "moldova" countrieslist(134) = "monaco" countrieslist(135) = "mongolia" countrieslist(136) = "montenegro" countrieslist(137) = "montserrat" countrieslist(138) = "morocco" countrieslist(139) = "mozambique" countrieslist(140) = "myanmar" countrieslist(141) = "namibia" countrieslist(142) = "nauru" countrieslist(143) = "nepal" countrieslist(144) = "netherlands" countrieslist(145) = "new caledonia" countrieslist(146) = "new zealand" countrieslist(147) = "nicaragua" countrieslist(148) = "niger" countrieslist(149) = "nigeria" countrieslist(150) = "niue" countrieslist(151) = "norfolk island" countrieslist(152) = "north korea" countrieslist(153) = "northern mariana islands" countrieslist(154) = "norway" countrieslist(155) = "oman" countrieslist(156) = "pakistan" countrieslist(157) = "palau" countrieslist(158) = "panama" countrieslist(159) = "papua new guinea" countrieslist(160) = "paraguay" countrieslist(161) = "peru" countrieslist(162) = "philippines" countrieslist(163) = "pitcairn island" countrieslist(164) = "poland" countrieslist(165) = "polynesia" countrieslist(166) = "portugal" countrieslist(167) = "puerto rico" countrieslist(168) = "qatar" countrieslist(169) = "reunion" countrieslist(170) = "romania" countrieslist(171) = "russia" countrieslist(172) = "rwanda" countrieslist(173) = "saint helena" countrieslist(174) = "saint kitts and nevis" countrieslist(175) = "saint lucia" countrieslist(176) = "saint pierre and miquelon" countrieslist(177) = "saint vincent and grenadines" countrieslist(178) = "samoa" countrieslist(179) = "san marino" countrieslist(180) = "sao tome and principe" countrieslist(181) = "saudi arabia" countrieslist(182) = "senegal" countrieslist(183) = "serbia" countrieslist(184) = "seychelles" countrieslist(185) = "sierra leone" countrieslist(186) = "singapore" countrieslist(187) = "slovakia" countrieslist(188) = "slovenia" countrieslist(189) = "solomon islands" countrieslist(190) = "somalia" countrieslist(191) = "south africa" countrieslist(192) = "south georgia and south sandwich islands" countrieslist(193) = "south korea" countrieslist(194) = "south sudan" countrieslist(195) = "spain" countrieslist(196) = "sri lanka" countrieslist(197) = "sudan" countrieslist(198) = "suriname" countrieslist(199) = "svalbard and jan mayen islands" countrieslist(200) = "swaziland" countrieslist(201) = "sweden" countrieslist(202) = "switzerland" countrieslist(203) = "syria" countrieslist(204) = "taiwan" countrieslist(205) = "tajikistan" countrieslist(206) = "tanzania" countrieslist(207) = "thailand" countrieslist(208) = "east timor" countrieslist(209) = "togo" countrieslist(210) = "tokelau" countrieslist(211) = "tonga" countrieslist(212) = "trinidad and tobago" countrieslist(213) = "tunisia" countrieslist(214) = "turkey" countrieslist(215) = "turkmenistan" countrieslist(216) = "turks and caicos islands" countrieslist(217) = "tuvalu" countrieslist(218) = "uganda" countrieslist(219) = "ukraine" countrieslist(220) = "united arab emirates" countrieslist(221) = "united kingdom" countrieslist(222) = "united states" countrieslist(223) = "uruguay" countrieslist(224) = "uzbekistan" countrieslist(225) = "vanuatu" countrieslist(226) = "venezuela" countrieslist(227) = "vietnam" countrieslist(228) = "virgin islands" countrieslist(229) = "wallis and futuna islands" countrieslist(230) = "yemen" countrieslist(231) = "zambia" countrieslist(232) = "zimbabwe" End Sub Public Sub makecarbrandslist() carbrandslist(0) = "8 chinkara" carbrandslist(1) = "aba" carbrandslist(2) = "abarth" carbrandslist(3) = "ac" carbrandslist(4) = "ac schnitzer" carbrandslist(5) = "acura" carbrandslist(6) = "adam" carbrandslist(7) = "adams-farwell" carbrandslist(8) = "adler" carbrandslist(9) = "aero" carbrandslist(10) = "aga" carbrandslist(11) = "agrale" carbrandslist(12) = "aixam" carbrandslist(13) = "alfa romeo" carbrandslist(14) = "allard" carbrandslist(15) = "alpine" carbrandslist(16) = "alvis" carbrandslist(17) = "anadol" carbrandslist(18) = "anasagasti" carbrandslist(19) = "angkor" carbrandslist(20) = "apollo" carbrandslist(21) = "armstrong siddeley" carbrandslist(22) = "aro" carbrandslist(23) = "ascari" carbrandslist(24) = "ashok leyland" carbrandslist(25) = "aston martin" carbrandslist(26) = "auburn" carbrandslist(27) = "audi" carbrandslist(28) = "austin" carbrandslist(29) = "austin-healey" carbrandslist(30) = "auto-mixte" carbrandslist(31) = "autobianchi" carbrandslist(32) = "automobile dacia" carbrandslist(33) = "avia" carbrandslist(34) = "avtoframos" carbrandslist(35) = "awz" carbrandslist(36) = "bahman" carbrandslist(37) = "bajaj" carbrandslist(38) = "barkas" carbrandslist(39) = "bate" carbrandslist(40) = "bentley" carbrandslist(41) = "bharath benz" carbrandslist(42) = "bitter" carbrandslist(43) = "bmc" carbrandslist(44) = "bmw" carbrandslist(45) = "bollore" carbrandslist(46) = "borgward" carbrandslist(47) = "bricklin" carbrandslist(48) = "bristol" carbrandslist(49) = "british leyland" carbrandslist(50) = "bufori" carbrandslist(51) = "bugatti" carbrandslist(52) = "buick" carbrandslist(53) = "bussing" carbrandslist(54) = "c-fee" carbrandslist(55) = "cadillac" carbrandslist(56) = "callaway" carbrandslist(57) = "caterham" carbrandslist(58) = "cherdchai" carbrandslist(59) = "chevrolet" carbrandslist(60) = "chrysler" carbrandslist(61) = "citroen" carbrandslist(62) = "cizeta" carbrandslist(63) = "coda" carbrandslist(64) = "cord" carbrandslist(65) = "crespi" carbrandslist(66) = "crobus" carbrandslist(67) = "daf" carbrandslist(68) = "daihatsu" carbrandslist(69) = "daimler" carbrandslist(70) = "datsun" carbrandslist(71) = "davis" carbrandslist(72) = "dc design" carbrandslist(73) = "de tomaso" carbrandslist(74) = "delorean" carbrandslist(75) = "derby" carbrandslist(76) = "dina" carbrandslist(77) = "dkw" carbrandslist(78) = "dodge" carbrandslist(79) = "dok-ing" carbrandslist(80) = "dok-ing xd" carbrandslist(81) = "dome" carbrandslist(82) = "donkervoort" carbrandslist(83) = "dr" carbrandslist(84) = "duesenberg" carbrandslist(85) = "e-z-go" carbrandslist(86) = "eagle" carbrandslist(87) = "edsel" carbrandslist(88) = "eicher" carbrandslist(89) = "elfin" carbrandslist(90) = "elva" carbrandslist(91) = "enzmann" carbrandslist(92) = "essex" carbrandslist(93) = "esther" carbrandslist(94) = "exagon" carbrandslist(95) = "falcon" carbrandslist(96) = "fap" carbrandslist(97) = "ferrari" carbrandslist(98) = "fiat" carbrandslist(99) = "fisker" carbrandslist(100) = "force" carbrandslist(101) = "ford" carbrandslist(102) = "fpv" carbrandslist(103) = "gaz" carbrandslist(104) = "gengatharan" carbrandslist(105) = "geo" carbrandslist(106) = "ghandhara" carbrandslist(107) = "ghandhara nissan" carbrandslist(108) = "gillet" carbrandslist(109) = "ginetta" carbrandslist(110) = "gkd" carbrandslist(111) = "glas" carbrandslist(112) = "global electric" carbrandslist(113) = "gm daewoo" carbrandslist(114) = "gm uzbekistan" carbrandslist(115) = "gmc" carbrandslist(116) = "goliath" carbrandslist(117) = "gordon keeble" carbrandslist(118) = "graham-paige" carbrandslist(119) = "guleryuz karoseri" carbrandslist(120) = "gumpert" carbrandslist(121) = "gurgel" carbrandslist(122) = "hansa" carbrandslist(123) = "hattat" carbrandslist(124) = "heinkel" carbrandslist(125) = "hennessey" carbrandslist(126) = "hero" carbrandslist(127) = "hillman" carbrandslist(128) = "hindustan" carbrandslist(129) = "hino" carbrandslist(130) = "hinopak" carbrandslist(131) = "hispano-argentina" carbrandslist(132) = "holden" carbrandslist(133) = "hommell" carbrandslist(134) = "honda" carbrandslist(135) = "honda atlas" carbrandslist(136) = "horch" carbrandslist(137) = "hsv" carbrandslist(138) = "huet brothers" carbrandslist(139) = "humber" carbrandslist(140) = "hummer" carbrandslist(141) = "hupmobile" carbrandslist(142) = "hyundai" carbrandslist(143) = "iame" carbrandslist(144) = "icml" carbrandslist(145) = "ida-opel" carbrandslist(146) = "ika" carbrandslist(147) = "ikarbus" carbrandslist(148) = "ikco" carbrandslist(149) = "indus" carbrandslist(150) = "infiniti" carbrandslist(151) = "inokom" carbrandslist(152) = "intermeccanica" carbrandslist(153) = "international harvester" carbrandslist(154) = "isuzu" carbrandslist(155) = "isuzu anadolu" carbrandslist(156) = "italika" carbrandslist(157) = "izh" carbrandslist(158) = "jaguar cars" carbrandslist(159) = "jeep" carbrandslist(160) = "jensen" carbrandslist(161) = "josse" carbrandslist(162) = "jowett" carbrandslist(163) = "jv man" carbrandslist(164) = "kaipan" carbrandslist(165) = "kaiser" carbrandslist(166) = "karsan" carbrandslist(167) = "kerman" carbrandslist(168) = "kia" carbrandslist(169) = "kia" carbrandslist(170) = "kish khodro" carbrandslist(171) = "kissel" carbrandslist(172) = "koenigsegg" carbrandslist(173) = "lada" carbrandslist(174) = "laforza" carbrandslist(175) = "lamborghini" carbrandslist(176) = "lanchester" carbrandslist(177) = "lancia" carbrandslist(178) = "land rover" carbrandslist(179) = "lasalle" carbrandslist(180) = "lexus" carbrandslist(181) = "ligier" carbrandslist(182) = "lincoln" carbrandslist(183) = "lister" carbrandslist(184) = "lloyd" carbrandslist(185) = "lobini" carbrandslist(186) = "locomobile" carbrandslist(187) = "lotus" carbrandslist(188) = "mahindra" carbrandslist(189) = "man" carbrandslist(190) = "mansory" carbrandslist(191) = "marcos" carbrandslist(192) = "marmon" carbrandslist(193) = "marussia" carbrandslist(194) = "maruti suzuki" carbrandslist(195) = "maserati" carbrandslist(196) = "master" carbrandslist(197) = "mastretta" carbrandslist(198) = "matra" carbrandslist(199) = "maybach" carbrandslist(200) = "mazda" carbrandslist(201) = "mclaren" carbrandslist(202) = "mdi" carbrandslist(203) = "mercedes" carbrandslist(204) = "mercury" carbrandslist(205) = "micro" carbrandslist(206) = "microcar" carbrandslist(207) = "mini" carbrandslist(208) = "mini cooper" carbrandslist(209) = "mitsubishi" carbrandslist(210) = "mitsuoka" carbrandslist(211) = "morgan" carbrandslist(212) = "morris" carbrandslist(213) = "moskvitch" carbrandslist(214) = "mosler" carbrandslist(215) = "multicar" carbrandslist(216) = "mvm" carbrandslist(217) = "nag" carbrandslist(218) = "nagant" carbrandslist(219) = "nash" carbrandslist(220) = "navistar" carbrandslist(221) = "naza" carbrandslist(222) = "neobus" carbrandslist(223) = "neoplan" carbrandslist(224) = "nissan" carbrandslist(225) = "noble" carbrandslist(226) = "nsu" carbrandslist(227) = "oldsmobile" carbrandslist(228) = "oltcit" carbrandslist(229) = "opel" carbrandslist(230) = "orient" carbrandslist(231) = "otokar" carbrandslist(232) = "otosan" carbrandslist(233) = "oyak" carbrandslist(234) = "p.a.r.s moto" carbrandslist(235) = "packard" carbrandslist(236) = "pagani" carbrandslist(237) = "pak suzuki" carbrandslist(238) = "panoz" carbrandslist(239) = "pars khodro" carbrandslist(240) = "perodua" carbrandslist(241) = "peugeot" carbrandslist(242) = "pgo" carbrandslist(243) = "pieper" carbrandslist(244) = "pierce-arrow" carbrandslist(245) = "plymouth" carbrandslist(246) = "pontiac" carbrandslist(247) = "porsche" carbrandslist(248) = "praga" carbrandslist(249) = "premier" carbrandslist(250) = "proto" carbrandslist(251) = "proton" carbrandslist(252) = "puma" carbrandslist(253) = "ram" carbrandslist(254) = "ramirez" carbrandslist(255) = "regal" carbrandslist(256) = "renault" carbrandslist(257) = "renault samsung" carbrandslist(258) = "reo" carbrandslist(259) = "riley" carbrandslist(260) = "rimac" carbrandslist(261) = "robur" carbrandslist(262) = "rolls royce" carbrandslist(263) = "rover" carbrandslist(264) = "ruf" carbrandslist(265) = "russo-balt" carbrandslist(266) = "saab" carbrandslist(267) = "saipa" carbrandslist(268) = "saleen" carbrandslist(269) = "samavto" carbrandslist(270) = "saturn" carbrandslist(271) = "sbarro" carbrandslist(272) = "scania" carbrandslist(273) = "scion" carbrandslist(274) = "shane moto" carbrandslist(275) = "siam v.m.c." carbrandslist(276) = "siata" carbrandslist(277) = "simson" carbrandslist(278) = "singer" carbrandslist(279) = "skoda" carbrandslist(280) = "sound" carbrandslist(281) = "spyker" carbrandslist(282) = "ssangyong" carbrandslist(283) = "standard" carbrandslist(284) = "stealth" carbrandslist(285) = "sterling" carbrandslist(286) = "studebaker" carbrandslist(287) = "subaru" carbrandslist(288) = "sunbeam" carbrandslist(289) = "suzuki" carbrandslist(290) = "tac" carbrandslist(291) = "tafe" carbrandslist(292) = "tata" carbrandslist(293) = "tatra" carbrandslist(294) = "td2000" carbrandslist(295) = "temsa" carbrandslist(296) = "tesla" carbrandslist(297) = "th!nk" carbrandslist(298) = "thai rung" carbrandslist(299) = "the jamie stahley car" carbrandslist(300) = "tickford" carbrandslist(301) = "toyota" carbrandslist(302) = "trabant" carbrandslist(303) = "tranvias-cimex" carbrandslist(304) = "triumph" carbrandslist(305) = "trojan" carbrandslist(306) = "troller" carbrandslist(307) = "tucker" carbrandslist(308) = "turk traktor" carbrandslist(309) = "tvr" carbrandslist(310) = "tvs" carbrandslist(311) = "uaz" carbrandslist(312) = "vam sa" carbrandslist(313) = "vauxhall" carbrandslist(314) = "venturi" carbrandslist(315) = "vignale" carbrandslist(316) = "volkswagen" carbrandslist(317) = "volvo" carbrandslist(318) = "wanderer" carbrandslist(319) = "wartburg" carbrandslist(320) = "wiesmann" carbrandslist(321) = "willys" carbrandslist(322) = "wolseley" carbrandslist(323) = "yamaha" carbrandslist(324) = "yo-mobile" carbrandslist(325) = "zastava" carbrandslist(326) = "zenvo" carbrandslist(327) = "zil" carbrandslist(328) = "zoragy" End Sub Public Sub makegameconsoleslist() gameconsoleslist(0) = "magnavox odyssey" gameconsoleslist(1) = "ping-o-tronic" gameconsoleslist(2) = "telstar" gameconsoleslist(3) = "apf tv fun" gameconsoleslist(4) = "philips odyssey" gameconsoleslist(5) = "radio shack tv scoreboard" gameconsoleslist(6) = "binatone tv master mk iv" gameconsoleslist(7) = "color tv game 6" gameconsoleslist(8) = "color tv game 15" gameconsoleslist(9) = "color tv racing 112" gameconsoleslist(10) = "color tv game block breaker" gameconsoleslist(11) = "computer tv game" gameconsoleslist(12) = "bss 01" gameconsoleslist(13) = "fairchild channel f" gameconsoleslist(14) = "fairchild channel f system ii" gameconsoleslist(15) = "rca studio ii" gameconsoleslist(16) = "atari 2600" gameconsoleslist(17) = "atari 2600 jr" gameconsoleslist(18) = "atari 2800" gameconsoleslist(19) = "coleco gemini" gameconsoleslist(20) = "bally astrocade" gameconsoleslist(21) = "vc 4000" gameconsoleslist(22) = "magnavox odyssey 2" gameconsoleslist(23) = "apf imagination machine" gameconsoleslist(24) = "intellivision" gameconsoleslist(25) = "playcable" gameconsoleslist(26) = "bandai super vision 8000" gameconsoleslist(27) = "intellivision ii" gameconsoleslist(28) = "vtech creativision" gameconsoleslist(29) = "epoch cassette vision" gameconsoleslist(30) = "super cassette vision" gameconsoleslist(31) = "arcadia 2001" gameconsoleslist(32) = "atari 5200" gameconsoleslist(33) = "atari 5100" gameconsoleslist(34) = "colecovision" gameconsoleslist(35) = "entex adventure vision" gameconsoleslist(36) = "vectrex" gameconsoleslist(37) = "rdi halcyon" gameconsoleslist(38) = "pv-1000" gameconsoleslist(39) = "commodore 64 games system" gameconsoleslist(40) = "amstrad gx4000" gameconsoleslist(41) = "atari 7800" gameconsoleslist(42) = "atari xegs" gameconsoleslist(43) = "sega sg-1000" gameconsoleslist(44) = "sega master system" gameconsoleslist(45) = "nintendo entertainment system" gameconsoleslist(46) = "sharp nintendo television" gameconsoleslist(47) = "nes-101" gameconsoleslist(48) = "family computer disk system" gameconsoleslist(49) = "zemmix" gameconsoleslist(50) = "action max" gameconsoleslist(51) = "sega genesis" gameconsoleslist(52) = "sega pico" gameconsoleslist(53) = "pc engine" gameconsoleslist(54) = "konix multisystem" gameconsoleslist(55) = "neo-geo" gameconsoleslist(56) = "neo-geo cd" gameconsoleslist(57) = "neo-geo cdz" gameconsoleslist(58) = "commodore cdtv" gameconsoleslist(59) = "memorex vis" gameconsoleslist(60) = "super nintendo entertainment system" gameconsoleslist(61) = "sf-1 snes tv" gameconsoleslist(62) = "snes 2" gameconsoleslist(63) = "snes-cd" gameconsoleslist(64) = "satellaview" gameconsoleslist(65) = "cd-i" gameconsoleslist(66) = "turboduo" gameconsoleslist(67) = "super a'can" gameconsoleslist(68) = "pioneer laseractive" gameconsoleslist(69) = "fm towns marty" gameconsoleslist(70) = "apple bandai pippin" gameconsoleslist(71) = "pc-fx" gameconsoleslist(72) = "atari panther" gameconsoleslist(73) = "atari jaguar" gameconsoleslist(74) = "atari jaguar cd" gameconsoleslist(75) = "playstation" gameconsoleslist(76) = "net yaroze" gameconsoleslist(77) = "sega saturn" gameconsoleslist(78) = "3do interactive multiplayer" gameconsoleslist(79) = "amiga cd32" gameconsoleslist(80) = "casio loopy" gameconsoleslist(81) = "playdia" gameconsoleslist(82) = "nintendo 64" gameconsoleslist(83) = "nintendo 64dd" gameconsoleslist(84) = "sega neptune" gameconsoleslist(85) = "apextreme" gameconsoleslist(86) = "atari flashback" gameconsoleslist(87) = "atari jaguar ii" gameconsoleslist(88) = "dreamcast" gameconsoleslist(89) = "l600" gameconsoleslist(90) = "gamecube" gameconsoleslist(91) = "nuon" gameconsoleslist(92) = "ique player" gameconsoleslist(93) = "panasonic m2" gameconsoleslist(94) = "panasonic q" gameconsoleslist(95) = "playstation 2" gameconsoleslist(96) = "psx" gameconsoleslist(97) = "v.smile" gameconsoleslist(98) = "xavixport gaming console" gameconsoleslist(99) = "xbox" gameconsoleslist(100) = "atari flashback 2" gameconsoleslist(101) = "atari flashback 3" gameconsoleslist(102) = "atari flashback 4" gameconsoleslist(103) = "evo smart console" gameconsoleslist(104) = "retro duo" gameconsoleslist(105) = "game wave" gameconsoleslist(106) = "mattel hyperscan" gameconsoleslist(107) = "onlive" gameconsoleslist(108) = "phantom" gameconsoleslist(109) = "playstation 3" gameconsoleslist(110) = "wii" gameconsoleslist(111) = "xbox 360" gameconsoleslist(112) = "sega firecore" gameconsoleslist(113) = "zeebo" gameconsoleslist(114) = "sega zone" gameconsoleslist(115) = "eedoo ct510" gameconsoleslist(116) = "wii u" gameconsoleslist(117) = "ouya" gameconsoleslist(118) = "gamestick" gameconsoleslist(119) = "mojo" gameconsoleslist(120) = "gamepop" gameconsoleslist(121) = "playstation 4" gameconsoleslist(122) = "steam machine" gameconsoleslist(123) = "xbox one" gameconsoleslist(124) = "xi3 piston" End Sub Public Sub makeelementslist() elementslist(0) = "hydrogen" elementslist(1) = "helium" elementslist(2) = "lithium" elementslist(3) = "beryllium" elementslist(4) = "boron" elementslist(5) = "carbon" elementslist(6) = "nitrogen" elementslist(7) = "oxygen" elementslist(8) = "fluorine" elementslist(9) = "neon" elementslist(10) = "sodium" elementslist(11) = "magnesium" elementslist(12) = "aluminium" elementslist(13) = "silicon" elementslist(14) = "phosphorus" elementslist(15) = "sulfur" elementslist(16) = "chlorine" elementslist(17) = "argon" elementslist(18) = "potassium" elementslist(19) = "calcium" elementslist(20) = "scandium" elementslist(21) = "titanium" elementslist(22) = "vanadium" elementslist(23) = "chromium" elementslist(24) = "manganese" elementslist(25) = "iron" elementslist(26) = "cobalt" elementslist(27) = "nickel" elementslist(28) = "copper" elementslist(29) = "zinc" elementslist(30) = "gallium" elementslist(31) = "germanium" elementslist(32) = "arsenic" elementslist(33) = "selenium" elementslist(34) = "bromine" elementslist(35) = "krypton" elementslist(36) = "rubidium" elementslist(37) = "strontium" elementslist(38) = "yttrium" elementslist(39) = "zirconium" elementslist(40) = "niobium" elementslist(41) = "molybdenum" elementslist(42) = "technetium" elementslist(43) = "ruthenium" elementslist(44) = "rhodium" elementslist(45) = "palladium" elementslist(46) = "silver" elementslist(47) = "cadmium" elementslist(48) = "indium" elementslist(49) = "tin" elementslist(50) = "antimony" elementslist(51) = "tellurium" elementslist(52) = "iodine" elementslist(53) = "xenon" elementslist(54) = "caesium" elementslist(55) = "barium" elementslist(56) = "lanthanum" elementslist(57) = "cerium" elementslist(58) = "praseodymium" elementslist(59) = "neodymium" elementslist(60) = "promethium" elementslist(61) = "samarium" elementslist(62) = "europium" elementslist(63) = "gadolinium" elementslist(64) = "terbium" elementslist(65) = "dysprosium" elementslist(66) = "holmium" elementslist(67) = "erbium" elementslist(68) = "thulium" elementslist(69) = "ytterbium" elementslist(70) = "lutetium" elementslist(71) = "hafnium" elementslist(72) = "tantalum" elementslist(73) = "tungsten" elementslist(74) = "rhenium" elementslist(75) = "osmium" elementslist(76) = "iridium" elementslist(77) = "platinum" elementslist(78) = "gold" elementslist(79) = "mercury" elementslist(80) = "thallium" elementslist(81) = "lead" elementslist(82) = "bismuth" elementslist(83) = "polonium" elementslist(84) = "astatine" elementslist(85) = "radon" elementslist(86) = "francium" elementslist(87) = "radium" elementslist(88) = "actinium" elementslist(89) = "thorium" elementslist(90) = "protactinium" elementslist(91) = "uranium" elementslist(92) = "neptunium" elementslist(93) = "plutonium" elementslist(94) = "americium" elementslist(95) = "curium" elementslist(96) = "berkelium" elementslist(97) = "californium" elementslist(98) = "einsteinium" elementslist(99) = "fermium" elementslist(100) = "mendelevium" elementslist(101) = "nobelium" elementslist(102) = "lawrencium" elementslist(103) = "rutherfordium" elementslist(104) = "dubnium" elementslist(105) = "seaborgium" elementslist(106) = "bohrium" elementslist(107) = "hassium" elementslist(108) = "meitnerium" elementslist(109) = "darmstadtium" elementslist(110) = "roentgenium" elementslist(111) = "copernicium" elementslist(112) = "ununtrium" elementslist(113) = "flerovium" elementslist(114) = "ununpentium" elementslist(115) = "livermorium" elementslist(116) = "ununseptium" elementslist(117) = "ununoctium" End Sub End Class