Script Nuclear Bomb

local ooo , err = pcall(function()
local NUCL = elements.allocate("NUCULAR","NUCL")
elements.element(elements.NUCULAR_PT_NUCL, elements.element(elements.DEFAULT_PT_BOMB))
elements.property(elements.NUCULAR_PT_NUCL, "Name", "NUCL")
elements.property(elements.NUCULAR_PT_NUCL, "Description", "Nuclear Bomb")

function nucl_update(i,x,y,s,n)
local succes , error = pcall(function()
local ele = "plsm"
if tpt.get_property("type" , x , y+1) ~= 0 then
--tpt.set_gravity(x/4,(y/4)-3,1,1, -9999)
tpt.set_pressure((x/4)-25,(y/4)-35, 50, 50, -9999)
tpt.set_pressure((x/4)-2,(y/4)-2, 5, 5, -9999)
tpt.set_property("type","none",x,y)
for u = 1 , 30 do
for i = 1 , 30 do
tpt.create(x - (u-15),y-(i+2),"nbdb" , 50 ,50)
end
end

tpt.set_property("type","nbdb",x-50,y-50 , 100 , 100)
tpt.set_property("type","nbdp",x-10,y-32 , 20 , 20)
for u = 1 , 20 do
for i = 1 , 20 do
tpt.create(x - (u-10),y-(i+30),"snow" )
tpt.set_property("ctype" , "sing" , x , y)----------------------------Here
tpt.set_property("tmp" , 75 , x , y)----------------------------------Here
end
end
end

end)
if succes then

else
print(error)
end
end
--tpt.element_func(nucl_update, elements.NUCULAR_PT_NUCL)
elements.property(elements.NUCULAR_PT_NUCL,"Update",nucl_update)
end)

----------------------------------------------
local ooo , err = pcall(function()
local NUCL = elements.allocate("NUCULAR","FCOL")
elements.element(elements.NUCULAR_PT_FCOL, elements.element(elements.DEFAULT_PT_PLUT))
elements.property(elements.NUCULAR_PT_FCOL, "Name", "NBDB")
elements.property(elements.NUCULAR_PT_FCOL, "Description", "Nuclear Bomb Debris")

function FCOL_update(i,x,y,s,n)
local succes , error = pcall(function()

if math.random (1, 10) == 1 then
tpt.create(x,y-2,"fire")
tpt.create(x+1,y-2,"fire")
tpt.create(x-1,y-2,"fire")
tpt.create(x,y-4,"caus")
tpt.create(x+1,y-4,"caus")
tpt.create(x-1,y-4,"caus")
tpt.set_pressure((x/4)-0,(y/4)-3, 1, 1, 10)
end
end)
if succes then

else

end
end
 --
 elements.property(elements.NUCULAR_PT_FCOL,"Update",FCOL_update)

end)
if ooo then
else
print(err)
end
-------
local ooo , err = pcall(function()
local OOFF = elements.allocate("NUCULAR","FCCL")
elements.element(elements.NUCULAR_PT_FCCL, elements.element(elements.DEFAULT_PT_PLUT))
elements.property(elements.NUCULAR_PT_FCCL, "Name", "NBDP")
elements.property(elements.NUCULAR_PT_FCCL, "Description", "Nuclear Bomb Debris Particle")

function FCCL_update(i,x,y,s,n)
local succes , error = pcall(function()

if math.random (1, 120) == 1 then
tpt.create(x,y-2,"neut")
tpt.create(x+1,y-2,"neut")
tpt.create(x-1,y-2,"neut")
tpt.create(x,y-4,"prot")
tpt.create(x+1,y-4,"prot")
tpt.create(x-1,y-4,"prot")
tpt.set_pressure((x/4)-0,(y/4)-3, 1, 1, 10)
end
end)
if succes then

else

end
end
 --
 elements.property(elements.NUCULAR_PT_FCCL,"Update",FCCL_update)

end)
if ooo then
else
print(err)
end