Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Welcome to Dragonstone")

        dim name as string

        console.writeline("What is your name?")

        name = console.readline()

        console.writeline("Hello " & name)

        dim dice1, dice2, dice3, dice4 as integer 

        console.writeline("Please roll the dice and enter a number between 1 and 6...")

        dice1 = console.readline()

        'wizard

        if dice1 = 1 or dice1 = 2 then

            console.writeline("You have been chosen to be a wizard")

            console.writeline("Please roll the dice again and enter a number between 1 and 6...")

            dice2 = console.readline()

            if dice2 = 1 or dice2 = 2 then

            console.writeline("You are a wizard with a power rating of 30 and 10 health points")

                dim dice5, dice6 as integer

                dim wizard, troll as string

                console.writeline("")

                console.writeline("You start your journey by walking through the dark forest")

                console.writeline("Suddenly a troll with an axe appears")

                console.writeline("The troll is an enemy with 15 health points and 5 attack damage")

                troll = "15" 

                wizard = "10"

                do 

                console.writeline("The troll attacks you")

                console.writeline("Roll the dice and enter a number between 1 and 6 to determine your fate")

                dice5 = console.readline()

                if dice5 = 1 or dice5 = 2 or dice5 = 3 then

                    console.writeline("The troll hits you")

                    wizard = "wizard - 5"

                else 

                    console.writeline("The troll misses you")

                end if

                console.writeline("You now attack the troll")

                console.writeline("Roll the dice and enter a number between 1 and 6 to determine the troll's fate")

                dice6 = console.readline()

                if dice6 = 1 or dice6 = 2 or dice6 = 3 then

                    console.writeline("The troll dodges your attack")

                else 

                    console.writeline("You hit the troll")

                    troll = "troll - 30"

                end if

                loop until troll = "0" or wizard = "0"

​

            elseif dice2 = 3 or dice2 = 4 

            console.writeline("You are a wizard with a power rating of 40 and 10 health points")

            else dice2 = 5 or dice2 = 6 

            console.writeline("You are a wizard with a power rating of 50 and 10 health points")

            end if 

        'warrior

        elseif dice1 = 3 or dice1 = 4 

            console.writeline("You have been chosen to be a human warrior")

            console.writeline("Please roll the dice again and enter a number between 1 and 6...")

            dice3 = console.readline()

            if dice3 = 1 or dice3 = 2 then

            console.writeline("You are a warrior with a power rating of 5 and 20 health points")

            elseif dice3 = 3 or dice3 = 4 

            console.writeline("You are a warrior with a power rating of 10 and 20 health points")

            else dice3 = 5 or dice3 = 6 

            console.writeline("You are a warrior with a power rating of 15 and 20 health points")

            end if

        'elf

        else dice1 = 5 or dice1 = 6

            console.writeline("You have been chosen to be an elf")

            console.writeline("Please roll the dice again and enter a number between 1 and 6...")

            dice4 = console.readline()

            if dice4 = 1 or dice4 = 2 then

            console.writeline("You are a elf with a power rating of 10 and 15 health points")

            elseif dice4 = 3 or dice4 = 4

            console.writeline("You are a elf with a power rating of 20 and 15 health points")

            else dice4 = 5 or dice4 = 6

            console.writeline("You are a elf with a power rating of 30 and 15 health points")

            end if

        end if      

    End Sub

End Module