##### Crawl Init file ###############################################
# For descriptions of all options
# https://github.com/crawl/crawl/blob/master/crawl-ref/docs/options_guide.txt

# Some useful, more advanced options, implemented in LUA.
# include = advanced_optioneering.txt

# Turn the shift-vi keys into safe move, instead of run.
# include = safe_move_shift.txt

#### Aliases #####################################################

ae := autopickup_exceptions

##### Customization ##############################################

ability_menu = false
action_panel_scale = 125
ae += <throwing net
autofight_caught = true
autofight_stop = 60
autofight_wait = false
default_manual_training = true
dump_on_save = true
easy_door = true
equip_unequip = true
show_more = false
sort_menus = true:equipped,identified,basename,art,ego,glowing,qualname,charged,slot

##### Key Binds ##############################################

bindkey = [~] CMD_LUA_CONSOLE

##### Macros ##############################################

macros += M S ===save_with_message
macros += M 1 ===level_guide

##### Lua ####################################################

{
----------------------------
---- Begin load_message ----
----------------------------
message_color = "white"
control_char = "*"

-- Wrapper of crawl.mpr() that prints text in white by default.
if not mpr then
  mpr = function (msg, color)
    if not color then
      color = "white"
    end
    crawl.mpr("<" .. color .. ">" .. msg .. "</" .. color .. ">")
  end
end

function save_with_message()
  if you.turns() == 0 then
    crawl.sendkeys("S")
    return
  end
  crawl.formatted_mpr("Save game and exit?", "prompt")
  local res = crawl.getch()
  if not (string.char(res) == "y" or string.char(res) == "Y") then
    crawl.formatted_mpr("Okay, then.", "prompt")
    return
  end
  crawl.formatted_mpr("Leave a message: ", "prompt")
  local res = crawl.c_input_line()
  c_persist.message = res
  crawl.sendkeys(control_char .. "s")
end

function load_message()
  if c_persist.message and c_persist.message ~= "nil"
  and c_persist.message ~= "" then
    mpr("MESSAGE: " .. c_persist.message, message_color)
    c_persist.message = nil
  end
end
}

{
--------------------------
---- Begin autopickup ----
--------------------------
-- Equipment autopickup (by Medar and various others)
  local function pickup_equipment(it, name)
    if it.is_useless then return end
  
    local class = it.class(true)
    if class == "armour" then
      local good_slots = {cloak="Cloak", helmet="Helmet",
                          gloves="Gloves", boots="Boots"}
      st, _ = it.subtype()
  
      -- Autopickup found aux armour if 1) we don't have any or 2) it's artefact,
      -- or 3) if we don't have artefact or ego armour, and the found armour is
      -- ego.
      if good_slots[st] ~= nil then
        if good_slots[st] == "Gloves" and you.has_claws() > 0 then return end
  
        if it.artefact then return true end
  
        local cur = items.equipped_at(good_slots[st])
        if cur == nil then return true end
  
        if cur.branded or cur.artefact then return end
        if it.branded then return true end
        -- Autopickup found body armour of the same kind we're wearing, according
        -- to conditions (2) and (3) above used for aux slots.
      elseif st == "body" then
        local cur = items.equipped_at("armour")
        if cur == nil then return end
        if cur.name("qual") ~= it.name("qual") then return end
  
        if it.artefact then return true end
  
        if cur.branded or cur.artefact then return end
        if it.branded then return true end
      end
    end
    return
  end
  
  add_autopickup_func(pickup_equipment)
}

{
----------------------
---- Spellcasting ----
----------------------
-- Spellcasting spam reduction by monqy
  local function generic_cast_spell(cmd)
    crawl.mpr('<cyan>Cast which spell?</cyan>')
    crawl.flush_prev_message()
    crawl.process_keys(cmd)
  end
  
  function cast_spell()
    generic_cast_spell('z')
  end
  
  function force_cast_spell()
    generic_cast_spell('Z')
  end
}

{
  -----------------------------
---- Begin char_defaults ----
-----------------------------
weapon_skills = {"Unarmed Combat", "Short Blades", "Long Blades", "Axes",
                 "Maces & Flails", "Polearms", "Staves"}
ranged_skills = {"Throwing", "Bows", "Crossbows", "Slings"}
other_skills = {"Fighting", "Armour", "Dodging",
                "Shields", "Spellcasting", "Conjurations", "Hexes", "Charms",
                "Summonings", "Necromancy", "Translocations", "Transmutations",
                "Fire Magic", "Ice Magic", "Air Magic", "Earth Magic",
                "Poison Magic", "Invocations", "Evocations","Stealth"}
skill_glyphs = { [1] = "+", [2] = "*" }
chdat = nil
char_combo = you.race() .. you.class()
loaded_attempted = false

-- Wrapper of crawl.mpr() that prints text in white by default.
if not mpr then
  mpr = function (msg, color)
    if not color then
      color = "white"
    end
    crawl.mpr("<" .. color .. ">" .. msg .. "</" .. color .. ">")
  end
end

function skill_message(prefix, skill, skill_type, value)
  local msg = ""
  if prefix then
    msg = prefix .. ";"
  end
  if skill_type then
    msg = msg .. skill_type .. "(" .. skill .. "):" .. value
  else
    msg = msg .. skill .. ":" .. value
  end
  return msg
end

function save_char_defaults(quiet)
  if you.class() == "Wanderer" then
    return
  end
  if not c_persist.char_defaults then
    c_persist.char_defaults = { }
  end
  c_persist.char_defaults[char_combo] = { }
  chdat = c_persist.char_defaults[char_combo]
  local msg = nil
  local have_weapon = false
  for _,sk in ipairs(weapon_skills) do
    if you.train_skill(sk) > 0 then
      chdat["Weapon"] = you.train_skill(sk)
      msg = skill_message(nil, sk, "Weapon",
                          skill_glyphs[chdat["Weapon"]])
      have_weapon = true
      break
    end
  end
  if not have_weapon then
    chdat["Weapon"] = nil
  end
  local have_ranged = false
  for _,sk in ipairs(ranged_skills) do
    if you.train_skill(sk) > 0 then
      chdat["Ranged"] = you.train_skill(sk)
      msg = skill_message(msg, sk, "Ranged",
                          skill_glyphs[chdat["Ranged"]])
      have_ranged = true
      break
    end
  end
  if not have_ranged then
    chdat["Ranged"] = nil
  end
  for _,sk in ipairs(other_skills) do
    if you.train_skill(sk) > 0 then
      chdat[sk] = you.train_skill(sk)
      msg = skill_message(msg, sk, nil, skill_glyphs[chdat[sk]])
    else
      chdat[sk] = nil
    end
  end
  if not quiet then
    mpr("Saved default for " .. char_combo .. ": " .. msg)
  end
end

function have_defaults()
  return  you.class() ~= "Wanderer"
    and c_persist.char_defaults ~= nil
    and c_persist.char_defaults[char_combo] ~= nil
end

function load_char_defaults(quiet)
  if not have_defaults() then
    return
  end
  local msg = nil
  local found_weapon = false
  chdat = c_persist.char_defaults[char_combo]
  for _,sk in ipairs(weapon_skills) do
    if you.base_skill(sk) > 0 and chdat["Weapon"] then
      you.train_skill(sk, chdat["Weapon"])
      msg = skill_message(msg, sk, "Weapon",
                          skill_glyphs[chdat["Weapon"]])
      found_weapon = true
    else
      you.train_skill(sk, 0)
    end
  end
  if chdat["Weapon"] and not found_weapon then
    you.train_skill("Unarmed Combat", chdat["Weapon"])
    msg = skill_message(msg, "Unarmed Combat", "Weapon",
                        skill_glyphs[chdat["Weapon"]])
  end
  local found_ranged = false
  for _,sk in ipairs(ranged_skills) do
    if you.base_skill(sk) > 0 and chdat["Ranged"] then
      you.train_skill(sk, chdat["Ranged"])
      msg = skill_message(msg, sk, "Ranged",
                          skill_glyphs[chdat["Ranged"]])
      found_ranged = true
    else
      you.train_skill(sk, 0)
    end
  end
  if chdat["Ranged"] and not found_ranged then
    you.train_skill("Throwing", chdat["Ranged"])
    msg = skill_message(msg, "Throwing", "Ranged",
                        skill_glyphs[chdat["Ranged"]])
  end
  for _,sk in ipairs(other_skills) do
    if chdat[sk] then
      you.train_skill(sk, chdat[sk])
      msg = skill_message(msg, sk, nil, skill_glyphs[chdat[sk]])
    else
      you.train_skill(sk, 0)
    end
  end
  if not quiet and msg ~= "" then
    mpr("Loaded default for " .. char_combo .. ": " .. msg)
  end
end

function char_defaults(quiet)
  if you.turns() ~= 0 then
    return
  end

  if not load_attempted then
    load_char_defaults(quiet)
    load_attempted = true

    -- Open the skill menu if we don't have settings to load.
    if not have_defaults() then
      crawl.sendkeys("m")
    end
  end
end
}

{

function level_guide()
    crawl.mpr([[
        Dungeon 10 or 11 -> Lair of Beasts
        Dungeon 12 -> Orcish Mines
        Dungeon 13-15 -> First Lair Rune Branch
        Second Lair Rune Branch -> Vaults levels 1-4
        Elven Halls (optional) -> Depths
        3rd Rune -> Zot 1-5
    ]])
end
}

{
---------------
---- Ready ----
---------------
function ready()

    -- Open skill screen on turn 0.
  if not skills_set and you.turns() == 0 then
    crawl.sendkeys("m")
    skills_set = true
  end
  
  load_message()
  char_defaults()
end
}