Match, aka WTF

local match = elem.allocate("MY", "MATCH")
elem.element(match, elem.element(elem.DEFAULT_PT_WOOD))
elem.property(match, "Name", "MTCH")
elem.property(match, "Description", "Match, burns, never ends.")
elem.property(match, "MenuSection", elem.SC_SPECIAL)
elem.property(match, "Gravity", 1)
elem.property(match, "Falldown", 1)

local function burn(i, x, y, s, nt)
    local uh = sim.partCreate(0, x-3, y-1, elem.DEFAULT_PT_FIRE)
    sim.partProperty(uh, "life", 1000)
    local uh = sim.partCreate(0, x-3, y-2, elem.DEFAULT_PT_FIRE)
    sim.partProperty(uh, "life", 1000)
    local uh = sim.partCreate(0, x-3, y-3, elem.DEFAULT_PT_FIRE)
    sim.partProperty(uh, "life", 1000)
    local uh = sim.partCreate(0, x-3, y-4, elem.DEFAULT_PT_FIRE)
    sim.partProperty(uh, "life", 1000)
end

local function matchburn(i, r, g, b)
    local x = sim.partProperty(i, "x")
    local y = sim.partProperty(i, "y")
    tpt.drawline(x-2, y, x+2, y, r, g, b)
    tpt.drawpixel(x-3, y, 255, 0, 0)
    return 1, ren.PMODE_FLAT, 255, r, g, b, 0, 0, 0, 0
end

elem.property(match, "Update", burn)
elem.property(match, "Graphics", matchburn)