-- SPOILER WARNING
--
-- This file contains spoiler information. Do not read or use this file if you
-- don't want to be spoiled. Further, the Lua code in this file may use this
-- spoily information to take actions on your behalf. If you don't want
-- automatic exploitation of spoilers, don't use this.
-- 
---------------------------------------------------------------------------
-- gourmand.lua: (requires eat.lua, chnkdata.lua, and safechunk.lua)
-- 
-- Eats all available chunks on current square and inventory, swapping to an
-- identified amulet of the gourmand if necessary, with no prompts. Note that
-- it relies on spoiler information to identify chunks it can eat without
-- prompting the user.
--
-- This is a Lua macro, so the action will be interrupted by the hp/stat loss,
-- or monsters.
--
-- To use this, add these line to your init.txt:
--   lua_file = lua/gourmand.lua
--
-- And macro the "eat_gourmand" function to a key.
---------------------------------------------------------------------------
-- Macroable
function eat_gourmand()
    local race = you.race()
    local all = { }
    for _, it in ipairs(you.floor_items()) do table.insert(all, it) end
    for _, it in ipairs(item.inventory())  do table.insert(all, it) end
    local chunks = { }
    local needgourmand = false
    local oneedible = false
    for _, itym in ipairs(all) do
        if food.ischunk(itym) then
            table.insert(chunks, itym)
        end
    end
    for _, itym in ipairs(chunks) do
        local rot = food.rotting(itym)
        local mon = chunkmon(itym)
        
        if food.can_eat(itym) and sc_safechunk and 
                sc_safechunk(rot, race, mon) then
            oneedible = true
        end
        
        -- If we can't eat it now, but we could eat it if hungry, a gourmand
        -- switch would be nice.
        if not food.can_eat(itym) and food.can_eat(itym, false) then
            needgourmand = true
        end
        if sc_safechunk and not sc_safechunk(rot, race, mon)
            and sc_safechunk(false, race, mon)
        then
            needgourmand = true
        end
    end
    if table.getn(chunks) == 0 then
        crawl.mpr("No chunks to eat.")
        return
    end
    local amuremoved
    if needgourmand and not oneedible then
        amuremoved = switch_amulet("gourmand")
    end
    for _, ch in ipairs(chunks) do
        if food.can_eat(ch) and is_chunk_safe(ch) then
            while item.quantity(ch) > 0 do
                if food.eat(ch) then
                    coroutine.yield(true)
                else
                    break
                end
            end
        end
    end
    if amuremoved then
        switch_amulet(amuremoved)
    end
end
function chunkmon(chunk)
    local cname = item.name(chunk)
    local mon
    _, _, mon = string.find(cname, "chunk of (.+) flesh")
    return mon
end
function switch_amulet(amu)
    local towear
    if type(amu) == "string" then
        for _, it in ipairs(item.inventory()) do
            if item.class(it, true) == "jewelry" 
                    and item.subtype(it) == amu
                    and not item.cursed(it) then
                towear = item.slot(it)
                break
            end
        end
        if not towear then
            crawl.mpr("Can't find suitable amulet: " .. amu)
            coroutine.yield(false)
        end
    else
        towear = amu
    end
    local curramu = item.equipped_at("amulet")
    if curramu and item.cursed(curramu) then
        crawl.mpr("Can't swap out cursed amulet!")
        coroutine.yield(false)
    end
    local wearitem = item.inslot(towear)
    if curramu then
        if not item.remove(curramu) then
            coroutine.yield(false)
        end
        -- Yield, so that a turn can pass and we can take another action.
        coroutine.yield(true)
    end
    if not item.puton(wearitem) then
        coroutine.yield(false)
    end
    coroutine.yield(true)
    return curramu and item.slot(curramu)
end
function c_interrupt_macro(interrupt_name)
    return interrupt_name == "hp_loss" or interrupt_name == "stat" or
           interrupt_name == "monster" or interrupt_name == "force"
end

  Where possible, use minivaults instead of regular vaults, because the dungeon
  builder has greater freedom with the rest of the level layout when using
  minivaults.

  Your choice of editor can greatly affect your level building. While vi's
  reputation may be close to Crawl's when it comes to fiendishness, there 
  is a style file (levdes.vim in the dat directory) which helps tremendously
  (it colours the various glyphs on the maps, and it highlights the syntax).
  Even Windows users can profit from this by using gvim, a freeware vim
  clone with a graphical user interface which knows shortcuts like Ctrl-X
  etc.

  If you use vim, the levdes.vim syntax highlighting script (provided
  in the dat directory) can make level-editing far more pleasant by colouring
  different features in maps and syntax-highlighting .des-file syntax. vim is
  available for nearly all operating systems, including Windows.