# Crawl Init file
# TEAMCAPTAIN zkyp

rest_wait_both = true
sort_menus = true : equipped, identified, basename, qualname, curse, qty
autofight_stop = 50
automagic_enable = true
automagic_slot = x
show_inventory_weights = true
default_manual_training = true
view_delay = 300

show_more = false

confirm_butcher = never
easy_eat_chunks = true
auto_eat_chunks = true
auto_drop_chunks = true

tile_map_pixels = 3

autopickup = $?!+"/%|\}
autopickup_exceptions +=<needle
autopickup_exceptions +=<throwing net
autopickup_exceptions += staff of .*
autopickup_exceptions += ring of (life protection|sustenance|ice|fire)
autopickup_exceptions += ring of sustain abilities
autopickup_exceptions += rod of striking
autopickup_exceptions += potion of coagulated blood
: if you.race() ~= "Vampire" then
autopickup_exceptions += potion of blood
: end

explore_stop = items,greedy_pickup,greedy_sacrificeable
explore_stop += stairs,shops,altars,gates,greedy_visited_item_stack,portals

stop := runrest_stop_message
stop += An alarm trap emits a blaring wail
stop += You are starting to lose your buoyancy
stop += You start to feel a little slower
stop += Your transformation is almost over
stop += You lose control over your flight
stop += You start to feel a little uncertain
stop += Your skin is crawling a little less now
stop += Your magical contamination has completely faded away
stop += Deactivating autopickup

runrest_ignore_poison  = 2:10
runrest_ignore_monster += fish:2
runrest_ignore_monster += shark:2

more := force_more_message
more += You are starting to lose your buoyancy
more += You start to feel a little slower
more += Your transformation is almost over
more += You have a feeling this form
more += You feel yourself come back to life
more += You lose control over your flight
more += You start to feel a little uncertain
more += You feel less protected from missiles
more += time is quickly running out
more += life is in your own hands
more += dispelling energy hits you
more += You convulse
more += god:(sends|finds|silent|anger)
more += divine experience
more += You have finished your manual
more += You are (blasted|electrocuted)!
more += Your surroundings flicker
more += The writing blurs in front of your eyes
more += Space warps.* around you
more += Space bends around you
more += The blast of calcifying dust hits you
more += This wand has no charges
more += There are no visible monsters within range
more += You have reached level
more += Your .* Skill increases
more += You don't know that spell

autoinscribe += potion.*mutation:!q
autoinscribe += potion.*berserk rage:!q
autoinscribe += scroll.*torment:!r
autoinscribe += scroll.*silence:!r
autoinscribe += rod of:!a
autoinscribe += staff of (Wucad Mu|energy|channeling|wizardry|power):!a
autoinscribe += staff of (conjuration|enchantment|summoning|poison):!a
autoinscribe += throwing net:=f =F

bindkey = [.] CMD_NO_CMD_DEFAULT
#bindkey = [&] CMD_NO_CMD_DEFAULT

{
local initialized = false
local need_inventory_check = false
local found = {}

-- HELPER FUNCTIONS

local function control(c)
    return string.char(string.byte(c) - string.byte('a') + 1)
end

local function stash_search(search)
    crawl.process_keys(control('f') .. search .. "\r" .. string.char(27) .. string.char(27))
    crawl.flush_input()
    return not crawl.messages(2):find("Can't find anything matching that.")
end

-- also does SH
local function base_ac(item)
    local name = item.name("qual")
    local subtype, _ = item.subtype()
    if subtype == "shield" then
        if name == "buckler" then
            return 5
        elseif name == "shield" then
            return 8
        elseif name == "large shield" then
            return 13
        end
    elseif subtype == "body" then
        -- TODO
        return 2
    else
        if name == "hat" then
            return 0
        else
            return 1
        end
    end
end

-- also does SH
local function estimate_ac(item)
    if item.plus == nil then
        return base_ac(item)
    else
        return base_ac(item) + item.plus
    end
end

local function special(item)
    return item.artefact or item.branded
end

local function stackable(class)
    return class == "missile" or class == "potion" or class == "scroll" or class == "food"
end

local function inventory_match(name, class)
    for item in iter.invent_iterator:new(items.inventory()) do
        if (class == nil or item.class(true) == class) and item.name("qual") == name then
            return item
        end
    end
    return nil
end

-- CALLED BY THE GAME

local function autopickup(item)
    if item.artefact then
        return true
    end

    if found[item.name("qual")] ~= nil then
        return not found[item.name("qual")]
    end

    if stackable(item.class(true)) then
        if inventory_match(item.name("qual"), item.class(true)) then
            return true
        end
    end

    if item.class(true) == "armour" then
        local subtype, _ = item.subtype()
        local current = nil
        if subtype == "body" then
            current = items.equipped_at("armour")
        else
            current = items.equipped_at(subtype)
        end
        if subtype == "cloak" or subtype == "boots" or subtype == "helmet" or subtype == "gloves" then
            if estimate_ac(item) >= 0 or item.branded then
                if current == nil then
                    return true
                end
                if item.branded then
                    return true
                end
                if not special(current) and estimate_ac(item) > estimate_ac(current) then
                    return true
                end
            end
        elseif subtype == "body" then
            if current ~= nil and current.name("qual") == item.name("qual") then
                if item.branded then
                    return true
                end
                if not special(current) and estimate_ac(item) > estimate_ac(current) then
                    return true
                end
            end
        elseif subtype == "shield" then
            if current ~= nil and base_ac(item) >= base_ac(current) then
                if item.branded then
                    return true
                end
                if base_ac(item) == base_ac(current) then
                    if not special(current) and estimate_ac(item) > estimate_ac(current) then
                        return true
                    end
                end
            end
        end
    end
end
add_autopickup_func(autopickup)

function initialize()
    if you.genus() ~= "felid" then
        found["blowgun"] = false;
        if you.genus() == "troll" or you.genus() == "ogre" then
            found["shield"] = false;
        else
            found["buckler"] = false;
        end
    end

    for key, value in pairs(found) do
        if inventory_match(key, nil) or stash_search(key .. " && dropped") then
            found[key] = true
        end
    end
end

local function check_inventory()
    for key, value in pairs(found) do
        if value == false and inventory_match(key, nil) then
            found[key] = true
        end
    end
end

function c_assign_invletter()
    need_inventory_check = true
end

function ready()
    if not initialized then
        crawl.more_autoclear(true)
        initialize()
        crawl.more_autoclear(false)
        initialized = true
    else
        if need_inventory_check then
            check_inventory()
        end
    end
end
}