##### 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


### Magic or Not
### automagic_enable = true


### AutoPickup
autopickup = $?!+"/%|

ae := autopickup_exceptions

ae += <fruit, <bread, <staff, >brilliance, <immolation
ae += <lignification, <(throwing net), <needle, <torment, <misc

autopickup_starting_ammo = true


### webzook options
#$ lab_gold_status = true
#$ lab_transfer_chat_ingame=true
#$ lab_sound_on = true
#$ lab_maintain_session = true


### butcher 
#:if you.race() == "Vampire" then
#  auto_butcher = very full
#:else 
#  auto_butcher = hungry
#:end


### Tile or Ui 
clear_messages = true
show_more = false


travel_delay = -1
show_travel_trail = true

tile_show_demon_tier = true

hp_colour = 100:green, 99:lightgray, 75:yellow, 50:lightred, 25:red
mp_colour = 100:green, 99:lightgray, 75:yellow, 50:lightred, 25:red

tile_font_crt_size  = 14
tile_font_stat_size = 15
tile_font_msg_size  = 14
tile_font_tip_size  = 14
tile_font_lbl_size  = 13


tile_font_crt_file  = consolas.ttf
tile_font_stat_file = consolas.ttf
tile_font_msg_file  = consolas.ttf
tile_font_tip_file  = consolas.ttf
tile_font_lbl_file  = consolas.ttf


### safe rest 
{
function safe_rest()
  local hp, mhp = you.hp()
  local mp, mmp = you.mp()
  if hp ~= mhp then
    crawl.sendkeys('5')
  end
  if mp ~= mmp then
    crawl.sendkeys('5')
  end
end
}



### Menu Colour
# Set Alias
menu := menu_colour

# Variables (Worst to Best)
$evil := red
$negative := brown
$danger := lightred
$warning := yellow
$boring := darkgrey
$decent := white
$good := lightblue
$positive := green
$verypositive := lightgreen

# Unusual Variables
$equipped := cyan
$mutation := magenta

# Various Items
menu ^= $boring:amulet of inaccuracy
menu ^= $boring:scrolls? of (noise|random)

menu ^= magenta:.*distortion

menu ^= $decent:scrolls? of acquirement
menu ^= yellow:scrolls? of blinking
menu ^= lightgreen:scrolls? of (teleportation|fear)
menu ^= green:scrolls? of (magic mapping|fog)
menu ^= lightcyan:scrolls? of identify
menu ^= magenta:scrolls? of (immolation|vulnerability|silence)
menu ^= brown:scrolls? of remove curse

menu ^= $decent:potions? of experience
menu ^= yellow:potions? of (haste|heal wounds)
menu ^= green:potions? of (agility|might|brilliance)
menu ^= lightgreen:potions? of (curing|magic|resistance)
menu ^= magenta:potions? of (cancellation|lignification|mutation)

menu ^= magenta:potions? of berserk rage

#menu ^= lightgreen:ring of (poison resistance|see invisible)
#menu ^= green:ring of (protection from cold|protection from fire|protection from magic)



# General Categories
menu ^= $evil:.*evil_item.*
menu ^= inventory:$equipped:.*equipped.*
menu ^= $danger:[^n]cursed
menu ^= inventory:$danger:[^n]cursed

# Unidentified Items
menu ^= $good:^unidentified .*(jewellery|potion|scroll|wand).*
menu ^= $good:^unidentified .*armour.*(embroidered|dyed|glowing|shiny|runed)
menu ^= $good:^unidentified .*weapon.*(glowing|runed)
menu ^= $decent:^unidentified.*artefact.*

menu ^= $boring:(melded)
menu ^= $boring:.*useless_item.*

menu ^= lightred:potions? of degeneration

### ETC
default_manual_training = true



autoinscribe ^= distortion:!w
autoinscribe ^= potion.*mutation:!q

autoinscribe ^= (bad|dangerous)_item.*scroll:!r
autoinscribe ^= scroll.*remove curse:!r

autoinscribe ^= of faith:!P
autoinscribe ^= staff of (Wucad Mu|energy|channeling|wizardry|power):!a
autoinscribe ^= staff of (conjuration|summoning|poison):!a
autoinscribe ^= throwing net:=f

force_more_message += Beogh blesses
force_more_message += open a gate
force_more_message += snapping sound
force_more_message += skill increases to

force_more_message += .*(Agnes|Aizul|Antaeus|Arachne|Asmodeus|Azrael|Bai suzhen|Blork the orc|Boris|Cerebov|Crazy Yiuf|Dispater|Dissolution|Donald|Dowan|Duvessa|Edmund|the Enchantress|Ereshkigal|Erica|Erolcha|Eustachio|Fannar|Frances|Frederick|Gastronok|Geryon|Gloorx Vloq|Grinder|Grum|Harold|Ignacio|Ijyb|Ilsuiw|Jessica|Jorgrun|Jory|Joseph|Josephine|Khufu|Kirke|Lamia|the Lernaean hydra|Lom Lobon|Louise|Mara|Margery|Maud|Maurice|Menkaure|Mennas|Mnoleg|Murray|Nergalle|Nessos|Nikola|Norris|Pan|Pikel|Polyphemus|Prince Ribbit|Psyche|Purgy|Roxanne|the royal jelly|Rupert|Saint Roka|the Serpent of Hell|Sigmund|Snorg|Sojobo|Sonja|Terence|Tiamat|Urug|Wiglaf|Xtahua).*comes? into view


more := force_more_message

more += You convulse
more += increases to level
more += You have reached level
more += Space .* around you
more += .*orbs? of fire.* comes? into view
more += .*pandemonium* comes? into view
more += .*(s|player) ghost.* comes? into view
more += It is wielding.*of distortion
more += She is wielding.*of distortion
more += He is wielding.*of distortion
more += Found .* abyssal rune of Zot
more += (blundered into a|invokes the power of) Zot
more += Deactivating autopickup
more += The mighty Pandemonium lord .* resides here
more += Ouch! That really hurt!
more += A sentinel's mark forms upon you
more += calcifying dust hits
more += watched by something
more += flickers and vanishes
more += You feel less protected from missiles
more += time is quickly running out
more += Training target


auto_eat_chunks = true
easy_eat_chunks = true
confirm_butcher = never
# auto_drop_chunks = yes


item_slot ^= helmet:A
item_slot ^= hat:A
item_slot ^= body:B
item_slot ^= cloak:C
item_slot ^= scarf:C
item_slot ^= glove:D
item_slot ^= guntlet:D
item_slot ^= boot:E
item_slot ^= amulet:c

item_slot ^= bread:Z

item_slot ^= identify:+i
item_slot ^= remove curse:+r
item_slot ^= scroll.*teleportation:t

item_slot ^= blood:+o

item_slot ^= energy:n

spell_slot ^= regeneration:r
spell_slot ^= Sublimation of Blood:m


ability_slot ^= Bat Form:+F
ability_slot ^= End Transformation:+i

### Armour/Weapon autopickup by rwbarton, enhanced by HDA with fixes from Bloaxor
{
add_autopickup_func(function(it, name)
  
  if name:find("curare") then return true end
  if name:find("dispersal") and (name:find("dart") or name:find("tomahawk")) then return true end
  if name:find("throwing net") then return true end
 
  local class = it.class(true)
  local armour_slots = {cloak="Cloak", helmet="Helmet", gloves="Gloves", boots="Boots", body="Armour", shield="Shield"}

  if (class == "armour") then
		if it.is_useless then return false end
		
    sub_type = it.subtype()
    equipped_item = items.equipped_at(armour_slots[sub_type])
 
    if (sub_type == "cloak") or (sub_type == "helmet") or (sub_type == "gloves") or (sub_type == "boots") then
      if equipped_item then
        return it.artefact or it.branded or it.ego
      else
        return true
      end
    end
 
    if (sub_type == "body") then
      if equipped_item then
        if it.artefact then return true end
				
				local enchanted = equipped_item.plus > 2
				local ego = equipped_item.branded
				local armour_name = equipped_item.name()
				local dragon = armour_name:find("dragon") 
				local troll =	armour_name:find("troll")
        local artefact = equipped_item.artefact
				
        if artefact then return false end
        
        if not (enchanted or ego or dragon or troll) then
					return it.branded or it.ego
        end
      else 
				return true 
			end
    end
 
    if (sub_type == "shield") then
      if equipped_item then
          return it.artefact or it.branded or it.ego
      end
    end
  end
 
  if (class == "weapon") then
		if it.is_useless then return false end
		if it.artefact then return true end
		
    if (you.xl() < 12) or (you.god():find("Beogh")) 
    and not ((you.race() == "troll") or (you.skill("Unarmed Combat") > 9)) then
      return it.branded and not (name == "club") 
    end
		
		
  end
end)
}


autoinscribe += rations:@e1
autoinscribe += chunk:@e0
autoinscribe += staff of energy:@w1

### HDAtravel  
-- Rests up to at least 75% hp (or missing at least 30hp) and 50% mp (or missing at least 20mp)
$R_HP := 0
$R_MP :=0
-- Eats chunks automatically, handled by auto_eat_chunks interface option
-- Travels to the nearest corpse if we have no chunks and are at Very Hungry or Hungry or using Gourmand and at Full
-- Automatically chops valid corpses if we are standing on them and we have no chunks
-- Will stop autotravel at Near Starving
-- Channels MP if you have staff of energy or worship Sif when you have extra chunks
-- Casts regen out of combat if you have spare chunks and are missing hp
-- TODO: better detection of non-edible corpses before standing on them
-- TODO: Fix up for Vampire, Ghoul, and possibly Spriggan/Mummy
-- NOTE: If you don't have rP you will still chop poisonous corpses, but not pick up their chunks

: function HDAtravel()
:   local mp, max_mp = you.mp()
:   local hp, max_hp = you.hp()
:   local first_monster = next(getMonsterList())
:   local already_checked = (no_results() or dont_know_how_to_get_there())
:   local you_are_barbed = (have_barbs() and not removed_barbs())
:   local is_safe = (first_monster == nil)
:   local missing_mp = (mp < max_mp)
:   local missing_hp = (hp < max_hp)
:   local need_to_recover = should_rest(hp, mp, max_hp, max_mp)
:   local have_no_chunks = have_no_chunks()
:   local you_are_yred = string.find(you.god(), "Yred")
:   local you_are_zin = string.find(you.god(), "Zin")
:   local you_are_good = string.find(you.god(), "Shining") or string.find(you.god(), "Elyvilon") or you_are_zin
:   local sacrifice_god = you_worship_sacrifice_god()
:   local you_are_mummy = string.find(you.race(), "Mummy")
:   local you_are_vampire = string.find(you.race(), "Vampire")
:   local you_are_bloodless = you.hunger_name() == "bloodless"
:   local you_are_ghoul = string.find(you.race(), "Ghoul")
:	  local you_are_bloodless = you.hunger_name() == "bloodless"
:   local you_do_not_eat = string.find(you.race(), "Spriggan") or you_are_mummy
:   local lichform = string.find(you.transform(), "lich")
:   local bladehands = string.find(you.transform(), "blade")
:   local dragonform = string.find(you.transform(), "dragon")
:   local melded_weapon = (bladehands or dragonform)
:   local you_are_regen = you.regenerating()
:   local you_know_sublimation = known_spells["Sublimation of Blood"] and (spells.fail("Sublimation of Blood") < 20) and (mp>3)
:   local you_know_animate_skeleton = known_spells["Animate Skeleton"] and (spells.fail("Animate Skeleton") < 20) and (mp>1)
:   local you_know_animate_dead = known_spells["Animate Dead"] and (spells.fail("Animate Dead") < 20) and (mp>4)
:   local chunks_are_equipped = is_weapon("chunk")
:   local distort_weapon = is_weapon("distort")
:   local vamp_weapon = is_weapon("vamp") and not chunks_are_equipped
:   local have_a_weapon = weapon_in_inventory()
:   local gourmand_and_hungry = you_are_gourmand() and not (you_are_very_full() or you_are_engorged() or you_are_ghoul)
:   local ghoul_missing_hp = you_are_ghoul and ((hp < (max_hp - 5)) or you.rot() > 0)
:   local want_to_eat = (you_are_hungry() or gourmand_and_hungry or ghoul_missing_hp) and not you_do_not_eat
:   local have_spare_chunks = not have_no_chunks and not you_are_hungry()
:   local you_have_staff_of_energy = is_in_inventory("staff of energy")
:   local have_potion_of_blood = is_in_inventory("potion of blood") or is_in_inventory("potions of blood")
:   local staff_of_energy_is_equipped = is_weapon("staff of energy")
:   local staff_of_power_is_equipped = is_weapon("staff of power")
:   local staff_of_energy_letter = find_item_letter("staff of energy")
:   local chunks_letter = find_item_letter("chunk")
:   local you_are_hungerless = you_are_mummy or lichform
:   local no_food_issues = (you_are_hungerless or have_spare_chunks)
:   local should_channel_mp = ((max_mp - mp) > 5) and no_food_issues
:   local can_cast_regen = known_spells["Regeneration"] and (mp>3) and (spells.fail("Regeneration") < 20)
:   local you_have_regen_ring = is_in_inventory("regeneration")
:   local regen_ring_letter = find_item_letter("regeneration")
:   local regen_ring_is_equipped = is_ring("regeneration")
:   local should_regen_hp = (not (you_are_good or you_are_regen or lichform)) and ((hp/max_hp) < 0.80) and (you_have_regen_ring or can_cast_regen) and not you_are_bloodless
:   local should_sublimate = (not (you_are_good or lichform)) and ((mp/max_mp) < 0.60) and you_know_sublimation and mp>2 and ((hp/max_hp) > 0.95)
:   local should_animate_skeleton = (not you_are_good) and you_know_animate_skeleton and mp>1 and (not can_not_animate())
:   local should_animate_dead = (not you_are_good) and you_know_animate_dead and mp>4 and (not can_not_animate())
:   local you_want_spare_chunks = (not (have_spare_chunks or you_do_not_eat)) and (can_cast_regen or you_have_staff_of_energy or you_are_sif)
:   local you_want_chunks = (not you_are_hungerless and (number_of_chunks() == 0) and (want_to_eat or you_want_spare_chunks)) or you_are_vampire or (you_are_ghoul and number_of_chunks() < 4)
:   --crawl.mpr(string.format("you.piety_rank() is: %s", you.piety_rank()))
:   --crawl.mpr(string.format("you_want_chunks is: %s", you_want_chunks and "True" or "False"))
:   --crawl.mpr(string.format("want_to_eat is: %s", want_to_eat and "True" or "False"))
:   --crawl.mpr(string.format("number_of_chunks is: %s", number_of_chunks()))
:   --crawl.mpr(string.format("ghoul_missing_hp is: %s", ghoul_missing_hp and "True" or "False"))
:   --crawl.mpr(string.format("you.hunger_name() is: %s", you.hunger_name()))
:   --crawl.mpr(string.format("have_spare_chunks is: %s", have_spare_chunks and "True" or "False"))
:   --crawl.mpr(string.format("can_cast_regen is: %s", can_cast_regen and "True" or "False"))
:   --crawl.mpr(string.format("you_are_not_ghoul is: %s", you_are_not_ghoul and "True" or "False"))
:   --crawl.mpr(string.format("you_want_spare_chunks is: %s", you_want_spare_chunks and "True" or "False"))
:   --crawl.mpr(string.format("you_are_hungerless is: %s", you_are_hungerless and "True" or "False"))
:   --crawl.mpr(string.format("have_no_chunks is: %s", have_no_chunks and "True" or "False"))
:   if (is_safe) then
:     if you_are_barbed then
:       rest()
:     elseif should_sublimate and not (you_are_vampire or lichform) then
:       crawl.mpr("<lightcyan>Autocasting Sublimation of Blood.</lightcyan>")
:       sendkeys('zm')
:     elseif should_regen_hp and can_cast_regen then
:       crawl.mpr("<green>Autocasting Regen.</green>")
:       --This assumes casting regen is bound to zr
:       sendkeys('zr')
:     elseif (not melded_weapon) and (should_channel_mp and you_have_staff_of_energy and no_food_issues) and (not (distort_weapon or vamp_weapon)) and you_are_not_felid() then
:       if not staff_of_energy_is_equipped then
:         crawl.mpr("<cyan>Switching to staff of energy.</cyan>")
:         sendkeys('w1')
:       end
:       crawl.mpr("<lightcyan>Autochanneling using staff of energy.</lightcyan>")
:       sendkeys('v')
:     elseif (weapon_in_slot_a() or uses_unarmed()) and (no_weapon() and have_a_weapon) or (staff_of_energy_is_equipped and (not (staff_of_energy_letter == 'a')) or (chunks_are_equipped and (not (chunks_letter == 'a')))) then
:       if uses_unarmed() then
:         crawl.mpr("<cyan>Switching to unarmed.</cyan>")
:         sendkeys('w-')
:       else
:         crawl.mpr("<cyan>Switching to main weapon.</cyan>")
:         sendkeys('wa')
:       end
:     elseif want_to_eat and number_of_chunks() > 0 then
:       crawl.mpr("<cyan>Autoeating chunks.</cyan>")
:       sendkeys('e')
:     elseif you_want_chunks and on_corpses() and not on_chunks() and (not can_not_butcher()) then
:       if should_animate_skeleton then
:         crawl.mpr("<cyan>Autocasting Animate Skeleton for chunks.</cyan>")
:         sendkeys('zA')
:       else
:         crawl.mpr("<cyan>Autochopping corpse.</cyan>")
:         sendkeys('c')
:       end
:     elseif you_want_chunks and (not (you_are_zin or need_to_recover or on_chunks() or on_corpses() or already_checked)) then
:       crawl.mpr("<yellow>You may need something to eat soon, looking for food.</yellow>")
:       find_corpses()
:     elseif you_are_starving_or_near() and (number_of_chunks == 0) and (not (on_chunks() or on_corpses())) then
:       local have_bread = is_in_inventory("ration")
:       if have_ration then
:         local result = crawl.yesnoquit("<cyan>Eat a ration?</cyan>", true, 'e')
:         if result == 1 and have_bread then
:           sendkeys('e1')
:         elseif result == 0 then
:           autoexplore()
:         end
:         if not (is_in_inventory("ration")) then
:           crawl.mpr("<lightred>That was your last ration! You should go get more.</lightred>")
:         end
:       else
:         crawl.mpr("<red>No rations left! You should look for food.</red>")
:       end
:     elseif need_to_recover and not you_are_starving() then
:       if you_are_bloodless and have_potion_of_blood then
:         crawl.mpr("<cyan>Autoquaffing potion of blood.</cyan>")
:         sendkeys('q1')
:				else
:			    rest()
:				end
:     elseif you_are_yred and (you.piety_rank() >= 3) and (item_in_view("corpse") or item_in_view("skeleton") or on_corpses()) and not recently_mass_animated() then
:       crawl.mpr("<cyan>Autocasting Mass Animate Remains.</cyan>")
:       sendkeys('aa')
:     elseif (not sacrifice_god) and (item_in_view("corpse") or item_in_view("skeleton") or on_corpses()) and should_animate_dead and not already_animated() then
:       crawl.mpr("<cyan>Autocasting Animate Dead.</cyan>")
:       sendkeys('zA')
:     elseif (not sacrifice_god) and on_corpses() and should_animate_skeleton then
:       crawl.mpr("<cyan>Autocasting Animate Skeleton.</cyan>")
:       sendkeys('zA')
:     elseif you_are_yred and (you.piety_rank() >= 1) and on_corpses() then
:       crawl.mpr("<cyan>Autocasting Animate Remains.</cyan>")
:       sendkeys('aa')
:     else
:       --This does the general travelling
:       autoexplore()
:     end
:   else
:     --This will provide the "foo is nearby" message
:     autoexplore()
:   end
: end

<

  function sendkeys(command)
    crawl.flush_input()
    crawl.sendkeys(command)
    coroutine.yield(true)
    crawl.flush_input()
  end

   function should_rest(hp, mp, max_hp, max_mp)
    local you_are_mummy = string.find(you.race(), "Mummy")
    local you_are_deep_dwarf = string.find(you.race(), "Deep Dwarf")
    return (mp < (max_mp*0.50) or ((max_mp-mp) > 20)
						or ((hp < (max_hp*0.80)) or ((max_hp-hp) > 30) 
								and not you_are_deep_dwarf)
            or you.slowed()
            or you.poisoned()
            or you.confused()
            or you.exhausted()
            or (((hp < max_hp) or (mp < max_mp)) and you_are_mummy))
  end

  -- Hungry, Very Hungry, Near Starving, Starving
  function you_are_hungry()
    return not you_are_not_hungry() and ((string.find(you.hunger_name(), "hungry")) or you_are_starving_or_near())
  end

  -- Normal Satiation
  function you_are_not_hungry()
    return (string.find(you.hunger_name(), "not hungry"))
  end

  -- Engorged
  function you_are_engorged()
    return (string.find(you.hunger_name(), "completely stuffed"))
  end

  -- Very full
  function you_are_very_full()
    return (string.find(you.hunger_name(), "very full"))
  end

  -- Near Starving
  function you_are_near_starving()
    return (string.find(you.hunger_name(), "near starving"))
  end

  -- Near Starving, Starving
  function you_are_starving_or_near()
    return (string.find(you.hunger_name(), "starving"))
  end

  -- Starving
  function you_are_starving()
    return you_are_starving_or_near() and not you_are_near_starving()
  end

  function autoexplore()
    sendkeys('o')
  end

  function have_barbs()
    return string.find(crawl.messages(10), escape("The barbed spikes become lodged in your body"))
        or string.find(crawl.messages(10), escape("The barbed spikes dig painfully into your body as you move"))
  end

  function already_animated()
    return string.find(crawl.messages(20), escape("Autocasting Animate Dead"))
  end

  function removed_barbs()
    return string.find(crawl.messages(10), escape("You carefully extract the manticore spikes from your body"))
        or string.find(crawl.messages(10), escape("The manticore spikes snap loose"))
  end

  function no_results()
    return string.find(crawl.messages(10), escape("Can't find anything matching that"))
        or string.find(crawl.messages(10), escape("You may need something to eat soon"))
  end

  function dont_know_how_to_get_there()
    return string.find(crawl.messages(10), escape("know how to get there"))
        or string.find(crawl.messages(10), escape("Have to go through"))
  end

  function can_not_animate()
    return string.find(crawl.messages(10), escape("There is nothing here that can be animated"))
  end

  function can_not_bottle()
    return string.find(crawl.messages(10), escape("There isn't anything to bottle here"))
  end
  
  function recently_mass_animated()
    return string.find(crawl.messages(10), escape("Autocasting Mass Animate Remains"))
  end

  function can_not_butcher()
    return string.find(crawl.messages(10), escape("anything suitable to butcher here"))
  end

  function can_not_eat_that()
    return string.find(crawl.messages(10), escape("You can't eat that"))
        --These strings don't seem to show up in messages
        --or string.find(crawl.messages(10), escape("Not only inedible but also greatly harmful"))
        --or string.find(crawl.messages(10), escape("It is caustic"))
  end

  function rest()
    sendkeys('5')
  end

  function you_are_gourmand()
    return you.gourmand() or (not you_are_not_ghoul()) or (not you_are_not_felid()) or (not you_are_not_troll()) or (string.find(you.race(), "Kobold"))
  end

  function have_no_chunks()
    for it in inventory() do
      if string.find(it.name(), "chunk") then
        return false
      end
    end
    return true
  end

  function have_rotten_chunks()
    for it in inventory() do
      if string.find(it.name(), "chunk") and string.find(it.name(), "rott") then
        return false
      end
    end
    return true
  end

  function number_of_chunks()
    for it in inventory() do
      --if string.find(it.name(), "chunk") then
        --crawl.mpr(it.name() .." is edible: " .. (food.can_eat(it) and "True" or "False") .. " and dangerous: " .. (food.dangerous(it) and "True" or "False"))
      --end
      if string.find(it.name(), "chunk") and (not string.find(it.name(), "book")) and food.can_eat(it) and not food.dangerous(it) then
        return it.quantity
      end
    end
    return 0
  end

  function is_in_inventory(str)
    for it in inventory() do
      if string.find(it.name(), str) then
        return true
      end
    end
    return false
  end
	
  function weapon_in_inventory()
    for it in inventory() do
      if string.find(it.class(true), "weapon") then
        return true
      end
    end
    return false
  end

  function weapon_in_slot_a()
    local it = items.inslot(0)
    if it then
      return string.find(it.class(true), "weapon")
    else
      return false
    end
  end

  function find_item_letter(str)
    for i = 0,51 do
      it = items.inslot(i)
      if it then
        if string.find(it.name(), str) then
          return items.index_to_letter(i)
        end
      end
    end
    return false
  end

  function you_worship_sacrifice_god()
    return string.find(you.god(), "Trog") 
		    --or string.find(you.god(), "Oka")
        --or string.find(you.god(), "Makhleb")  
				or string.find(you.god(), "Beogh")
        or string.find(you.god(), "Lugonu") 
				--or string.find(you.god(), "Nemelex")
  end

  function on_corpses()
    local fl = you.floor_items()
    for it in iter.invent_iterator:new(fl) do
      if string.find(it.name(), "corpse")
          and not string.find(it.name(), "rotting")
          and not string.find(it.name(), "plague") then
        return true
      end
    end
    return false
  end

  function on_chunks()
    for it in floor_items() do
      if string.find(it.name(), "chunk") then
        return true
      else
        return false
      end
    end
  end

  function you_are_carnivore()
    return you.saprovorous()
  end

  function you_are_not_ghoul()
    return not (string.find(you.race(), "Ghoul"))
  end

  function you_are_not_troll()
    return not (string.find(you.race(), "Troll"))
  end

  function you_are_not_felid()
    return not (string.find(you.race(), "Felid"))
  end

  function you_are_not_octopode()
    return not (string.find(you.race(), "Octopode"))
  end

  function find_corpses()
    local race = you.race()
    local god = you.god()
    local exclude_this = ""
    if string.find(god, "Shining") then
      exlude_this = race
    end
    sendkeys(string.char(6) .. "@corpse&&!!rott&&!!skel&&!!sky&&!!necrop&&!!ugly&&!!vampire&&!!corpse rot&&!!&&!!botono" .. exclude_this .. "\ra\r")
  end

  function inventory()
    return iter.invent_iterator:new(items.inventory())
  end

  function floor_items()
    return iter.invent_iterator:new(you.floor_items())
  end

  function no_weapon()
    return (items.equipped_at("Weapon") == nil) and not uses_unarmed()
  end

  function uses_unarmed()
    return not you_are_not_ghoul()
        or not you_are_not_troll()
        or not you_are_not_felid()
        or (you.skill("Unarmed Combat") >= 3)
  end

  function is_weapon(str)
    local weapon =  items.equipped_at("Weapon")
    if weapon then
      return string.find(weapon.name(), str)
    else
      return false
    end
  end

  function is_ring(str)
    local ring1 = items.equipped_at("Left Ring")
    local ring2 = items.equipped_at("Right Ring")
    if ring1 and ring2 then
      return string.find(ring1.name(), str) or string.find(ring2.name(), str)
    elseif ring1 then
      return string.find(ring1.name(), str)
    elseif ring2 then
      return string.find(ring2.name(), str)
    else
      return false
    end
  end

  function item_in_view(str)
    local x,y
    for x = -8,8 do
      for y = -8,8 do
        if not (x == 0 and y == 0) then
          local pile = items.get_items_at(x,y)
          if pile ~= nil then
            for it in iter.invent_iterator:new(pile) do
              if string.find(it.name(), str) and you.see_cell_no_trans(x,y) then
                return true
              end
            end
          end
        end
      end
    end
    return false
  end

  -- Returns a table where the key is the monster description and value is the total number of that mob in your vision
  function getMonsterList()
    local monsters = {}
    for x = -7,7 do
      for y = -7,7 do
        m = monster.get_monster_at(x, y)
        local attitude_hostile = 0
        if m and (m:attitude() == attitude_hostile) and not (m:is_firewood()) then
          desc = m:desc()
          if (monsters[desc] == nil) then
            monsters[desc] = 1
          else
            monsters[desc] = monsters[desc] + 1
          end
        end
      end
    end
    return monsters
  end

  --Escapes the special characters in a string for pattern matching
  function escape(str)
    --Escapes parens and dash "()-"
    local escaped = str:gsub('[%(%)%-]','%\%1')
    --Removes any coloration parts of the string
    return (escaped:gsub('<[^<]*>',''))
  end

  local function init_spells()
    local spell_list = {}

    for _, spell_name in ipairs(you.spells()) do
      spell_list[spell_name] = true
    end

    return spell_list
  end

  known_spells = init_spells()
>




### Damage Calc 
<
    local previous_hp = 0
    local previous_mp = 0
    local previous_form = ""
    local was_berserk_last_turn = false

  function AnnounceDamage()    
    local current_hp, max_hp = you.hp()
    local current_mp, max_mp = you.mp()
    --Things that increase hp/mp temporarily really mess with this
    local current_form = you.transform()
    local you_are_berserk = you.berserk()
    local max_hp_increased = false
    local max_hp_decreased = false

    if (current_form ~= previous_form) then
      if (previous_form:find("dragon") or
          previous_form:find("statue") or
          previous_form:find("tree") or
          previous_form:find("ice")) then
        max_hp_decreased = true
      elseif (current_form:find("dragon") or
          current_form:find("statue") or
          current_form:find("tree") or
          current_form:find("ice")) then
        max_hp_increased = true
      end
    end
    if (was_berserk_last_turn and not you_are_berserk) then
      max_hp_decreased = true
    elseif (you_are_berserk and not was_berserk_last_turn) then
      max_hp_increased = true
    end

    --crawl.mpr(string.format("previous_form is: %s", previous_form))
    --crawl.mpr(string.format("current_form is: %s", current_form))
    --crawl.mpr(string.format("max_hp_increased is: %s", max_hp_increased and "True" or "False"))
    --crawl.mpr(string.format("max_hp_decreased is: %s", max_hp_decreased and "True" or "False"))

    --crawl.mpr(string:format("you_are_berserk is: %s", you_are_berserk and "True" or "False"))
    --crawl.mpr(string:format("was_berserk_last_turn is: %s", was_berserk_last_turn and "True" or "False"))


    --Skips message on initializing game
    if previous_hp > 0 then
      local hp_difference = previous_hp - current_hp
      local mp_difference = previous_mp - current_mp

      if max_hp_increased or max_hp_decreased then
        if max_hp_increased then
          crawl.mpr("<green>You now have " .. current_hp .. "/" .. max_hp .. " hp.</green>")
        else
          crawl.mpr("<yellow>You now have " .. current_hp .. "/" .. max_hp .. " hp.</yellow>")
        end
      else
        --On losing health
        if (current_hp < previous_hp) then
          if current_hp <= (max_hp * 0.30) then
            crawl.mpr("<red>You take " .. hp_difference .. " damage,</red><lightred> and have " .. current_hp .. "/" .. max_hp .. " hp.</lightred>")
          elseif current_hp <= (max_hp * 0.50) then
            crawl.mpr("<red>You take " .. hp_difference .. " damage, and have " .. current_hp .. "/" .. max_hp .. " hp.</red>")
          elseif current_hp <= (max_hp *  0.70) then
            crawl.mpr("<red>You take " .. hp_difference .. " damage,</red><yellow> and have " .. current_hp .. "/" .. max_hp .. " hp.</yellow>")
          elseif current_hp <= (max_hp * 0.90) then
            crawl.mpr("<red>You take " .. hp_difference .. " damage,</red><lightgrey> and have " .. current_hp .. "/" .. max_hp .. " hp.</lightgrey>")
          else
            crawl.mpr("<red>You take " .. hp_difference .. " damage,</red><green> and have " .. current_hp .. "/" .. max_hp .. " hp.</green>")
          end
          if hp_difference > (max_hp * 0.20) then
            crawl.mpr("<lightred>MASSIVE DAMAGE!!</lightred>")
          end
        end

        --On gaining more than 1 health
        if (current_hp > previous_hp) then
          --Removes the negative sign
          local health_inturn = (0 - hp_difference)
          if (health_inturn > 1) and not (current_hp == max_hp) then
            if current_hp <= (max_hp * 0.30) then
              crawl.mpr("<green>You regained " .. health_inturn .. " hp,</green><lightred> and now have " .. current_hp .. "/" .. max_hp .. " hp.</lightred>")
            elseif current_hp <= (max_hp * 0.50) then
              crawl.mpr("<green>You regained " .. health_inturn .. " hp,</green><red> and now have " .. current_hp .. "/" .. max_hp .. " hp.</red>")
            elseif current_hp <= (max_hp *  0.70) then
              crawl.mpr("<green>You regained " .. health_inturn .. " hp,</green><yellow> and now have " .. current_hp .. "/" .. max_hp .. " hp.</yellow>")
            elseif current_hp <= (max_hp * 0.90) then
              crawl.mpr("<green>You regained " .. health_inturn .. " hp,</green><lightgrey> and now have " .. current_hp .. "/" .. max_hp .. " hp.</lightgrey>")
            else
              crawl.mpr("<green>You regained " .. health_inturn .. " hp, and now have " .. current_hp .. "/" .. max_hp .. " hp.</green>")
            end
          end
          if (current_hp == max_hp) then
            crawl.mpr("<green>Health restored: " .. current_hp .. "</green>")
          end
        end

        --On gaining more than 1 magic
        if (current_mp > previous_mp) then
          --Removes the negative sign
          local mp_inturn = (0 - mp_difference)
          if (mp_inturn > 1) and not (current_mp == max_mp) then
            if current_mp < (max_mp * 0.25) then
              crawl.mpr("<lightcyan>You regained " .. mp_inturn .. " mp,</lightcyan><red> and now have " .. current_mp .. "/" .. max_mp .. " mp.</red>")
            elseif current_mp < (max_mp * 0.50) then
              crawl.mpr("<lightcyan>You regained " .. mp_inturn .. " mp,</lightcyan><yellow> and now have " .. current_mp .. "/" .. max_mp .. " mp.</yellow>")
            else
              crawl.mpr("<lightcyan>You regained " .. mp_inturn .. " mp,</lightcyan><green> and now have " .. current_mp .. "/" .. max_mp .. " mp.</green>")
            end
          end
          if (current_mp == max_mp) then
            crawl.mpr("<lightcyan>MP restored: " .. current_mp .. "</lightcyan>")
          end
        end

        --On losing magic
        if current_mp < previous_mp then
          if current_mp <= (max_mp / 5) then
            crawl.mpr("<lightcyan>You now have </lightcyan><red>" .. current_mp .. "/" ..max_mp .." mp.</red>")
          elseif current_mp <= (max_mp / 2) then
            crawl.mpr("<lightcyan>You now have </lightcyan><yellow>" .. current_mp .. "/" ..max_mp .." mp.</yellow>")
          else
            crawl.mpr("<lightcyan>You now have </lightcyan><green>" .. current_mp .. "/" ..max_mp .." mp.</green>")
          end
        end
      end
    end

    --Set previous hp/mp and form at end of turn
    previous_hp = current_hp
    previous_mp = current_mp
    previous_form = current_form
    was_berserk_last_turn = you_are_berserk
  end
>


<
  function ready()
    AnnounceDamage()
  end
>

# tile_player_tile = tile:MONS_KILLER_KLOWN

# Recommended settings
sound_on = true
sound_pack += https://osp.nemelex.cards/build/latest.zip:["init.txt"]
one_SDL_sound_channel = true
sound_fade_time = 0.5