Lithium (Li)

local Li = elem.allocate("YOL0", "LITH")
elem.element(Li, elem.element(elem.DEFAULT_PT_BMTL))
elem.property(Li, "Name", "LITH")
elem.property(Li, "Description", "Lithium, can be used as a rechargeable battery, rusts in empty space.")
elem.property(Li, "Color", 0x666633)
elem.property(Li, "Properties", elem.TYPE_SOLID+elem.PROP_HOT_GLOW)

local function lithium(i, x, y, s, nt)
    if s > 0 then
        if math.random(1, 1000000) == 1 then
            sim.partChangeType(i, elem.DEFAULT_PT_BRMT)
        end
    end
    for r in sim.neighbors(x, y, 2, 2) do
        if sim.partProperty(r, "type") == elem.DEFAULT_PT_SPRK and sim.partProperty(r, "life") == 3 then
            if sim.partProperty(r, "ctype") == elem.DEFAULT_PT_PSCN then
                sim.partProperty(i, "tmp", sim.partProperty(i, "tmp")+1)
            end
        elseif sim.partProperty(r, "type") == elem.DEFAULT_PT_NSCN and sim.partProperty(i, "tmp") > 0 and sim.partProperty(r, "life") == 0 then
            sim.partProperty(r, "type", elem.DEFAULT_PT_SPRK)
            sim.partProperty(r, "ctype", elem.DEFAULT_PT_NSCN)
            sim.partProperty(r, "life", 4)
            sim.partProperty(i, "tmp", sim.partProperty(i, "tmp")-1)
        end
    end
end

elem.property(Li, "Update", lithium)