Module Module1

    Sub GameOver()
        Console.ForegroundColor = ConsoleColor.DarkRed
        Console.WriteLine("
 ▄▀▀▀▀▄    ▄▀▀█▄   ▄▀▀▄ ▄▀▄  ▄▀▀█▄▄▄▄      ▄▀▀▀▀▄   ▄▀▀▄ ▄▀▀▄  ▄▀▀█▄▄▄▄  ▄▀▀▄▀▀▀▄
█         ▐ ▄▀ ▀▄ █  █ ▀  █ ▐  ▄▀   ▐     █      █ █   █    █ ▐  ▄▀   ▐ █   █   █
█    ▀▄▄    █▄▄▄█ ▐  █    █   █▄▄▄▄▄      █      █ ▐  █    █    █▄▄▄▄▄  ▐  █▀▀█▀
█     █ █  ▄▀   █   █    █    █    ▌      ▀▄    ▄▀    █   ▄▀    █    ▌   ▄▀    █
▐▀▄▄▄▄▀ ▐ █   ▄▀  ▄▀   ▄▀    ▄▀▄▄▄▄         ▀▀▀▀       ▀▄▀     ▄▀▄▄▄▄   █     █ ▄ ▄ ▄
▐         ▐   ▐   █    █     █    ▐                            █    ▐   ▐     ▐
                  ▐    ▐     ▐                                 ▐
")
    End Sub

    Sub words(stringToWrite As String, delay As Integer)
        For Each i As Char In stringToWrite
            Console.Write(i)
            Threading.Thread.Sleep(delay)
        Next
    End Sub

    Sub ConsoleClear()
        For i = 1 To 100
            Console.WriteLine(" ")
            i = i + 1
        Next
    End Sub

    Sub Main()

        Console.WriteLine("
 ____    __  __  ______  ____        ____            __                      __             __
/\  _`\ /\ \/\ \/\  _  \/\  _`\     /\  _`\         /\ \__                  /\ \           /\ \
\ \ \L\_\ \ \ \ \ \ \L\ \ \ \L\_\   \ \ \L\_\  __  _\ \ ,_\    __    ___    \_\ \     __   \_\ \
 \ \ \L_L\ \ \ \ \ \  __ \ \ \L_L    \ \  _\L /\ \/'\\ \ \/  /'__`\/' _ `\  /'_` \  /'__`\ /'_` \
  \ \ \/, \ \ \_\ \ \ \/\ \ \ \/, \   \ \ \L\ \/>  </ \ \ \_/\  __//\ \/\ \/\ \L\ \/\  __//\ \L\ \
   \ \____/\ \_____\ \_\ \_\ \____/    \ \____//\_/\_\ \ \__\ \____\ \_\ \_\ \___,_\ \____\ \___,_\
    \/___/  \/_____/\/_/\/_/\/___/      \/___/ \//\/_/  \/__/\/____/\/_/\/_/\/__,_ /\/____/\/__,_ /

                                                                                                   ")
        Threading.Thread.Sleep(2000)
        Dim Intro As String
        Dim Intro2 As String
        Dim Intro3 As String
        Dim UStart As String
        Dim Delay As Integer
        Delay = 50
        Intro = "Welcome to GUAG Extended, the longer, more detailed version of GUAG."
        Intro2 = "This will be even more intense, heartbreaking and thrilling than the last version..."
        Intro3 = "Are you ready? Y/N"
        words(Intro, Delay)
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        words(Intro2, Delay)
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        words(Intro3, Delay)
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        UStart = Console.ReadLine()
        UStart = UStart.ToUpper

        If UStart = "Y" Then
            Dim Starting As String
            Starting = "Alright... let's go!"
            words(Starting, Delay)
            Threading.Thread.Sleep(2000)
            ConsoleClear()
        ElseIf UStart = "N" Then
            Dim Bye As String
            Bye = "Oh, i'll just end you then."
            words(Bye, Delay)

            Console.WriteLine(" ")
            Threading.Thread.Sleep(2000)
            Console.WriteLine("Your health is now at 0!")
            ConsoleClear()
            GameOver()
        End If








        Console.ReadKey()


    End Sub

End Module