# CRAWL.NEMELEX.CARDS
##### Crawl Init file ###############################################
# For descriptions of all options, as well as some more in-depth information
# on setting them, consult the file
#    options_guide.txt
# in your /docs directory. If you can't find it, the file is also available
# online at:
# https://github.com/crawl/crawl/blob/master/crawl-ref/docs/options_guide.txt
#
# Crawl uses the first file of the following list as its option file:
#  * init.txt in the -rcdir directory (if specified)
#  * .crawlrc in the -rcdir directory (if specified)
#  * init.txt (in the Crawl directory)
#  * ~/.crawl/init.txt (Unix only)
#  * ~/.crawlrc (Unix only)
#  * ~/init.txt (Unix only)
#  * settings/init.txt (in the Crawl directory)

##### Some basic explanation of option syntax #######################
# Lines beginning with '#' are comments. The basic syntax is:
#
# field = value         or      field.subfield = value
#
# Only one specification is allowed per line.
#
# The terms are typically case-insensitive except in the fairly obvious
# cases (the character's name and specifying files or directories when
# on a system that has case-sensitive filenames).
#
# White space is stripped from the beginning and end of the line, as
# well as immediately before and after the '='. If the option allows
# multiple comma/semicolon-separated terms (such as
# autopickup_exceptions), all whitespace around the separator is also
# trimmed. All other whitespace is left intact.
#
# There are three broad types of Crawl options: true/false values (booleans),
# arbitrary values, and lists of values. The first two types use only the
# simple =, with later options - which includes your options that are different
# from the defaults - overriding earlier ones. List options allow using +=, ^=,
# -=, and = to append, prepend, remove, and reset, respectively. Usually you will
# want to use += to add to a list option. Lastly, there is := which you can use
# to create an alias, like so:
#   ae := autopickup_exceptions
# From there on, 'ae' will be treated as if it you typed autopickup_exceptions,
# so you can save time typing it.
#

##### Other files ###################################################
# You can include other files from your options file using the 'include'
# option. Crawl will treat it as if you copied the whole text of that file
# into your options file in that spot. You can uncomment some of the following
# lines by removing the beginning '#' to include some of the other files in
# this folder.

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

# Alternative vi bindings for Dvorak users.
# include = dvorak_command_keys.txt

# Alternative vi bindings for Colemak users.
# include = colemak_command_keys.txt

# Alternative vi bindings for Neo users.
# include = neo_command_keys.txt

# Override the vi movement keys with a non-command.
# include = no_vi_command_keys.txt

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



## UI ##
tile_cell_pixels = 32
# Default 32
msg_webtiles_height = 10
# tile_font_msg_size = 16


## General ##
autofight_Stop = 70
hp_warning = 50
default_manual_training = true
equip_unequip = true
show_more = false
bold_brightens_foreground = true
always_show_zot = true

## Travel ##
explore_auto_rest = false
explore_delay = 20
show_travel_trail = true
travel_open_doors = false
explore_stop  = stairs,shops,altars,portals,branches,runed_doors,runes
explore_stop += artefacts,glowing_items,greedy_pickup_smart,greedy_visited_item_stack


## Key Binds ##
item_slot += potions? of curing:q
item_slot += potions? of heal wounds:l
item_slot += potions? of haste:h
item_slot += potions? of might:d
item_slot += potions? of agility:s
item_slot += potions? of resistance:n
item_slot += scroll of identify:i
item_slot += scroll of teleportation:t
item_slot += scroll of fog:f
item_slot += scroll of blinking:g
item_slot += scroll of remove curse:c
item_slot += scroll of enchant weapon:w
item_slot += scroll of enchant armor:W
item_slot += condenser vane:V
item_slot += phial of floods:F
item_slot += box of beasts:B
item_slot += tremor stones:S
item_slot += lightning rod:C


# Force Msges
force_more_message += monster_warning:hydra
force_more_message += monster_warning:tormentor
force_more_message += monster_warning:fiend
force_more_message += monster_warning:tzitzimi
force_more_message += monster_warning:hell sentinel
force_more_message += monster_warning:lurking horror
force_more_message += monster_warning:cacodemon
force_more_message += monster_warning:neqoxec
force_more_message += monster_warning:catoblepas
force_more_message += monster_warning:Sigmund
force_more_message += monster_warning:Grinder
force_more_message += monster_warning:Roka
force_more_message += monster_warning:Tiamat

####################################################
# Auto pick Cloak/Helm/Gloves/Books if no equipped #
####################################################
{
local function autopickup(it, name)
    if it.is_useless then
        return false
    end
    local class  = it.class(true)
    if class == "armour" then
        local good_slots = {cloak="Cloak", helmet="Helmet",
                            gloves="Gloves", boots="Boots"}
        st, _ = it.subtype()
        if good_slots[st] ~= nil and
           items.equipped_at(good_slots[st]) == nil then
            return true
        end
   end
end

clear_autopickup_funcs()
add_autopickup_func(autopickup)
}


####################
# Opens skill menu #
####################
<
  local need_skills_opened = true
  function OpenSkills()
    if you.turns() == 0 and need_skills_opened then
      need_skills_opened = false
      crawl.sendkeys("m")
    end
  end
>
#######################
# Safely leave Portal #
#######################
{
function safe_upstairs()
  if you.branch() == "Gauntlet" or you.branch() == "Trove" then
     crawl.formatted_mpr("Really leave this portal?", "prompt")
     local res = crawl.getch()
     if string.lower(string.char(res)) == "y" then
       crawl.sendkeys("<")
     end
  else
     crawl.sendkeys("<")
  end
end
}

##
## magus.rc
################################################################################################

##
## CONFIG.lua
################################################################################################
{
-- Global CONFIG for customizing RC behaviors
CONFIG = { }

CONFIG.emojis = true
}


##
## BEGIN
################################################################################################
: rc_msg("Initializing magus.rc ...")
: crawl.enable_more(false)

##### Crawl Init file ###############################################
# For descriptions of all options, as well as some more in-depth information
# on setting them, consult the file
#    options_guide.txt
# in your /docs directory. If you can't find it, the file is also available
# online at:
# https://github.com/crawl/crawl/blob/master/crawl-ref/docs/options_guide.txt
#
# Crawl uses the first file of the following list as its option file:
#  * init.txt in the -rcdir directory (if specified)
#  * .crawlrc in the -rcdir directory (if specified)
#  * init.txt (in the Crawl directory)
#  * ~/.crawl/init.txt (Unix only)
#  * ~/.crawlrc (Unix only)
#  * ~/init.txt (Unix only)
#  * settings/init.txt (in the Crawl directory)

##### Some basic explanation of option syntax #######################
# Lines beginning with '#' are comments. The basic syntax is:
#
# field = value         or      field.subfield = value
#
# Only one specification is allowed per line.
#
# The terms are typically case-insensitive except in the fairly obvious
# cases (the character's name and specifying files or directories when
# on a system that has case-sensitive filenames).
#
# White space is stripped from the beginning and end of the line, as
# well as immediately before and after the '='. If the option allows
# multiple comma/semicolon-separated terms (such as
# autopickup_exceptions), all whitespace around the separator is also
# trimmed. All other whitespace is left intact.
#
# There are three broad types of Crawl options: true/false values (booleans),
# arbitrary values, and lists of values. The first two types use only the
# simple =, with later options - which includes your options that are different
# from the defaults - overriding earlier ones. List options allow using +=, ^=,
# -=, and = to append, prepend, remove, and reset, respectively. Usually you will
# want to use += to add to a list option. Lastly, there is := which you can use
# to create an alias, like so:
#   ae := autopickup_exceptions
# From there on, 'ae' will be treated as if it you typed autopickup_exceptions,
# so you can save time typing it.
#

##### Other files ###################################################
# You can include other files from your options file using the 'include'
# option. Crawl will treat it as if you copied the whole text of that file
# into your options file in that spot. You can uncomment some of the following
# lines by removing the beginning '#' to include some of the other files in
# this folder.

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

##
## Interface.rc
################################################################################################
# hp and mp bar coloring
view_delay = 300
hp_colour = 100:lightgreen, 99:lightgray, 75:yellow, 50:lightred, 25:red
mp_colour = 100:cyan, 99:lightgray, 75:yellow, 50:lightred, 25:red
hp_warning = 50



##
## Globals/Globals.rc
################################################################################################
# PAUSE variable for ForceMorePrompts.rc
$PAUSE_MORE := PAUSE
##
## Globals/Globals.lua
################################################################################################
{
-- Pause for AnnounceDamage.lua
PAUSE_MORE = "PAUSE"

-- Standard Colors (ignoring black, not visible)
COLORS = { }

COLORS.darkgrey = "darkgrey"
COLORS.lightgrey = "lightgrey"
COLORS.white = "white"
COLORS.blue = "blue"
COLORS.lightblue = "lightblue"
COLORS.green = "green"
COLORS.lightgreen = "lightgreen"
COLORS.cyan = "cyan"
COLORS.lightcyan = "lightcyan"
COLORS.red = "red"
COLORS.lightred = "lightred"
COLORS.magenta = "magenta"
COLORS.lightmagenta = "lightmagenta"
COLORS.yellow = "yellow"
COLORS.brown = "brown"
}

##
## Utils.lua
################################################################################################
{
function withColor(color, str)
  return string.format("<%s>%s</%s>", color, str, color)
end

function rc_out(symbol, color, msg)
  crawl.mpr(string.format("%s <%s>%s</%s>", symbol, color, msg, color))
end
function rc_msg(msg)
  rc_out("🤖", "blue", msg)
end
function rc_scs(msg)
  rc_out("✅", "green", msg)
end
function rc_err(msg)
  rc_out("❌", "lightred", msg)
end


function table_has(table, match)
  for index, value in ipairs(table) do
    if value == match then
      return true
    end
  end

  return false
end
}



##
## Lua Setup
################################################################################################
##
## AnnounceDamage.lua
################################################################################################
{
local Messages = {
  ["HPSimple"] = function(delta)
    return withColor(COLORS.white,
      string.format("HP[%s]", delta_color(0 - delta))
    )
  end,
  ["HPMax"] = function (color, hp, hpm, delta)
    crawl.mpr(
      withColor(COLORS.lightgreen,
        string.format("You now have %s max hp (%s).", hpm, delta_color(delta))
      )
    )
  end,
  ["HPLoss"] = function (color, hp, hpm, loss)
    crawl.mpr(
      string.format("%s%s",
        withColor(COLORS.red, string.format("You take %s damage,", loss)),
        withColor(color, string.format(" and now have %s/%s hp.", hp, hpm))
      )
    )
  end,
  ["HPGain"] = function (color, hp, hpm, gain)
    crawl.mpr(
      string.format("%s%s",
        withColor(COLORS.lightgreen, string.format("You regained %s hp,", gain)),
        withColor(color, string.format(" and now have %s/%s hp.", hp, hpm))
      )
    )
  end,
  ["HPFull"] = function (color, hp)
    crawl.mpr(
      withColor(COLORS.lightgreen,
        string.format("Your hp is fully restored (%s).", hp)
      )
    )
  end,
  ["HPMassivePause"] = function ()
    crawl.mpr(
      withColor(COLORS.lightred,
        string.format("MASSIVE DAMAGE!! (%s)", PAUSE_MORE)
      )
    )
  end,
  ["MPSimple"] = function(delta)
    return withColor(COLORS.white,
      string.format("MP[%s]", delta_color(0 - delta))
    )
  end,
  ["MPLoss"] = function (color, mp, mpm, loss)
    crawl.mpr(
      string.format("%s%s",
        withColor(COLORS.cyan, string.format("You lost %s mp,", loss)),
        withColor(color, string.format(" and now have %s/%s mp.", mp, mpm))
      )
    )
  end,
  ["MPGain"] = function (color, mp, mpm, gain)
    crawl.mpr(
      string.format("%s%s",
        withColor(COLORS.cyan, string.format("You regained %s mp,", gain)),
        withColor(color, string.format(" and now have %s/%s mp.", mp, mpm))
      )
    )
  end,
  ["MPFull"] = function (color, mp)
    crawl.mpr(
      withColor(COLORS.cyan, string.format("Your mp is fully restored (%s).", mp))
    )
  end,
[""]=""}

local prev_hp = 0
local prev_hp_max = 0
local prev_mp = 0
local prev_mp_max = 0

function delta_color(delta)
  local color = delta < 0 and COLORS.red or COLORS.green
  local signDelta = delta < 0 and delta or "+"..delta
  return string.format("<%s>%s</%s>", color, signDelta, color)
end

-- Simplified condensed HP and MP output
-- Print a single condensed line showing HP & MP change
-- e.g.😨 HP[-2] MP[-1]
function simple_announce_damage(curr_hp, max_hp, hp_diff, mp_diff)
  local emoji = ""
  local message = nil

  -- MP[-1]
  if hp_diff == 0 and mp_diff ~= 0 then
    message = Messages.MPSimple(mp_diff)
  -- HP[-2]
  elseif hp_diff ~= 0 and mp_diff == 0 then
    message = Messages.HPSimple(hp_diff)
  -- HP[-2] MP[-1]
  elseif hp_diff ~= 0 and mp_diff ~= 0 then
    message = string.format("%s %s", Messages.HPSimple(hp_diff), Messages.MPSimple(mp_diff))
  else
    -- No changes
  end

  if message ~= nil then
    if curr_hp <= (max_hp * 0.25) then
      emoji = "😱"
    elseif curr_hp <= (max_hp * 0.50) then
      emoji = "😨"
    elseif curr_hp <= (max_hp *  0.75) then
      emoji = "😮"
    elseif curr_hp < max_hp then
      emoji = "😕"
    else
      emoji = "😎"
    end

    if CONFIG.emojis then
      crawl.mpr(string.format("\n%s %s", emoji, message))
    else
      crawl.mpr(string.format("\n%s", message))
    end

  end
end

-- Try to sync with colors defined in Interface.rc
function color_by_max(message_func, curr, max, diff)
  if curr <= (max * 0.25) then
    message_func(COLORS.red, curr, max, diff)
  elseif curr <= (max * 0.50) then
    message_func(COLORS.lightred, curr, max, diff)
  elseif curr <= (max *  0.75) then
    message_func(COLORS.yellow, curr, max, diff)
  else
    message_func(COLORS.lightgrey, curr, max, diff)
  end
end

function announce_damage()
  -- TODO Define Colors.Red, Colors.Green, etc.

  -- TODO Move current/previous into array pair
  -- Save previous as last_hp
  -- Shift current into previous
  -- Early return if last_hp was == 0

  local curr_hp, max_hp = you.hp()
  local curr_mp, max_mp = you.mp()

  --Skips message on initializing game
  if prev_hp > 0 then
    local hp_diff = prev_hp - curr_hp
    local max_hp_diff = max_hp - prev_hp_max
    local mp_diff = prev_mp - curr_mp
    local max_mp_diff = max_mp - prev_mp_max

    -- Simplified condensed HP and MP output
    simple_announce_damage(curr_hp, max_hp, hp_diff, mp_diff)

    -- HP Max
    if max_hp_diff > 0 then
      Messages.HPMax(COLORS.green, curr_hp, max_hp, max_hp_diff)
    elseif max_hp_diff < 0 then
      Messages.HPMax(COLORS.yellow, curr_hp, max_hp, max_hp_diff)
    end

    -- HP Loss
    -- Ensure we lost MORE than the change in max hp
    -- i.e. a change in max hp should not be considered damage
    if (hp_diff > 0 and hp_diff > math.abs(max_hp_diff)) then
      color_by_max(Messages.HPLoss, curr_hp, max_hp, hp_diff)

      if hp_diff > (max_hp * 0.20) then
        Messages.HPMassivePause()
      end
    end

    -- HP Gain
    -- More than 1 HP gained
    if (hp_diff < 0) then
      -- Remove the negative sign by taking absolute value
      local hp_gain = math.abs(hp_diff)

      if (hp_gain > 1) and not (curr_hp == max_hp) then
        color_by_max(Messages.HPGain, curr_hp, max_hp, hp_gain)
      end

      if (curr_hp == max_hp) then
        Messages.HPFull(nil, curr_hp)
      end
    end

    -- MP Gain
    -- More than 1 MP gained
    if (mp_diff < 0) then
      -- Remove the negative sign by taking absolute value
      local mp_gain = math.abs(mp_diff)

      if (mp_gain > 1) and not (curr_mp == max_mp) then
        color_by_max(Messages.MPGain, curr_mp, max_mp, mp_gain)
      end

      if (curr_mp == max_mp) then
        Messages.MPFull(nil, curr_mp)
      end
    end

    -- MP Loss
    -- Ensure we lost MORE than the change in max mp
    -- i.e. a change in max mp should not be considered loss
    if (mp_diff > 0 and mp_diff > math.abs(max_mp_diff)) then
      color_by_max(Messages.MPLoss, curr_mp, max_mp, mp_diff)
    end

  end

  --Set previous hp/mp and form at end of turn
  prev_hp = curr_hp
  prev_hp_max = max_hp
  prev_mp = curr_mp
  prev_mp_max = max_mp
end
}

##
## TurnReady.lua
################################################################################################
{
-- Run every player turn
function ready()
  -- rc_msg("Running ready function...")

  -- Display damage taken in log
  announce_damage()
  OpenSkills()
end
}

## END
################################################################################################
: rc_scs("Successfully initialized magus.rc [v1.11.4]")
: crawl.enable_more(true)