Lua

#@ SimpleGraphic
-- Path of Building
--
-- Module: Launch Install
-- Installation bootstrap
--

local basicFiles = { "UpdateCheck.lua", "UpdateApply.lua", "Launch.lua" }

local xml = require("xml")
local curl = require("lcurl.safe")

ConClear()
ConPrintf("Preparing to complete installation...\n")

local localBranch, localSource
local localManXML = xml.LoadXMLFile("manifest.xml")
if localManXML and localManXML[1].elem == "PoBVersion" then
	for _, node in ipairs(localManXML[1]) do
		if type(node) == "table" then
			if node.elem == "Version" then
				localBranch = node.attrib.branch
			elseif node.elem == "Source" then
				if node.attrib.part == "program" then
					localSource = node.attrib.url
				end
			end
		end
	end
end
if not localBranch or not localSource then
	Exit("Install failed. (Missing or invalid manifest)")
	return
end
localSource = localSource:gsub("{branch}", localBranch)
for _, name in ipairs(basicFiles) do
	local text = ""
	local easy = curl.easy()
	easy:setopt_url(localSource..name)
	easy:setopt_writefunction(function(data)
		text = text..data 
		return true 
	end)
	easy:perform()
	local size = easy:getinfo(curl.INFO_SIZE_DOWNLOAD)
	easy:close()
	if size == 0 then
		Exit("Install failed. (Couldn't download program files)")
		return
	end
	local outFile = io.open(name, "wb")
	outFile:write(text)
	outFile:close()
end
Restart()

-- Removes all smoke from the map

--[====[

clear-smoke
===========

Removes all smoke from the map. Note that this can leak memory and should be
used sparingly.

]====]

function clearSmoke(flows)
    for i = #flows - 1, 0, -1 do
        if flows[i].type == df.flow_type.Smoke then
            flows:erase(i)
        end
    end
end

clearSmoke(df.global.flows)

for _, block in pairs(df.global.world.map.map_blocks) do
    clearSmoke(block.flows)
end

-- Reset items in your fort to 0 wear
-- original author: Laggy, edited by expwnent

local args = {...}
local count = 0

if not args[1] or args[1] == 'help' or args[1] == '-h' or args[1] == '--help' then
    print(dfhack.script_help())
    return
elseif args[1] == 'all' or args[1] == '-all' then
    for _, item in ipairs(df.global.world.items.other.IN_PLAY) do
        if item:getWear() > 0 then --hint:df.item_actual
            item:setWear(0)
            count = count + 1
        end
    end
else
    for _, arg in ipairs(args) do
        local item_id = tonumber(arg)
        if item_id then
            local item = df.item.find(item_id)
            if item then
                item:setWear(0)
                count = count + 1
            else
                dfhack.printerr('remove-wear: could not find item: ' .. item_id)
            end
        else
            qerror('Invalid item ID: ' .. arg)
        end
    end
end

print('remove-wear: removed wear from '..tostring(count)..' items')