maintainbuffs.lua

------------------------------------------------------------------
-- This script will maintain any castable buffs you have active --
-- that you are capable of extending yourself, when you have a  --
-- reasonable amount of mana. It will only extend buffs that    --
-- you already have active, so it won't have weird issues with  --
-- Accordion Thief buffs, and you can stop maintaining a buff   --
-- by shrugging it off.                                         --
------------------------------------------------------------------

-- If you have less than this percentage of your max mp left, no more buffs will be autocast
local mppercentcutoff = 0.75
-- Won't bother extending buffs to last longer than this
local maxturns = 1011

------------------------------------------------------------------
-- END OF CONFIGURATION, END USER SHOULD NOT MODIFY BEYOND HERE --
--       UNLESS THEY INTEND TO MODIFY CORE FUNCTIONALITY        --
------------------------------------------------------------------

local buffmeta = {}
buffmeta.__index = buffmeta

function buffmeta:ShouldBeMaintained()
  local turnsleft = buffturns(self.effectname)

  -- Only auto-extend active buffs
  if turnsleft < 1 then
    return false
  end

  -- Don't maintain buffs over the max turn limit
  if turnsleft >= maxturns then
    return false
  end

  -- Can't extend a buff if you don't know the skill to cast it
  if not have_skill(self.skillname) then
    return false
  end

  -- No point trying to maintain a buff automatically if the
  -- mana allowance for maintenance is too small to cast it
  if maxmp() - self.mpcost < maxmp() * mppercentcutoff then
    return false
  end

  -- If this buff has some extra conditions for whether or not
  -- it should be maintained, check them too
  if self.condition and not self.condition() then
    return false
  end

  return true
end

local function buff(effectname, mpcost, skillname, condition)
  skillname = skillname or effectname
  local thisbuff = {
    effectname = effectname,
    mpcost = mpcost,
    skillname = skillname,
    condition = condition,
  }
  setmetatable(thisbuff, buffmeta)
  return thisbuff
end

local function haveaccordion()
  return AT_song_duration() > 0
end

local function havetotem()
  return have_item("turtle totem") or have_item("Ouija Board, Ouija Board") or
         have_item("Mace of the Tortoise") or have_item("Chelonian Morningstar") or
         have_item("Flail of the Seven Aspects")
end

local function havesaucepan()
  return have_item("saucepan") or have_item("5-Alarm Saucepan") or
         have_item("warbear oil pan") or have_item("oil pan") or
         have_item("17-alarm Saucepan") or have_item("Saucepanic") or
         have_item("Windsor Pan of the Source") or have_item("frying brainpan")
end

local buffs = {
  ---[===[ STANDARD CLASSES
  ---[=[ Seal Clubber
  -- +2 Muscle
  buff("Seal Clubbing Frenzy", 1),
  -- +5 Moxie
  buff("Blubbered Up", 7, "Blubber Up"),
  -- +10 Weapon Damage. Facial expression.
  buff("Scowl of the Auk", 10),
  -- +10% Muscle, +10 Weapon Damage
  buff("Rage of the Reindeer", 10),
  -- Increases combat frequency. Will not auto-maintain unless you know Smooth Movement, since it can't be shrugged.
  buff("Musk of the Moose", 10, nil, function() return have_skill("Smooth Movement") end),
  -- +10 Monster Level
  buff("Pride of the Puffin", 30),
  -- +10 Spooky Damage. Facial expression.
  buff("Snarl of the Timberwolf", 10),
  -- +5xLevel HP, up to +55. Crimbo '09 skill.
  buff("A Few Extra Pounds", 10, "Holiday Weight Gain"),
  --]=]

  ---[=[ Turtle Tamer
  -- +1 Muscle, +3 HP
  buff("Patience of the Tortoise", 1),
  -- 10 Damage Reduction. Facial expression.
  buff("Stiff Upper Lip", 10),
  -- +80 Damage Absorption
  buff("Ghostly Shell", 6, nil, havetotem),
  -- +8 Weapon Damage
  buff("Tenacity of the Snapper", 8, nil, havetotem),
  -- +5 Familiar Weight
  buff("Empathy", 15, "Empathy of the Newt", nil, havetotem),
  -- Damages attacking Monsters
  buff("Spiky Shell", 8, nil, havetotem),
  -- +30 HP
  buff("Reptilian Fortitude", 10, nil, havetotem),
  -- +80 Damage Absorption, Slight resistance to all elements (+1)
  buff("Astral Shell", 10, nil, havetotem),
  -- Your melee attacks restore some HP
  buff("Boon of the War Snapper", 30, "Spirit Boon"),
  -- +20 Weapon Damage, Your melee attacks deal Spooky Damage
  buff("Boon of She-Who-Was", 30, "Spirit Boon"),
  -- Your melee attacks restore some MP
  buff("Boon of the Storm Tortoise", 30, "Spirit Boon"),
  -- +1 Muscle Substat per fight. Facial expression.
  buff("Patient Smile", 10, nil, havetotem),
  -- Familiar will act more often in combat. Crimbo '09 skill.
  buff("Jingle Jangle Jingle", 5, nil, havetotem),
  -- +1 Familiar Experience per combat. Travelling Trader skill.
  buff("Curiosity of Br'er Tarrypin", 10, nil, havetotem),
  --]=]

  ---[=[ Pastamancer
  -- +2 Mysticality
  buff("Pasta Oneness", 1, "Manicotti Meditation"),
  -- +10 Spell Damage. Facial expression.
  buff("Arched Eyebrow of the Archmage", 10),
  -- +40% Combat Initiative
  buff("Springy Fusilli", 10),
  -- 30% Reduced physical damage taken (10% for non-Pastamancers)
  buff("Shield of the Pastalord", 20),
  buff("Flimsy Shield of the Pastalord", 20, "Shield of the Pastalord"),
  -- +5 Familiar Weight
  buff("Leash of Linguini", 12),
  -- +10% Spell Critical Chance. Facial expression.
  buff("Wizard Squint", 10),
  --]=]

  ---[=[ Sauceror
  -- +1 Mysticality, +3 HP
  buff("Saucemastery", 1, "Sauce Contemplation"),
  -- +10 Cold Damage, +10 Damage with Cold spells. Facial expression.
  buff("Icy Glare", 10),
  -- So-So Resistance to all elements (+2)
  buff("Elemental Saucesphere", 10, nil, havesaucepan),
  -- 3 Damage Reduction, Lightly damages attacking Monsters
  buff("Jalape&ntilde;o Saucesphere", 5, nil, havesaucepan),
  -- Regenerate 4-5 HP per Adventure
  buff("Antibiotic Saucesphere", 15, nil, havesaucepan),
  -- +1 Mysticality Substat per fight. Facial expression.
  buff("Wry Smile", 10),
  -- +15% Spell Critical Chance (+5% for non-Sauceror)
  buff("Sauce Monocle", 20),
  -- So-So Cold and Sleaze Resistance (+2), Deals light Spooky damage to attackers.
  buff("Scarysauce", 10, nil, havesaucepan),
  --]=]

  ---[=[ Disco Bandit
  -- +2 Moxie
  buff("Disco State of Mind", 1, "Disco Aerobics"),
  -- +10 Moxie. Facial expression.
  buff("Disco Smirk", 10),
  -- +10% Moxie, +10 Ranged Damage
  buff("Disco Fever", 10),
  -- Decreases combat frequency. Will not auto-maintain unless you know Musk of the Moose, since it can't be shrugged.
  buff("Smooth Movements", 10, "Smooth Movement", function() return have_skill("Musk of the Moose") end),
  -- +10% Meat from Monsters. Facial expression.
  buff("Disco Leer", 10),
  --]=]

  ---[=[ Accordion Thief
  -- +1 Moxie, +3 HP
  buff("Mariachi Mood", 1, "Moxie of the Mariachi"),
  -- +10 Moxie. Song.
  buff("The Moxious Madrigal", 2, nil, haveaccordion),
  -- +10 Mysticality, +20 MP. Song.
  buff("Magical Mojomuscular Melody", 3, "The Magical Mojomuscular Melody", haveaccordion),
  -- +20% Combat Initiative. Song.
  buff("Cletus's Canticle of Celerity", 4, nil, haveaccordion),
  -- +10 Muscle, +20 HP. Song.
  buff("Power Ballad of the Arrowsmith", 5, "The Power Ballad of the Arrowsmith", haveaccordion),
  -- +50% Meat from Monsters. Song.
  buff("Polka of Plenty", 7, "The Polka of Plenty", haveaccordion),
  -- +12 Weapon and Spell Damage. Song.
  buff("Jackasses' Symphony of Destruction", 9, nil, haveaccordion),
  -- +20% Items from Monsters. Song.
  buff("Fat Leon's Phat Loot Lyric", 11, nil, haveaccordion),
  -- floor(level^1.2) Damage Reduction. Song.
  buff("Brawnee's Anthem of Absorption", 13, nil, haveaccordion),
  -- +20% Combat Initiative. Facial expression.
  buff("Suspicious Gaze", 10),
  -- Delevels and Damages attacking Monsters. Song.
  buff("Psalm of Pointiness", 15, "The Psalm of Pointiness", haveaccordion),
  -- +10% to All Attributes. Song.
  buff("Stevedave's Shanty of Superiority", 30, nil, haveaccordion),
  -- +1 of each Substat per fight. Song.
  buff("Aloysius' Antiphon of Aptitude", 40, nil, haveaccordion),
  -- Decreases combat frequency. Song.
  buff("The Sonata of Sneakiness", 20, nil, haveaccordion),
  -- Increases combat frequency. Song.
  buff("Carlweather's Cantata of Confrontation", 20, nil, haveaccordion),
  -- +1 Moxie Substat per fight. Facial expression.
  buff("Knowing Smile", 10),
  -- +2*level ML. Song.
  buff("Ur-Kel's Aria of Annoyance", 30, nil, haveaccordion),
  -- +12 Spooky Damage, +12 Damage with Spooky spells. Song.
  buff("Dirge of Dreadfulness", 9, nil, haveaccordion),
  -- Regenerate 5-10 HP per Adventure. Crimbo '09 skill. Song.
  buff("Cringle's Curative Carol", 5, nil, haveaccordion),
  --]=]
  --]===]
  -- Challenge path specific classes coming eventually, probably.
}

local previousmp = -1

local function buffmaintenanceautomator()
  --print("BUFF MAINTENANCE")

  local minmp = maxmp() * mppercentcutoff

  -- Don't even bother sorting through which buffs should be
  -- maintained and such unless you have enough mana to cast
  -- some of them in the first place, and you are able to cast
  -- non-combat skills at the moment.
  -- Also, if your mp hasn't changed since last time this finished,
  -- odds are you aren't going to be able to cast anything.
  if locked() or (mp() == previousmp and not mp() == maxmp()) or mp() <= minmp then
    return
  end

  -- Trim out the buffs that aren't going to actually be maintained,
  -- to avoid looping over all of them pointlessly.
  local buffs_to_maintain = {}
  for i,v in ipairs(buffs) do
    if v:ShouldBeMaintained() then
      buffs_to_maintain[#buffs_to_maintain + 1] = v
    end
  end

  if #buffs_to_maintain == 0 then
    return
  end

  while true do
    local leastturnsleft = maxturns
    local bufftocast
    for i,v in ipairs(buffs_to_maintain) do
      local turnsleft = buffturns(v.effectname)
      if turnsleft < leastturnsleft then
        leastturnsleft = turnsleft
        if mp() - v.mpcost >= minmp then
          bufftocast = v
        else
          bufftocast = nil
        end
      end
    end
    if bufftocast then
      cast_skill(bufftocast.skillname)
      if buffturns(bufftocast.effectname) == leastturnsleft then
        -- Something went wrong with casting the buff.
        -- Odds are it's going to keep happening, so just give up for this time.
        print("Something odd went wrong with buff maintenance!")
        break
      end
    else
      break
    end
  end

  previousmp = mp()
end

add_automator("all pages", buffmaintenanceautomator)