For a Beaker

local titanium = elem.allocate("CHEMICS", "TTNP")
elem.element(titanium, elem.element(elem.DEFAULT_PT_TTAN))
elem.property(titanium, "Name", "TTNP")
elem.property(titanium, "Description", "Powdered titanium, so you can drop it into a test tube.")
elem.property(titanium, "Gravity", 1)
elem.property(titanium, "Falldown", 1)
elem.property(titanium, "MenuSection", elem.SC_POWDERS)
elem.property(titanium, "Properties", elem.TYPE_PART+elem.PROP_CONDUCTS+elem.PROP_HOT_GLOW+elem.PROP_LIFE_DEC)

local gold = elem.allocate("CHEMICS", "GLDP")
elem.element(gold, elem.element(elem.DEFAULT_PT_GOLD))
elem.property(gold, "Name", "GLDP")
elem.property(gold, "Description", "Powdered gold, so you can drop it into a test tube.")
elem.property(gold, "Gravity", 1)
elem.property(gold, "Falldown", 1)
elem.property(gold, "MenuSection", elem.SC_POWDERS)
elem.property(gold, "Properties", elem.TYPE_PART+elem.PROP_CONDUCTS+elem.PROP_HOT_GLOW+elem.PROP_LIFE_DEC+elem.PROP_NEUTPASS)

local iron = elem.allocate("CHEMICS", "IRNP")
elem.element(iron, elem.element(elem.DEFAULT_PT_IRON))
elem.property(iron, "Name", "IRNP")
elem.property(iron, "Description", "Powdered iron, so you can drop it into a test tube.")
elem.property(iron, "Gravity", 1)
elem.property(iron, "Falldown", 1)
elem.property(iron, "MenuSection", elem.SC_POWDERS)
elem.property(iron, "Properties", elem.TYPE_PART+elem.PROP_CONDUCTS+elem.PROP_HOT_GLOW+elem.PROP_LIFE_DEC)

local function goldUpdate(i, x, y, s, nt)
    local r = sim.partID(x+math.random(-1,1),y+math.random(-1,1))
    if r ~= nil then
        if sim.partProperty(r, "type") == elem.DEFAULT_PT_BMTL and sim.partProperty(r, "tmp") == 1 then
            sim.partChangeType(r, elem.DEFAULT_PT_IRON)
        end
    end
end

local function ironUpdate(i, x, y, s, nt)
    local r = sim.partID(x+math.random(-1,1),y+math.random(-1,1))
    if r ~= nil then
        local type = sim.partProperty(r, "type")
        if type == elem.DEFAULT_PT_SALT or type == elem.DEFAULT_PT_WATR or type == elem.DEFAULT_PT_SLTW or type == elem.DEFAULT_PT_BUBW or type == elem.DEFAULT_PT_DSTW or type == elem.DEFAULT_PT_OXYG then
            if math.random(1, 100) == 1 then
                sim.partChangeType(i, elem.DEFAULT_PT_BRMT)
            end
        end
    end
end

local function lavaUpdate(i, x, y, s, nt)
    local r = sim.partID(x+math.random(-1,1),y+math.random(-1,1))
    if r~= nil then
        if sim.partProperty(r, "type") == elem.DEFAULT_PT_EXOT and (sim.partProperty(i, "ctype") == titanium or sim.partProperty(i, "ctype") == gold) then
            sim.partProperty(i, "ctype", elem.DEFAULT_PT_VIBR)
        end
    end
end

elem.property(gold, "Update", goldUpdate)
elem.property(iron, "Update", ironUpdate)
elem.property(elem.DEFAULT_PT_LAVA, "Update", lavaUpdate)