Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Caden's Adventure Game Version 0.002")

        Console.WriteLine("      /| ________________")

        Console.WriteLine("O|===|* >________________>")

        Console.WriteLine("      \|")

        Console.WriteLine("----------------------------------------------------------------------------")

        Console.Writeline("Let's go cross that bridge over there!")

        Console.Writeline("Oh no! A troll! He wants you to answer a riddle!")

        Console.Writeline("Would you like to fight(f) him or solve his riddle(r)?")

        Dim fight as String

        Dim answer1 as String

        fight = Console.Readline()

        If fight = "f" Then

            If askQuestion("You choose to fight! Do you choose a Sword(s) or a bow(b)?!") = "s" Then

                Console.Writeline("You pull out your sword! You go in for a blow, but the giant just kicks you off the bridge..")

                Console.Writeline("GAME OVER....")

            Else

                Console.Writeline("You chose bow! You string an arrow, and fire it!")

                Console.Writeline("You shot the troll in the eye! He's dead!")

                Console.Writeline("YOU WIN, CONGRATS....")

                Console.Writeline("Restart to play again!")

            End if

        Else

            Console.Writeline("Ok then.. Answer this...")

            Console.Writeline("I speak without a mouth and hear without ears. I have no body, but I come alive with wind. What am I?")

            Console.Writeline("(Make sure its spelled correctly! Its 1 word! No capitals)")

            answer1 = Console.ReadLine()

            If answer1 = "echo" Then

                Console.Writeline("Correct! Great work! However...")

                Console.Writeline("The troll stomps on you..")

                Console.Writeline("GAME OVER....")

            Else

                Console.Writeline("Wrong! The troll smashes you...")

                Console.Writeline("GAME OVER....")

            End if

        End if

    End Sub 

​

    Public Function askQuestion(question as string)

        Console.WriteLine((question))

        return Console.Readline()

    End Function

​

    Public Function Sword_Or_Bow()

        Console.Writeline("You choose to fight! Do you choose a Sword(s) or a bow(b)?!")

        return Console.Readline()

    End Function

End Module

​