Imports System

​

Public Module Module1

​

    Sub Main()

        Dim answer as String

        Console.WriteLine("You wake up in a room")

        Console.WriteLine("You see two bottles")

        Console.WriteLine("Which one will you drink")

        Console.WriteLine("blue or red")

        answer = Console.Readline()

        If answer = "red"

            Console.WriteLine("YOU DIED GAME OVER")

            Console.WriteLine("That was quick")

        end if

​

        If answer = "blue" then

            Console.WriteLine("Good Choice?")

            Console.WriteLine("You see stairs")

            Console.WriteLine("what do you do")

            Console.WriteLine("Go up or down")

            answer = Console.Readline()

            If answer = "up" then

                Console.WriteLine("YOU ESCAPE GAME OVER")

                Console.WriteLine("👑")

            end if

​

            If answer = "down" then

                Console.WriteLine("YOU SEE A DRAGON")

                Console.WriteLine("What will you do")

                Console.WriteLine("fight or run")

                answer = Console.Readline()

                If answer = "fight" then

                    Console.WriteLine("YOU DIE GAME OVER")

                    Console.WriteLine("Hmm Interesting choice")

                end if

​

                If answer = "run" then

                    Console.WriteLine("YOU RAN AWAY")

                    Console.WriteLine("The potion is making you sick")

                    Console.WriteLine("DO U")

                    Console.WriteLine("relax or walk")

                    answer = Console.Readline()

                    If answer = "walk" then

                        Console.WriteLine("YOU DIED WALKING GAME OVER")

                        Console.WriteLine("thanks for Playing")

                        Console.WriteLine("(⌣́_⌣̀)")

                    end if

​

                    If answer = "relax" then

                        Console.WriteLine("YOU WON THE GAME")

                        Console.WriteLine("Thanks for Playing")

                    end if

                end if

            end if

        end if

    End Sub

End Module

​