TSAR Better

    elem.allocate("TONY", "TSAR")
    elem.element(elem.TONY_PT_TSAR, elem.element(elem.DEFAULT_PT_DMND))

    elem.property(elem.TONY_PT_TSAR, "Name", "TSAR")
    elem.property(elem.TONY_PT_TSAR, "Description", "Tsar Blobba, explodes like VIBR into gray EXOT.")
    elem.property(elem.TONY_PT_TSAR, "Colour", 0xff9900)
    elem.property(elem.TONY_PT_TSAR, "MenuVisible", 1)
    elem.property(elem.TONY_PT_TSAR, "MenuSection", 9)

    elem.property(elem.TONY_PT_TSAR, "Advection", 0)
    elem.property(elem.TONY_PT_TSAR, "AirDrag", 0)
    elem.property(elem.TONY_PT_TSAR, "AirLoss", 0.9)
    elem.property(elem.TONY_PT_TSAR, "Loss", 0)
    elem.property(elem.TONY_PT_TSAR, "Collision", 0)
    elem.property(elem.TONY_PT_TSAR, "Gravity", 0)
    elem.property(elem.TONY_PT_TSAR, "Diffusion", 0)
    elem.property(elem.TONY_PT_TSAR, "HotAir", 0)

    elem.property(elem.TONY_PT_TSAR, "Explosive", 0)
    elem.property(elem.TONY_PT_TSAR, "Flammable", 0)
    elem.property(elem.TONY_PT_TSAR, "Hardness", 40)
    elem.property(elem.TONY_PT_TSAR, "Meltable", 0)
    elem.property(elem.TONY_PT_TSAR, "Weight", 1)

    elem.property(elem.TONY_PT_TSAR, "HeatConduct", 255)
    elem.property(elem.TONY_PT_TSAR, "Temperature", 295.15)

    elem.property(elem.TONY_PT_TSAR, "Falldown", 0)
    elem.property(elem.TONY_PT_TSAR, "State", elem.ST_SOLID)
    elem.property(elem.TONY_PT_TSAR, "Properties", elem.TYPE_SOLID + elem.PROP_LIFE_DEC)

    elem.property(elem.TONY_PT_TSAR, "LowPressure", IPL)
    elem.property(elem.TONY_PT_TSAR, "LowPressureTransition", NT)
    elem.property(elem.TONY_PT_TSAR, "HighPressure", IPH)
    elem.property(elem.TONY_PT_TSAR, "HighPressureTransition", NT)
    elem.property(elem.TONY_PT_TSAR, "LowTemperature", ITL)
    elem.property(elem.TONY_PT_TSAR, "LowTemperatureTransition", NT)
    elem.property(elem.TONY_PT_TSAR, "HighTemperature", ITH)
    elem.property(elem.TONY_PT_TSAR, "HighTemperatureTransition", NT)

    function TSAR_Update(i, x, y, ss, nt)
    -- i: particle index
    -- x, y: particle x, y coords

    --Absorb and Release Temperature
    if sim.partProperty(i,"tmp2") ~= 1 then
    if sim.partProperty(i,"temp") > 299.15 then
    sim.partProperty(i,"tmp",sim.partProperty(i,"tmp")+1)
    sim.partProperty(i,"temp",295.15)
    elseif sim.partProperty(i,"temp") < 291.15 then
    sim.partProperty(i,"tmp",sim.partProperty(i,"tmp")-1)
    sim.partProperty(i,"temp",295.15)
    end
    end

    --Start Countdown
    if sim.partProperty(i,"tmp2") ~= 1 then
    if sim.partProperty(i,"tmp") == 250 then
    sim.partProperty(i,"life",1000)
    sim.partProperty(i,"temp",9295.15)
    sim.partProperty(i,"tmp2",1)
    end
    end

    --Explode Into NEUT'd EXOT
    if sim.partProperty(i,"tmp2") == 1 then
    if sim.partProperty(i,"life") == 0 then
    sim.partChangeType(i, elem.DEFAULT_PT_EXOT)
    sim.partProperty(i,"life",1500)
    sim.partProperty(i,"tmp",1000)
    sim.partProperty(i,"tmp2",1)
    sim.pressure(x/4,y/4,200)
    else
    sim.pressure(x/4,(y/4),-4)
    end
    end
    end
    elements.property(elem.TONY_PT_TSAR, "Update", TSAR_Update)

    function TSAR_Graphics(i, colr, colg, colb)
    -- i: particle index
    -- colr, colg, colb: color red, green, and blue channels

    -- return cache, pixel mode,
    -- alpha, red, green, blue,
    -- fire alpha, fire red, fire green, fire blue
    return 1, 0x0000001, 255, colr, colg, colb, 0, 0, 0, 0
    end
    elements.property(elem.TONY_PT_TSAR, "Graphics", TSAR_Graphics)