Gammon Forum

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE muclient>

<muclient>
<plugin
name="ZombieMUD_BuffTracker"
author="Fiendish"
id="5436f54b51d710e47030a41f"
language="Lua"
purpose="Track buffs and announce to party"
save_state="y"
requires="4.00"
version="1.1"
>

<description trim="y"><![CDATA[
Tracks buffs on ZombieMUD and announces stacks to party.

- Alias: buffstatus (prints current buff stacks to party channel).
]]></description>
</plugin>

<!-- Aliases -->
<aliases>
<alias
match="buffstatus"
script="OnBuffStatus"
enabled="y"
regexp="n"
/>
</aliases>

<!-- Script -->
<script>
<![CDATA[
buffDetails = {
    ["stoneskin"] = {
        ["maxStacks"] = 2,
        ["apply"] = "Granite plates form over your skin.",
        ["fade"] = "Your stoneskin crumbles and drops off.",
    }
}
buffStacks = {}


function OnPluginInstall()
    Send("party say BuffTracker loaded.")
    for name, buff in pairs(buffDetails) do
        buffStacks[name] = 0
        AddTriggerEx(
            "gain_" .. name:gsub("[^A-Za-z0-9_]", ""):sub(1, 32),
            buff["apply"],
            "OnBuffGain('" .. name .. "')",
            trigger_flag.Enabled,
            -1, 0, "", "", sendto.script, 100
        )
        AddTriggerEx(
            "loss_" .. name:gsub("[^A-Za-z0-9_]", ""):sub(1, 32),
            buff["fade"],
            "OnBuffLoss('" .. name .. "')",
            trigger_flag.Enabled,
            -1, 0, "", "", sendto.script, 100
        )
    end
end

function OnBuffGain(name)
    if buffStacks[name] < buffDetails[name]["maxStacks"] then
        buffStacks[name] = buffStacks[name] + 1
        Send("party say " .. name .. " gained. Current stacks: " .. buffStacks[name])
    else
        Send("party say " .. name .. " is at max stacks: " .. buffDetails[name]["maxStacks"])
    end
end

function OnBuffLoss(name)
    if buffStacks[name] and buffStacks[name] > 0 then
        buffStacks[name] = buffStacks[name] - 1
        Send("party say " .. name .. " lost. Current stacks: " .. buffStacks[name])
    else
        Send("party say " .. name .. " is not active.")
    end
end

function OnBuffStatus()
    Send("party say Current Buff Status:")
    for name, stacks in pairs(buffStacks) do
        if stacks > 0 then
            Send("party say " .. name .. ": " .. stacks .. "/" .. buffDetails[name]["maxStacks"])
        end
    end
end

]]>
</script>

</muclient>