Imports System

​

Public Module Module1

​

    Sub Main()

        'Magic

        snake

        if ask_question("You encounter a DANGEROUS SNAKE, having no choice but to battle. How will you fight? (Magic = 1, Brawl = 2)") _

                            = "1" then

            wizard

            if ask_question("Which spell will you use? (Amphibian Spell = 1, Element Spell = 2)") = "1" then

            'Amphibian

                frog

                Console.WriteLine("You use the Amphibian Spell. You've turned yourself into a frog. You are unable to battle.")

                Console.WriteLine("GAME OVER")

            else

                'Element

                fire

                Console.WriteLine("You use the Element Spell. With a mixture of fire and earth, you are able to attack the DANGEROUS SNAKE.")

                Console.WriteLine("The DANGEROUS SNAKE has been defeated.")

                Console.WriteLine("YOU WIN!")

            end if

            'Brawl

        else 

            'All Out

            if How_to_brawl() = "1" then

                victory_snake

                Console.WriteLine("You fight with all your energy, however it is not enough to defeat the DANGEROUS SNAKE. You run out of energy.")

                Console.WriteLine("GAME OVER")

            else 

                'Style

                dancer

                Console.WriteLine("You fight in a smooth style. The DANGEROUS SNAKE has been distracted by your style, getting hit by your attacks.")

                Console.WriteLine("The DANGEROUS SNAKE has been defeated.")

                Console.WriteLine("YOU WIN!")

            end if

        end if

    End Sub

    Function ask_question(question as String) 

        Console.WriteLine((question))

        return Console.ReadLine

    End Function

​

    function How_to_brawl()

        fist

            Console.WriteLine("You hold your fists up, ready to brawl it out. How will you fight? (With Style = 1, All Out = 2)")

        return Console.ReadLine()

    end function

    Sub wizard

        Console.WriteLine("        ,/   *")

        Console.WriteLine("      _,'/_   |")

        Console.WriteLine("      `('') ,'/ ")

        Console.WriteLine("   _ _,-H-./ /")

        Console.WriteLine("   \_\_\.   /")

        Console.WriteLine("     )' |  (")

        Console.WriteLine("  __/   H   \__")

    End Sub

    'Fist

    Sub fist

        Console.WriteLine("      ,--.--._")

        Console.WriteLine("-----/ _, \___)")

        Console.WriteLine("        / _/____)")

        Console.WriteLine("        \//(____)")

        Console.WriteLine("------\     (__)")

        Console.WriteLine("       `-----'")

    End Sub

            'Frog

            Sub frog

                Console.WriteLine("              _")

                Console.WriteLine("  __   ___.--'_`.")

                Console.WriteLine(" ( _`.'. -   'o` )")

                Console.WriteLine(" _\.'_'      _.-' ")

                Console.WriteLine("( \`. )    //\`   ")

                Console.WriteLine(" \_`-'`---'\\__,  ")

            End Sub

​

    sub snake

        Console.WriteLine("       __")

        Console.WriteLine("      {00}")

        Console.WriteLine("      \__/")

        Console.WriteLine("      /^/")

        Console.WriteLine("     ( (")

        Console.WriteLine("      \_\_____")

        Console.WriteLine("      (_______)")

        Console.WriteLine("     (_________()Oo")

    end sub

    sub victory_snake

        Console.WriteLine("       __")

        Console.WriteLine("      {òó}")

        Console.WriteLine("      \__/")

        Console.WriteLine("      /^/")

        Console.WriteLine("     ( (")

        Console.WriteLine("      \_\_____")

        Console.WriteLine("      (_______)")

        Console.WriteLine("     (_________()Oo")

    end sub

    sub dancer

        Console.WriteLine("\(•_•)")

        Console.WriteLine(" (  (>")

        Console.WriteLine(" /  \")

    end sub

    sub fire

        Console.WriteLine("  )")

        Console.WriteLine(" ) \")

        Console.WriteLine("/ ) (")

        Console.WriteLine("\(_)/")

    end sub

End Module

​

​