Dungeon Crawl Stone Soup - Page 73

# Armour autopickup by rwbarton
{
add_autopickup_func(function(it, name)
  if it.class(true) == "armour" then
    local good_slots = {cloak="Cloak", helmet="Helmet", gloves="Gloves", 
boots="Boots"}
    st, _ = it.subtype()
    if good_slots[st] ~= nil and items.equipped_at(good_slots[st]) == nil then
      return true
    end
  end
  return false
end)
}

# Ammo autopickup, adapted from egopickup by rriegs
{
local pickup_missile = false
local pickup_snakable = false
local pickup_sandblast = false

local function init_spells()
   local sp_list = {}

   for _, sp_name in ipairs(you.spells()) do
      sp_list[sp_name] = true
   end

   return sp_list
end

local function ammo_pickup(it, name)
   local class = it.class(true)

   local sp = init_spells()

   local top_ranged_skill = math.max(
      you.skill("Slings"),
      you.skill("Bows"),
      you.skill("Crossbows"))

   if pickup_missile then
      -- Pick up ammunition needed by our skills
      if class == "missile" then
         if you.skill("Slings") > top_ranged_skill / 3 then
            if name:find("stone")  then return true end
            if name:find("bullet") then return true end
         end
         if you.skill("Bows") > top_ranged_skill / 3 then
            if name:find("arrow") then return true end
         end
         if you.skill("Crossbows") > top_ranged_skill / 3 then
            if name:find("bolt") then return true end
         end
      end
   end

   if pickup_sandblast then
      if sp["Sticks to Snakes"] and it.snakable then

        if name:find("arrow") then
           return true
        end
     end
  end

  if pickup_snakable then
     if sp["Sandblast"] then
        if name:find("stone") then 
           return true
        end
     end
  end

   return false
end

add_autopickup_func(ammo_pickup)
}

<Henzell> craterc[2/2]: todo: new portal vault message colours, autosac for corpse gods, de-magentify monsters?, drop_filter redo??, water colours??, unberserk monsters, item destruction ammo autopickup