lab_use_click_to_send_chat = true



tile_show_threat_levels = tough nasty



view_delay = 200



default_manual_training = true



autofight_caught = true



macros += M \{-274} ===use_unidentified_consumable

macros += M \{96} \{9}o

macros += M \{-265} za

macros += M \{-266} zb

macros += M \{-267} zc

macros += M \{-268} zd

macros += M \{-269} ze

macros += M \{-270} zf

macros += M \{-271} zg

macros += M \{-272} zh



message_colour ^= mute:are too injured to fight recklessly

message_colour ^= mute:are monsters nearby

message_colour ^= mute:target in view

message_colour ^= mute:^.* is nearby[.!]?$

message_colour ^= mute:^Key pressed.stopping explore.$

#message_colour ^= mute:^Partly explored.

message_colour ^= mute:^No reachable target in view[.!]?$

#message_colour ^= mute:^Done exploring.$

message_colour ^= mute:^You are caught.*

message_colour ^= mute:^You are held.*

message_colour ^= mute:^You are too confused.*



force_more_message -= You have reached level



##############

# Autopickup #

##############



autopickup = $?!"/}(+



pickup_thrown = true



############################

# Autopickup Exceptions

############################



ae := autopickup_exceptions



ae += useless_item

ae += forbidden

ae += scroll of noise



ae += >stone



ae += <throwing net

ae += <curare

ae += <rune of Zot

ae += <manual

ae += <figurine of a ziggurat

ae += <evoker

ae += <good_item

ae += <artefact





##################################################

# Armour / Weapon Autopickup

##################################################



{

local function equipment_brand(it)

    return tostring(it:ego() or "")

end



local function escape_lua_pattern(text)

    return text:gsub(

        "([%^%$%(%)%%%.%[%]%*%+%-%?])",

        "%%%1" )

end



local function normalized_base_name(it)

    local item_name = tostring(it:name("base"))



    item_name = item_name:gsub(

        "^%s*[%+%-]%d+%s+",

        ""

    )



    local brand = equipment_brand(it)



    if brand ~= "" then

        local brand_pattern =

            escape_lua_pattern(brand)



        item_name = item_name:gsub(

            "^" .. brand_pattern .. "%s+",

            ""

        )



        item_name = item_name:gsub(

            "%s+of%s+" .. brand_pattern .. "$",

            ""

        )



        item_name = item_name:gsub(

            "%s+" .. brand_pattern .. "$",

            ""

        )

    end



    item_name = item_name:gsub("^%s+", "")

    item_name = item_name:gsub("%s+$", "")



    return item_name

end



local function weapon_base_name(it)

    if it == nil or not it.is_weapon then

        return nil

    end



    return tostring(it:subtype() or "")

end



local function armour_base_name(it)

    if it == nil or it.class(true) ~= "armour" then

        return nil

    end



    local base = tostring(it:name("base") or "")



    base = base:gsub("^%s*[%+%-]%d+%s+", "")

    base = base:gsub("%s+%b{}%s*$", "")

    base = base:gsub("%s+%b()%s*$", "")



    local brand = equipment_brand(it)



    if brand ~= "" then

        local brand_pattern = escape_lua_pattern(brand)



        base = base:gsub(

            "%s+of%s+" .. brand_pattern .. "$",

            ""

        )



        base = base:gsub(

            "^" .. brand_pattern .. "%s+",

            ""

        )



        base = base:gsub(

            "%s+" .. brand_pattern .. "$",

            ""

        )

    end



    base = base:gsub("^%s+", "")

    base = base:gsub("%s+$", "")



    return base

end



local function item_kind_string(it)

    if it.class(true) == "armour" then

        return "armour"

    end



    if it.is_weapon then

        return "weapon"

    end



    return nil

end



local body_armour_types = {

    ["animal skin"] = true,

    ["robe"] = true,

    ["leather armour"] = true,

    ["troll leather armour"] = true,

    ["ring mail"] = true,

    ["scale mail"] = true,

    ["chain mail"] = true,

    ["plate armour"] = true,

    ["crystal plate armour"] = true,

    ["steam dragon scales"] = true,

    ["acid dragon scales"] = true,

    ["swamp dragon scales"] = true,

    ["fire dragon scales"] = true,

    ["ice dragon scales"] = true,

    ["pearl dragon scales"] = true,

    ["storm dragon scales"] = true,

    ["shadow dragon scales"] = true,

    ["quicksilver dragon scales"] = true,

    ["gold dragon scales"] = true }



local auxiliary_armour_info = {

    ["scarf"] = {

        slot = "cloak",

        tier = 0 },



    ["cloak"] = {

        slot = "cloak",

        tier = 1 },



    ["gloves"] = {

        slot = "gloves",

        tier = 1 },



    ["pair of gloves"] = {

        slot = "gloves",

        tier = 1 },



    ["boots"] = {

        slot = "boots",

        tier = 1 },



    ["pair of boots"] = {

        slot = "boots",

        tier = 1 },



    ["hat"] = {

        slot = "helmet",

        tier = 0 },



    ["helmet"] = {

        slot = "helmet",

        tier = 1 },



    ["buckler"] = {

        slot = "shield",

        tier = 1 },



    ["kite shield"] = {

        slot = "shield",

        tier = 2 },



    ["tower shield"] = {

        slot = "shield",

        tier = 3 } }



local function armour_slot_and_tier(it)

    if it == nil

        or it.class(true) ~= "armour" then

        return nil, nil

    end



    local base = armour_base_name(it)



    if body_armour_types[base] then

        return "body", tonumber(it.ac) or 0

    end



    local info = auxiliary_armour_info[base]



    if info ~= nil then

        return info.slot, info.tier

    end



    return nil, nil

end



local function armour_is_light_enough(it)

    if it == nil

        or it.class(true) ~= "armour" then

        return false

    end



    local base = armour_base_name(it)



    if not body_armour_types[base] then

        return true

    end



    local er = tonumber(it.encumbrance) or 0

    local strength = tonumber(you.strength()) or 0



    return er - 3 <= strength

end



local weapon_tiers = {

    ["dagger"] = 1,

    ["quick blade"] = 2,

    ["short sword"] = 3,

    ["rapier"] = 4,



    ["falchion"] = 1,

    ["long sword"] = 2,

    ["scimitar"] = 3,

    ["demon blade"] = 4,

    ["double sword"] = 5,

    ["great sword"] = 6,

    ["eudemon blade"] = 7,

    ["triple sword"] = 8,



    ["hand axe"] = 1,

    ["war axe"] = 2,

    ["broad axe"] = 3,

    ["battleaxe"] = 4,

    ["executioner's axe"] = 5,



    ["club"] = 1,

    ["whip"] = 2,

    ["mace"] = 3,

    ["flail"] = 4,

    ["morningstar"] = 5,

    ["demon whip"] = 6,

    ["sacred scourge"] = 7,

    ["eveningstar"] = 8,

    ["dire flail"] = 9,

    ["great mace"] = 10,

    ["giant club"] = 11,

    ["giant spiked club"] = 12,



    ["spear"] = 1,

    ["trident"] = 2,

    ["demon trident"] = 3,

    ["trishula"] = 4,

    ["partisan"] = 5,

    ["halberd"] = 6,

    ["glaive"] = 7,

    ["bardiche"] = 8,



    ["quarterstaff"] = 1,

    ["lajatang"] = 2,



    ["sling"] = 1,

    ["shortbow"] = 2,

    ["longbow"] = 3,

    ["orcbow"] = 4,

    ["arbalest"] = 5,

    ["hand cannon"] = 6,

    ["triple crossbow"] = 7 }



local weapon_handedness = {

    ["dagger"] = "1h",

    ["quick blade"] = "1h",

    ["short sword"] = "1h",

    ["rapier"] = "1h",



    ["falchion"] = "1h",

    ["long sword"] = "1h",

    ["scimitar"] = "1h",

    ["demon blade"] = "1h",

    ["double sword"] = "1h",

    ["eudemon blade"] = "1h",

    ["great sword"] = "2h",

    ["triple sword"] = "2h",



    ["hand axe"] = "1h",

    ["war axe"] = "1h",

    ["broad axe"] = "1h",

    ["battleaxe"] = "2h",

    ["executioner's axe"] = "2h",



    ["club"] = "1h",

    ["whip"] = "1h",

    ["mace"] = "1h",

    ["flail"] = "1h",

    ["morningstar"] = "1h",

    ["demon whip"] = "1h",

    ["sacred scourge"] = "1h",

    ["eveningstar"] = "1h",

    ["dire flail"] = "2h",

    ["great mace"] = "2h",

    ["giant club"] = "2h",

    ["giant spiked club"] = "2h",



    ["spear"] = "1h",

    ["trident"] = "1h",

    ["demon trident"] = "1h",

    ["trishula"] = "1h",

    ["partisan"] = "1h",

    ["halberd"] = "2h",

    ["glaive"] = "2h",

    ["bardiche"] = "2h",



    ["quarterstaff"] = "2h",

    ["lajatang"] = "2h",



    ["sling"] = "1h",

    ["shortbow"] = "2h",

    ["longbow"] = "2h",

    ["orcbow"] = "2h",

    ["arbalest"] = "2h",

    ["hand cannon"] = "2h",

    ["triple crossbow"] = "2h" }



local function same_weapon_handedness(a, b)

    if a == nil or b == nil then

        return false

    end



    local a_hand =

        weapon_handedness[weapon_base_name(a)]



    local b_hand =

        weapon_handedness[weapon_base_name(b)]



    return a_hand ~= nil

        and b_hand ~= nil

        and a_hand == b_hand

end



local function is_plain_equipment(it)

    return not it.artefact

        and equipment_brand(it) == ""

end



local function equipped_armour_for_slot(slot)

    for _, it in ipairs(items.inventory()) do

        if it.equipped

            and it.class(true) == "armour" then



            local equipped_slot =

                armour_slot_and_tier(it)



            if equipped_slot == slot then

                return it

            end

        end

    end



    return nil

end



local function is_inferior_to_equipped_armour(

    equipped,

    candidate

)

    if candidate == nil

        or candidate.class(true) ~= "armour" then

        return false

    end



    if not is_plain_equipment(candidate) then

        return false

    end



    local candidate_slot, candidate_tier =

        armour_slot_and_tier(candidate)



    if candidate_slot == nil then

        return false

    end



    if candidate_slot == "body"

        and not armour_is_light_enough(candidate) then

        return true

    end



    if equipped == nil then

        equipped =

            equipped_armour_for_slot(candidate_slot)

    end



    if equipped == nil then

        return false

    end



    local equipped_slot, equipped_tier =

        armour_slot_and_tier(equipped)



    if equipped_slot ~= candidate_slot

        or equipped_tier == nil

        or candidate_tier == nil then

        return false

    end



    if candidate_tier < equipped_tier then

        return (candidate.plus or 0) <= (equipped.plus or 0)

    end



    if candidate_tier > equipped_tier then

        return false

    end



    return (candidate.plus or 0) <= (equipped.plus or 0)

end



local function is_inferior_to_equipped_weapon(

    equipped,

    candidate

)

    if equipped == nil or candidate == nil then

        return false

    end



    if not equipped.is_weapon or not candidate.is_weapon then

        return false

    end



    if not is_plain_equipment(candidate) then

        return false

    end



    if equipped.weap_skill == nil

        or candidate.weap_skill ~= equipped.weap_skill then

        return false

    end



    if not same_weapon_handedness(

        equipped,

        candidate

    ) then

        return false

    end



    local equipped_tier =

        weapon_tiers[weapon_base_name(equipped)]



    local candidate_tier =

        weapon_tiers[weapon_base_name(candidate)]



    if equipped_tier == nil

        or candidate_tier == nil then

        return false

    end



    if candidate_tier < equipped_tier then

        return (candidate.plus or 0) <= (equipped.plus or 0)

    end



    if candidate_tier > equipped_tier then

        return false

    end



    if weapon_base_name(candidate) ~= weapon_base_name(equipped) then

        return false

    end



    local equipped_brand =

        equipment_brand(equipped)



    local candidate_brand =

        equipment_brand(candidate)



    if candidate_brand == equipped_brand then

        return (candidate.plus or 0) <= (equipped.plus or 0)

    end



    if equipped_brand ~= ""

        and candidate_brand == "" then

        return (candidate.plus or 0) <= (equipped.plus or 0)

    end



    return false

end



local function is_inferior_to_current_equipment(

    candidate,

    wanted_kind

)

    if wanted_kind == "armour" then

        return is_inferior_to_equipped_armour(

            nil,

            candidate

        )

    end



    if wanted_kind == "weapon" then

        return is_inferior_to_equipped_weapon(

            items.equipped_at("Weapon"),

            candidate

        )

    end



    return false

end



local function inventory_item_dominates(

    better_item,

    worse_item

)

    if better_item == nil or worse_item == nil then

        return false

    end



    local better_kind =

        item_kind_string(better_item)



    local worse_kind =

        item_kind_string(worse_item)



    if better_kind == nil

        or better_kind ~= worse_kind then

        return false

    end



    if better_kind == "weapon" then

        if not better_item.is_weapon

            or not worse_item.is_weapon then

            return false

        end



        if better_item.weap_skill == nil

            or worse_item.weap_skill ~= better_item.weap_skill then

            return false

        end



        if not same_weapon_handedness(

            better_item,

            worse_item

        ) then

            return false

        end



        local better_tier =

            weapon_tiers[weapon_base_name(better_item)]



        local worse_tier =

            weapon_tiers[weapon_base_name(worse_item)]



        if better_tier == nil

            or worse_tier == nil then

            return false

        end



        if better_tier < worse_tier then

            return false

        end



        if (better_item.plus or 0) < (worse_item.plus or 0) then

            return false

        end



        local better_brand =

            equipment_brand(better_item)



        local worse_brand =

            equipment_brand(worse_item)



        if better_brand ~= "" and worse_brand == "" then

            return true

        end



        if better_brand ~= worse_brand then

            return false

        end



        if better_tier > worse_tier then

            return true

        end



        if (better_item.plus or 0) > (worse_item.plus or 0) then

            return true

        end



        return weapon_base_name(better_item) == weapon_base_name(worse_item)

    end



    if better_kind == "armour" then

        local better_slot, better_tier =

            armour_slot_and_tier(better_item)



        local worse_slot, worse_tier =

            armour_slot_and_tier(worse_item)



        if better_slot == nil

            or better_slot ~= worse_slot then

            return false

        end



        if better_tier == nil

            or worse_tier == nil then

            return false

        end



        if better_tier < worse_tier then

            return false

        end



        if (better_item.plus or 0) < (worse_item.plus or 0) then

            return false

        end



        local better_brand =

            equipment_brand(better_item)



        local worse_brand =

            equipment_brand(worse_item)



        if better_brand ~= "" and worse_brand == "" then

            return true

        end



        if better_brand ~= worse_brand then

            return false

        end



        if better_tier > worse_tier then

            return true

        end



        if (better_item.plus or 0) > (worse_item.plus or 0) then

            return true

        end



        return armour_base_name(better_item) == armour_base_name(worse_item)

    end



    return false

end



local function already_have_same_or_better_item(

    floor_item,

    wanted_kind

)

    if is_inferior_to_current_equipment(

        floor_item,

        wanted_kind

    ) then

        return true

    end



    for _, inv_item in ipairs(items.inventory()) do

        if item_kind_string(inv_item) == wanted_kind

            and inventory_item_dominates(

                inv_item,

                floor_item

            ) then

            return true

        end

    end



    return false

end



local martial_jobs = {

    ["Fighter"] = true,

    ["Gladiator"] = true,

    ["Monk"] = true,

    ["Berserker"] = true,

    ["Hunter"] = true,

    ["Brigand"] = true,

    ["Delver"] = true,

    ["Artificer"] = true,

    ["Shapeshifter"] = true,

    ["Chaos Knight"] = true,

    ["Cinder Acolyte"] = true }



local function is_martial_job()

    return martial_jobs[you.class()] == true

end



local weapon_skills = {

    "Short Blades",

    "Long Blades",

    "Axes",

    "Maces & Flails",

    "Polearms",

    "Staves",

    "Ranged Weapons",

    "Unarmed Combat" }



local function is_most_trained_weapon(it)

    if not it.is_weapon

        or it.weap_skill == nil then

        return false

    end



    local item_skill_level =

        you.base_skill(it.weap_skill)



    for _, skill_name in ipairs(weapon_skills) do

        if you.base_skill(skill_name) > item_skill_level then

            return false

        end

    end



    return true

end



function use_unidentified_consumable()

    local best_item = nil

    local best_quantity = 0



    for _, it in ipairs(items.inventory()) do

        local class = it.class(true)

        local quantity = tonumber(it.quantity) or 0



        if not it.is_identified and quantity >= 2 and (class == "potion" or class == "scroll") then

            if quantity > best_quantity then

                best_item = it

                best_quantity = quantity

            end

        end

    end



    if best_item == nil then

        crawl.mpr("No unidentified consumable stacks of 2+.")

        return

    end



    local class = best_item.class(true)

    local letter = items.index_to_letter(best_item.slot)



    if class == "potion" then

        crawl.sendkeys("q" .. letter)

        return

    end



    if class == "scroll" then

        crawl.sendkeys("r" .. letter)

        return

    end

end



add_autopickup_func(function(it, name)

    if it.class(true) == "armour" then

        if it.is_useless then

            return false

        end



        if it.artefact then

            return true

        end



        if not armour_is_light_enough(it) then

            return false

        end



        if already_have_same_or_better_item(

            it,

            "armour"

        ) then

            return false

        end



        return true

    end



    if it.is_weapon then

        if it.artefact then

            return true

        end



        if not is_martial_job() then

            if is_plain_equipment(it) then

                return false

            end



            if already_have_same_or_better_item(

                it,

                "weapon"

            ) then

                return false

            end



            return true

        end



        if not is_most_trained_weapon(it) then

            return false

        end



        if already_have_same_or_better_item(

            it,

            "weapon"

        ) then

            return false

        end



        return true

    end



    return nil

end)



local function is_drop_protected(it)

    if it.equipped then

        return true

    end



    if it.artefact then

        return true

    end



    local inscription =

        tostring(it.inscription or "")



    if inscription:find(

        "!d",

        1,

        true

    ) then

        return true

    end



    return false

end



local function process_inventory_inferior_drops()

    if not you.feel_safe() then

        return false

    end



    local inventory =

        items.inventory()



    for worse_index, worse_item in ipairs(inventory) do

        if not is_drop_protected(worse_item) then



            if worse_item.class(true) == "armour"

                and is_plain_equipment(worse_item) then



                local worse_slot =

                    armour_slot_and_tier(worse_item)



                if worse_slot == "body"

                    and not armour_is_light_enough(

                        worse_item

                    ) then



                    local dropped_name =

                        tostring(worse_item.name())



                    if worse_item:drop() then

                        crawl.mpr(

                            "Dropped unusable armour: "

                            .. dropped_name

                        )



                        return true

                    end

                end

            end



            for better_index, better_item

                in ipairs(inventory) do



                if better_index ~= worse_index

                    and inventory_item_dominates(

                        better_item,

                        worse_item

                    ) then



                    local dropped_name =

                        tostring(worse_item.name())



                    if worse_item:drop() then

                        crawl.mpr(

                            "Dropped inferior item: "

                            .. dropped_name

                        )



                        return true

                    end

                end

            end

        end

    end



    return false

end



local skill_setup_done = false



local all_skills = {

    "Fighting",

    "Short Blades",

    "Long Blades",

    "Axes",

    "Maces & Flails",

    "Polearms",

    "Staves",

    "Ranged Weapons",

    "Throwing",

    "Armour",

    "Dodging",

    "Stealth",

    "Shields",

    "Unarmed Combat",

    "Spellcasting",

    "Conjurations",

    "Hexes",

    "Summonings",

    "Necromancy",

    "Translocations",

    "Forgecraft",

    "Fire Magic",

    "Ice Magic",

    "Air Magic",

    "Earth Magic",

    "Alchemy",

    "Invocations",

    "Evocations",

    "Shapeshifting" }



local weapon_skill_targets = {

    ["dagger"] = 10,

    ["quick blade"] = 16,

    ["short sword"] = 10,

    ["rapier"] = 14,

    ["athame"] = 14,



    ["falchion"] = 14,

    ["long sword"] = 14,

    ["scimitar"] = 14,

    ["demon blade"] = 14,

    ["eudemon blade"] = 12,

    ["double sword"] = 16,

    ["great sword"] = 20,

    ["triple sword"] = 22,



    ["hand axe"] = 14,

    ["war axe"] = 16,

    ["broad axe"] = 18,

    ["battleaxe"] = 20,

    ["executioner's axe"] = 24,



    ["club"] = 14,

    ["whip"] = 12,

    ["mace"] = 14,

    ["flail"] = 14,

    ["morningstar"] = 16,

    ["demon whip"] = 12,

    ["sacred scourge"] = 12,

    ["dire flail"] = 14,

    ["eveningstar"] = 16,

    ["great mace"] = 20,

    ["giant club"] = 18,

    ["giant spiked club"] = 22,



    ["spear"] = 12,

    ["trident"] = 14,

    ["halberd"] = 16,

    ["partisan"] = 20,

    ["demon trident"] = 14,

    ["trishula"] = 14,

    ["glaive"] = 20,

    ["bardiche"] = 24,



    ["staff"] = 12,

    ["quarterstaff"] = 14,

    ["lajatang"] = 14,



    ["sling"] = 14,

    ["hand cannon"] = 24,

    ["shortbow"] = 14,

    ["orcbow"] = 16,

    ["arbalest"] = 24,

    ["longbow"] = 20,

    ["triple crossbow"] = 26 }



local function get_weapon_skill_target(weapon)

    if weapon == nil

        or not weapon.is_weapon then

        crawl.mpr("Weapon target debug: invalid weapon")

        return nil

    end



    local base = weapon_base_name(weapon)

    local target = weapon_skill_targets[base]



    crawl.mpr(

        "Weapon target debug: "

        .. tostring(base)

        .. " -> "

        .. tostring(target)

    )



    return target

end



local function get_starting_weapon()

    local weapon =

        items.equipped_at("Weapon")



    if weapon

        and weapon.is_weapon

        and weapon.weap_skill then

        return weapon

    end



    return nil

end



local previous_ch_stop_running =

    ch_stop_running



function ch_stop_running(kind)

    if previous_ch_stop_running then

        previous_ch_stop_running(kind)

    end



    if kind ~= "explore"

        and kind ~= "explore_greedy" then

        return

    end



    if not you.feel_safe() then

        return

    end



    local messages =

        tostring(crawl.messages(5) or "")



    if messages:find(

        "Done exploring",

        1,

        true

    )

        or messages:find(

            "Partly explored",

            1,

            true

        ) then



        crawl.sendkeys("X>")

    end

end



function ready()

    if not skill_setup_done

        and you.turns() == 0 then



        local job = you.class()



        if martial_jobs[job] then

            local weapon =

                get_starting_weapon()



            if weapon ~= nil then

                local weapon_skill =

                    weapon.weap_skill



                local weapon_target =

                    get_weapon_skill_target(

                        weapon

                    )



                skill_setup_done = true



                for _, skill in ipairs(all_skills) do

                    you.train_skill(

                        skill,

                        0

                    )

                end



                you.train_skill(

                    "Fighting",

                    1

                )



                you.train_skill(

                    weapon_skill,

                    2

                )



                you.set_training_target(

                    "Fighting",

                    4

                )



                if weapon_target ~= nil then

                    you.set_training_target(

                        weapon_skill,

                        weapon_target

                    )

                end

            else

                skill_setup_done = true



                if you.can_train_skill(

                    "Unarmed Combat"

                ) then

                    for _, skill in ipairs(all_skills) do

                        you.train_skill(

                            skill,

                            0

                        )

                    end



                    you.train_skill(

                        "Fighting",

                        1

                    )



                    you.train_skill(

                        "Unarmed Combat",

                        2

                    )



                    you.set_training_target(

                        "Fighting",

                        3

                    )

                end

            end

        end

    end



    if process_inventory_inferior_drops() then

        return

    end

end

}



######################################################################