Imports System

Public Module Module1

    Public Sub Main()

        Dim theMan = true

        Dim name As String = "TEST"

        Console.WriteLine("WELCOME TO THE PARADIGM WARS")

        While theMan = true

            Console.WriteLine("Please enter your name:")

            Dim input = Console.ReadLine()

            name = input

            Console.WriteLine("Your name is: " + input + ", correct?")

            Dim correct = Console.ReadLine()

            If correct = "yes" Then

                Console.WriteLine("Excellent, the game shall now begin") 

                theMan = false

            Else 

                Console.WriteLine("Game has terminated as you have the wrong input")

            End If

        End While

        Console.WriteLine("Paradigm wars has a simple design. Essentially how it works is you have to guess what number the other player has chosen. The player can choose any number between 1 and 10. If you choose such number you deduct one life point from them")

        Console.WriteLine("Each player has 5 life points. An astute rule is if you are on one life point and choose the same number you gain a life point")

        Console.WriteLine("Are you ready to start the game?")

        Dim gameStart = Console.ReadLine()

        If gameStart = "yes" Then

            Console.WriteLine("-------------------------------- PARADIGM WARS -----------------------------------")

            Console.WriteLine()

            Console.WriteLine("PLAYER UNO: " + name + "                         PLAYER DOS: Artificial Intelligence >:)")

            Console.WriteLine("Life Points: 5                                Life Points: 5")

        End If

    End Sub

End Module