Imports System

​

Public Module Module1

​

    Sub Main()

        dim answer as String

        Console.WriteLine("You're going on a quest. Do you take a wizard or a warrior?")

        answer = Console.ReadLine()

        If answer = "wizard" then

            Console.WriteLine("You decided to take a wizrd.  Do you want him to cast a spell? Y/N")

            answer = Console.ReadLine()

            if answer = "Y" then

                Console.WriteLine("He turned you into a frog. Game Over")

            else

                Console.WriteLine("The wizard casts no spell and nothing disastrous happens. Do you cross the vridge or take the ship? B/S")

                answer = Console.ReadLine()

                if answer = "B" then

                    Console.WriteLine("The bridge collapses under you you drown. Game Over.")

                else

                    Console.WriteLine("You take the ship. You are now in a foreign land and the wizard says he can detect a magical force nearby. Do you look for the source? Y/N")

                    answer = Console.ReadLine()

                    if answer = "Y" then

                        Console.WriteLine("You find a magical chest filled with gold. You and the wizard split the fortune and live out the rest of your days as rich men. Game Over")

                    else

                        Console.WriteLine("You choose not to look, it could be dangerous. You stay at a hotel where a goblin kills you in your sleep. Game Over.")

                    end if

                end if

            end if

        else

            Console.WriteLine("You took the warrior, do you travel over the bridge or ship? B/S")

                answer = Console.ReadLine()

            end if

                if answer = "B" then

                    Console.WriteLine("The aged moldy bridge collapses under you and you drown Game Over.")

                    else 

                    Console.WriteLine("The ship travels across the Ocean you are now in a foreign land. Explore the land? Y/N")

                    answer = Console.ReadLine()

                end if

                    If answer = "Y" 

                        Console.WriteLine("You explore the land settle down start a farm and live a happy life. Game Over")

                    else

                            Console.WriteLine("You dont not explore at all both you and the warrior die of starvation. Game Over")

                        End if

                End sub

End Module

​