ShiftOS/Knowledge Input.vb

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