ShiftOS/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
    Public ShiftOSPath As String = "C:\ShiftOS"

    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(204) As String
    Dim carbrandslist(328) As String
    Dim gameconsoleslist(124) As String
    Dim elementslist(117) As String


#Region "Template Code"

    Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        justopened = True
        Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
        Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
        setupall()

        pnlintro.Show()
        pnlintro.BringToFront()
        pnlcategorydisplay.Hide()
        makeanimallist()
        makecarbrandslist()
        makecountrieslist()
        makeelementslist()
        makefruitlist()
        makegameconsoleslist()
        If ShiftOSDesktop.KnowledgeInputCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")

        If ShiftOSDesktop.boughtgray4 = True And ShiftOSDesktop.boughtshiftnet = False Then tmrstoryline.Start()

        ShiftOSDesktop.pnlpanelbuttonknowledgeinput.SendToBack() 'CHANGE NAME
        ShiftOSDesktop.setuppanelbuttons()
        ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonknowledgeinput, ShiftOSDesktop.tbknowledgeinputicon, ShiftOSDesktop.tbknowledgeinputtext, True) 'modify to proper name
        ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
    End Sub

    Public Sub setupall()
        setuptitlebar()
        setupborders()
        setskin()
    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)
            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)
            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)
            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)
            End If
            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
        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 = Skins.closebtnhover
    End Sub

    Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
        closebutton.BackgroundImage = Skins.closebtn
    End Sub

    Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
        closebutton.BackgroundImage = Skins.closebtnclick
    End Sub

    Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
        ShiftOSDesktop.minimizeprogram(Me, False)
    End Sub

    'Old skinning system - No idea what this does
    ''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 = Skins.rollbtnhover
    End Sub

    Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
        rollupbutton.BackgroundImage = Skins.rollbtn
    End Sub

    Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
        rollupbutton.BackgroundImage = Skins.rollbtnclick
    End Sub

    Public Sub setuptitlebar()

        setupborders()

        If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
        pgleft.Width = Skins.borderwidth
        pgright.Width = Skins.borderwidth
        pgbottom.Height = Skins.borderwidth
        titlebar.Height = Skins.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 + Skins.titlebarheight - 30)
            Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
            oldbordersize = Skins.borderwidth
            oldtitlebarheight = Skins.titlebarheight
            justopened = False
        Else
            If Me.Visible = True Then
                'Me.Hide()
                Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
                'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
                oldbordersize = Skins.borderwidth
                oldtitlebarheight = Skins.titlebarheight
                'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
                'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
                'rolldownsize = Me.Height
                If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
                'Me.Show()
            End If
        End If

        If Skins.enablecorners = True Then
            pgtoplcorner.Show()
            pgtoprcorner.Show()
            pgtoprcorner.Width = Skins.titlebarcornerwidth
            pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
            lbtitletext.Text = ShiftOSDesktop.knowledgeinputname 'Remember to change to name of program!!!!
            lbtitletext.Show()
        End If

        If ShiftOSDesktop.boughtclosebutton = False Then
            closebutton.Hide()
        Else
            closebutton.BackColor = Skins.closebtncolour
            closebutton.Size = Skins.closebtnsize
            closebutton.Show()
        End If

        If ShiftOSDesktop.boughtrollupbutton = False Then
            rollupbutton.Hide()
        Else
            rollupbutton.BackColor = Skins.rollbtncolour
            rollupbutton.Size = Skins.rollbtnsize
            rollupbutton.Show()
        End If

        If ShiftOSDesktop.boughtminimizebutton = False Then
            minimizebutton.Hide()
        Else
            minimizebutton.BackColor = Skins.minbtncolour
            minimizebutton.Size = Skins.minbtnsize
            minimizebutton.Show()
        End If

        If ShiftOSDesktop.boughtwindowborders = True Then
            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
            Select Case Skins.titletextpos
                Case "Left"
                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
            End Select
            lbtitletext.ForeColor = Skins.titletextcolour
        Else
            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
            Select Case Skins.titletextpos
                Case "Left"
                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
            End Select
            lbtitletext.ForeColor = Skins.titletextcolour
        End If

        'Change when Icon skinning complete
        If ShiftOSDesktop.boughtknowledgeinputicon = True Then ' Change to program's icon
            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 resettitlebar()
        If ShiftOSDesktop.boughtwindowborders = True Then
            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
            Select Case Skins.titletextpos
                Case "Left"
                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
            End Select
            lbtitletext.ForeColor = Skins.titletextcolour
        Else
            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
            Select Case Skins.titletextpos
                Case "Left"
                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
            End Select
            lbtitletext.ForeColor = Skins.titletextcolour
        End If
    End Sub

    Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
        If ShiftOSDesktop.boughtresizablewindows = True Then
            Cursor = Cursors.SizeWE
        End If
    End Sub

    Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
        If ShiftOSDesktop.boughtresizablewindows = True Then
            Cursor = Cursors.SizeNS
        End If
    End Sub

    Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
        If ShiftOSDesktop.boughtresizablewindows = True Then
            Cursor = Cursors.SizeNWSE
        End If
    End Sub

    Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
        If ShiftOSDesktop.boughtresizablewindows = True Then
            Cursor = Cursors.Default
        End If
    End Sub

    Public Sub setskin()
        'disposals
        closebutton.BackgroundImage = Nothing
        titlebar.BackgroundImage = Nothing
        rollupbutton.BackgroundImage = Nothing
        pgtoplcorner.BackgroundImage = Nothing
        pgtoprcorner.BackgroundImage = Nothing
        minimizebutton.BackgroundImage = Nothing
        'apply new skin
        If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
        closebutton.BackgroundImageLayout = Skins.closebtnlayout
        If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
        titlebar.BackgroundImageLayout = Skins.titlebarlayout
        If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
        rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
        If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
        pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
        If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
        pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
        If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
        minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
        If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
        pgleft.BackgroundImageLayout = Skins.borderleftlayout
        If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
        pgleft.BackgroundImageLayout = Skins.borderrightlayout
        If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
        pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
        If enablebordercorners = True Then
            If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
            pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
            If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
            pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
        Else
            pgbottomlcorner.BackColor = Skins.borderrightcolour
            pgbottomrcorner.BackColor = Skins.borderrightcolour
            pgbottomlcorner.BackgroundImage = Nothing
            pgbottomrcorner.BackgroundImage = Nothing
        End If

        'set bottom border corner size
        pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
        pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
        pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
        pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)

        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
#End Region

    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
        pnlcategorydisplay.Show()
        '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, ShiftOSDesktop.ShiftOSPath + "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, ShiftOSDesktop.ShiftOSPath + "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, ShiftOSDesktop.ShiftOSPath + "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, ShiftOSDesktop.ShiftOSPath + "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, ShiftOSDesktop.ShiftOSPath + "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, ShiftOSDesktop.ShiftOSPath + "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, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Animals.lst")
            Case "Fruits"
                handlewordtype(fruitslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Fruits.lst")
            Case "Countries"
                handlewordtype(countrieslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Countries.lst")
            Case "Car Brands"
                handlewordtype(carbrandslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Car Brands.lst")
            Case "Game Consoles"
                handlewordtype(gameconsoleslist, ShiftOSDesktop.ShiftOSPath + "SoftwareData\KnowledgeInput\Game Consoles.lst")
            Case "Elements"
                handlewordtype(elementslist, ShiftOSDesktop.ShiftOSPath + "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

    Dim chance As Integer = 101
    Private Sub tmrstoryline_Tick(sender As Object, e As EventArgs) Handles tmrstoryline.Tick
        ' Random chance of showing getshiftnet storyline
            chance = chance - 1
            If chance < 25 Then
                chance = 25
            End If
            Dim i As Integer = Math.Ceiling(Rnd() * chance)
            If i = 1 Then
                Terminal.Show()
                Terminal.BringToFront()
                Terminal.storyline = "getshiftnet"
                Terminal.tmrstorylineupdate.Start()
                tmrstoryline.Stop()
            End If
    End Sub

    Private Sub me_closing() Handles Me.FormClosing
        tmrstoryline.Stop()
    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() 'Based off United Nations member list with additions such as Vatican City - see this video about what a coutry is: https://www.youtube.com/watch?v=4AivEQmfPpk
        countrieslist(0) = "afghanistan"
        countrieslist(1) = "albania"
        countrieslist(2) = "algeria"
        countrieslist(3) = "antigua and barbuda"
        countrieslist(4) = "andorra"
        countrieslist(5) = "angola"
        countrieslist(8) = "argentina"
        countrieslist(9) = "armenia"
        countrieslist(10) = "australia"
        countrieslist(12) = "austria"
        countrieslist(14) = "azerbaijan"
        countrieslist(15) = "bahamas"
        countrieslist(16) = "bahrain"
        countrieslist(17) = "bangladesh"
        countrieslist(18) = "barbados"
        countrieslist(19) = "belarus"
        countrieslist(20) = "belgium"
        countrieslist(21) = "belize"
        countrieslist(22) = "benin"
        countrieslist(23) = "bhutan"
        countrieslist(24) = "bolivia"
        countrieslist(25) = "bosnia"
        countrieslist(26) = "botswana"
        countrieslist(27) = "brunei darussalam"
        countrieslist(28) = "brazil"
        countrieslist(29) = "cabo verde"
        countrieslist(30) = "bulgaria"
        countrieslist(31) = "burkina faso"
        countrieslist(32) = "burundi"
        countrieslist(33) = "cambodia"
        countrieslist(34) = "cameroon"
        countrieslist(35) = "canada"
        countrieslist(36) = "central african republic"
        countrieslist(37) = "chad"
        countrieslist(38) = "chile"
        countrieslist(39) = "china"
        countrieslist(40) = "democratic people's republic of korea"
        countrieslist(41) = "colombia"
        countrieslist(42) = "comoros"
        countrieslist(43) = "congo"
        countrieslist(44) = "côte d'ivoire"
        countrieslist(45) = "cook islands"
        countrieslist(46) = "costa rica"
        countrieslist(47) = "croatia"
        countrieslist(48) = "cuba"
        countrieslist(49) = "cyprus"
        countrieslist(50) = "czech republic"
        countrieslist(51) = "denmark"
        countrieslist(52) = "djibouti"
        countrieslist(53) = "dominica"
        countrieslist(54) = "dominican republic"
        countrieslist(55) = "ecuador"
        countrieslist(56) = "egypt"
        countrieslist(57) = "el salvador"
        countrieslist(58) = "equatorial guinea"
        countrieslist(59) = "eritrea"
        countrieslist(60) = "estonia"
        countrieslist(62) = "ethiopia"
        countrieslist(63) = "fiji"
        countrieslist(64) = "finland"
        countrieslist(65) = "france"
        countrieslist(66) = "gabon"
        countrieslist(67) = "gambia"
        countrieslist(68) = "georgia"
        countrieslist(69) = "germany"
        countrieslist(70) = "ghana"
        countrieslist(71) = "greece"
        countrieslist(72) = "greenland"
        countrieslist(73) = "grenada"
        countrieslist(74) = "guatemala"
        countrieslist(75) = "guinea"
        countrieslist(76) = "guinea bissau"
        countrieslist(77) = "guyana"
        countrieslist(78) = "haiti"
        countrieslist(79) = "vatican city"
        countrieslist(80) = "honduras"
        countrieslist(81) = "hungary"
        countrieslist(82) = "iceland"
        countrieslist(83) = "india"
        countrieslist(84) = "indonesia"
        countrieslist(85) = "iran"
        countrieslist(86) = "iraq"
        countrieslist(87) = "ireland"
        countrieslist(88) = "israel"
        countrieslist(89) = "italy"
        countrieslist(90) = "jamaica"
        countrieslist(91) = "japan"
        countrieslist(92) = "jordan"
        countrieslist(93) = "kazakhstan"
        countrieslist(94) = "kenya"
        countrieslist(95) = "kiribati"
        countrieslist(96) = "kuwait"
        countrieslist(97) = "kyrgyzstan"
        countrieslist(98) = "lao people's democratic republic"
        countrieslist(99) = "latvia"
        countrieslist(100) = "lebanon"
        countrieslist(101) = "lesotho"
        countrieslist(102) = "liberia"
        countrieslist(103) = "libya"
        countrieslist(104) = "liechtenstein"
        countrieslist(105) = "lithuania"
        countrieslist(106) = "luxembourg"
        countrieslist(107) = "madagascar"
        countrieslist(108) = "malawi"
        countrieslist(109) = "malaysia"
        countrieslist(110) = "maldives"
        countrieslist(111) = "mali"
        countrieslist(112) = "malta"
        countrieslist(113) = "marshall islands"
        countrieslist(114) = "mauritania"
        countrieslist(115) = "mauritius"
        countrieslist(116) = "mexico"
        countrieslist(117) = "micronesia"
        countrieslist(118) = "monaco"
        countrieslist(119) = "mongolia"
        countrieslist(120) = "montenegro"
        countrieslist(121) = "morocco"
        countrieslist(122) = "mozambique"
        countrieslist(123) = "myanmar"
        countrieslist(124) = "namibia"
        countrieslist(125) = "nauru"
        countrieslist(126) = "nepal"
        countrieslist(127) = "netherlands"
        countrieslist(128) = "new zealand"
        countrieslist(129) = "nicaragua"
        countrieslist(130) = "niger"
        countrieslist(131) = "nigeria"
        countrieslist(132) = "north korea"
        countrieslist(133) = "norway"
        countrieslist(134) = "oman"
        countrieslist(135) = "pakistan"
        countrieslist(136) = "palau"
        countrieslist(137) = "panama"
        countrieslist(138) = "papua new guinea"
        countrieslist(139) = "paraguay"
        countrieslist(140) = "peru"
        countrieslist(141) = "philippines"
        countrieslist(142) = "republic of moldova"
        countrieslist(143) = "poland"
        countrieslist(144) = "polynesia"
        countrieslist(145) = "portugal"
        countrieslist(146) = "republic of korea"
        countrieslist(147) = "romania"
        countrieslist(148) = "russia"
        countrieslist(149) = "rwanda"
        countrieslist(150) = "saint kitts and nevis"
        countrieslist(151) = "saint lucia"
        countrieslist(152) = "saint pierre and miquelon"
        countrieslist(153) = "saint vincent and grenadines"
        countrieslist(154) = "samoa"
        countrieslist(155) = "san marino"
        countrieslist(156) = "sao tome and principe"
        countrieslist(157) = "saudi arabia"
        countrieslist(158) = "senegal"
        countrieslist(159) = "serbia"
        countrieslist(160) = "seychelles"
        countrieslist(161) = "sierra leone"
        countrieslist(162) = "singapore"
        countrieslist(163) = "slovakia"
        countrieslist(164) = "slovenia"
        countrieslist(165) = "solomon islands"
        countrieslist(166) = "somalia"
        countrieslist(167) = "south africa"
        countrieslist(168) = "south korea"
        countrieslist(169) = "south sudan"
        countrieslist(170) = "spain"
        countrieslist(171) = "sri lanka"
        countrieslist(172) = "sudan"
        countrieslist(173) = "suriname"
        countrieslist(174) = "syrian arab republic"
        countrieslist(175) = "swaziland"
        countrieslist(176) = "sweden"
        countrieslist(177) = "switzerland"
        countrieslist(178) = "syria"
        countrieslist(179) = "taiwan"
        countrieslist(180) = "tajikistan"
        countrieslist(181) = "thailand"
        countrieslist(182) = "east timor"
        countrieslist(183) = "togo"
        countrieslist(184) = "tonga"
        countrieslist(185) = "trinidad and tobago"
        countrieslist(186) = "tunisia"
        countrieslist(187) = "turkey"
        countrieslist(188) = "turkmenistan"
        countrieslist(189) = "united republic of tanzania"
        countrieslist(190) = "tuvalu"
        countrieslist(191) = "uganda"
        countrieslist(192) = "ukraine"
        countrieslist(193) = "united arab emirates"
        countrieslist(194) = "united kingdom" '(of Great Britian and Northern Ireland)
        countrieslist(195) = "united states"
        countrieslist(196) = "uruguay"
        countrieslist(197) = "uzbekistan"
        countrieslist(198) = "vanuatu"
        countrieslist(199) = "venezuela"
        countrieslist(200) = "vietnam"
        countrieslist(201) = "palestine"
        countrieslist(202) = "yemen"
        countrieslist(203) = "zambia"
        countrieslist(204) = "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) = "knowledgeinput"
        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