[Lua] PIF Script [002]

-- PowderIsFalling WFLM, BFLM, and DELE mod. v1.0
--
--
-- SCRIPT STARTS HERE :
-- ELEMENTCODES
--
-- BFLM {

    local element1 = elements.allocate("PIFMOD", "BFLM")
     elements.element(elements.PIFMOD_PT_BFLM, elements.element(elements.DEFAULT_PT_SMKE))
    elements.property(elements.PIFMOD_PT_BFLM, "Name", "BFLM")
    elements.property(elements.PIFMOD_PT_BFLM, "Description", "Black Flame. (Like Amaterasu)")
    elements.property(elements.PIFMOD_PT_BFLM, "Colour", 0x191919)
    elements.property(elements.PIFMOD_PT_BFLM, "MenuSection", 15)
    elements.property(elements.PIFMOD_PT_BFLM, "Gravity", 0)
    --elements.property(elements.PIFMOD_PT_BFLM, "Loss", nil)
    --elements.property(elements.PIFMOD_PT_BFLM, "AirLoss", nil)
    --elements.property(elements.PIFMOD_PT_BFLM, "AirDrag", nil)
    --elements.property(elements.PIFMOD_PT_BFLM, "Advection", nil)
    elements.property(elements.PIFMOD_PT_BFLM, "Weight", 0)
    --elements.property(elements.PIFMOD_PT_BFLM, "Diffusion", nil)
    elements.property(elements.PIFMOD_PT_BFLM, "Properties", PROP_LIFE_DEC)
    --elements.property(elements.PIFMOD_PT_BFLM, "Properties", PROP_LIFE_KILL_DEC)

-- BFLM }
--
-- WFLM {

    local element1 = elements.allocate("PIFMOD", "WFLM")
     elements.element(elements.PIFMOD_PT_WFLM, elements.element(elements.DEFAULT_PT_SMKE))
    elements.property(elements.PIFMOD_PT_WFLM, "Name", "WFLM")
    elements.property(elements.PIFMOD_PT_WFLM, "Description", "White Flame.")
    elements.property(elements.PIFMOD_PT_WFLM, "Colour", 0xffffff)
    elements.property(elements.PIFMOD_PT_WFLM, "MenuSection", 6)
    elements.property(elements.PIFMOD_PT_WFLM, "Gravity", 0)
    --elements.property(elements.PIFMOD_PT_WFLM, "Loss", nil)
    --elements.property(elements.PIFMOD_PT_WFLM, "AirLoss", nil)
    --elements.property(elements.PIFMOD_PT_WFLM, "AirDrag", nil)
    --elements.property(elements.PIFMOD_PT_WFLM, "Advection", nil)
    elements.property(elements.PIFMOD_PT_WFLM, "Weight", 0)
    --elements.property(elements.PIFMOD_PT_WFLM, "Diffusion", nil)
    elements.property(elements.PIFMOD_PT_WFLM, "Properties", nil)
    elements.property(elements.PIFMOD_PT_WFLM, "Properties", nil)

-- WFLM }
--
-- DELE {

    local element1 = elements.allocate("PIFMOD", "DELE")
    elements.element(elements.PIFMOD_PT_DELE, elements.element(elements.DEFAULT_PT_DMND))
    elements.property(elements.PIFMOD_PT_DELE, "Name", "DELE")
    elements.property(elements.PIFMOD_PT_DELE, "Description", "DELE.")
    elements.property(elements.PIFMOD_PT_DELE, "Colour", 0xffffff)
    elements.property(elements.PIFMOD_PT_DELE, "MenuSection", 8)
    elements.property(elements.PIFMOD_PT_DELE, "Gravity", 1)
    elements.property(elements.PIFMOD_PT_DELE, "Loss", 0.8)
    elements.property(elements.PIFMOD_PT_DELE, "AirLoss", 0.01)
    elements.property(elements.PIFMOD_PT_DELE, "AirDrag", 0)
    elements.property(elements.PIFMOD_PT_DELE, "Advection", 0.5)
    elements.property(elements.PIFMOD_PT_DELE, "Weight", 5)
    elements.property(elements.PIFMOD_PT_DELE, "Diffusion", 0.5)
    --elements.property(elements.PIFMOD_PT_DELE, "Properties", PROP_nil_nil)
    --elements.property(elements.PIFMOD_PT_DELE, "Properties", PROP_nil_nil_nil)

-- DELE }
--
-- FUNCTIONS
--
-- BFLM {

function bflm_spred(i, x, y, s, n)
    tick1 = math.random(1, 10)
    if tick1 == 1 then
        xxx = {1,-1,1,-1,1,0,-1,0}
        yyy = {1,-1,-1,1,0,1,0,-1}
        for l = 1, 8 do
            tpt.set_property("type", "WFLM", x+xxx[l], y+yyy[l])
        end
    end
    tick2 = math.random(1, 16)
    if tick2 == 8 then
        tpt.delete(x, y)
    end
end

-- BFLM }
--
-- WFLM {

function WFLM_spred(i, x, y, s, n)
    tpt.set_property("life", "100", x, y)
    tick1 = math.random(1, 10)
    if tick1 == 1 then
        xxx = {1,-1,1,-1,1,0,-1,0}
        yyy = {1,-1,-1,1,0,1,0,-1}
        for l = 1, 8 do
            tpt.set_property("type", "BFLM", x+xxx[l], y+yyy[l])
        end
    end
    tick2 = math.random(1, 16)
    if tick2 == 8 then
        tpt.delete(x, y)
    end
end

-- WFLM }
--
-- DELE {

function DELE(i, x, y, s, n)
    tpt.set_property("life", "100", x, y)
    tick1 = math.random(1, 10)
    if tick1 == 1 then
        xxx = {1,-1,1,-1,1,0,-1,0}
        yyy = {1,-1,-1,1,0,1,0,-1}
        for l = 1, 8 do
            tpt.set_property("type", "WFLM", x+xxx[l], y+yyy[l])
        end
    end
end
-- DELE }
--
-- SETFUNCS
--
-- BFLM {
tpt.element_func(bflm_spred, elements.PIFMOD_PT_BFLM)
-- BFLM }
--
-- WFLM {
tpt.element_func(WFLM_spred, elements.PIFMOD_PT_WFLM)
-- WFLM }
--
-- DELE {
tpt.element_func(DELE, elements.PIFMOD_PT_DELE)
-- DELE }
--
-- END OF CODE
--
-- NO COPYRIGHT :)