Imports System

​

Public Module Module1

​

    Sub Main()

        Console.WriteLine("Dungeon or Castle? D/C")

        Dim Answer as string

        Answer = Console.ReadLine()

        If answer = "C" then

            drawCastle

            Console.WriteLine("You have entered the castle. Left or right tower? L/R")

            Answer = Console.ReadLine()

            If answer = "L" then

                Console.WriteLine("You walk into the tower. You fill your pockets of gold and make your way out of the castle.")

                If answer = "R" then

                    Console.WriteLine("The tower collapses, game over.")

                End if

            End if

        End if

    End Sub

​

    Sub drawCastle

        Console.Writeline("              |>>>                        |>>>")

        Console.Writeline("              |                           |")

        Console.Writeline("          _  _|_  _                   _  _|_  _")

        Console.Writeline("        | |_| |_| | |                | |_| |_| |")

        Console.Writeline("         \  .      /                 \ .    .  /")

        Console.Writeline("           \    ,  /                   \    .  /")

        Console.Writeline("           | .   |_   _   _   _   _   _| ,   |")

        Console.Writeline("           |    .| |_| |_| |_| |_| |_| |  .  |")

        Console.Writeline("           | ,   | .    .     .      . |    .|")

        Console.Writeline("           |   . |  .     . .   .  ,   |.    |")

        Console.Writeline("           | .   |.   ,  _______   .   |   , |")

        Console.Writeline("           |.    | .    |+++++++| .    |   . |")

        Console.Writeline("           |   . |   ,  |+++++++|.  . _|__   |")

        Console.Writeline("           |     |      |++++ __|      |     |")

    End Sub

End Module

​