Imports System

Public Module Module1

    Public Sub Main()

        dim name, d, dif,d2, count, hp, pwr, d3, d4, troll, dif2  as string

        count = 0

        pwr = 0

        hp = 0

        dif2 = 0

​

        Console.WriteLine("Enter your name")

        name = Console.readline

        Console.writeline("Right, you will now be referred to as " & name)

        Console.writeline("Please select the difficulty:E(asy),  M(edium) or H(ard). Enter the letter outside of the brackets.")

        dif = console.readline()

        if dif = "E" then

            troll = 15

        else if dif = "M" then

                troll = 50

            Else if dif = "H" then

                    troll = 100

                else console.writeline("That's not one of the options. Prepare for impossible mode.")

                    troll = 10000

                    'increase difficulty by 1, impossible mode'

                    dif2= dif2+1

                end if

        Console.writeline(name & " You are now playing Dragonstone! Lucky you. Please roll a dice to determine your class.")

        d = console.ReadLine()

        if d = 1  then

                    'increase the count by one, establishing status as wizard'

            console.writeline("You are a wizard!")

            count = count + 1

        else if d = 2 then

                console.writeline("You are a wizard!")

                count = count + 1

        else if d = "3" 

                        'increase the count by two, establishing status as human warrior'

                 console.writeline("You are a human warrior (kinda lame).")

                    count = count + 2

        else if d = 4 then

                        console.writeline("You are a human warrior (kinda lame).")

                                count = count + 2

        else if d = "5" then

                                    'increase the count by three, establishing status as elf warrior'

                Console.writeline("You are an elf warrior!")

                            count = count + 3

        else if d = 6 then 

                Console.writeline("You are an elf warrior!")

                            count = count + 3

            else 

                                        'increase the count by four, establishing status as rubber ball'

                                        Console.writeline ("That's not on a six sided dice. You're now a rubber ball.")

                                count = count + 4

                end if

                            Console.writeline("Please roll a dice again to determine your stats. ( Enter a number between 1 and 6)")

                            d2 = console.readline()

                            if d2 = 1 or d2 = 2 and count = 1 then

                                Console.writeline("Power rating: 30")

                                Console.writeline("Healthpoints: 10")

                                pwr = pwr + 30

                                hp = hp + 10

                            else if d2 = 3 or d2 = 4 and count = 1 then

                                    Console.writeline("Power rating: 40")

                                    Console.writeline("Health points: 10")

                                    pwr = pwr + 40

                                    hp = hp + 10

                                else if d2 = 5 or d2 = 6 and count = 1 then

                                    Console.writeline("Power rating: 50")

                                    Console.writeline("Health points: 10")

                                    pwr = pwr + 50

                                    hp = hp + 10

                                    else if d2 = 1 or d2 = 2 and count = 2 then

                                            Console.writeline("Power rating: 5")

                                            Console.writeline("Health points: 20")

                                            pwr = pwr + 5

                                            hp = hp + 20

                                        else if d2 = 3 or d2 = 4 and count = 2 then

                                                Console.writeline("Power rating: 10")

                                                Console.writeline("Health points: 20")

                                                pwr = pwr + 10

                                                hp = hp + 20

                                            else if d2 = 5 or d2 = 6 and count = 2 then

                                                    Console.writeline("Power rating: 15")

                                                    Console.writeline("Health points: 20")

                                                    pwr = pwr + 15

                                                    hp = hp + 20

                                                else if d2 = 1 or d2 = 2 and count = 3 then

                                                        Console.writeline("Power rating: 10")

                                                        Console.writeline("Health points: 15")

                                                        pwr = pwr + 10

                                                        hp = hp + 15

                                                    else if d2 = 3 or d2 = 4 and count = 3 then

                                                            Console.writeline("Power rating: 20")

                                                        Console.writeline("Health points: 15")

                                                        pwr = pwr + 20

                                                        hp = hp + 15

                                                        else if d2 = 5 or d2 = 6 and count = 3 then

                                                                Console.writeline("Power rating: 30")

                                                                Console.writeline("Health points: 15")

                                                        pwr = pwr + 30

                                                        hp = hp + 15

                                                            else if count = 4 then

                                                                    Console.writeline("Power rating 0.1")

                                                                        Console.writeline("Health points: 10000")

                                                        pwr = pwr + 0.1

                                                        hp = hp + 10000

                                                                end if

                                                                Console.WriteLine("Now that we've set your character, let's start!")

                                                                Console.writeline("You begin your journey by walking thorough a forest")

                                                                        Console.writeline("How peaceful. Peaceful until a troll appears! it looks like it has " &  troll & " hp!")

                                                                        if dif2 = 1 then 

                                                                            Console.writeline("I told you it would be impossible.")

                                                                        end if

                                                                do 

                                                                Console.writeline("It swings! It will deal 5 damage if it hits! Roll a dice to dodge!")

                                                                d3 = Console.readline

                                                                if d3 = 1 or d3 = 2 or d3 = 3 then

                                                                    Console.writeline("Nice one klutz. You tripped and he hit you.")

                                                                    hp = hp - 5

                                                                    Console.writeline("You have " & hp & " hp left.")

                                                                else if d3 = 4 or d3 = 5 or d3 = 6 then

                                                                        Console.writeline("Nice! You dodged! Your precious health remains intact.")

                                                                                else

                                                                                    Console.Writeline("Be serious")

                                                                    end if

                                                                        if hp <=0 then

                                                                            Console.writeline("You're dead but you can make one last valiant effort to beat it. Attack!")

                                                                        end if

                                                                    Console.writeline("Now it's your turn. Beat that loser into a pulp! Roll a dice!")

                                                                    d4 = console.ReadLine()

                                                                    if d4 = 1 or d4 = 2 or d4 = 3 then

                                                                        Console.writeline("You're kidding, right? You missed? I know you can't see it but this troll is huge!")

                                                                    else if d4 = 4 or d4 = 5 or d4 = 6 then

                                                                            Console.writeline("Wow! You hit it! That's impressive, it's tiny!")

                                                                                troll = troll - pwr

                                                                                Console.writeline("The troll has " & troll & " hp left")

                                                                                    else Console.writeline("Be serious")

                                                                            end if

                                                                            loop  until hp <= 0 or troll <= 0 

                                                                        if troll <= 0 then

                                                                            Console.writeline("Congratulations brave hero. You have saved us all. Sorry the game was so short. This was the minimum required")

                                                                        else if hp <= 0 then

                                                                                Console.writeline("Beaten by a troll, huh? Boy do you suck. just try the game again.")

                                                                                    else if (troll <=0 And hp <= 0)

                                                                                        Console.writeline("You lay dying next to the troll. A valiant effort. Your life may have ended but so too has the troll's. Of course, it is really weak, so it's not that big a hill to die on but whatever.")

                                                                                        end if

    End Sub

End Module