Mustard Gas

local mustard = elem.allocate("BAUER", "MSTR")


elem.element(elem.BAUER_PT_MSTR, elem.element(elem.DEFAULT_PT_CAUS))

elem.property(elem.BAUER_PT_MSTR, "Name", "MSTR")
elem.property(elem.BAUER_PT_MSTR, "Description", "Mustard Gas")
elem.property(elem.BAUER_PT_MSTR, "Colour", 0xffff66)
elem.property(elem.BAUER_PT_MSTR, "MenuVisible", 1)
elem.property(elem.BAUER_PT_MSTR, "MenuSection", SC_SPECIAL)

elem.property(elem.BAUER_PT_MSTR, "Advection", 2)
elem.property(elem.BAUER_PT_MSTR, "AirDrag", 0)
elem.property(elem.BAUER_PT_MSTR, "AirLoss", 0.99)
elem.property(elem.BAUER_PT_MSTR, "Loss", 0.3)
elem.property(elem.BAUER_PT_MSTR, "Collision", -0.1)
elem.property(elem.BAUER_PT_MSTR, "Gravity", 2)
elem.property(elem.BAUER_PT_MSTR, "Diffusion", 0.3)
elem.property(elem.BAUER_PT_MSTR, "HotAir", 0)

elem.property(elem.BAUER_PT_MSTR, "Explosive", 0)
elem.property(elem.BAUER_PT_MSTR, "Flammable", 0)
elem.property(elem.BAUER_PT_MSTR, "Hardness", 1001)
elem.property(elem.BAUER_PT_MSTR, "Meltable", 0)
elem.property(elem.BAUER_PT_MSTR, "Weight", 2)

elem.property(elem.BAUER_PT_MSTR, "HeatConduct", 70)
elem.property(elem.BAUER_PT_MSTR, "Temperature", 495.15)

elem.property(elem.BAUER_PT_MSTR, "Falldown", 2)
elem.property(elem.BAUER_PT_MSTR, "State", elem.ST_GAS)
elem.property(elem.BAUER_PT_MSTR, "Properties", elem.TYPE_GAS + elem.PROP_DEADLY)

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

local function mstrUpdate(i, x, y, s, nt)
    local r = sim.partID(x+math.random(-1,1),y+math.random(-1,1))
    if r ~= nil then
        local rtype = sim.partProperty(r, "type")
        if rtype ~= mustard and rtype ~= elem.DEFAULT_PT_DMND then
            local chance
            if elem.property(rtype, "Hardness") <= 10 then
                chance = 1
        if elem.property(rtype, "Hardness") <= 1000 then
        end
            else
                chance = 5
            end;
            if math.random(1, chance) == 1 then
                sim.partKill(r)
                if math.random(1, 10) == 1 then
                    sim.partKill(i)
                    return 1
                end
            end
        end
    end
end

elem.property(mustard, "Update", mstrUpdate)