Convert mon-pick data to a more readable scheme.

Instead of a base level and a rarity, which then use a ridiculously obscure
algorithm to accept or reject monsters, the new data includes:
* minimal depth the monster can be found on
* maximal depth
* rarity at the center of the range
* distribution type (flat, a linear triangle, something halfway between the
  two)
* the monster's enum

The results should be the same, with very minor differences:
* distributions within allowed range are approximated by one of three shapes
  (FLAT, SEMI, PEAK), this shouldn't produce noticeable differences
* effective rarity has been shoehorned into a 0..1000 range (out of 0..10201),
  using div_rand_round().  There's a number of monsters with 35/10201 rarity
  which ends up as 3 or 4, and strings of monsters of the same rarity end up
  randomly perturbed.
* the once-in-the-life-of-universe chance to generate a monster outside the
  -5..+5 range is gone, you can now set arbitrary ranges and they're absolute.

There's no actual code to use this data yet, merely an emulation of the old
functions.  It looks like ZotDef applies some complex rules to the monster's
depth, it may take some thinking about how to convert it.

1 files changed, 52 insertions, 2869 deletions

diff --git a/crawl-ref/source/mon-pick.cc b/crawl-ref/source/mon-pick.cc
index 1019a14064..774483da0c 100644
--- a/crawl-ref/source/mon-pick.cc
+++ b/crawl-ref/source/mon-pick.cc
@@ -14,35 +14,78 @@
 #include "mon-util.h"
 #include "place.h"
 
+enum distrib_type
+{
+    FLAT, // full chance throughout the range
+    SEMI, // 50% chance at range ends, 100% in the middle
+    PEAK, // 0% chance just outside range ends, 100% in the middle, range
+          // ends typically get ~20% or more
+};
+
+typedef struct
+{
+    int minr;
+    int maxr;
+    int rarity; // 0..1000
+    distrib_type distrib;
+    monster_type mons;
+} pop_entry;
+
+#include "mon-pick-data.h"
+
 // NOTE: The lower the level the earlier a monster may appear.
 int mons_level(monster_type mcls, branch_type branch)
 {
-    return branches[branch].mons_level_function(mcls);
+    // legacy function, until ZotDef is ported
+    for (pop_entry *pe = population[branch].pop; pe->mons; pe++)
+        if (pe->mons == mcls)
+            return (pe->minr + pe->maxr) / 2;
+
+    return DEPTH_NOWHERE;
 }
 
 // NOTE: Higher values returned means the monster is "more common".
 // A return value of zero means the monster will never appear. {dlb}
 int mons_rarity(monster_type mcls, branch_type branch)
 {
-    return branches[branch].mons_rarity_function(mcls);
+    for (pop_entry *pe = population[branch].pop; pe->mons; pe++)
+        if (pe->mons == mcls)
+        {
+            // A rough and wrong conversion of new-style linear rarities to
+            // old quadratic ones, with some compensation for distribution
+            // shape (old code had rarities > 100, capped after subtracting
+            // the square of distance).
+            // The new data pretty accurately represents old state, but only
+            // if depth is known, and mons_rarity() doesn't receive it.  The
+            // argument is level_id rather than branch_type only for extra
+            // confusion.
+            static int fudge[3] = { 25, 12, 0 };
+            int rare = pe->rarity;
+            if (rare < 500)
+                rare = isqrt_ceil(rare * 10);
+            else
+                rare = 100 - isqrt_ceil(10000 - rare * 10);
+            return rare + fudge[pe->distrib];
+        }
+
+    return 0;
 }
 
 // only Pan currently
 monster_type pick_monster_no_rarity(const level_id &place)
 {
-    if (branches[place.branch].mons_rarity_function == mons_null_rare)
+    if (!population[place.branch].count)
         return MONS_0;
 
-    monster_type mons;
-    do mons = (monster_type)random2(NUM_MONSTERS);
-    while (!branches[place.branch].mons_rarity_function(mons));
-
-    return mons;
+    return population[place.branch].pop[random2(population[place.branch].count)].mons;
 }
 
 bool branch_has_monsters(branch_type branch)
 {
-    return branches[branch].mons_rarity_function != mons_null_rare;
+    COMPILE_CHECK(ARRAYSZ(population) == NUM_BRANCHES);
+
+    ASSERT(branch < NUM_BRANCHES);
+    return population[branch].count;
 }
 
 #if defined(DEBUG_DIAGNOSTICS) || defined(DEBUG_TESTS)
@@ -85,2863 +128,3 @@ void debug_monpick()
     }
 }
 #endif
-
-/* ******************** END EXTERNAL FUNCTIONS ******************** */
-
-// The Ecumenical Temple and other places with no monster gen.
-int mons_null_level(monster_type mcls)
-{
-    return DEPTH_NOWHERE;
-}
-
-int mons_null_rare(monster_type mcls)
-{
-    return 0;
-}
-
-// The Abyss
-int mons_abyss_level(monster_type mcls)
-{
-    if (mons_abyss_rare(mcls))
-        return 1;
-    return DEPTH_NOWHERE;
-}
-
-int mons_abyss_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_ABOMINATION_LARGE:
-    case MONS_ABOMINATION_SMALL:
-        return 99;
-
-    case MONS_IRON_IMP:
-    case MONS_LEMURE:
-    case MONS_UFETUBUS:
-    case MONS_WHITE_IMP:
-        return 80;
-
-    case MONS_HELLWING:
-    case MONS_NEQOXEC:
-    case MONS_ORANGE_DEMON:
-    case MONS_SMOKE_DEMON:
-    case MONS_YNOXINUL:
-        return 50;
-
-    case MONS_SKELETON_LARGE:
-    case MONS_SKELETON_SMALL:
-    case MONS_SKELETAL_WARRIOR:
-        return 40;
-
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-        return 35;
-
-    case MONS_BONE_DRAGON:
-    case MONS_SIXFIRHY:
-        return 20;
-
-    case MONS_EFREET:
-        return 18;
-
-    case MONS_RAKSHASA:
-        return 17;
-
-    case MONS_BRAIN_WORM:
-        return 16;
-
-    case MONS_FLYING_SKULL:
-    case MONS_FREEZING_WRAITH:
-    case MONS_GIANT_ORANGE_BRAIN:
-    case MONS_VERY_UGLY_THING:
-    case MONS_WRAITH:
-        return 15;
-
-    case MONS_EYE_OF_DRAINING:
-    case MONS_FIRE_BAT:
-    case MONS_FLAMING_CORPSE:
-    case MONS_LICH:
-        return 14;
-
-    case MONS_INSUBSTANTIAL_WISP:
-    case MONS_UNSEEN_HORROR:
-    case MONS_GOLDEN_EYE:
-        return 12;
-
-    case MONS_HELL_HOG:
-    case MONS_HELL_HOUND:
-    case MONS_HUNGRY_GHOST:
-    case MONS_SHADOW:
-        return 11;
-
-    case MONS_BALRUG:
-    case MONS_BLIZZARD_DEMON:
-    case MONS_BLUE_DEVIL:
-    case MONS_CACODEMON:
-    case MONS_CHAOS_SPAWN:
-    case MONS_DEMONIC_CRAWLER:
-    case MONS_EXECUTIONER:
-    case MONS_GREEN_DEATH:
-    case MONS_GUARDIAN_SERPENT:
-    case MONS_HELLION:
-    case MONS_ICE_DEVIL:
-    case MONS_CRIMSON_IMP:
-    case MONS_LOROCYPROCA:
-    case MONS_MUMMY:
-    case MONS_NECROPHAGE:
-    case MONS_ROTTING_DEVIL:
-    case MONS_SHADOW_IMP:
-    case MONS_SUN_DEMON:
-    case MONS_WIGHT:
-        return 10;
-
-    case MONS_ICE_BEAST:
-    case MONS_JELLY:
-    case MONS_TORMENTOR:
-    case MONS_VAMPIRE:
-    case MONS_VAPOUR:
-    case MONS_SIMULACRUM_LARGE:
-    case MONS_SIMULACRUM_SMALL:
-    case MONS_SKY_BEAST:
-        return 9;
-
-    case MONS_EIDOLON:
-    case MONS_FUNGUS:
-    case MONS_GIANT_EYEBALL:
-    case MONS_PHANTOM:
-    case MONS_REAPER:
-        return 8;
-
-    case MONS_DAEVA:
-    case MONS_SOUL_EATER:
-        return 7;
-
-    case MONS_ANGEL:
-    case MONS_IRON_DEVIL:
-    case MONS_PROFANE_SERVITOR:
-        return 6;
-
-    case MONS_ANCIENT_LICH:
-    case MONS_CLAY_GOLEM:
-    case MONS_GREAT_ORB_OF_EYES:
-    case MONS_IRON_GOLEM:
-    case MONS_NAGA_MAGE:
-    case MONS_NAGA_WARRIOR:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_HELL_SENTINEL:
-    case MONS_RED_DEVIL:
-    case MONS_SHINING_EYE:
-    case MONS_SPINY_WORM:
-    case MONS_STONE_GOLEM:
-    case MONS_TENTACLED_MONSTROSITY:
-    case MONS_WIZARD:
-    case MONS_WOOD_GOLEM:
-    case MONS_DEATH_DRAKE:
-    case MONS_SILENT_SPECTRE:
-    case MONS_DEEP_DWARF:
-    case MONS_DEEP_DWARF_SCION:
-    case MONS_DEEP_DWARF_ARTIFICER:
-    case MONS_DEEP_DWARF_NECROMANCER:
-    case MONS_DEEP_DWARF_BERSERKER:
-    case MONS_DEEP_DWARF_DEATH_KNIGHT:
-    case MONS_UNBORN_DEEP_DWARF:
-    case MONS_TENGU:
-    case MONS_SHADOW_DEMON:
-    case MONS_OCTOPODE:
-        return 5;
-
-    case MONS_AIR_ELEMENTAL:
-    case MONS_EARTH_ELEMENTAL:
-    case MONS_FIRE_ELEMENTAL:
-    case MONS_FLAYED_GHOST:
-        return 4;
-
-    case MONS_CRYSTAL_GOLEM:
-    case MONS_EYE_OF_DEVASTATION:
-    case MONS_HELL_KNIGHT:
-    case MONS_NECROMANCER:
-    case MONS_UGLY_THING:
-    case MONS_MOTTLED_DRACONIAN:
-    case MONS_YELLOW_DRACONIAN:
-    case MONS_BLACK_DRACONIAN:
-    case MONS_WHITE_DRACONIAN:
-    case MONS_RED_DRACONIAN:
-    case MONS_PURPLE_DRACONIAN:
-    case MONS_PALE_DRACONIAN:
-    case MONS_GREEN_DRACONIAN:
-    case MONS_GREY_DRACONIAN:
-    case MONS_DRACONIAN_CALLER:
-    case MONS_DRACONIAN_MONK:
-    case MONS_DRACONIAN_SCORCHER:
-    case MONS_DRACONIAN_KNIGHT:
-    case MONS_DRACONIAN_ANNIHILATOR:
-    case MONS_DRACONIAN_ZEALOT:
-    case MONS_DRACONIAN_SHIFTER:
-    case MONS_HELLEPHANT:
-        return 3;
-
-    case MONS_DANCING_WEAPON:
-    case MONS_GIANT_SPORE:
-        return 2;
-
-    case MONS_TOENAIL_GOLEM:
-        return 1;
-
-    default:
-        return 0;
-    }
-}
-
-// Pandemonium
-int mons_pan_level(monster_type mcls)
-{
-    if (mons_pan_rare(mcls))
-        return 1;
-    return DEPTH_NOWHERE;
-}
-
-int mons_pan_rare(monster_type mcls)
-{
-    // Note: this is used as-is by place:Pan, but not by actual Pan
-    // generation.  For that, there is only a 1/40 chance of picking from
-    // this list, and if so, it ignores rarities.
-    switch (mcls)
-    {
-    // demonic animals
-    case MONS_HELL_HOUND:
-    case MONS_HELL_HOG:
-    case MONS_HELLEPHANT:
-        return 10;
-    // undead
-    case MONS_PROFANE_SERVITOR:
-    case MONS_FLAMING_CORPSE:
-    case MONS_FLAYED_GHOST:
-    case MONS_FLYING_SKULL:
-    case MONS_FREEZING_WRAITH:
-    case MONS_HUNGRY_GHOST:
-    case MONS_LICH:
-    case MONS_MUMMY:
-    case MONS_NECROPHAGE:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_PHANTOM:
-    case MONS_SHADOW:
-    case MONS_SKELETON_LARGE:
-    case MONS_SKELETON_SMALL:
-    case MONS_SIMULACRUM_LARGE:
-    case MONS_SIMULACRUM_SMALL:
-    case MONS_VAMPIRE:
-    case MONS_WIGHT:
-    case MONS_WRAITH:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-        return 5;
-    // "things"
-    case MONS_INSUBSTANTIAL_WISP:
-    case MONS_PULSATING_LUMP:
-        return 2;
-    // eyes
-    case MONS_GIANT_ORANGE_BRAIN:
-    case MONS_EYE_OF_DRAINING:
-    case MONS_GIANT_EYEBALL:
-    case MONS_GREAT_ORB_OF_EYES:
-    case MONS_GOLDEN_EYE:
-        return 2;
-    // foreign demons
-    case MONS_EFREET:
-    case MONS_RAKSHASA:
-        return 20;
-    // golems
-    case MONS_CLAY_GOLEM:
-    case MONS_CRYSTAL_GOLEM:
-    case MONS_IRON_GOLEM:
-    case MONS_STONE_GOLEM:
-    case MONS_TOENAIL_GOLEM:
-    case MONS_WOOD_GOLEM:
-        return 5;
-    // elementals
-    case MONS_AIR_ELEMENTAL:
-    case MONS_EARTH_ELEMENTAL:
-    case MONS_FIRE_ELEMENTAL:
-        return 2;
-    // non-native demons
-    case MONS_DEMONIC_CRAWLER:
-    case MONS_CHAOS_SPAWN:
-    case MONS_UNSEEN_HORROR:
-        return 30;
-    // native popular demons
-    case MONS_BALRUG:
-    case MONS_BLIZZARD_DEMON:
-    case MONS_CACODEMON:
-    case MONS_EXECUTIONER:
-    case MONS_GREEN_DEATH:
-    case MONS_HELLWING:
-    case MONS_IRON_IMP:
-    case MONS_LEMURE:
-    case MONS_NEQOXEC:
-    case MONS_ORANGE_DEMON:
-    case MONS_SIXFIRHY:
-    case MONS_SMOKE_DEMON:
-    case MONS_UFETUBUS:
-    case MONS_WHITE_IMP:
-    case MONS_YNOXINUL:
-    case MONS_ABOMINATION_LARGE:
-    case MONS_ABOMINATION_SMALL:
-        return 100;
-    // native rare demons
-    case MONS_HELL_BEAST:
-    case MONS_TORMENTOR:
-    case MONS_REAPER:
-    case MONS_SOUL_EATER:
-    case MONS_ICE_DEVIL:
-    case MONS_BLUE_DEVIL:
-    case MONS_IRON_DEVIL:
-    case MONS_RED_DEVIL:
-    case MONS_ROTTING_DEVIL:
-    case MONS_SUN_DEMON:
-    case MONS_SHADOW_IMP:
-    case MONS_SHADOW_DEMON:
-    case MONS_LOROCYPROCA:
-        return 40;
-    default:
-        return 0;
-    }
-}
-
-// The Main Dungeon
-int mons_dungeon_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_GOBLIN:
-    case MONS_GIANT_NEWT:
-        return 2;
-
-    case MONS_GIANT_COCKROACH:
-    case MONS_OOZE:
-    case MONS_BALL_PYTHON:
-        return 3;
-
-    case MONS_BAT:
-    case MONS_KOBOLD:
-    case MONS_RAT:
-        return 5;
-
-    case MONS_GIANT_GECKO:
-    case MONS_GIANT_MITE:
-    case MONS_GNOLL:
-    case MONS_HOBGOBLIN:
-    case MONS_JACKAL:
-        return 6;
-
-    case MONS_WORM:
-    case MONS_ADDER:
-    case MONS_QUOKKA:
-    case MONS_GNOLL_SHAMAN:
-        return 7;
-
-    case MONS_ORC:
-    case MONS_ORC_PRIEST:
-        return 8;
-
-    case MONS_FUNGUS:
-    case MONS_WORKER_ANT:
-    case MONS_GIANT_EYEBALL:
-    case MONS_HOUND:
-    case MONS_IGUANA:
-    case MONS_OGRE:
-    case MONS_ORC_WIZARD:
-    case MONS_PHANTOM:
-    case MONS_SCORPION:
-    case MONS_SKELETON_SMALL:
-    case MONS_GNOLL_SERGEANT:
-        return 9;
-
-    case MONS_WATER_MOCCASIN:
-    case MONS_CENTAUR:
-    case MONS_ICE_BEAST:
-    case MONS_CRIMSON_IMP:
-    case MONS_JELLY:
-    case MONS_NECROPHAGE:
-    case MONS_QUASIT:
-    case MONS_ZOMBIE_SMALL:
-    case MONS_SKY_BEAST:
-        return 10;
-
-    case MONS_DEEP_ELF_SOLDIER:
-    case MONS_GOLIATH_BEETLE:
-    case MONS_GIANT_FROG:
-    case MONS_GIANT_SPORE:
-    case MONS_MUMMY:
-    case MONS_ORC_WARRIOR:
-    case MONS_STEAM_DRAGON:
-    case MONS_WIGHT:
-        return 11;
-
-    case MONS_CROCODILE:
-    case MONS_HIPPOGRIFF:
-    case MONS_HUNGRY_GHOST:
-    case MONS_KILLER_BEE:
-    case MONS_SHADOW:
-    case MONS_YELLOW_WASP:
-        return 12;
-
-    case MONS_EYE_OF_DRAINING:
-    case MONS_MANTICORE:
-    case MONS_PLANT:
-    case MONS_WYVERN:
-        return 13;
-
-    case MONS_BIG_KOBOLD:
-    case MONS_GIANT_CENTIPEDE:
-    case MONS_OKLOB_PLANT:
-    case MONS_TROLL:
-    case MONS_TWO_HEADED_OGRE:
-    case MONS_WOOD_GOLEM:
-    case MONS_YAK:
-        return 14;
-
-    case MONS_HILL_GIANT:
-    case MONS_KOMODO_DRAGON:
-    case MONS_SOLDIER_ANT:
-    case MONS_WRAITH:
-    case MONS_UNSEEN_HORROR:
-    case MONS_TRAPDOOR_SPIDER:
-        return 15;
-
-    case MONS_BASILISK:
-    case MONS_BRAIN_WORM:
-    case MONS_CYCLOPS:
-    case MONS_EFREET:
-    case MONS_EYE_OF_DEVASTATION:
-    case MONS_HYDRA:
-    case MONS_MOTTLED_DRAGON:
-    case MONS_SKELETAL_WARRIOR:
-    case MONS_CATOBLEPAS:
-        return 16;
-
-    case MONS_BLINK_FROG:
-    case MONS_VAMPIRE_MOSQUITO:
-    case MONS_GUARDIAN_SERPENT:
-    case MONS_RAKSHASA:
-    case MONS_SLIME_CREATURE:
-    case MONS_STONE_GOLEM:
-    case MONS_VAMPIRE:
-    case MONS_WANDERING_MUSHROOM:
-    case MONS_ZOMBIE_LARGE:
-        return 17;
-
-    case MONS_BOGGART:
-    case MONS_CENTAUR_WARRIOR:
-    case MONS_CLAY_GOLEM:
-    case MONS_GRIFFON:
-    case MONS_SHAPESHIFTER:
-    case MONS_UGLY_THING:
-    case MONS_WIZARD:
-    case MONS_SIMULACRUM_SMALL:
-    case MONS_SIMULACRUM_LARGE:
-    case MONS_ROCK_WORM:
-        return 18;
-
-    case MONS_DRAGON:
-    case MONS_GARGOYLE:
-    case MONS_GIANT_AMOEBA:
-    case MONS_KOBOLD_DEMONOLOGIST:
-    // Higher than actual threat level so that they will still show up in The Vaults
-    case MONS_SKELETON_LARGE:
-        return 19;
-
-    case MONS_GIANT_SLUG:
-    case MONS_IRON_GOLEM:
-    case MONS_OGRE_MAGE:
-    case MONS_ROCK_TROLL:
-    case MONS_TOENAIL_GOLEM:
-    case MONS_YAKTAUR:
-    case MONS_WOLF_SPIDER:
-        return 20;
-
-    case MONS_AIR_ELEMENTAL:
-    case MONS_DEEP_ELF_FIGHTER:
-    case MONS_DEEP_ELF_KNIGHT:
-    case MONS_DEEP_ELF_MAGE:
-    case MONS_DEEP_ELF_SUMMONER:
-    case MONS_EARTH_ELEMENTAL:
-    case MONS_FIRE_ELEMENTAL:
-    case MONS_GIANT_ORANGE_BRAIN:
-    case MONS_AGATE_SNAIL:
-    case MONS_GREAT_ORB_OF_EYES:
-    case MONS_ICE_DRAGON:
-    case MONS_NAGA_MAGE:
-    case MONS_NAGA_WARRIOR:
-    case MONS_NECROMANCER:
-    case MONS_ORC_KNIGHT:
-    case MONS_RED_WASP:
-    case MONS_SHADOW_WRAITH:
-    case MONS_SPINY_WORM:
-    case MONS_VERY_UGLY_THING:
-    case MONS_HARPY:
-    case MONS_FIRE_CRAB:
-        return 21;
-
-    case MONS_BOULDER_BEETLE:
-    case MONS_ORC_HIGH_PRIEST:
-    case MONS_PULSATING_LUMP:
-        return 22;
-
-    case MONS_BORING_BEETLE:
-    case MONS_CRYSTAL_GOLEM:
-    case MONS_FLAYED_GHOST:
-    case MONS_FREEZING_WRAITH:
-    case MONS_REDBACK:
-    case MONS_SPHINX:
-    case MONS_VAPOUR:
-        return 23;
-
-    case MONS_ORC_SORCERER:
-    case MONS_SHINING_EYE:
-        return 24;
-
-    case MONS_BUMBLEBEE:
-    case MONS_ORC_WARLORD:
-    case MONS_IRON_TROLL:
-    case MONS_YAKTAUR_CAPTAIN:
-        return 25;
-
-    case MONS_DANCING_WEAPON:
-    case MONS_DEEP_TROLL:
-    case MONS_FIRE_GIANT:
-    case MONS_FROST_GIANT:
-    case MONS_HELL_KNIGHT:
-    case MONS_LICH:
-    case MONS_STONE_GIANT:
-    case MONS_ETTIN:
-        return 26;
-
-    case MONS_DEEP_ELF_CONJURER:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_STORM_DRAGON:
-        return 27;
-
-    case MONS_DEEP_ELF_PRIEST:
-    case MONS_GLOWING_SHAPESHIFTER:
-    case MONS_TENTACLED_MONSTROSITY:
-        return 28;
-
-    case MONS_ANCIENT_LICH:
-    case MONS_BONE_DRAGON:
-    case MONS_DEEP_ELF_ANNIHILATOR:
-    case MONS_DEEP_ELF_DEATH_MAGE:
-    case MONS_DEEP_ELF_DEMONOLOGIST:
-    case MONS_DEEP_ELF_HIGH_PRIEST:
-    case MONS_DEEP_ELF_SORCERER:
-    case MONS_GOLDEN_DRAGON:
-    case MONS_IRON_DRAGON:
-    case MONS_QUICKSILVER_DRAGON:
-    case MONS_SHADOW_DRAGON:
-    case MONS_TITAN:
-        return 31;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_dungeon_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_BAT:
-    case MONS_GIANT_FROG:
-    case MONS_GOBLIN:
-    case MONS_HILL_GIANT:
-    case MONS_HOBGOBLIN:
-    case MONS_CRIMSON_IMP:
-    case MONS_KOBOLD:
-    case MONS_SKELETON_LARGE:
-    case MONS_ORC:
-    case MONS_RAT:
-    case MONS_SKELETON_SMALL:
-    case MONS_UGLY_THING:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-        return 99;
-
-    case MONS_CENTAUR_WARRIOR:
-    case MONS_WORKER_ANT:
-    case MONS_ADDER:
-        return 80;
-
-    case MONS_SLIME_CREATURE:
-        return 75;
-
-    case MONS_CENTAUR:
-    case MONS_CYCLOPS:
-    case MONS_HOUND:
-    case MONS_OGRE:
-    case MONS_ORC_WARRIOR:
-    case MONS_TROLL:
-    case MONS_YAK:
-    case MONS_YAKTAUR_CAPTAIN:
-        return 70;
-
-    case MONS_JELLY:
-    case MONS_ORC_KNIGHT:
-        return 60;
-
-    case MONS_SHAPESHIFTER:
-        return 59;
-
-    case MONS_STONE_GIANT:
-        return 53;
-
-    case MONS_BIG_KOBOLD:
-    case MONS_GOLIATH_BEETLE:
-    case MONS_VAMPIRE_MOSQUITO:
-    case MONS_GIANT_COCKROACH:
-    case MONS_GIANT_GECKO:
-    case MONS_IGUANA:
-    case MONS_GIANT_NEWT:
-    case MONS_HIPPOGRIFF:
-    case MONS_HYDRA:
-    case MONS_ICE_BEAST:
-    case MONS_SKY_BEAST:
-    case MONS_KILLER_BEE:
-    case MONS_ORC_WIZARD:
-    case MONS_QUOKKA:
-    case MONS_SCORPION:
-    case MONS_UNSEEN_HORROR:
-    case MONS_WORM:
-        return 50;
-
-    case MONS_ROCK_TROLL:
-        return 48;
-
-    case MONS_MANTICORE:
-    case MONS_OGRE_MAGE:
-        return 45;
-
-    case MONS_HUNGRY_GHOST:
-    case MONS_SHADOW:
-        return 41;
-
-    case MONS_GIANT_CENTIPEDE:
-    case MONS_GIANT_EYEBALL:
-    case MONS_GIANT_SPORE:
-    case MONS_GRIFFON:
-    case MONS_JACKAL:
-    case MONS_MOTTLED_DRAGON:
-    case MONS_PHANTOM:
-    case MONS_TWO_HEADED_OGRE:
-    case MONS_WIGHT:
-    case MONS_WRAITH:
-    case MONS_WYVERN:
-    case MONS_YAKTAUR:
-        return 40;
-
-    case MONS_WOLF_SPIDER:
-        return 36;
-
-    case MONS_FREEZING_WRAITH:
-    case MONS_GIANT_AMOEBA:
-    case MONS_BASILISK:
-    case MONS_GLOWING_SHAPESHIFTER:
-    case MONS_SOLDIER_ANT:
-        return 35;
-
-    case MONS_BOULDER_BEETLE:
-        return 34;
-
-    case MONS_EYE_OF_DRAINING:
-    case MONS_TRAPDOOR_SPIDER:
-    case MONS_ROCK_WORM:
-        return 33;
-
-    case MONS_GIANT_SLUG:
-        return 32;
-
-    case MONS_WATER_MOCCASIN:
-    case MONS_DRAGON:
-    case MONS_ETTIN:
-    case MONS_CROCODILE:
-    case MONS_GIANT_MITE:
-    case MONS_GNOLL:
-    case MONS_KOMODO_DRAGON:
-    case MONS_MUMMY:
-    case MONS_NECROPHAGE:
-    case MONS_QUASIT:
-    case MONS_SKELETAL_WARRIOR:
-    case MONS_BALL_PYTHON:
-    case MONS_SPINY_WORM:
-    case MONS_VAMPIRE:
-    case MONS_YELLOW_WASP:
-        return 30;
-
-    case MONS_FLAYED_GHOST:
-        return 29;
-
-    case MONS_BRAIN_WORM:
-        return 26;
-
-    case MONS_BOGGART:
-    case MONS_DEEP_ELF_FIGHTER:
-    case MONS_DEEP_ELF_KNIGHT:
-    case MONS_DEEP_TROLL:
-    case MONS_FIRE_GIANT:
-    case MONS_FROST_GIANT:
-    case MONS_GREAT_ORB_OF_EYES:
-    case MONS_IRON_TROLL:
-    case MONS_OOZE:
-    case MONS_ORC_PRIEST:
-    case MONS_PLANT:
-    case MONS_RED_WASP:
-    case MONS_SIMULACRUM_SMALL:
-    case MONS_SIMULACRUM_LARGE:
-        return 25;
-
-    case MONS_FUNGUS:
-    case MONS_AGATE_SNAIL:
-    case MONS_ICE_DRAGON:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_RAKSHASA:
-    case MONS_REDBACK:
-    case MONS_SHADOW_DRAGON:
-    case MONS_SPHINX:
-    case MONS_STEAM_DRAGON:
-    case MONS_STORM_DRAGON:
-    case MONS_VERY_UGLY_THING:
-    case MONS_WIZARD:
-    case MONS_HARPY:
-    case MONS_FIRE_CRAB:
-    case MONS_GNOLL_SERGEANT:
-        return 20;
-
-    case MONS_BORING_BEETLE:
-    case MONS_LICH:
-    case MONS_TENTACLED_MONSTROSITY:
-        return 17;
-
-    case MONS_BLINK_FROG:
-    case MONS_CLAY_GOLEM:
-    case MONS_EFREET:
-    case MONS_EYE_OF_DEVASTATION:
-    case MONS_NECROMANCER:
-    case MONS_WOOD_GOLEM:
-    case MONS_GNOLL_SHAMAN:
-        return 15;
-
-    case MONS_KOBOLD_DEMONOLOGIST:
-        return 13;
-
-    case MONS_BUMBLEBEE:
-    case MONS_ORC_HIGH_PRIEST:
-        return 12;
-
-    case MONS_CATOBLEPAS:
-    case MONS_DEEP_ELF_SOLDIER:
-    case MONS_GIANT_ORANGE_BRAIN:
-    case MONS_HELL_KNIGHT:
-    case MONS_IRON_GOLEM:
-    case MONS_OKLOB_PLANT:
-    case MONS_ORC_SORCERER:
-    case MONS_SHADOW_WRAITH:
-    case MONS_STONE_GOLEM:
-    case MONS_TITAN:
-    case MONS_WANDERING_MUSHROOM:
-        return 10;
-
-    case MONS_GOLDEN_DRAGON:
-    case MONS_ORC_WARLORD:
-        return 7;
-
-    case MONS_GARGOYLE:
-        return 6;
-
-    case MONS_BONE_DRAGON:
-    case MONS_CRYSTAL_GOLEM:
-    case MONS_DANCING_WEAPON:
-    case MONS_DEEP_ELF_HIGH_PRIEST:
-    case MONS_DEEP_ELF_MAGE:
-    case MONS_DEEP_ELF_SUMMONER:
-    case MONS_IRON_DRAGON:
-    case MONS_NAGA_MAGE:
-    case MONS_NAGA_WARRIOR:
-    case MONS_QUICKSILVER_DRAGON:
-    case MONS_VAPOUR:
-        return 5;
-
-    case MONS_AIR_ELEMENTAL:
-    case MONS_DEEP_ELF_CONJURER:
-    case MONS_EARTH_ELEMENTAL:
-    case MONS_FIRE_ELEMENTAL:
-        return 4;
-
-    case MONS_ANCIENT_LICH:
-    case MONS_DEEP_ELF_ANNIHILATOR:
-    case MONS_DEEP_ELF_DEATH_MAGE:
-    case MONS_DEEP_ELF_DEMONOLOGIST:
-    case MONS_DEEP_ELF_PRIEST:
-    case MONS_DEEP_ELF_SORCERER:
-    case MONS_GUARDIAN_SERPENT:
-        return 3;
-
-    case MONS_PULSATING_LUMP:
-    case MONS_SHINING_EYE:
-    case MONS_TOENAIL_GOLEM:
-        return 2;
-
-    default:
-        return 0;
-    }
-}
-
-// The Dwarven Hall
-int mons_dwarf_level(monster_type mcls)
-{
-    if (mons_dwarf_rare(mcls))
-        return 1;
-    return DEPTH_NOWHERE;
-}
-
-int mons_dwarf_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_DEEP_DWARF:
-        return 100;
-    case MONS_DEEP_DWARF_SCION:
-    case MONS_DEEP_DWARF_ARTIFICER:
-        return 70;
-    case MONS_DEEP_DWARF_NECROMANCER:
-    case MONS_DEEP_DWARF_BERSERKER:
-    case MONS_DEEP_DWARF_DEATH_KNIGHT:
-        return 60;
-    case MONS_UNBORN_DEEP_DWARF:
-        return 40;
-    case MONS_WRAITH:
-        return 30;
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_EIDOLON:
-    case MONS_FIRE_GIANT:
-    case MONS_FROST_GIANT:
-    case MONS_STONE_GIANT:
-        return 5;
-    case MONS_DEEP_TROLL:
-    case MONS_IRON_TROLL:
-    case MONS_ROCK_TROLL:
-    case MONS_SHADOW_WRAITH:
-        return 2;
-
-    default:
-        return 0;
-    }
-}
-
-// The Orcish Mines
-int mons_mineorc_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_HOBGOBLIN:
-    case MONS_ORC_PRIEST:
-    case MONS_ORC_WARRIOR:
-        return 2;
-
-    case MONS_GNOLL:
-    case MONS_OGRE:
-    case MONS_WARG:
-    case MONS_ORC_KNIGHT:
-    case MONS_ORC_WIZARD:
-        return 3;
-
-    case MONS_CYCLOPS:
-    case MONS_IRON_TROLL:
-    case MONS_OGRE_MAGE:
-    case MONS_ORC_HIGH_PRIEST:
-    case MONS_ORC_SORCERER:
-    case MONS_ORC_WARLORD:
-    case MONS_ROCK_TROLL:
-    case MONS_STONE_GIANT:
-    case MONS_TROLL:
-    case MONS_TWO_HEADED_OGRE:
-    case MONS_ETTIN:
-    case MONS_GNOLL_SHAMAN:
-    case MONS_GNOLL_SERGEANT:
-        return 4;
-
-    case MONS_FUNGUS:
-    case MONS_GOBLIN:
-    case MONS_ORC:
-        return 1;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_mineorc_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_ORC:
-        return 300;
-
-    case MONS_GOBLIN:
-    case MONS_ORC_WARRIOR:
-        return 30;
-
-    case MONS_HOBGOBLIN:
-    case MONS_OGRE:
-        return 20;
-
-    case MONS_TROLL:
-    case MONS_WARG:
-        return 13;
-
-    case MONS_FUNGUS:
-    case MONS_ORC_KNIGHT:
-    case MONS_ORC_PRIEST:
-    case MONS_ORC_SORCERER:
-    case MONS_ORC_WIZARD:
-        return 10;
-
-    case MONS_ORC_WARLORD:
-    case MONS_ORC_HIGH_PRIEST:
-    case MONS_CYCLOPS:
-    case MONS_TWO_HEADED_OGRE:
-        return 5;
-
-    case MONS_ETTIN:
-    case MONS_IRON_TROLL:
-    case MONS_ROCK_TROLL:
-    case MONS_STONE_GIANT:
-        return 3;
-
-    case MONS_GNOLL:
-        return 2;
-
-    case MONS_OGRE_MAGE:
-    case MONS_GNOLL_SHAMAN:
-    case MONS_GNOLL_SERGEANT:
-        return 1;
-
-    default:
-        return 0;
-    }
-}
-
-// The Elven Halls
-int mons_hallelf_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_DEEP_ELF_SOLDIER:
-    case MONS_DEEP_ELF_FIGHTER:
-    case MONS_ORC:
-    case MONS_ORC_WARRIOR:
-    case MONS_ORC_WIZARD:
-    case MONS_DEEP_ELF_MAGE:
-    case MONS_DEEP_ELF_SUMMONER:
-    case MONS_FUNGUS:
-    case MONS_DEEP_ELF_CONJURER:
-    case MONS_SHAPESHIFTER:
-    case MONS_ORC_KNIGHT:
-        return 2;
-
-    case MONS_ORC_SORCERER:
-    case MONS_DEEP_ELF_PRIEST:
-    case MONS_GLOWING_SHAPESHIFTER:
-    case MONS_DEEP_ELF_KNIGHT:
-    case MONS_ORC_PRIEST:
-    case MONS_ORC_HIGH_PRIEST:
-        return 3;
-
-    case MONS_DEEP_ELF_HIGH_PRIEST:
-    case MONS_DEEP_ELF_DEMONOLOGIST:
-    case MONS_DEEP_ELF_ANNIHILATOR:
-    case MONS_DEEP_ELF_SORCERER:
-    case MONS_DEEP_ELF_DEATH_MAGE:
-        return 4;
-
-    case MONS_DEEP_ELF_BLADEMASTER:
-    case MONS_DEEP_ELF_MASTER_ARCHER:
-        return 7;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_hallelf_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_FUNGUS:
-        return 300;
-
-    case MONS_DEEP_ELF_SOLDIER:
-    case MONS_DEEP_ELF_FIGHTER:
-    case MONS_DEEP_ELF_MAGE:
-        return 100;
-
-    case MONS_DEEP_ELF_KNIGHT:
-        return 80;
-
-    case MONS_DEEP_ELF_SUMMONER:
-        return 72;
-
-    case MONS_DEEP_ELF_CONJURER:
-        return 63;
-
-    case MONS_DEEP_ELF_PRIEST:
-        return 44;
-
-    case MONS_SHAPESHIFTER:
-        return 25;
-
-    case MONS_ORC:
-        return 20;
-
-    case MONS_DEEP_ELF_DEMONOLOGIST:
-    case MONS_DEEP_ELF_SORCERER:
-        return 17;
-
-    case MONS_DEEP_ELF_ANNIHILATOR:
-    case MONS_DEEP_ELF_DEATH_MAGE:
-    case MONS_ORC_WIZARD:
-        return 13;
-
-    case MONS_ORC_WARRIOR:
-        return 11;
-
-    case MONS_DEEP_ELF_HIGH_PRIEST:
-    case MONS_ORC_SORCERER:
-    case MONS_GLOWING_SHAPESHIFTER:
-        return 10;
-
-    case MONS_ORC_KNIGHT:
-    case MONS_ORC_PRIEST:
-    case MONS_ORC_HIGH_PRIEST:
-        return 5;
-
-    case MONS_DEEP_ELF_BLADEMASTER:
-    case MONS_DEEP_ELF_MASTER_ARCHER:
-        return 3;
-
-    default:
-        return 0;
-    }
-}
-
-// The Lair
-int mons_lair_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_GIANT_GECKO:
-    case MONS_BAT:
-    case MONS_JACKAL:
-    case MONS_GIANT_NEWT:
-    case MONS_RAT:
-    case MONS_QUOKKA:
-    case MONS_GIANT_CENTIPEDE:
-    case MONS_IGUANA:
-        return 1;
-
-    case MONS_GIANT_FROG:
-    case MONS_PORCUPINE:
-    case MONS_HOUND:
-    case MONS_BLACK_BEAR:
-    case MONS_WORM:
-    case MONS_WOLF:
-        return 2;
-
-    case MONS_FUNGUS:
-    case MONS_CROCODILE:
-    case MONS_GIANT_MITE:
-    case MONS_GREEN_RAT:
-    case MONS_SCORPION:
-    case MONS_ADDER:
-        return 3;
-
-    case MONS_WATER_MOCCASIN:
-    case MONS_GOLIATH_BEETLE:
-    case MONS_GIANT_SLUG:
-    case MONS_HIPPOGRIFF:
-    case MONS_PLANT:
-    case MONS_SPINY_FROG:
-    case MONS_WAR_DOG:
-    case MONS_YELLOW_WASP:
-    case MONS_BASILISK:
-        return 4;
-
-    case MONS_BLINK_FROG:
-    case MONS_AGATE_SNAIL:
-    case MONS_GIANT_SPORE:
-    case MONS_KOMODO_DRAGON:
-    case MONS_ORANGE_RAT:
-    case MONS_SHEEP:
-    case MONS_STEAM_DRAGON:
-    case MONS_YAK:
-    case MONS_GRIZZLY_BEAR:
-        return 5;
-
-    case MONS_BLACK_MAMBA:
-    case MONS_BRAIN_WORM:
-    case MONS_BUMBLEBEE:
-    case MONS_FIRE_DRAKE:
-    case MONS_HYDRA:
-    case MONS_OKLOB_PLANT:
-    case MONS_WYVERN:
-    case MONS_TRAPDOOR_SPIDER:
-    case MONS_ROCK_WORM:
-    case MONS_CATOBLEPAS:
-        return 6;
-
-    case MONS_ELEPHANT_SLUG:
-    case MONS_POLAR_BEAR:
-    case MONS_GRIFFON:
-    case MONS_LINDWURM:
-    case MONS_REDBACK:
-    case MONS_WANDERING_MUSHROOM:
-    case MONS_ELEPHANT:
-    case MONS_WOLF_SPIDER:
-        return 7;
-
-    case MONS_BORING_BEETLE:
-    case MONS_BOULDER_BEETLE:
-    case MONS_DEATH_YAK:
-    case MONS_SPINY_WORM:
-    case MONS_FIRE_CRAB:
-        return 8;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_lair_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_RAT:
-        return 200;
-
-    case MONS_BAT:
-    case MONS_GIANT_FROG:
-    case MONS_PORCUPINE:
-    case MONS_QUOKKA:
-        return 99;
-
-    case MONS_WATER_MOCCASIN:
-    case MONS_CROCODILE:
-        return 90;
-
-    case MONS_PLANT:
-    case MONS_ADDER:
-        return 80;
-
-    case MONS_SPINY_FROG:
-        return 75;
-
-    case MONS_JACKAL:
-    case MONS_IGUANA:
-        return 70;
-
-    case MONS_GREEN_RAT:
-        return 64;
-
-    case MONS_HOUND:
-        return 60;
-
-    case MONS_AGATE_SNAIL:
-        return 56;
-
-    case MONS_GIANT_SLUG:
-        return 55;
-
-    case MONS_FUNGUS:
-    case MONS_GIANT_GECKO:
-    case MONS_GIANT_CENTIPEDE:
-    case MONS_HIPPOGRIFF:
-    case MONS_HYDRA:
-    case MONS_KOMODO_DRAGON:
-    case MONS_YAK:
-        return 50;
-
-    case MONS_BLACK_MAMBA:
-        return 47;
-
-    case MONS_BLINK_FROG:
-        return 45;
-
-    case MONS_SHEEP:
-    case MONS_ELEPHANT:
-    case MONS_FIRE_DRAKE:
-        return 36;
-
-    case MONS_BASILISK:
-    case MONS_WAR_DOG:
-        return 35;
-
-    case MONS_WORM:
-    case MONS_GIANT_MITE:
-    case MONS_GRIFFON:
-    case MONS_DEATH_YAK:
-    case MONS_ELEPHANT_SLUG:
-        return 30;
-
-    case MONS_BORING_BEETLE:
-        return 29;
-
-    case MONS_BOULDER_BEETLE:
-    case MONS_GIANT_NEWT:
-    case MONS_WOLF:
-    case MONS_WYVERN:
-        return 20;
-
-    case MONS_CATOBLEPAS:
-    case MONS_BLACK_BEAR:
-    case MONS_GRIZZLY_BEAR:
-    case MONS_POLAR_BEAR:
-        return 15;
-
-    case MONS_GOLIATH_BEETLE:
-    case MONS_SCORPION:
-    case MONS_OKLOB_PLANT:
-    case MONS_STEAM_DRAGON:
-    case MONS_LINDWURM:
-    case MONS_ORANGE_RAT:
-        return 10;
-
-    case MONS_SPINY_WORM:
-        return 9;
-
-    case MONS_WANDERING_MUSHROOM:
-    case MONS_REDBACK:
-        return 8;
-
-    case MONS_BRAIN_WORM:
-    case MONS_BUMBLEBEE:
-        return 7;
-
-    case MONS_WOLF_SPIDER:
-        return 6;
-
-    case MONS_YELLOW_WASP:
-    case MONS_TRAPDOOR_SPIDER:
-    case MONS_ROCK_WORM:
-        return 5;
-
-    case MONS_GIANT_SPORE:
-        return 2;
-
-    case MONS_FIRE_CRAB:
-        return 1;
-
-    default:
-        return 0;
-    }
-}
-
-// The Swamp
-int mons_swamp_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_PLANT:
-    case MONS_FUNGUS:
-        return 1;
-
-    case MONS_RAVEN:
-    case MONS_GIANT_FROG:
-    case MONS_GIANT_AMOEBA:
-    case MONS_GIANT_SLUG:
-    case MONS_GIANT_NEWT:
-    case MONS_SWAMP_DRAKE:
-    case MONS_ALLIGATOR:
-    case MONS_WATER_MOCCASIN:
-        return 2;
-
-    case MONS_CROCODILE:
-    case MONS_VAMPIRE_MOSQUITO:
-    case MONS_AGATE_SNAIL:
-    case MONS_HYDRA:
-    case MONS_BOG_BODY:
-        return 3;
-
-    case MONS_HUNGRY_GHOST:
-    case MONS_INSUBSTANTIAL_WISP:
-    case MONS_KOMODO_DRAGON:
-    case MONS_PHANTOM:
-    case MONS_RED_WASP:
-    case MONS_SPINY_FROG:
-    case MONS_SWAMP_DRAGON:
-    case MONS_UGLY_THING:
-    case MONS_GIANT_LEECH:
-        return 4;
-
-    case MONS_BLINK_FROG:
-    case MONS_SLIME_CREATURE:
-    case MONS_VERY_UGLY_THING:
-    case MONS_VAPOUR:
-    case MONS_TENTACLED_MONSTROSITY:
-        return 5;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_swamp_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_SPINY_FROG:
-    case MONS_ALLIGATOR:
-    case MONS_PLANT:
-        return 150;
-
-    case MONS_FUNGUS:
-    case MONS_VAMPIRE_MOSQUITO:
-        return 99;
-
-    case MONS_SWAMP_DRAKE:
-    case MONS_BOG_BODY:
-        return 80;
-
-    case MONS_WATER_MOCCASIN:
-        return 75;
-
-    case MONS_HYDRA:
-    case MONS_GIANT_LEECH:
-        return 70;
-
-    case MONS_SLIME_CREATURE:
-        return 52;
-
-    case MONS_INSUBSTANTIAL_WISP:
-    case MONS_SWAMP_DRAGON:
-        return 43;
-
-    case MONS_RED_WASP:
-    case MONS_GIANT_FROG:
-        return 30;
-
-    case MONS_CROCODILE:
-        return 25;
-
-    case MONS_RAVEN:
-    case MONS_GIANT_AMOEBA:
-        return 20;
-
-    case MONS_KOMODO_DRAGON:
-    case MONS_VERY_UGLY_THING:
-    case MONS_VAPOUR:
-        return 15;
-
-    case MONS_PHANTOM:
-    case MONS_UGLY_THING:
-    case MONS_HUNGRY_GHOST:
-        return 13;
-
-    case MONS_BLINK_FROG:
-    case MONS_GIANT_NEWT:
-    case MONS_GIANT_SLUG:
-    case MONS_AGATE_SNAIL:
-    case MONS_TENTACLED_MONSTROSITY:
-        return 10;
-
-    default:
-        return 0;
-    }
-}
-
-// The Shoals
-int mons_shoals_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_BAT:
-        return 1;
-
-    case MONS_MERFOLK:
-    case MONS_MERMAID:
-    case MONS_HIPPOGRIFF:
-    case MONS_CENTAUR:
-    case MONS_SEA_SNAKE:
-        return 2;
-
-    case MONS_MANTICORE:
-    case MONS_SNAPPING_TURTLE:
-    case MONS_HARPY:
-        return 3;
-
-    case MONS_CYCLOPS:          // will have a sheep band
-    case MONS_SIREN:
-    case MONS_OKLOB_PLANT:
-    case MONS_SHARK:
-    case MONS_KRAKEN:
-        return 4;
-
-    case MONS_ALLIGATOR_SNAPPING_TURTLE:
-    case MONS_MERFOLK_JAVELINEER:
-    case MONS_MERFOLK_IMPALER:
-    case MONS_MERFOLK_AQUAMANCER:
-        return 5;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_shoals_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_MERFOLK:
-        return 90;
-
-    case MONS_SNAPPING_TURTLE:
-        return 45;
-
-    case MONS_MERMAID:
-    case MONS_MANTICORE:
-    case MONS_SEA_SNAKE:
-        return 40;
-
-    case MONS_HIPPOGRIFF:
-    case MONS_BAT:
-    case MONS_SHARK:
-        return 35;
-
-    case MONS_SIREN:
-    case MONS_HARPY:
-        return 24;
-
-    case MONS_CYCLOPS:
-    case MONS_CENTAUR:
-        return 20;
-
-    case MONS_KRAKEN:
-        return 18;
-
-    case MONS_MERFOLK_AQUAMANCER:
-    case MONS_MERFOLK_IMPALER:
-        return 15;
-
-    case MONS_OKLOB_PLANT:
-    case MONS_ALLIGATOR_SNAPPING_TURTLE:
-    case MONS_MERFOLK_JAVELINEER:
-        return 10;
-
-    default:
-        return 0;
-    }
-}
-
-// The Snake Pit
-int mons_pitsnake_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_BALL_PYTHON:
-    case MONS_ADDER:
-        return 2;
-
-    case MONS_WATER_MOCCASIN:
-    case MONS_BLACK_MAMBA:
-    case MONS_ANACONDA:
-    case MONS_NAGA:
-        return 3;
-
-    case MONS_NAGA_WARRIOR:
-    case MONS_NAGA_MAGE:
-        return 4;
-
-    case MONS_GUARDIAN_SERPENT:
-        return 5;
-
-    case MONS_GREATER_NAGA:
-        return 6;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_pitsnake_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_ADDER:
-    case MONS_WATER_MOCCASIN:
-        return 99;
-
-    case MONS_BLACK_MAMBA:
-        return 72;
-
-    case MONS_NAGA:
-        return 53;
-
-    case MONS_NAGA_WARRIOR:
-    case MONS_NAGA_MAGE:
-        return 34;
-
-    case MONS_ANACONDA:
-        return 32;
-
-    case MONS_GREATER_NAGA:
-    case MONS_GUARDIAN_SERPENT:
-    case MONS_BALL_PYTHON:
-        return 15;
-
-    default:
-        return 0;
-    }
-}
-
-// The Spider Nest
-int mons_spidernest_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_GIANT_COCKROACH:
-    case MONS_GIANT_MITE:
-    case MONS_SCORPION:
-    case MONS_SPIDER:
-    case MONS_GIANT_CENTIPEDE:
-    case MONS_WORM:
-        return 2;
-
-    case MONS_YELLOW_WASP:
-    case MONS_REDBACK:
-    case MONS_TRAPDOOR_SPIDER:
-    case MONS_GOLIATH_BEETLE:
-    case MONS_ROCK_WORM:
-        return 3;
-
-    case MONS_BORING_BEETLE:
-    case MONS_BOULDER_BEETLE:
-    case MONS_TARANTELLA:
-    case MONS_SPINY_WORM:
-    case MONS_ORB_SPIDER:
-    case MONS_JUMPING_SPIDER:
-        return 4;
-
-    case MONS_EMPEROR_SCORPION:
-    case MONS_DEMONIC_CRAWLER:
-    case MONS_RED_WASP:
-    case MONS_WOLF_SPIDER:
-        return 5;
-
-    case MONS_GHOST_MOTH:
-    case MONS_MOTH_OF_WRATH:
-        return 6;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_spidernest_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_WOLF_SPIDER:
-        return 85;
-
-    case MONS_TRAPDOOR_SPIDER:
-        return 75;
-
-    case MONS_DEMONIC_CRAWLER:
-    case MONS_JUMPING_SPIDER:
-        return 65;
-
-    case MONS_TARANTELLA:
-        return 60;
-
-    case MONS_REDBACK:
-        return 55;
-
-    case MONS_ORB_SPIDER:
-        return 52;
-
-    case MONS_SPIDER:
-        return 40;
-
-    case MONS_SCORPION:
-    case MONS_RED_WASP:
-        return 35;
-
-    case MONS_WORM:
-    case MONS_ROCK_WORM:
-    case MONS_GOLIATH_BEETLE:
-    case MONS_BOULDER_BEETLE:
-    case MONS_EMPEROR_SCORPION:
-    case MONS_GHOST_MOTH:
-        return 20;
-
-    case MONS_BORING_BEETLE:
-    case MONS_YELLOW_WASP:
-    case MONS_SPINY_WORM:
-    case MONS_GIANT_COCKROACH:
-    case MONS_GIANT_CENTIPEDE:
-    case MONS_GIANT_MITE:
-    case MONS_MOTH_OF_WRATH:
-        return 15;
-
-    default:
-        return 0;
-    }
-}
-
-// The Slime Pits
-int mons_pitslime_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_JELLY:
-    case MONS_OOZE:
-    case MONS_ACID_BLOB:
-    case MONS_GIANT_EYEBALL:
-        return 2;
-
-    case MONS_BROWN_OOZE:
-    case MONS_SLIME_CREATURE:
-    case MONS_EYE_OF_DRAINING:
-        return 3;
-
-    case MONS_GIANT_AMOEBA:
-    case MONS_AZURE_JELLY:
-    case MONS_SHINING_EYE:
-    case MONS_GOLDEN_EYE:
-        return 4;
-
-    case MONS_PULSATING_LUMP:
-    case MONS_GREAT_ORB_OF_EYES:
-    case MONS_EYE_OF_DEVASTATION:
-        return 5;
-
-    case MONS_DEATH_OOZE:
-    case MONS_GIANT_ORANGE_BRAIN:
-        return 6;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_pitslime_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_JELLY:
-        return 300;
-
-    case MONS_SLIME_CREATURE:
-        return 200;
-
-    case MONS_BROWN_OOZE:
-        return 150;
-
-    case MONS_GIANT_AMOEBA:
-    case MONS_ACID_BLOB:
-        return 100;
-
-    case MONS_OOZE:
-    case MONS_AZURE_JELLY:
-    case MONS_GIANT_EYEBALL:
-    case MONS_EYE_OF_DRAINING:
-    case MONS_SHINING_EYE:
-        return 50;
-
-    case MONS_DEATH_OOZE:
-    case MONS_GREAT_ORB_OF_EYES:
-    case MONS_EYE_OF_DEVASTATION:
-    case MONS_GOLDEN_EYE:
-        return 30;
-
-    case MONS_PULSATING_LUMP:
-    case MONS_GIANT_ORANGE_BRAIN:
-        return 20;
-
-    default:
-        return 0;
-    }
-}
-
-// The Vaults
-int mons_vaults_level(monster_type mcls)
-{
-    int lev = mons_dungeon_level(mcls);
-    if (lev == DEPTH_NOWHERE)
-        return lev;
-    return lev - absdungeon_depth(BRANCH_VAULTS, 1)
-               + absdungeon_depth(BRANCH_MAIN_DUNGEON, 1);
-}
-
-int mons_vaults_rare(monster_type mcls)
-{
-    return mons_dungeon_rare(mcls);
-}
-
-// The Hall of Blades
-int mons_hallblade_level(monster_type mcls)
-{
-    if (mcls == MONS_DANCING_WEAPON)
-        return 1;
-    else
-        return DEPTH_NOWHERE;
-}
-
-int mons_hallblade_rare(monster_type mcls)
-{
-    return ((mcls == MONS_DANCING_WEAPON) ? 1000 : 0);
-}
-
-// The Crypt
-int mons_crypt_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_ZOMBIE_SMALL:
-        return 1;
-
-    case MONS_PHANTOM:
-    case MONS_SKELETON_SMALL:
-    case MONS_SKELETON_LARGE:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_WIGHT:
-        return 2;
-
-    case MONS_SHADOW:
-    case MONS_HUNGRY_GHOST:
-    case MONS_NECROPHAGE:
-    case MONS_SKELETAL_WARRIOR:
-    case MONS_SIMULACRUM_SMALL:
-    case MONS_SIMULACRUM_LARGE:
-        return 3;
-
-    case MONS_NECROMANCER:
-    case MONS_PULSATING_LUMP:
-    case MONS_FLAYED_GHOST:
-    case MONS_FREEZING_WRAITH:
-    case MONS_GHOUL:
-    case MONS_ROTTING_HULK:
-    case MONS_WRAITH:
-    case MONS_FLYING_SKULL:
-    case MONS_SILENT_SPECTRE:
-        return 4;
-
-    case MONS_BONE_DRAGON:
-    case MONS_FLAMING_CORPSE:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_SHADOW_WRAITH:
-    case MONS_VAMPIRE_KNIGHT:
-    case MONS_VAMPIRE_MAGE:
-    case MONS_ABOMINATION_SMALL:
-    case MONS_MUMMY:
-    case MONS_VAMPIRE:
-    case MONS_ABOMINATION_LARGE:
-        return 5;
-
-    case MONS_REAPER:
-    case MONS_ANCIENT_LICH:
-    case MONS_LICH:
-        return 6;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_crypt_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_ZOMBIE_SMALL:
-    case MONS_SKELETON_SMALL:
-    case MONS_SKELETON_LARGE:
-        return 410;
-
-    case MONS_ZOMBIE_LARGE:
-        return 300;
-
-    case MONS_SKELETAL_WARRIOR:
-        return 75;
-
-    case MONS_NECROPHAGE:
-        return 50;
-
-    case MONS_WIGHT:
-        return 35;
-
-    case MONS_WRAITH:
-        return 33;
-
-    case MONS_SHADOW:
-    case MONS_SILENT_SPECTRE:
-        return 30;
-
-    case MONS_NECROMANCER:
-    case MONS_GHOUL:
-        return 25;
-
-    case MONS_BONE_DRAGON:
-    case MONS_MUMMY:
-        return 24;
-
-    case MONS_VAMPIRE:
-    case MONS_PHANTOM:
-        return 21;
-
-    case MONS_VAMPIRE_KNIGHT:
-    case MONS_VAMPIRE_MAGE:
-        return 20;
-
-    case MONS_ROTTING_HULK:
-        return 17;
-
-    case MONS_PHANTASMAL_WARRIOR:
-        return 14;
-
-    case MONS_FLYING_SKULL:
-    case MONS_FLAYED_GHOST:
-    case MONS_FREEZING_WRAITH:
-        return 13;
-
-    case MONS_FLAMING_CORPSE:
-    case MONS_HUNGRY_GHOST:
-        return 12;
-
-    case MONS_SHADOW_WRAITH:
-    case MONS_SIMULACRUM_SMALL:
-    case MONS_SIMULACRUM_LARGE:
-        return 10;
-
-    case MONS_ANCIENT_LICH:
-        return 8;
-
-    case MONS_ABOMINATION_SMALL:
-    case MONS_LICH:
-    case MONS_REAPER:
-        return 5;
-
-    case MONS_ABOMINATION_LARGE:
-        return 4;
-
-    case MONS_PULSATING_LUMP:
-        return 3;
-
-    default:
-        return 0;
-    }
-}
-
-// The Tomb
-int mons_tomb_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_ZOMBIE_SMALL:
-        return 1;
-
-    case MONS_MUMMY:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_SKELETON_SMALL:
-    case MONS_SKELETON_LARGE:
-    case MONS_TRAPDOOR_SPIDER:
-        return 2;
-
-    case MONS_GUARDIAN_MUMMY:
-    case MONS_FLYING_SKULL:
-    case MONS_SIMULACRUM_SMALL:
-    case MONS_SIMULACRUM_LARGE:
-        return 3;
-
-    case MONS_LICH:
-    case MONS_ANCIENT_LICH:
-    case MONS_MUMMY_PRIEST:
-        return 4;
-
-    case MONS_GREATER_MUMMY:
-        return 5;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_tomb_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_MUMMY:
-        return 300;
-
-    case MONS_GUARDIAN_MUMMY:
-        return 202;
-
-    case MONS_MUMMY_PRIEST:
-        return 40;
-
-    case MONS_FLYING_SKULL:
-        return 33;
-
-    case MONS_ZOMBIE_LARGE:
-    case MONS_SKELETON_SMALL:
-    case MONS_SKELETON_LARGE:
-        return 21;
-
-    case MONS_ZOMBIE_SMALL:
-        return 20;
-
-    case MONS_SIMULACRUM_SMALL:
-    case MONS_SIMULACRUM_LARGE:
-        return 10;
-
-    case MONS_LICH:
-        return 4;
-
-    case MONS_ANCIENT_LICH:
-    case MONS_GREATER_MUMMY:
-    // A nod to the fabled pyramid traps, these should be really rare.
-    case MONS_TRAPDOOR_SPIDER:
-        return 2;
-
-    default:
-        return 0;
-    }
-}
-
-// The Enchanted Forest
-int mons_forest_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_SPRIGGAN:
-    case MONS_SPRIGGAN_DRUID:
-    case MONS_GRIZZLY_BEAR:
-    case MONS_BLACK_BEAR:
-    case MONS_WOLF:
-        return 2;
-
-    case MONS_SPRIGGAN_RIDER:
-        return 3;
-
-    case MONS_SPRIGGAN_AIR_MAGE:
-    case MONS_SPRIGGAN_BERSERKER:
-        return 4;
-
-    case MONS_SPRIGGAN_DEFENDER:
-        return 6;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_forest_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_SPRIGGAN:
-        return 99;
-
-    case MONS_SPRIGGAN_DRUID:
-    case MONS_SPRIGGAN_RIDER:
-    case MONS_GRIZZLY_BEAR:
-    case MONS_WOLF:
-        return 60;
-
-    case MONS_SPRIGGAN_AIR_MAGE:
-    case MONS_BLACK_BEAR:
-        return 40;
-
-    case MONS_SPRIGGAN_BERSERKER:
-        return 25;
-
-    case MONS_SPRIGGAN_DEFENDER:
-        return 20;
-
-    default:
-        return 0;
-    }
-}
-
-// The Halls of Zot
-int mons_hallzot_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_GOLDEN_DRAGON:
-    case MONS_GUARDIAN_MUMMY:
-        return 6;
-    case MONS_BONE_DRAGON:
-    case MONS_KILLER_KLOWN:
-    case MONS_SHADOW_DRAGON:
-    case MONS_STORM_DRAGON:
-    case MONS_CURSE_TOE:
-    case MONS_GHOST_MOTH:
-        return 5;
-    case MONS_DEATH_COB:
-    case MONS_DRAGON:
-    case MONS_ICE_DRAGON:
-        return 4;
-    case MONS_MOTTLED_DRACONIAN:
-    case MONS_YELLOW_DRACONIAN:
-    case MONS_BLACK_DRACONIAN:
-    case MONS_WHITE_DRACONIAN:
-    case MONS_RED_DRACONIAN:
-    case MONS_PURPLE_DRACONIAN:
-    case MONS_PALE_DRACONIAN:
-    case MONS_GREEN_DRACONIAN:
-    case MONS_GREY_DRACONIAN:
-    case MONS_DRACONIAN_CALLER:
-    case MONS_DRACONIAN_MONK:
-    case MONS_DRACONIAN_SCORCHER:
-    case MONS_DRACONIAN_KNIGHT:
-    case MONS_DRACONIAN_ANNIHILATOR:
-    case MONS_DRACONIAN_ZEALOT:
-    case MONS_DRACONIAN_SHIFTER:
-    case MONS_TENTACLED_MONSTROSITY:
-        return 3;
-    case MONS_MOTH_OF_WRATH:
-        return 2;
-    case MONS_ORB_OF_FIRE:
-    case MONS_ELECTRIC_GOLEM:
-        return 1;
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_hallzot_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_MOTH_OF_WRATH:
-        return 88;
-    case MONS_STORM_DRAGON:
-    case MONS_TENTACLED_MONSTROSITY:
-        return 50;
-    case MONS_GOLDEN_DRAGON:
-        return 42;
-    case MONS_BONE_DRAGON:
-    case MONS_DEATH_COB:
-    case MONS_DRAGON:
-    case MONS_ICE_DRAGON:
-        return 40;
-    case MONS_SHADOW_DRAGON:
-    case MONS_GHOST_MOTH:
-        return 30;
-    case MONS_GUARDIAN_MUMMY:
-    case MONS_ELECTRIC_GOLEM:
-    case MONS_CURSE_TOE:
-        return 20;
-
-    case MONS_MOTTLED_DRACONIAN:
-    case MONS_YELLOW_DRACONIAN:
-    case MONS_BLACK_DRACONIAN:
-    case MONS_WHITE_DRACONIAN:
-    case MONS_RED_DRACONIAN:
-    case MONS_PURPLE_DRACONIAN:
-    case MONS_PALE_DRACONIAN:
-    case MONS_GREEN_DRACONIAN:
-    case MONS_GREY_DRACONIAN:
-        return 18;
-
-    case MONS_DRACONIAN_CALLER:
-    case MONS_DRACONIAN_MONK:
-    case MONS_DRACONIAN_SCORCHER:
-    case MONS_DRACONIAN_KNIGHT:
-    case MONS_DRACONIAN_ANNIHILATOR:
-    case MONS_DRACONIAN_ZEALOT:
-    case MONS_DRACONIAN_SHIFTER:
-        return 16;
-
-    case MONS_KILLER_KLOWN:
-    case MONS_ORB_OF_FIRE:
-        return 15;
-    default:
-        return 0;
-    }
-}
-
-// The Hells
-
-// The Vestibule of Hell
-int mons_vestibule_level(monster_type mcls)
-{
-    // Depths are irrelevant for a depth-1 branch.
-    if (mons_vestibule_rare(mcls))
-        return 1;
-    return DEPTH_NOWHERE;
-}
-
-int mons_vestibule_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_SUN_DEMON:
-    case MONS_REAPER:
-    case MONS_SOUL_EATER:
-    case MONS_ICE_DEVIL:
-        return 50;
-
-    case MONS_HELL_KNIGHT:
-    case MONS_NECROMANCER:
-    case MONS_HELL_HOG:
-        return 25;
-
-    case MONS_DEMONIC_CRAWLER:
-    case MONS_HELL_HOUND:
-    case MONS_ORANGE_RAT:
-    case MONS_RED_DEVIL:
-    case MONS_BLUE_DEVIL:
-    case MONS_IRON_DEVIL:
-    case MONS_LOROCYPROCA:
-        return 20;
-
-    case MONS_GREEN_DEATH:
-    case MONS_BLIZZARD_DEMON:
-    case MONS_BALRUG:
-    case MONS_CACODEMON:
-        return 15;
-
-    case MONS_HELLION:
-    case MONS_TORMENTOR:
-    case MONS_TENTACLED_MONSTROSITY:
-    case MONS_HELLEPHANT:
-        return 10;
-
-    default:
-        return 0;
-    }
-}
-
-// The Iron City of Dis
-int mons_dis_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_CLAY_GOLEM:
-    case MONS_CRIMSON_IMP:
-    case MONS_NECROPHAGE:
-    case MONS_RED_DEVIL:
-    case MONS_SKELETAL_WARRIOR:
-    case MONS_ZOMBIE_LARGE:
-        return 0;
-
-    case MONS_HELL_HOUND:
-    case MONS_HELL_KNIGHT:
-    case MONS_SKELETON_LARGE:
-    case MONS_PHANTOM:
-    case MONS_ROTTING_DEVIL:
-    case MONS_SHADOW:
-    case MONS_SKELETON_SMALL:
-    case MONS_STONE_GOLEM:
-    case MONS_TORMENTOR:
-    case MONS_WIGHT:
-    case MONS_ZOMBIE_SMALL:
-        return 1;
-
-    case MONS_EFREET:
-    case MONS_FLYING_SKULL:
-    case MONS_HELLION:
-    case MONS_HELL_HOG:
-    case MONS_IRON_GOLEM:
-    case MONS_MUMMY:
-        return 2;
-
-    case MONS_FLAYED_GHOST:
-    case MONS_FREEZING_WRAITH:
-    case MONS_IRON_DEVIL:
-    case MONS_IRON_IMP:
-    case MONS_VAMPIRE:
-    case MONS_WRAITH:
-        return 3;
-
-    case MONS_BLUE_DEVIL:
-    case MONS_DANCING_WEAPON:
-    case MONS_FLAMING_CORPSE:
-    case MONS_ICE_DEVIL:
-    case MONS_LICH:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_REAPER:
-    case MONS_SOUL_EATER:
-        return 4;
-
-    case MONS_ANCIENT_LICH:
-    case MONS_BONE_DRAGON:
-    case MONS_BRIMSTONE_FIEND:
-    case MONS_IRON_DRAGON:
-        return 5;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_dis_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_IRON_DEVIL:
-    case MONS_IRON_IMP:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-        return 99;
-
-    case MONS_REAPER:
-        return 77;
-
-    case MONS_TORMENTOR:
-        return 66;
-
-    case MONS_RED_DEVIL:
-    case MONS_SKELETAL_WARRIOR:
-        return 50;
-
-    case MONS_WRAITH:
-        return 48;
-
-    case MONS_SHADOW:
-        return 56;
-
-    case MONS_HELL_HOUND:
-        return 46;
-
-    case MONS_MUMMY:
-    case MONS_WIGHT:
-        return 45;
-
-    case MONS_HELLION:
-    case MONS_BLUE_DEVIL:
-        return 40;
-
-    case MONS_FLYING_SKULL:
-        return 35;
-
-    case MONS_FREEZING_WRAITH:
-    case MONS_ICE_DEVIL:
-        return 30;
-
-    case MONS_FLAMING_CORPSE:
-    case MONS_FLAYED_GHOST:
-    case MONS_SKELETON_LARGE:
-    case MONS_NECROPHAGE:
-    case MONS_SKELETON_SMALL:
-        return 25;
-
-    case MONS_BONE_DRAGON:
-    case MONS_HELL_HOG:
-        return 20;
-
-    case MONS_VAMPIRE:
-        return 19;
-
-    case MONS_PHANTOM:
-        return 17;
-
-    case MONS_CLAY_GOLEM:
-    case MONS_DANCING_WEAPON:
-    case MONS_EFREET:
-    case MONS_HELL_KNIGHT:
-    case MONS_IRON_GOLEM:
-    case MONS_LICH:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_ROTTING_DEVIL:
-    case MONS_SOUL_EATER:
-    case MONS_STONE_GOLEM:
-    case MONS_IRON_DRAGON:
-        return 10;
-
-    case MONS_CRIMSON_IMP:
-        return 5;
-
-    case MONS_ANCIENT_LICH:
-    case MONS_BRIMSTONE_FIEND:
-        return 3;
-
-    default:
-        return 0;
-    }
-}
-
-// Gehenna - the fire hell
-int mons_gehenna_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_CLAY_GOLEM:
-    case MONS_SKELETON_LARGE:
-    case MONS_RED_DEVIL:
-    case MONS_SKELETON_SMALL:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-        return 0;
-
-    case MONS_HELL_HOG:
-    case MONS_HELL_HOUND:
-    case MONS_CRIMSON_IMP:
-    case MONS_NECROPHAGE:
-    case MONS_STONE_GOLEM:
-        return 1;
-
-    case MONS_FLYING_SKULL:
-    case MONS_IRON_GOLEM:
-    case MONS_PHANTOM:
-    case MONS_ROTTING_DEVIL:
-    case MONS_SHADOW:
-    case MONS_WIGHT:
-        return 2;
-
-    case MONS_HELL_KNIGHT:
-    case MONS_VAMPIRE:
-    case MONS_WRAITH:
-    case MONS_IRON_DEVIL:
-        return 3;
-
-    case MONS_EFREET:
-    case MONS_FLAMING_CORPSE:
-    case MONS_FLAYED_GHOST:
-    case MONS_HELLION:
-    case MONS_TORMENTOR:
-    case MONS_FIRE_CRAB:
-    case MONS_BALRUG:
-        return 4;
-
-    case MONS_ANCIENT_LICH:
-    case MONS_BONE_DRAGON:
-    case MONS_BRIMSTONE_FIEND:
-    case MONS_LICH:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_HELL_SENTINEL:
-    case MONS_REAPER:
-    case MONS_SOUL_EATER:
-        return 5;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_gehenna_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_SKELETON_LARGE:
-    case MONS_SKELETON_SMALL:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-        return 99;
-
-    case MONS_SHADOW:
-        return 61;
-
-    case MONS_RED_DEVIL:
-    case MONS_WIGHT:
-        return 60;
-
-    case MONS_HELLION:
-        return 54;
-
-    case MONS_WRAITH:
-        return 53;
-
-    case MONS_NECROPHAGE:
-    case MONS_ROTTING_DEVIL:
-        return 50;
-
-    case MONS_VAMPIRE:
-        return 44;
-
-    case MONS_FLYING_SKULL:
-    case MONS_REAPER:
-        return 43;
-
-    case MONS_TORMENTOR:
-        return 42;
-
-    case MONS_HELL_HOUND:
-        return 41;
-
-    case MONS_FLAMING_CORPSE:
-    case MONS_FLAYED_GHOST:
-    case MONS_PHANTOM:
-        return 32;
-
-    case MONS_HELL_HOG:
-    case MONS_CRIMSON_IMP:
-    case MONS_BALRUG:
-        return 30;
-
-    case MONS_LICH:
-        return 25;
-
-    case MONS_HELL_KNIGHT:
-        return 21;
-
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_IRON_DEVIL:
-        return 20;
-
-    case MONS_BONE_DRAGON:
-    case MONS_CLAY_GOLEM:
-        return 10;
-
-    case MONS_STONE_GOLEM:
-        return 8;
-
-    case MONS_HELL_SENTINEL:
-        return 7;
-
-    case MONS_EFREET:
-    case MONS_BRIMSTONE_FIEND:
-    case MONS_IRON_GOLEM:
-    case MONS_SOUL_EATER:
-    case MONS_FIRE_CRAB:
-        return 5;
-
-    case MONS_ANCIENT_LICH:
-        return 4;
-
-    default:
-        return 0;
-    }
-}
-
-// Cocytus - the ice hell
-int mons_cocytus_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_SKELETON_LARGE:
-    case MONS_NECROPHAGE:
-    case MONS_SKELETAL_WARRIOR:
-    case MONS_SKELETON_SMALL:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-    case MONS_SIMULACRUM_LARGE:
-    case MONS_SIMULACRUM_SMALL:
-        return 0;
-
-    case MONS_BLUE_DEVIL:
-    case MONS_ICE_BEAST:
-    case MONS_PHANTOM:
-    case MONS_SHADOW:
-        return 1;
-
-    case MONS_FLYING_SKULL:
-    case MONS_ROTTING_DEVIL:
-    case MONS_VAMPIRE:
-    case MONS_WIGHT:
-        return 2;
-
-    case MONS_FREEZING_WRAITH:
-    case MONS_HUNGRY_GHOST:
-    case MONS_MUMMY:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_WRAITH:
-        return 3;
-
-    case MONS_ICE_DEVIL:
-    case MONS_ICE_DRAGON:
-    case MONS_TORMENTOR:
-    case MONS_WHITE_IMP:
-    case MONS_BLIZZARD_DEMON:
-        return 4;
-
-    case MONS_ANCIENT_LICH:
-    case MONS_BONE_DRAGON:
-    case MONS_LICH:
-    case MONS_REAPER:
-    case MONS_SOUL_EATER:
-        return 5;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_cocytus_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_FREEZING_WRAITH:
-        return 87;
-
-    case MONS_ICE_BEAST:
-    case MONS_SKELETON_LARGE:
-    case MONS_SKELETON_SMALL:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-        return 85;
-
-    case MONS_BLUE_DEVIL:
-    case MONS_ICE_DEVIL:
-    case MONS_WHITE_IMP:
-        return 76;
-
-    case MONS_FLYING_SKULL:
-        return 57;
-
-    case MONS_SHADOW:
-        return 56;
-
-    case MONS_SKELETAL_WARRIOR:
-        return 50;
-
-    case MONS_REAPER:
-        return 47;
-
-    case MONS_WIGHT:
-    case MONS_WRAITH:
-        return 45;
-
-    case MONS_ICE_DRAGON:
-        return 38;
-
-    case MONS_ROTTING_DEVIL:
-    case MONS_TORMENTOR:
-        return 37;
-
-    case MONS_MUMMY:
-        return 35;
-
-    case MONS_VAMPIRE:
-        return 34;
-
-    case MONS_BLIZZARD_DEMON:
-        return 30;
-
-    case MONS_HUNGRY_GHOST:
-        return 26;
-
-    case MONS_NECROPHAGE:
-    case MONS_PHANTOM:
-        return 25;
-
-    case MONS_PHANTASMAL_WARRIOR:
-        return 20;
-
-    case MONS_SOUL_EATER:
-        return 19;
-
-    case MONS_BONE_DRAGON:
-    case MONS_LICH:
-    case MONS_SIMULACRUM_LARGE:
-    case MONS_SIMULACRUM_SMALL:
-        return 12;
-
-    case MONS_ANCIENT_LICH:
-        return 5;
-
-    default:
-        return 0;
-    }
-}
-
-// Tartarus - the undead hell
-int mons_tartarus_level(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_CRIMSON_IMP:
-    case MONS_SKELETON_LARGE:
-    case MONS_RED_DEVIL:
-    case MONS_SHADOW_IMP:
-    case MONS_SKELETAL_WARRIOR:
-    case MONS_SKELETON_SMALL:
-        return 0;
-
-    case MONS_HELL_KNIGHT:
-    case MONS_NECROPHAGE:
-    case MONS_PHANTOM:
-    case MONS_WIGHT:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-    case MONS_DEATH_DRAKE:
-        return 1;
-
-    case MONS_FREEZING_WRAITH:
-    case MONS_HELL_HOUND:
-    case MONS_NECROMANCER:
-    case MONS_SHADOW:
-    case MONS_WRAITH:
-    case MONS_SILENT_SPECTRE:
-        return 2;
-
-    case MONS_BLUE_DEVIL:
-    case MONS_BONE_DRAGON:
-    case MONS_FLAYED_GHOST:
-    case MONS_HUNGRY_GHOST:
-    case MONS_ICE_DEVIL:
-    case MONS_MUMMY:
-    case MONS_PHANTASMAL_WARRIOR:
-    case MONS_TORMENTOR:
-    case MONS_SIMULACRUM_LARGE:
-    case MONS_SIMULACRUM_SMALL:
-        return 3;
-
-    case MONS_FLYING_SKULL:
-    case MONS_HELLION:
-    case MONS_REAPER:
-    case MONS_SHADOW_DEMON:
-    case MONS_ROTTING_DEVIL:
-    case MONS_SHADOW_DRAGON:
-    case MONS_VAMPIRE:
-        return 4;
-
-    case MONS_ANCIENT_LICH:
-    case MONS_LICH:
-    case MONS_SOUL_EATER:
-        return 5;
-
-    default:
-        return DEPTH_NOWHERE;
-    }
-}
-
-int mons_tartarus_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_SKELETON_LARGE:
-    case MONS_SHADOW_IMP:
-    case MONS_SKELETAL_WARRIOR:
-    case MONS_SKELETON_SMALL:
-    case MONS_ZOMBIE_LARGE:
-    case MONS_ZOMBIE_SMALL:
-        return 99;
-
-    case MONS_SHADOW:
-        return 92;
-
-    case MONS_REAPER:
-        return 73;
-
-    case MONS_NECROPHAGE:
-        return 72;
-
-    case MONS_WIGHT:
-        return 71;
-
-    case MONS_ROTTING_DEVIL:
-        return 62;
-
-    case MONS_FREEZING_WRAITH:
-        return 60;
-
-    case MONS_FLYING_SKULL:
-        return 53;
-
-    case MONS_HELL_HOUND:
-    case MONS_PHANTOM:
-    case MONS_WRAITH:
-        return 52;
-
-    case MONS_PHANTASMAL_WARRIOR:
-        return 45;
-
-    case MONS_VAMPIRE:
-        return 44;
-
-    case MONS_HELLION:
-    case MONS_TORMENTOR:
-    case MONS_SHADOW_DEMON:
-        return 42;
-
-    case MONS_BONE_DRAGON:
-        return 40;
-
-    case MONS_SOUL_EATER:
-    case MONS_SILENT_SPECTRE:
-        return 35;
-
-    case MONS_ICE_DEVIL:
-        return 34;
-
-    case MONS_MUMMY:
-        return 33;
-
-    case MONS_BLUE_DEVIL:
-    case MONS_HUNGRY_GHOST:
-        return 32;
-
-    case MONS_FLAYED_GHOST:
-        return 30;
-
-    case MONS_LICH:
-        return 24;
-
-    case MONS_CRIMSON_IMP:
-    case MONS_SHADOW_DRAGON:
-    case MONS_DEATH_DRAKE:
-        return 20;
-
-    case MONS_RED_DEVIL:
-        return 13;
-
-    case MONS_HELL_KNIGHT:
-        return 14;
-
-    case MONS_NECROMANCER:
-    case MONS_SIMULACRUM_LARGE:
-    case MONS_SIMULACRUM_SMALL:
-        return 12;
-
-    case MONS_ANCIENT_LICH:
-        return 6;
-
-    default:
-        return 0;
-    }
-}
-
-// Sewers
-int mons_sewer_level(monster_type mcls)
-{
-    if (mons_sewer_rare(mcls))
-        return 1;
-    return DEPTH_NOWHERE;
-}
-
-int mons_sewer_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_BAT:
-    case MONS_GIANT_NEWT:
-        return 100;
-
-    case MONS_BALL_PYTHON:
-    case MONS_OOZE:
-    case MONS_WORM:
-    case MONS_ADDER:
-    case MONS_GIANT_COCKROACH:
-    case MONS_GIANT_MITE:
-    case MONS_GIANT_GECKO:
-        return 50;
-
-    default:
-        return 0;
-    }
-}
-
-// Volcano
-int mons_volcano_level(monster_type mcls)
-{
-    if (mons_volcano_rare(mcls))
-        return 1;
-    return DEPTH_NOWHERE;
-}
-
-int mons_volcano_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_FIRE_ELEMENTAL:
-    case MONS_FIRE_VORTEX:
-    case MONS_FIRE_DRAKE:
-    case MONS_LINDWURM:
-    case MONS_CRIMSON_IMP:
-    case MONS_MANTICORE:
-    case MONS_HELL_HOUND:
-    case MONS_HELL_HOG:
-    case MONS_FLAYED_GHOST:
-    case MONS_TOENAIL_GOLEM:
-    case MONS_EFREET:
-        return 50;
-
-    default:
-        return 0;
-    }
-}
-
-// Ice Cave
-int mons_icecave_level(monster_type mcls)
-{
-    if (mons_icecave_rare(mcls))
-        return 1;
-    return DEPTH_NOWHERE;
-}
-
-int mons_icecave_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_ICE_BEAST:
-    case MONS_WHITE_IMP:
-    case MONS_ICE_DEVIL:
-    case MONS_SIMULACRUM_LARGE:
-    case MONS_SIMULACRUM_SMALL:
-        return 50;
-
-    case MONS_FREEZING_WRAITH:
-        return 35;
-
-    case MONS_YAK:
-    case MONS_POLAR_BEAR:
-        return 20;
-
-    case MONS_BLUE_DEVIL:
-        return 10;
-
-    default:
-        return 0;
-    }
-}
-
-// Bailey
-int mons_bailey_level(monster_type mcls)
-{
-    if (mons_bailey_rare(mcls))
-        return 1;
-    return DEPTH_NOWHERE;
-}
-
-int mons_bailey_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_ORC:
-    case MONS_GNOLL:
-        return 50;
-
-    case MONS_ORC_WARRIOR:
-        return 35;
-
-    case MONS_ORC_KNIGHT:
-        return 10;
-
-    // no randomly spawning warlords
-
-    default:
-        return 0;
-    }
-}
-
-// Ossuary
-int mons_ossuary_level(monster_type mcls)
-{
-    if (mons_ossuary_rare(mcls))
-        return 1;
-    return DEPTH_NOWHERE;
-}
-
-int mons_ossuary_rare(monster_type mcls)
-{
-    switch (mcls)
-    {
-    case MONS_ZOMBIE_SMALL:
-    case MONS_SKELETON_SMALL:
-        return 50;
-
-    case MONS_MUMMY:
-        return 20;
-
-    default:
-        return 0;
-    }
-}