-- Adcasium (ADSC) Custom Element Mod

-- Save this file as "adcasium.lua" in your TPT scripts directory

local function init_adcasium()

    local a = 26 -- Overwrites DMND slot for stability

    local sing = elem.PT_SING or tpt.element("sing")

    local fire = elem.PT_FIRE or tpt.element("fire")

    local thdr = elem.PT_THDR or tpt.element("thdr")

    elem.property(a, "Name", "ADSC")

    elem.property(a, "Description", "Adcasium: highly unstable and chaotic, decays into SING or THDR")

    elem.property(a, "Colour", 0x77AADD)

    elem.property(a, "MenuVisible", 1)

    elem.property(a, "MenuSection", SC_NUCLEAR)

    elem.property(a, "Update", function(i, x, y, s, n)

        if math.random(1, 100) == 1 then

            sim.partKill(i)

            if math.random(1, 100) <= 34 then

                -- 34% Explosion Branch (FIRE + THDR)

                for k = 1, 5 do

                    local f = sim.partCreate(-1, x + math.random(-1, 1), y + math.random(-1, 1), fire)

                    local t_id = sim.partCreate(-1, x, y, thdr)

                    if f >= 0 then sim.partProperty(f, "temp", 9999) end

                    if t_id >= 0 then

                        sim.partProperty(t_id, "vx", math.random(-20, 20))

                        sim.partProperty(t_id, "vy", math.random(-20, 20))

                    end

                end

            else

                -- 66% Decay Branch (SING with max gravity tmp)

                local s_id = sim.partCreate(-1, x, y, sing)

                if s_id >= 0 then

                    sim.partProperty(s_id, "tmp", 999999)

                end

            end

            return -1

        end

        return 0

    end)

    print("ADSC Mod loaded successfully")

end

init_adcasium()