Boron (B)

local B = elem.allocate("YOL0", "BORN")
elem.element(B, elem.element(elem.DEFAULT_PT_PLEX))
elem.property(B, "Name", "BRON")
elem.property(B, "Description", "Boron, halfs the life of NEUT without having them pass through, can be used in nuclear reactors.")
elem.property(B, "Flammable", 0)
elem.property(B, "Color", 0xcccc00)
elem.property(B, "MenuSection", elem.SC_SOLIDS)
elem.property(B, "Properties", elem.PROP_DEADLY)

local function boron(i, x, y, s, nt)
    for r in sim.neighbors(x, y, 1, 1) do
        if sim.partProperty(r, "type") == elem.DEFAULT_PT_NEUT then
            sim.partProperty(r, "life", math.ceil(sim.partProperty(r, "life")/2))
        end
    end
end

elem.property(B, "Update", boron)