VIRS (very ancient and laggy)

tpt.el.eqve.name = "VIRS"
tpt.el.eqve.color = 0xFE11F6
tpt.el.eqve.advection = .6
tpt.el.eqve.airdrag = .01
tpt.el.eqve.airloss = .98
tpt.el.eqve.loss = .95
tpt.el.eqve.collision = 0
tpt.el.eqve.gravity = .1
tpt.el.eqve.diffusion = 0
tpt.el.eqve.hotair = 0
tpt.el.eqve.falldown = 2
tpt.el.eqve.flammable = 100
tpt.el.eqve.explosive = 0
tpt.el.eqve.meltable = 0
tpt.el.eqve.hardness = 20
tpt.el.eqve.menu = 1
tpt.el.eqve.enabled = 1
tpt.el.eqve.weight = 31
tpt.el.eqve.menusection = 5
tpt.el.eqve.heat = 345.15
tpt.el.eqve.hconduct = 251
tpt.el.eqve.state = 2
tpt.el.eqve.properties = 0x0002
tpt.el.eqve.description = "Virus. Turns everything it touches into virus"

tpt.el.bran.name = "CURE"
tpt.el.bran.color = 0x8BE700
tpt.el.bran.advection = .6
tpt.el.bran.airdrag = .01
tpt.el.bran.airloss = .98
tpt.el.bran.loss = .95
tpt.el.bran.collision = 0
tpt.el.bran.gravity = .1
tpt.el.bran.diffusion = 0
tpt.el.bran.hotair = 0
tpt.el.bran.falldown = 2
tpt.el.bran.flammable = 500
tpt.el.bran.explosive = 0
tpt.el.bran.meltable = 0
tpt.el.bran.hardness = 20
tpt.el.bran.menu = 1
tpt.el.bran.enabled = 1
tpt.el.bran.weight = 32
tpt.el.bran.menusection = 5
tpt.el.bran.heat = 295.15
tpt.el.bran.hconduct = 251
tpt.el.bran.state = 2
tpt.el.bran.properties = 0x0002
tpt.el.bran.description = "Cure. Turns virus back into what it was before"
--[[
tpt.el.wind.name = "RAZR"
tpt.el.wind.color = 0xC0C0C0
tpt.el.wind.advection = .7
tpt.el.wind.airdrag = .07
tpt.el.wind.airloss = .97
tpt.el.wind.loss = 0
tpt.el.wind.collision = 0
tpt.el.wind.gravity = 1.5
tpt.el.wind.diffusion = 0
tpt.el.wind.hotair = 0
tpt.el.wind.falldown = 1
tpt.el.wind.flammable = 0
tpt.el.wind.explosive = 0
tpt.el.wind.meltable = 0
tpt.el.wind.hardness = 0
tpt.el.wind.menu = 1
tpt.el.wind.enabled = 1
tpt.el.wind.weight = 500
tpt.el.wind.menusection = 6
tpt.el.wind.heat = 295.15
tpt.el.wind.hconduct = 164
tpt.el.wind.state = 1
tpt.el.wind.properties = 0x0001
tpt.el.wind.description = "Heavy silver particles. Currently doesn't work right"
]]
function virus(i,x,y,surround_space,nt)
   --if math.random(1,5) ~= 1 then return 0 end -- reduce lag a little
   local r, rx, ry;

   if tpt.get_property("tmp",i) == 0 then
      tpt.set_property("tmp",6400,i);
   end
   if tpt.get_property("tmp",i)%256 ~= 0 then
      if math.random(0,1) < 1 then
         tpt.set_property("tmp",tpt.get_property("tmp",i) - 1
,i);
      end
      if tpt.get_property("tmp",i)%256 == 0 then
         tpt.set_property("type",tpt.get_property("tmp2",i),i);

         tpt.set_property("tmp2",0,i);
         tpt.set_property("tmp",0,i);
         return 0
      end
   end
   if tpt.get_property("tmp",i) - tpt.get_property("tmp",i)%256 > 0 then
      if math.random(0,19) < 1 then
         tpt.set_property("tmp",tpt.get_property("tmp",i) - 256,i);
      end
   else

      tpt.delete(i)
      return 1
   end
   for rx = -2, 2 do
      for ry = -2, 2 do
         if x+rx>=0 and y+ry>0 and x+rx<612 and y+ry<384 and (rx ~= 0 or ry ~= 0) and tpt.get_property("type",x+rx,y+ry) ~= 0 then
            r = tpt.get_property("type",x+rx,y+ry)
            local r2 = tpt.get_property("id",x+rx,y+ry)
            if r == tpt.el.eqve.id and tpt.get_property("tmp",r2)%256 ~= 0 and tpt.get_property("tmp",i)%256 == 0 then -- virus state
               local newtmp = tpt.get_property("tmp",r2)%256 + 1;

               if math.random(0,5) < 1 then
                  newtmp = newtmp + 1
               end
               if newtmp > 255 then
                  newtmp = 255;

               end
               tpt.set_property("tmp", tpt.get_property("tmp",i) - tpt.get_property("tmp",i)%256 + newtmp, i);

            elseif (tpt.get_property("tmp",i)%256 == 0 or tpt.get_property("tmp",i)%256 > 10) and r == tpt.el.bran.id then
               tpt.set_property("tmp", (tpt.get_property("tmp",i) - tpt.get_property("tmp",i)%256) + 10, i);

            elseif tpt.get_property("tmp",i)%256 == 0 and r ~= tpt.el.eqve.id then -- virus state
               if math.random(0,49) < 1 then
                  local newtmp = tpt.get_property("tmp",i)
                  if math.random(0,2) < 1 then newtmp = newtmp + 256 end
                  if newtmp >= 65536 then
                     newtmp = 65280;

                  end
                  tpt.set_property("tmp2",r,r2);
                  tpt.set_property("tmp",newtmp,r2);
                  tpt.set_property("type",116,r2); -- virus state
               end
            end
         end
      end
   end
   return 0;
end
--[[
function test(i,x,y,surround_space,nt)
   for scany = -20,20 do
      maxscanx=math.sqrt(400-(scany^2))
      for scanx = -maxscanx,maxscanx do
         if tpt.get_property("type",x+scanx,y+scany) ~= 0 then
            tpt.set_property("temp",tpt.get_property("temp",x+scanx,y+scany)+50,x+scanx,y+scany)
         end
      end
   end
end]]

tpt.element_func(virus,tpt.el.eqve.id,1,virus)
--tpt.element_func(test,tpt.el.wind.id,1)