local ClorhidrLiquid = elements.allocate('FAE', 'HCLL')
elements.element(elements.FAE_PT_HCLL, elements.element(elements.DEFAULT_PT_ACID))
elements.property(elements.FAE_PT_HCLL, 'Name', 'HCLL')
elements.property(elements.FAE_PT_HCLL, 'Description', 'Acido clorhidrico. HCl')
elements.property(elements.FAE_PT_HCLL, 'Color', '0xBBEECC')

--------------------------------------
local Sosa = elements.allocate('FAE', 'SOSA')
elements.element(elements.FAE_PT_SOSA, elements.element(elements.DEFAULT_PT_SALT))
elements.property(elements.FAE_PT_SOSA, 'Name', 'SOSA')
elements.property(elements.FAE_PT_SOSA, 'Description', 'Sosa caustica. NaOH')
elements.property(elements.FAE_PT_SOSA, 'Color', '0xEEEEEE')
elements.property(elements.FAE_PT_SOSA, 'Weight', 70)

local function sosa_update(index, partx, party, surround_space, nt)
    if nt > 0 then
        for fx = -1, 1, 1 do
            for fy = -1, 1, 1 do
                if (tpt.get_property('type', partx + fx, party +fy) == elements.FAE_PT_HCLL) then
                    local newtemperature = math.min(sim.partProperty(index, 'temp') + 100, 9999)
                    sim.partChangeType(index, elements.DEFAULT_PT_SALT)
                    sim.partProperty(index, 'temp', newtemperature)
                    --sim.partKill(partx + fx, party +fy)
                    sim.partCreate(partx + fx, party + fy, DEFAULT_PT_DSWT)
                    return
                end
            end
        end
    end
end
elements.property(elements.FAE_PT_SOSA, "Update", sosa_update)