# TEAMCAPTAIN MorganLeah
# currently, most recent version should be at CKR or CBRO
# 2019 Feb 09
# TODO: change player colour in ready() based on HP.
include += arcee.rc
# Crawl Init file


##### 1- Starting Screen ############################################
#
restart_after_game = true
default_manual_training = true

##### 2-  File System ###############################################
#

##### 3-  Interface #################################################
#
##### 3-a       Picking up and Dropping ###############
#
autopickup = $?!:"%\/

ae := autopickup_exceptions
ae += <gift
pickup_mode = multi

##### 3-b       Targetting ############################
#

##### 3-c       Passive Sightings #####################
#

##### 3-d       Branding ##############################
#

##### 3-e       Level Map Functions ###################
#

##### 3-f       Viewport Options  ###################
#

##### 3-g       Travel and Exploration #################
#

travel_delay = -1
rest_delay = -1
auto_sacrifice = true

runrest_ignore_message ^= You feel.*sick

stop := runrest_stop_message
stop += duration:.

: if you.god() == "Xom" then
stop += god:.
: end

##### 3-h       Command Enhancements ##################
#
# Let me actually use rods
bindkey = [v] CMD_FORCE_EVOKE_WIELDED

equip_unequip = true
easy_eat_chunks        = true
easy_eat_gourmand      = true
autofight_stop = 0
autofight_throw_nomove = false

ability_menu = false
sort_menus += inv: true : equipped, freshness, charged, qualname
regex_search = true

# spell slots, organisation inspired by elliptic
spell := spell_slot

# spells that will (nearly) always have the same letter...
spell += summon butterflies:qQ
spell += regeneration:r
spell += shroud of golubria:geE
spell += abjuration:A
spell += ozocubu's armour:eEo
spell += repel missiles:mM
spell += swiftness:s
spell += ^blink:B
spell += sublimation of blood:xX
spell += apportation:a
spell += dispersal:QDE
spell += darkness:qQ
spell += vampiric draining:v

spell += ring of flames:F
spell += invisibility:V
spell += disjunction:J
spell += necromutation:DM
spell += borgnjor's revivification:G
spell += deflect missiles:mM
spell += silence:S
spell += statue form:S
spell += alistair's intoxication:cCQ
spell += controlled blink:b
spell += passwall:p
spell += death's door:D
spell += recall:R

#brands
spell += warp weapon:w
spell += excruciating wounds:w

spell += poisonous cloud:cCQ
spell += freezing cloud:cCQ
spell += ozocubu's refrigeration:cCQ
spell += conjure ball lightning:CcQ
spell += chain lightning:cCQ
spell += Discord:CcQ

#zombies
spell += animate dead:zZ
spell += control undead:X
spell += animate skeleton:zZ

# big stuff: YKUHLJN if there's not a better place
spell += fire storm:CYKUHLJN
spell += glaciate:YKUHLJN
spell += shatter:SYKUHLJN
spell += tornado:TYKUHLJN
spell += summon horrible things:YKUHLJN
spell += dragon's call:YKUHLJN
spell += summon greater demon:YKUHLJN
spell += haunt:YKUHLJN
spell += infestation:YKUHLJN
spell += malign gateway:YKUHLJN
spell += dragon form:YKUHLJN

# oddball spells
spell += passage of golubria:g
spell += confusing touch:w
spell += corpse rot:cCQ
spell += portal projectile:fp
spell += simulacrum:zZQ
spell += metabolic englaciation:cC
spell += ignite poison:cC
spell += death channel:W
spell += olgreb's toxic radiance:cCQ
spell += cause fear:cCQ
spell += static discharge:cC
spell += leda's liquefaction:TQ

# defaults (attack / summon / transform / conflicts) go on numpad
spell += .*:ykuhljnYKUHLJN

##### 3-i       Messages and Display Enhancements #####
#
hp_warning = 40
mp_warning = 30
hp_colour = 70:yellow, 40:red

use_animations -= hp

menu := menu_colour

menu += lightgreen:legendary deck of summoning
menu += green:deck of summoning
menu += yellow:legendary deck of escape
menu += brown:deck of escape
menu += lightcyan:legendary deck of destruction
menu += cyan:deck of destruction
menu += lightblue:legendary deck of
menu += white:deck of cards
menu += blue:deck of

menu += cyan:wand of (acid|iceblast|lightning|scattershot|clouds)
menu += brown: wand of (dig)
menu += white: wand of (enslave|para|poly)

menu += lightblue:^unidentified .*(potion|scroll|wand|jewellery).*
menu += lightcyan:potions? of.*(agility|brilliance|might)
menu += lightgreen:scroll.*enchant
menu += green:scroll.*(brand|recharg)
menu += white:scroll.*(identify|remove)
##### 3-j       Colours (messages and menus) ##########
#

# You can also enforce a --more-- prompt for messages
msc := message_colour
msc += yellow:.* is unaffected
msc ^= mute:Your icy envelope dissipates!

: if you.god() == "Zin" then
channel.multiturn = white
: end

fmm := force_more_message
fmm += You have reached level
#fmm += training target.* reached
fmm += You fall through a shaft
fmm += .*at an altar
fmm += LOW HITPOINT WARNING
fmm += You are starving
fmm += You feel drained
fmm += .*orbs? of fire.* comes? into view
fmm += .*pandemonium* comes? into view
fmm += .*lich.* comes? into view
fmm += .*greater mumm.* comes? into view
fmm += .*(s|player) ghost.* comes? into view
#fmm += .*Fiend.* comes? into view
#fmm += .*Hell Sentinel.* comes? into view
fmm += (?-i:[A-Z][a-z]+).* comes? into view
fmm += You have finished your manual
fmm += Found .* abyssal rune of Zot
fmm += Okawaru sends forces against you!
fmm += Trog sends monsters to punish you

: if you.god() == "Xom" then
fmm += god:.
: end

##### 3-k       Firing Commands #######################
#

##### 3-l       Channels ##############################
#

##### 3-m       Inscriptions ##########################
#

#obsolete section?
ai := autoinscribe
# ai += bad_item.*potion:!q
# ai += potion[^b]*mutation:!q
#: if you.god() == "Fedhas" then
#    ai += fruit:!e
# : end

#rods of not striking (RIP)
# ai += rod of .[^t]:!a
# ai += iron rod:!a
ai += lightning rod:!a

ai += staff of wizardry:!a
ai += staff of power:!a
ai += staff of energy:!a
ai += staff of conjuration:!a
ai += staff of summoning:!a
ai += scroll.*identify:@r1
ai += blowgun:@w1

##### 3-n       Macro related Options #################
#

##### 3-o       Tile related Options ##################
#

##### 4-  Dump File #################################################
#
##### 4-a       Saving ################################
#

##### 4-b       Items and Kill List ###################
#
dump_kill_places = all
dump_item_origins = artifacts,ego_arm,ego_weap,jewellery
dump_message_count = 50
dump_order += vaults

##### 4-c       Notes #################################
#

note_all_skill_levels = true
note_chat_messages = true

##### 5-  Miscellaneous #############################################
#
##### 5-a       All OS ################################
#
#show_player_species = true

mons := mon_glyph
item := item_glyph
dchr := display_char

: if you.god() == "Jiyva" then
#show_player_species = false
mons ^= player : J
: end
: if you.god() == "Beogh" then
#show_player_species = false
: end

mons ^= ancestor : ♀
mons ^= battlemage : Ѭ
mons ^= hexer : ♠
mons ^= knight : ♘

{
local pglyphs = { Centaur = "ᙁ",
 ["Deep Dwarf"] = "♠",
 ["Deep Elf"] = "ε", 
 ["Demigod"] = "♀",
 Draconian = "δ",
 Demonspawn = "Ж",
 Felid = "h",
 Formicid = "a",
 Ghoul = "n",
 Gargoyle = "γ",
 Halfling = "g",
 ["High Elf"] = "ε",
 ["Hill Orc"] = "ω",
 Human = "♂",
 Kobold = "K",
 Merfolk = "μ",
 Minotaur = "¥",
 Mummy = "M",
 Naga = "N",
 Ogre = "ζ",
 Octopode = "x",
 Spriggan = "♥",
 Tengu = "Q",
 Troll = "τ",
 Vampire = "V",
 ["Vine Stalker"] = "f",}

 glyph = pglyphs[you.race()]
 if glyph == nil then glyph = "♥" end
 if string.find(you.race(), "Draconian") then glyph = "δ" end
crawl.setopt("mon_glyph ^= player : " .. glyph)
}
#x263c sun
mons ^= orb of fire : ☼
mons ^= dancing weapon : {
mons ^= spectral weapon : {

#x266b eighth notes (sensed monsters)
mons ^= sensed monster : lightblue ♫
mons ^= { : ♫
dchr ^= invis_exposed : ♫


#great darkblue culling (not all monsters)
mons ^= lurking horror: lightblue
mons ^= lorocyproca: cyan
mons ^= Grinder: lightblue
mons ^= gelid demonspawn: cyan
mons ^= Roxanne: brown
mons ^= Donald: cyan
mons ^= Eustachio: brown
mons ^= steam dragon: green
mons ^= fire dragon: lightred
mons ^= wyvern: green k
mons ^= Pikel: lightblue
mons ^= naga warrior: cyan
mons ^= tengu conjurer: red
mons ^= black mamba: lightblue
mons ^= shock serpent: cyan
mons ^= phantom: yellow

mons ^= starcursed mass: lightmagenta
mons ^= dire elephant: lightgreen
mons ^= black draconian: lightblue
mons ^= Bai Suzhen: lightmagenta q
mons ^= Tiamat: q
mons ^= Duvessa: cyan
mons ^= Ijyb: lightblue
mons ^= black bear: lightblue
mons ^= polar bear: white
mons ^= warg: green
mons ^= rime drake: lightblue
mons ^= iguana: lightblue
mons ^= draconian monk: magenta
mons ^= servant of whispers: brown
mons ^= porcupine: lightblue
mons ^= death scarab: green
mons ^= trivial sensed monster: darkgrey ♫

#noticing these is good
mons ^= ancient lich: lightmagenta
mons ^= greater mummy: lightmagenta
mons ^= juggernaut: lightmagenta
mons ^= caustic shrike: lightmagenta

#no tricky berserked Cs, please
mons ^= fire giant: lightred C

#insect fix
mons ^= moth of wrath: red
mons ^= hornet: lightred
mons ^= ghost moth: lightblue
mons ^= vampire mosquito: magenta

mons ^= Brimstone Fiend : fire
mons ^= Ice Fiend : ice
mons ^= Tzitzimitl : decay
mons ^= Hell Sentinel : electricity
mons ^= Executioner : magenta

mons ^= Lom Lobon : magic
mons ^= Cerebov : fire
mons ^= Mnoleg : mutagenic
mons ^= Gloorx Vloq : decay
mons ^= Geryon : silver
mons ^= Antaeus : ice
mons ^= Asmodeus : crystal
mons ^= Ereshkigal : bone
mons ^= Dispater : electricity

#fixing devteam's cheating
mons ^= death cob : %

# Ж cyrillic zhe
mons ^= & : Ж
item ^= corpse : &
#demonspawn are lesser panlords no longer
mons ^= 6 : π

mons ^= player ghost : disco @

# £ pound sign xa3
: if you.god() == "Fedhas" then
mons ^= oklob plant : @
mons ^= toadstool : f
: else
mons ^= plant : xa3
mons ^= demonic plant : xa3
mons ^= toadstool : xa3
: end
mons ^= bush : xa3
mons ^= burning bush : xa3
mons ^= briar patch : xa3
mons ^= fungus : xa3
mons ^= withered plant : xa3

# ∞ #infinity symbol x221e
# item ^= rune of Zot : x221e
item ^= rune of Zot : ∞

#actually default
#feature = mangrove {♣}
#feature = tree {♣}
feature += staircase leading out of the dungeon { α }

#†# dagger
feature += altar { † }
# ☺ smiley face x263a ☺ ¤ ♨ °

dchr ^= cloud : x263a
dchr ^= cloud_weak : xa4
dchr ^= cloud_fading : x2668
dchr ^= cloud_terminal : xb0 

# Ω #omega x3a9
dchr ^= item_orb : x3a9

#colouring stuff on the ground, inspired by simmarine (simm)
item += potion:lightgrey
item += wand:lightgrey
item += good_item:cyan
item += emergency_item:yellow
item += dangerous_item:magenta

item += wand of (acid|lightning|iceblast|scattershot|clouds):cyan
item += wand of (dig):brown
item += wand of (enslave|para|poly):white

item += potions? of.*(agility|brilliance|might):lightcyan
item += unidentified.*(potion|scroll|wand).*:lightblue
item += scroll.*enchant:lightgreen
item += scroll.*(brand|recharg):green
item += scroll.*(identify|remove):white
: if you.race() == "Vampire" then
    item += preferred:yellow
: end
item += (forbidden|useless).*:darkgrey
#item += (forbidden|useless).*(potion|scroll|wand):darkgrey

##### 5-b   Windows console #######################
#

##### 5-c   Unix console ##########################
#

#blink_brightens_background = true
#bold_brightens_foreground = true
no_dark_brand = false
allow_extended_colours = true

##### 5-d   Alternative keybinding files ##########
#

# autopickup by Medar, tweaked by rchandra
{
local function armour_plus(it)
  local plus = string.gsub(it.name(), "+", "", 1)
  return tonumber(string.gsub(plus, "[^-%d]", ""))
end

local function autopickup(it, name)
    if it.is_useless then
        return false
    end
    if it.artefact then
        return true
    end
    local class = it.class(true)
    if class == "armour" then
        local good_slots = {cloak="Cloak", helmet="Helmet",
                            gloves="Gloves", boots="Boots",
                            shield="Shield"}
        st, _ = it.subtype()
        weap = items.equipped_at("Weapon")
        if st == "shield" and weap ~=nil and weap.hands == 2 then return false 
end

        if good_slots[st] ~= nil then
            local cur = items.equipped_at(good_slots[st])
            if cur == nil then return true end
            if cur.artefact then return false end
            if it.branded then return true end    
            if cur.branded then return false end

            if armour_plus(it) ~= nil then
                if armour_plus(it) > armour_plus(cur) then return true end
            else
                if armour_plus(cur) < 0 then return true end
            end
        elseif st == "body" then
            local cur = items.equipped_at("armour")
            if cur == nil then return false end
            if cur.name("qual") ~= it.name("qual") then return false end
    
            if it.branded then return true end
    
            if cur.branded or cur.artefact then return false end
            if armour_plus(it) ~= nil then
                if armour_plus(it) > armour_plus(cur) then return true end
            else
                if armour_plus(cur) < 0 then return true end
            end
        end
    end

    return
end

add_autopickup_func(autopickup)
}
# Skill menu at game start by rwbarton
# needs to preserve ready for hugedmg (rchandra)
# now includes autodump from qw
{
local dump_count = you.turns()
local need_skills_opened = true
-- local oldready = ready
function ready()
  if you.turns() == 0 and need_skills_opened then
    need_skills_opened = false
    crawl.sendkeys("m")
  end
  if you.turns() >= dump_count then
    dump_count = dump_count + 500
    crawl.dump_char()
  end
  AnnounceDamage()
--  target_skill()
--oldready()
end
}

#I bind the following functions to shift-tab and tab, respectively.
#assisted by |amethyst
{
function autofight_throw()
  AUTOFIGHT_THROW = true
  hit_closest_nomove()
end

function autofight_nothrow()
  AUTOFIGHT_THROW = false
  hit_closest_nomove()
end
}

{
-----------------------------
---- Begin target_skill ----
-----------------------------
-- elliptic, through gammafunk

-- See README.md for documentation.

skill_list = {"Fighting","Short Blades","Long Blades","Axes","Maces & Flails",
              "Polearms","Staves","Unarmed Combat","Bows","Crossbows",
              "Throwing","Slings","Armour","Dodging","Shields","Spellcasting",
              "Conjurations","Hexes","Charms","Summonings","Necromancy",
              "Translocations","Transmutations","Fire Magic","Ice Magic",
              "Air Magic","Earth Magic","Poison Magic","Invocations",
              "Evocations","Stealth"}
need_target_skill = nil

function record_current_skills(maxlev)
  c_persist.current_skills = { }
  for _,sk in ipairs(skill_list) do
    if you.train_skill(sk) > 0 and you.base_skill(sk) < (maxlev or 27) then
      table.insert(c_persist.current_skills, sk)
    end
  end
end

function check_skills()
  if not c_persist.current_skills or not c_persist.target_skill then
    return
  end
  for _,sk in ipairs(c_persist.current_skills) do
    if you.base_skill(sk) >= c_persist.target_skill then
      crawl.formatted_mpr(sk .. " reached " .. c_persist.target_skill
                          .. ".", "prompt")
      crawl.more()
      set_new_skill_training()
      break
    end
  end
end

function init_target_skill()
  c_persist.target_skill = nil
  c_persist.current_skills = { }
  need_target_skill = true
end

function set_new_skill_training()
  init_target_skill()
  c_persist.target_skill = 0
  crawl.sendkeys("m")
end

function set_target_skill()
  record_current_skills()
  local str = "Currently training: "
  local first_skill = true
  for _,sk in ipairs(c_persist.current_skills) do
    val = you.base_skill(sk)
    if first_skill then
      str = str .. sk .. "(" .. val .. ")"
    else
      str = str .. ", " .. sk .. "(" .. val .. ")"
    end
    first_skill = false
  end
  str = str .. "."
  crawl.formatted_mpr(str, "prompt")
  crawl.formatted_mpr("Choose a target skill level: ", "prompt")
  c_persist.target_skill = tonumber(crawl.c_input_line())
  record_current_skills(c_persist.target_skill)
  -- Update the target skill for char_defaults if necessary.
  if save_default_target_skill and you.turns() == 0 then
      save_default_target_skill()
  end
end

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

-- Moved this to its own function to clean up ready() -gammafunk
function target_skill()
  prev_need_target = need_target_skill

  -- Need to look at skills and then set a target skill if our
  -- need_target_skill variable is uninitialized and we're either at turn 0 or
  -- c_persist.target_skill also uninitialized.
  if prev_need_target == nil
  and (you.turns() == 0 or c_persist.target_skill == nil) then
    set_new_skill_training()
  end
  if prev_need_target then
    set_target_skill()
    need_target_skill = false
  elseif not need_target_skill then
    check_skills()
  end
end

--------------------------
---- End target_skill ----
--------------------------
}