Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim selection as Integer

        Do

            selection = Nothing

            Console.WriteLine("Welcome to the Dota 2 Quiz!")

            Console.WriteLine("---------------------------")

            Console.WriteLine("1 - Play Game")

            Console.WriteLine("2 - Instructions")

            Console.WriteLine("3 - Report an issue")

            Console.WriteLine("4 - Quit Game")

            Console.WriteLine()

            Console.WriteLine("What do you want to do?")

            Try

                selection = Console.ReadLine()

            Catch ex As Exception

            End Try

​

            If selection = 1 then

                Console.Clear()

                Dim attempt as integer = 0

                Dim guess as string

​

                Do

                    Console.WriteLine("Who is the flower of Dota?")

                    guess = Console.ReadLine()

                    attempt = attempt + 1

                    Console.Clear()

                    Console.WriteLine("You have " & 3 - attempt & " attempts left.")

                Loop Until attempt = 3 Or guess = "N0tail"

​

                If guess.ToLower() = "n0tail" Then

                    Console.WriteLine("You are correct!")

                    Console.ReadLine()

                    Console.Clear()

                Else

                    Console.WriteLine("You are out of guesses... The awnser is N0tail!")

                    Console.ReadLine()

                    Console.Clear()

                End If

            ElseIf selection = 2 then

                Console.Clear()

                Console.WriteLine("When you enter 1 the quiz will ask you a question.")

                Console.WriteLine("You will have three attempts to awnser the question.")

                Console.ReadLine()

                Console.Clear()

            ElseIf selection = 4 then

                Console.Clear()

                Console.Write("Closing game...")

            ElseIf selection = 3 then

                Console.Clear()

                Console.WriteLine("Copy this link: https://github.com/TeemoTimeCodes/VB.NET_Calculator/issues")

                Console.Readline()

                Console.Clear()

            Else

                Console.Clear()

                Console.WriteLine("Error: Your value '" & selection &  "' has not been recognised.")

                Console.ReadLine()

                Console.Clear()

            End If

        Loop Until selection = 4

    End Sub

End Module