Force field generator

local ESMD = elements.allocate("ESMD", "FFGE")
elements.element(elements.ESMD_PT_FFGE, elements.element(tpt.element("INSL")))
elements.property(elements.ESMD_PT_FFGE, "Name", "FFGE")
elements.property(elements.ESMD_PT_FFGE, "Description", "Force field generator.")
elements.property(elements.ESMD_PT_FFGE, "MenuVisible", 1)
elements.property(elements.ESMD_PT_FFGE, "MenuSection", 2)
elements.property(elements.ESMD_PT_FFGE, "Advection", 0)
elements.property(elements.ESMD_PT_FFGE, "AirDrag", 0.01)
elements.property(elements.ESMD_PT_FFGE, "AirLoss", 0)
elements.property(elements.ESMD_PT_FFGE, "Loss", 0)
elements.property(elements.ESMD_PT_FFGE, "Collision", 0)
elements.property(elements.ESMD_PT_FFGE, "Gravity", 0)
elements.property(elements.ESMD_PT_FFGE, "Diffusion", 0)
elements.property(elements.ESMD_PT_FFGE, "Falldown", 2)
elements.property(elements.ESMD_PT_FFGE, "Flammable", 0)
elements.property(elements.ESMD_PT_FFGE, "Temperature", 273.15)
elements.property(elements.ESMD_PT_FFGE, "Hardness", 0)
elements.property(elements.ESMD_PT_FFGE, "HeatConduct", 0)
elements.property(elements.ESMD_PT_FFGE, "Properties", TYPE_SOLID)
elements.property(elements.ESMD_PT_FFGE, "Colour", 0xFF591B69)

local function ForceFieldGeneratorFunction(i, x, y, s, n)
 local generatortemp= math.floor(tpt.get_property("temp",i))



local goforce = false
if tpt.get_property("type", x+(math.random(-3,3)),y+(math.random(-3,3))) == 15 then goforce = true
end


if goforce then goforce = false
sim.createLine(x,y,x,y,generatortemp/4,generatortemp/4,tpt.element('FFLR'))
sim.createLine(x,y,x,y,generatortemp/4+1,generatortemp/4+1,tpt.element('FSPW'))
end
end


tpt.element_func(ForceFieldGeneratorFunction,tpt.element('FFGE'))
local ESMD = elements.allocate("ESMD", "FFLR")

elements.property(elements.ESMD_PT_FFLR, "Name", "FFLR")
elements.property(elements.ESMD_PT_FFLR, "Description", "Force Field filler")
elements.property(elements.ESMD_PT_FFLR, "MenuVisible", 0)
elements.property(elements.ESMD_PT_FFLR, "MenuSection", 0)
elements.property(elements.ESMD_PT_FFLR, "Advection", 0)
elements.property(elements.ESMD_PT_FFLR, "AirDrag", 0)
elements.property(elements.ESMD_PT_FFLR, "AirLoss", 0)
elements.property(elements.ESMD_PT_FFLR, "Loss", 0)
elements.property(elements.ESMD_PT_FFLR, "Collision", 0)
elements.property(elements.ESMD_PT_FFLR, "Gravity", 0)
elements.property(elements.ESMD_PT_FFLR, "Diffusion", 0)
elements.property(elements.ESMD_PT_FFLR, "Falldown", 0)
elements.property(elements.ESMD_PT_FFLR, "Flammable", 0)
elements.property(elements.ESMD_PT_FFLR, "Temperature", 0)
elements.property(elements.ESMD_PT_FFLR, "Explosive", 0)
elements.property(elements.ESMD_PT_FFLR, "Meltable", 0)
elements.property(elements.ESMD_PT_FFLR, "Hardness", 0)
elements.property(elements.ESMD_PT_FFLR, "Weight", 0)
elements.property(elements.ESMD_PT_FFLR, "HeatConduct", 0)
elements.property(elements.ESMD_PT_FFLR, "Properties", TYPE_SOLID)
elements.property(elements.ESMD_PT_FFLR, "HighPressure", 0)
elements.property(elements.ESMD_PT_FFLR, "Colour", 0xFF000000)

local update = 1
local function ForceFiller(i, x, y, s, n)

update = update + 1
if update >=5 then tpt.delete(x,y)
end
end
tpt.element_func(ForceFiller,tpt.element('FFLR'))



local ESMD = elements.allocate("ESMD", "FSPW")
elements.element(elements.ESMD_PT_FSPW, elements.element(tpt.element("QRTZ")))
elements.property(elements.ESMD_PT_FSPW, "Name", "FSPW")
elements.property(elements.ESMD_PT_FSPW, "Description", "Force Field Spawner")
elements.property(elements.ESMD_PT_FSPW, "MenuVisible", 0)
elements.property(elements.ESMD_PT_FSPW, "MenuSection", 0)
elements.property(elements.ESMD_PT_FSPW, "Properties", TYPE_SOLID)
elements.property(elements.ESMD_PT_FSPW, "HighPressure", 999999)
elements.property(elements.ESMD_PT_FSPW, "Colour", 0xFF127BC1)
local ESMD = elements.allocate("ESMD", "FOFI")
elements.element(elements.ESMD_PT_FOFI, elements.element(tpt.element("DMND")))
elements.property(elements.ESMD_PT_FOFI, "Name", "FOFI")
elements.property(elements.ESMD_PT_FOFI, "Description", "Force field")
elements.property(elements.ESMD_PT_FOFI, "MenuVisible", 0)
elements.property(elements.ESMD_PT_FOFI, "MenuSection", 0)
elements.property(elements.ESMD_PT_FOFI, "Properties", TYPE_SOLID)
elements.property(elements.ESMD_PT_FOFI, "HighPressure", 999999)
elements.property(elements.ESMD_PT_FOFI, "Colour", 0xFF127BC1)

local function ForceFieldSpawner(i, x, y, s, n)
if math.random(1,50) == 1 then tpt.delete(x,y) end
local RX = x+(math.random(-3,3))
local RY = y+(math.random(-3,3))
if math.random(1,50) == 1 then sim.createLine(x+math.random(-3,3),y+math.random(-3,3),x+math.random(-3,3),y+math.random(-3,3),0,0,tpt.element('FOFI')) end
if  tpt.get_property("type", RX,RY) == tpt.element('FOFI')  then else tpt.delete(RX,RY)  end
end
tpt.element_func(ForceFieldSpawner,tpt.element('FSPW'))

local function ForceFieldDelete(i, x, y, s, n)
if  tpt.get_property("type", RX,RY) == tpt.element('FOFI')  then else tpt.delete(RX,RY)  end
if math.random(1,20) == 1 then tpt.delete(x,y) end
end
tpt.element_func(ForceFieldDelete,tpt.element('FOFI'))

 local function glow(i, colr, colg, colb)
return 1,0x0000008,255,122,153,181,255,122,153,181
end
tpt.graphics_func(glow,tpt.element('FOFI'))