-- short-term urgent bugfixes

local _ENV = mkmodule("quickfix")

local function get_dwarf_race()
    for k,v in ipairs(df.global.world.raws.creatures.all) do
        -- dwarves are always the first entity race
        if v.flags.OCCURS_AS_ENTITY_RACE then return k end
    end
end

-- entities can send caravans, and if the race is -1, then DF crashes
-- called from onLoad.default.init
function set_entity_race_references()
    local race = get_dwarf_race()
    if not race then
        return
    end

    local count = 0
    for _,v in ipairs(df.global.world.entities.all) do
        if v.race == -1 then
            count = count + 1
            v.race = race
        end
    end
    print(('quickfix: fixed %d unset entity race reference(s)'):format(count))
end

return _ENV