Imports System

                Public Module Module1

Public Sub Main()

        dim action as string

        dim mercy_act as string

        Console.WriteLine("You encounter Froggit")

        Do 

        Console.WriteLine("Fight    Act      Item     Mercy")

            action = Console.Readline()

        loop until action = "fight" or action = "mercy" or action = "act" or action = "item"

        select action

        case "fight" 

            Console.WriteLine("Froggit died and faded into dust")

            Console.WriteLine("You won")

            Console.WriteLine("You earned 1 EXP and 5 gold")

            Console.WriteLine("You monster")

        case "mercy"

            Console.WriteLine("*Spare")

            Console.WriteLine("*Flee")

            mercy_act = Console.ReadLine()

            if mercy_act = "spare"

                Console.WriteLine("You won")

                Console.WriteLine("You earned 0 EXP and 0 gold")

            else if mercy_act = "flee"

                    Console.WriteLine("Escaped")

                End if

            case "act", "item"

                Console.writeLine("UNDER PROGRESS, SORRY FOR THE INCONVENIENCE")

        end select

    End Sub

End Module

​