Imports System

Public Module Module1

    Public Sub Main()

        Dim character, Name as string

        Dim valid_character, abilities(3), damage(3) as boolean

        Dim power, MaxHP, Enemy_HP, HP as integer

        Dim character_rand as new random

        'User enters name

        console.Write("Enter your name: ")

        name = console.readline()

        if name.length >= 10 then

            console.WriteLine("Ayo why yo name so long? I'ma call you dave")

            name = "Dave"

        end if

        console.WriteLine("")

        console.WriteLine(name &", Roll a die to select your character or press enter to roll randomly")

        character = console.ReadLine()

        valid_character = false

        do

        Select case character

        Case ""

            character = convert.ToString(character_rand.Next(0,7))

            console.WriteLine(character)

        Case "1"

            console.WriteLine("You're an elf who likes frogs and cheese sandwiches")

            character = "elf"

            abilities(1) = "Throw sandwich"

            damage(1) = 1

            abilities(2) = "Lick frog for magic powers"

            damage(2) = 5

            abilities(3) = "Shoot with bow"

            damage(3) = 3

            MaxHp = 10

            valid_character = true

        Case "2"

            console.WriteLine("You're a dwarf who eats rocks")

            character = "dwarf"

            abilities(1) = "Throw boulder"

            damage(1) = 4

            abilities(2) = "Mine with pickaxe"

            damage(2) = 3

            abilities(3) = "Go into drunken rage"

            damage(3) = 2

            MaxHp = 15

            valid_character = true

        Case "3"

            console.WriteLine("You're a troll who isn't paying rent for his bridge")

            character = "troll"

            abilities(1) = "Eat enemy"

            damage(1) = 2

            abilities(2) = "Release an angry goat"

            damage(2) = 3

            abilities(3) = "Drop kick"

            damage(3) = 7

            MaxHp = 20

            valid_character = true

        Case "4"

            console.WriteLine("You're a human. That is all")

            character = "human"

            abilities(1) = "Punch"

            damage(1) = 1

            abilities(2) = "Destroy enviroment"

            damage(2) = 5

            abilities(3) = "Shoot with bow"

            damage(3) = 3

            MaxHp = 10

            valid_character = true

        Case "5"

            console.WriteLine("You're a demon who has no powers")

            character = "demon"

            abilities(1) = "Send to hell"

            damage(1) = 3

            abilities(2) = "Emotinal damage"

            damage(2) = 7

            abilities(3) = "Sneeze fire"

            damage(3) = 3

            MaxHp = 8

            valid_character = true

        Case "6"

            console.WriteLine("You're a crab that can't die")

            character = "crab"

            abilities(1) = "Pinch"

            damage(1) = 2

            abilities(2) = "Pinch"

            damage(2) = 2

            abilities(3) = "Pinch"

            damage(3) = 2

            MaxHp = 100000000

            valid_character = true

        Case "7"

            console.WriteLine("It would appear your dice has seven sides?")

            console.WriteLine("You're Bob, a common NPC I guess.")

            character = "NPC"

            abilities(1) = "Start unskippable dialogue"

            damage(1) = 5

            abilities(2) = "Walk into wall"

            damage(2) = 1

            abilities(3) = "Stare creepily without blinking, with an absecent expression and souless eyes"

            damage(3) = 10

            MaxHp = 10

            name = "Bob"

            valid_character = true

        Case else

                console.WriteLine("You fool! That is an invalid roll! Roll again.")

        End select

        loop until valid_character = true

    End Sub

End Module