Remote creator/deleter

local create = elem.allocate("CYBER", "RCRT")
elem.element(create, elem.element(elem.DEFAULT_PT_DMND))
elem.property(create, "Name", "RCRT")
elem.property(create, "Description", "Remote element creator, x and y are tmp and tmp2.")
elem.property(create, "Color", 0x00ff00)
elem.property(create, "MenuSection", elem.SC_ELEC)
elem.property(create, "Properties", elem.TYPE_SOLID+elem.PROP_DRAWONCTYPE)

local function creator(i, x, y, s, nt)
    for r in sim.neighbors(x, y, 1, 1) do
        if sim.partProperty(r, "type") == elem.DEFAULT_PT_SPRK and sim.partProperty(r, "life") == 3 then
            sim.partCreate(-1, sim.partProperty(i, "tmp"), sim.partProperty(i, "tmp2"), sim.partProperty(i, "ctype"))
        end
    end
end

elem.property(create, "Update", creator)

local delete = elem.allocate("CYBER", "RDLT")
elem.element(delete, elem.element(elem.DEFAULT_PT_DMND))
elem.property(delete, "Name", "RDLT")
elem.property(delete, "Description", "Remote element deleter, x and y are tmp and tmp2.")
elem.property(delete, "Color", 0xff0000)
elem.property(delete, "MenuSection", elem.SC_ELEC)

local function deleter(i, x, y, s, nt)
    for r in sim.neighbors(x, y, 1, 1) do
        if sim.partProperty(r, "type") == elem.DEFAULT_PT_SPRK and sim.partProperty(r, "life") == 3 then
            sim.partKill(sim.partProperty(i, "tmp"), sim.partProperty(i, "tmp2"))
        end
    end
end

elem.property(delete, "Update", deleter)