Module Module1
    Dim Name As String
    Dim Health As Integer
    Dim hasLightsaber As Boolean
    Dim hasSpaceshipkey As Boolean
    Dim hasPart1 As Boolean
    Dim hasPart2 As Boolean
    Dim haspart3 As Boolean
    Dim hasFullpart As Boolean
    Dim hasHelmet As Boolean
    Dim c As Char
    Dim Names As String
    Dim userinput As String

    Sub Main()



        'Varibles

        Health = 50
        Name = Nothing
        hasLightsaber = False
        hasLightsaber = False
        hasSpaceshipkey = False
        hasPart1 = False
        hasPart2 = False
        haspart3 = False
        hasFullpart = False
        hasHelmet = False



        Console.Write("Name: ")
        Name = Console.ReadLine()
        Console.WriteLine("Narrator: Hello young Jedi. You have been knocked out by a couple of Ewoks.")
        Console.WriteLine("Narrator: While you have been on unconscious they have attepted to steal and ransack your ship.")
        Console.WriteLine("Narrator: However, luckly for you they were scared off by a Gorax.")
        Console.WriteLine(" ")
        Console.WriteLine("Narrator: You awake from your blackout with your Spaceship key, Lightsaber")
        Console.WriteLine("and Helmet scattered around your spaceship with the door wide open.")
        Console.WriteLine(" ")
        Console.Write("Press Enter to open your eyes and look around...")

        Dim c As Char = Convert.ToChar(Console.Read())

        If c = vbCr Then
            Console.Read()
            Console.Clear()

        End If
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("To your left is your Lightsaber.")
        Console.WriteLine(" ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("To your left is your helment")
        Console.WriteLine(" ")
        Console.ResetColor()

        Console.WriteLine("*Options:")
        Console.WriteLine(" ")

        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("To pick up the lightsaber press A")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("To pick up the helment press D")
        Console.WriteLine(" ")

        Console.Write("Option: ")
        userinput = Console.Read()

        If userinput = "A" & "a" Then hasLightsaber = True
        If userinput = "D" & "d" Then hasHelmet = True


        Console.ResetColor()
        If hasHelmet = True Then Console.WriteLine("You pick up the helmet and underneath is a key to your spaceship.")
        If hasLightsaber = True Then Console.WriteLine("You picked up the lightsaber.")


        Console.WriteLine("Option: ")
        Console.WriteLine(" ")
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("To pick up the spaceship key press A")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("To pick up the lightsaber key press D")

        userinput = Console.ReadLine()

        If userinput = "A" & "a" Then hasSpaceshipkey = True
        If userinput = "D" & "d" Then hasLightsaber = True

        Console.ResetColor()
        If hasLightsaber = True Then Console.WriteLine("You picked up your lightsaber, you look around and all you see left is your spaceship key.")
        If hasSpaceshipkey = True Then Console.WriteLine("You picked up your spaceship key, you look around and all you see left is your lightsaber.")


















        Console.WriteLine("End")
        Names = Console.ReadLine



    End Sub

End Module