function compute(word)
    if word == nil then
        return 0
    elseif word:find("d") ~= nil then
        return rolarLocal(word)
    else
        return word
    end
end


function the_three_gender()
    genders = {"Stallion", "Gelded", "Mare"}
    return genders[rolarLocal('d3')]

end

function new_animal(animal_table)


    -- Atributos primários
    local ST = compute(animal_table["ST"])
    local DX = compute(animal_table["DX"])
    local HT = compute(animal_table["HT"])


    local IQ = 4+math.floor(rolarLocal('d10')/10)

    -- Atributos secundários
    local Will  = compute(animal_table['Will']) + IQ
    local Per   = compute(animal_table['Per'])  + IQ
    local HP    = compute(animal_table['HP'])   + ST
    local FP    = compute(animal_table['FP'])   + HT

    local BL = ST*ST/10
    local SPD = compute(animal_table['SPD'])/4 + (DX+HT)/4
    local BM = compute(animal_table['BM'])+math.floor(SPD)
    local LBM = math.floor(BM*1.5)

    -- NH
    local NHbrawl = compute(animal_table["NHbraw"])+DX
    local NHindimidation = compute(animal_table['NHinditimidation'])+Will
    local NHrunning = compute(animal_table['NHrunning'])+DX

    local gen = the_three_gender()

    write(string.format("Generation random %s %s \n", gen, animal_table['race']))

    write ("HP ".. HP .. "  FP ".. FP)
    write ("ST ".. ST.. "  DX ".. DX.. "  IQ ".. IQ.. "  HT ".. HT)
    write ("Will "..Will.. "  Per ".. Per )
    write ( "BL ".. BL.."Kg")
    write ( "SPD ".. SPD.."  B.Move "..BM.."  Land B.Move "..LBM)
    write ( "Brawl "..NHbrawl)
    write ( "Intimidation "..NHindimidation)

    write ( "Run "..NHrunning)

end


tabelas = { ["wild"]={
                ["race"] = "wild",
                ["ST"] = "1d3+14",
                ["DX"] = "1d3+8",
                ["HT"] = "1d3+9",
                ["r01"] = "1d10",
                ["Will"] = "1d3",
                ["Per"] = "1d3",
                ["HP"] = "1d3-2",
                ["FP"] = "1d5",
                ["SPD"] = "1d3-1",
                ["BM"] = "1d4",
                ["NHbrawl"] = "1d3",
                ["NHindimidation"] = "1d3-2",
                ["NHrunning"] = "1d3+1",
                ["NHsurvival"] = "1d3-2",
            },
            ["desert"]={
                ["race"] = "desert",
                ["ST"] = "1d3+18",
                ["DX"] = "1d4+7",
                ["HT"] = "1d4+9",
                ["r01"] = "1d10",
                ["Will"] = "1d3",
                ["Per"] = "1d3",
                ["HP"] = "1d3-2",
                ["FP"] = "1d5",
                ["SPD"] = "1d3-1",
                ["BM"] = "1d3+1",
                ["NHbrawl"] = "1d3",
                ["NHindimidation"] = "1d3-2",
                ["NHrunning"] = "1d4+1",
            },
            ["destrier"]={
                ["race"] = "destrier",
                ["ST"] = "1d3+21",
                ["DX"] = "1d4+7",
                ["HT"] = "1d3+8",
                ["r01"] = "1d10",
                ["Will"] = "1d3",
                ["Per"] = "1d3",
                ["HP"] = "1d3-2",
                ["FP"] = "1d5",
                ["SPD"] = "1d3-2",
                ["BM"] = "1d3",
                ["NHbrawl"] = "1d3",
                ["NHindimidation"] = "1d3-2",
                ["NHrunning"] = "1d4+1",
            },
            ["draft"]={
                ["race"] = "draft",
                ["r01"] = "1d10",
                ["ST"] = "1d3+22",
                ["DX"] = "1d4+6",
                ["HT"] = "1d3+9",
                ["Will"] = "1d3",
                ["Per"] = "1d3",
                ["HP"] = "1d3-2",
                ["FP"] = "1d5",
                ["SPD"] = "1d3-2",
                ["BM"] = "1d3",
                ["NHbrawl"] = "1d3",
                ["NHindimidation"] = "1d3-2",
                ["NHrunning"] = "1d4+1",
            },
            ["hunter"]={
                ["race"] = "hunter",
                ["gen"] = "1d3",
                ["r01"] = "1d10",
                ["ST"] = "1d3+19",
                ["DX"] = "1d4+7",
                ["HT"] = "1d3+9",
                ["Will"] = "1d3",
                ["Per"] = "1d3",
                ["HP"] = "1d3-2",
                ["FP"] = "1d5",
                ["SPD"] = "1d3-1",
                ["BM"] = "1d3+1",
                ["NHbrawl"] = "1d3",
                ["NHindimidation"] = "1d3-2",
                ["NHrunning"] = "1d4+1",
            },
            ["work"]={
                ["race"] = "work",
                ["gen"] = "1d3",
                ["r01"] = "1d10",
                ["ST"] = "1d3+18",
                ["DX"] = "1d3+7",
                ["HT"] = "1d3+8",
                ["Will"] = "1d3",
                ["Per"] = "1d3",
                ["HP"] = "1d3-2",
                ["FP"] = "1d5",
                ["SPD"] = "1d3-1",
                ["BM"] = "1d3",
                ["NHbrawl"] = "1d3",
                ["NHindimidation"] = "1d3-2",
                ["NHrunning"] = "1d4+1",
            },

        }
input = "desert"
choose = tabelas[input]
new_animal(choose)