Electromagnetic Pulse Area (The Spacish Inquisition)

Semp = elements.allocate("JosephMA", "SEMP");
elements.element(Semp, elements.element(elements.DEFAULT_PT_BRCK));
elements.property(Semp, "Name", "SEMP");
elements.property(Semp, "Colour", 0x00FFDE);
elements.property(Semp, "Description", "Space Electromagnetic Pulse, destroys enemy ships in range.");
elements.property(Semp, "MenuSection", 15);

local function sempUpdate(i, x, y, s, n)
   for r in sim.neighbors(x,y,5,5) do
         local partType = sim.partProperty(r, "type");
         local tmp = tpt.get_property("tmp", i);
         if (partType == ship or partType == ship2 or partType == bomber or partType == bomber2 or partType == builder or partType == builder2 or partType == mothership or partType == destroyer or partType == kamikaze or partType == decrafter or partType == splitship or partType == terraformer) and sim.partProperty(r, "tmp") ~= tmp then
             tpt.set_property("type", "bmtl", sim.partProperty(r, "x"),sim.partProperty(r, "y"));
             tpt.set_property("tmp", 0, sim.partProperty(r, "x"),sim.partProperty(r, "y"));
             tpt.set_property("life", 0, sim.partProperty(r, "x"),sim.partProperty(r, "y"));
         end
   end
end
elements.property(Semp, "Update", sempUpdate);



local function sempUpdate(i, x, y, s, n)
    local r;
    local g;
    local b;
    local tmp = tpt.get_property("tmp", i);
    if tmp == 0 then
        r = 255;
        g = 0;
        b = 0;
    elseif tmp == 1 then
        r = 0;
        g = 255;
        b = 0;
    elseif tmp == 2 then
        r = 0;
        g = 0;
        b = 255;
    elseif tmp == 3 then
        r = 255;
        g = 204;
        b = 0;
    elseif tmp == 4 then
        r = 255;
        g = 255;
        b = 255;
    elseif tmp == 5 then
        r = 153;
        g = 153;
        b = 153;
    end
    graphics.drawCircle(sim.partProperty(i, "x"),sim.partProperty(i, "y"),5,5,r,g,b,255)
    return 1,0x00000001,255,r,g,b,255,255,255,255;
end
elements.property(Semp, "Graphics", sempUpdate);