iframe-proxy | Sunbelt Computer Software

65 lines (58 loc) · 1.91 KB

-- List, create, or change wild colonies (eg honey bees)
-- By PeridexisErrant and Warmist
local guidm = require('gui.dwarfmode')
function findVermin(target_verm)
    for k,v in ipairs(df.global.world.raws.creatures.all) do
        if v.creature_id == target_verm then
            return k
        end
    qerror("No vermin found with name: "..target_verm)
function list_colonies()
    for idx, col in pairs(df.global.world.event.vermin_colonies) do
        local race = df.global.world.raws.creatures.all[col.race].creature_id
        print(race..'    at  '..col.pos.x..', '..col.pos.y..', '..col.pos.z)
function convert_vermin_to(target_verm)
    local vermin_id = findVermin(target_verm)
    local changed = 0
    for _, verm in pairs(df.global.world.event.vermin_colonies) do
        verm.race = vermin_id
        verm.caste = -1 -- check for queen bee?
        verm.amount = 18826
        verm.visible = true
        changed = changed + 1
    print('Converted '..changed..' colonies to '..target_verm)
function place_vermin(target_verm)
    local pos = guidm.getCursorPos()
    if not pos then
        qerror("Cursor must be pointing somewhere")
    local verm = df.vermin:new()
    verm.race = findVermin(target_verm)
    verm.flags.is_colony = true
    verm.caste = -1 -- check for queen bee?
    verm.amount = 18826
    verm.visible = true
    verm.pos:assign(pos)
    df.global.world.event.vermin_colonies:insert("#", verm)
    df.global.world.event.vermin:insert("#", verm)
local args = {...}
local target_verm = args[2] or "HONEY_BEE"
if args[1] == 'help' or args[1] == '?' then
    print(dfhack.script_help())
elseif args[1] == 'convert' then
    convert_vermin_to(target_verm)
elseif args[1] == 'place' then
    place_vermin(target_verm)
    if #df.global.world.event.vermin_colonies < 1 then
        dfhack.printerr('There are no colonies on the map.')
    list_colonies()

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

colonies.lua

Latest commit

History

colonies.lua

File metadata and controls