Full Source

1 files changed, 1700 insertions, 0 deletions

diff --git a/ShiftOS/Knowledge Input.vb b/ShiftOS/Knowledge Input.vb
new file mode 100644
index 0000000..f50f635
--- /dev/null
+++ b/ShiftOS/Knowledge Input.vb
@@ -0,0 +1,1700 @@
+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
\ No newline at end of file