QGP

local function attract(i,x,y,a) --*1
 sim.gravMap(x/4,y/4,a)
end --*1

local qgp = elements.allocate("TPT" , "QGP")
 elements.element(qgp, elements.element(elements.DEFAULT_PT_WTRV))
 elements.property(qgp, "Name" , "QGP")
 elements.property(qgp, "Description" , "Quark-Gluon Plasma,")
 elements.property(qgp, "Color", 0x06FF18)
 elements.property(qgp, "PhotonReflectWavelengths", 0x00008000)
 elements.property(qgp, "MenuSection", 10)
 elements.property(qgp, "Diffusion", 0.035)
 elements.property(qgp, "Flammable", 0)
 elements.property(qgp, "Loss", -1.0175)
 elements.property(qgp, "LowTemperature", -256)
elements.property(elements.TPT_PT_QGP, "Update", --*1
 function(i,x,y,s,nt) --1
  if sim.partProperty(i, "life") == 0 then --2
   sim.partProperty(i, "life", 1000)
   end --2
  if sim.partProperty(i, "life") > 0 then --3
   sim.partProperty(i, "life", sim.partProperty(i, "life")-1)
   end --3
  attract(i,x,y,math.random(-0.1,0.1))
  sim.partProperty(i, "temp", sim.partProperty(i, "temp")*1.025)
  if sim.partProperty(i, "life") == 1 and math.random(0,63) == 0 then --4
   sim.partKill(i)
   end --4
  if math.random(0,50000) == 0 then --5
   sim.partCreate(-1, math.random(x-1,x+1),math.random(y-1,y+1),elements.DEFAULT_PT_PROT)
   sim.partKill(i)
   end --5
  if math.random(0,5000) == 0 then --6
   sim.partCreate(-1, math.random(x-1,x+1),math.random(y-1,y+1),elements.DEFAULT_PT_NEUT)
   sim.partKill(i)
   end --6
  end --1
) --*1