iframe-proxy | Sunbelt Computer Software

87 lines (78 loc) · 2.35 KB

local world = df.global.world
if not dfhack.isWorldLoaded() then
    qerror('World not loaded.')
local args = {...}
local list_only = false
local creatures = {}
if #args > 0 then
    for _, arg in pairs(args) do
        if arg == 'list' then
            list_only = true
        else
            creatures[arg:upper()] = true
        end
    creatures.CAT = true
local total = 0
local total_changed = 0
local total_created = 0
local males = {} --as:df.unit[][]
local females = {} --as:df.unit[][]
for _, unit in pairs(world.units.active) do
    if not dfhack.units.isActive(unit) or
        dfhack.units.isDead(unit) or
        dfhack.units.isBaby(unit) or
        dfhack.units.isChild(unit)
        goto continue
    local id = world.raws.creatures.all[unit.race].creature_id
    males[id] = males[id] or {}
    females[id] = females[id] or {}
    table.insert((dfhack.units.isFemale(unit) and females or males)[id], unit)
    ::continue::
if list_only then
    print("Type                   Male # Female #")
    -- sort IDs alphabetically
    local ids = {} --as:string[]
    for id in pairs(males) do
        table.insert(ids, id)
    table.sort(ids)
    for _, id in pairs(ids) do
        print(("%22s %6d %8d"):format(id, #males[id], #females[id]))
for id in pairs(creatures) do
    local female_list = females[id] or {}
    total = total + #female_list
    for _, female in pairs(female_list) do
        if female.pregnancy_timer ~= 0 then
            female.pregnancy_timer = math.random(1, 100)
            total_changed = total_changed + 1
        elseif not female.pregnancy_genes then
            local preg = df.unit_genes:new()
            preg.appearance:assign(female.appearance.genes.appearance)
            preg.colors:assign(female.appearance.genes.colors)
            female.pregnancy_genes = preg
            female.pregnancy_timer = math.random(1, 100)
            female.pregnancy_caste = female.caste  -- To handle female only species
            total_created = total_created + 1
        end
if total_changed ~= 0 then
    print(("%d pregnancies accelerated."):format(total_changed))
if total_created ~= 0 then
    print(("%d pregnancies created."):format(total_created))
if total == 0 then
    qerror("No creatures matched.")
print(("Total creatures checked: %d"):format(total))

Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

catsplosion.lua

Latest commit

History

catsplosion.lua

File metadata and controls