From 1013e7337c002f41b3db25f86bbc5d3561266dad Mon Sep 17 00:00:00 2001
From: Johanna Ploog <j-p-e-g@users.sourceforge.net>
Date: Thu, 31 Dec 2009 11:53:02 +0100
Subject: Make Crawl use corpse tiles for aquatic monsters.

---
 crawl-ref/source/rltiles/dc-corpse.txt | 11 +++++++++++
 crawl-ref/source/tilepick.cc           | 14 ++++++++++++++
 2 files changed, 25 insertions(+)

(limited to 'crawl-ref')

diff --git a/crawl-ref/source/rltiles/dc-corpse.txt b/crawl-ref/source/rltiles/dc-corpse.txt
index f947bf65b0..5e5301f9a2 100644
--- a/crawl-ref/source/rltiles/dc-corpse.txt
+++ b/crawl-ref/source/rltiles/dc-corpse.txt
@@ -84,6 +84,17 @@ giant_mosquito CORPSE_GIANT_MOSQUITO
 yellow_wasp CORPSE_YELLOW_WASP
 red_wasp CORPSE_RED_WASP
 
+## Aquatics (';')
+%back dc-misc/blood_red
+big_fish CORPSE_BIG_FISH
+giant_goldfish CORPSE_GIANT_GOLDFISH
+electric_eel CORPSE_ELECTRIC_EEL
+#lava_fish CORPSE_LAVA_FISH
+shark CORPSE_SHARK
+kraken_head CORPSE_KRAKEN /*'x'*/
+%back dc-misc/blood_green
+jellyfish CORPSE_JELLYFISH /*'J'*/
+
 ## Beetles ('B')
 giant_beetle CORPSE_GIANT_BEETLE
 boring_beetle CORPSE_BORING_BEETLE
diff --git a/crawl-ref/source/tilepick.cc b/crawl-ref/source/tilepick.cc
index 75cc06c78d..6085e31d63 100644
--- a/crawl-ref/source/tilepick.cc
+++ b/crawl-ref/source/tilepick.cc
@@ -2010,6 +2010,20 @@ static int _tileidx_corpse(const item_def &item)
     case MONS_DEATH_YAK:
         return TILE_CORPSE_DEATH_YAK;
 
+    // water monsters
+    case MONS_BIG_FISH:
+        return TILE_CORPSE_BIG_FISH;
+    case MONS_GIANT_GOLDFISH:
+        return TILE_CORPSE_GIANT_GOLDFISH;
+    case MONS_ELECTRIC_EEL:
+        return TILE_CORPSE_ELECTRIC_EEL;
+    case MONS_SHARK:
+        return TILE_CORPSE_SHARK;
+    case MONS_KRAKEN:
+        return TILE_CORPSE_KRAKEN;
+    case MONS_JELLYFISH:
+        return TILE_CORPSE_JELLYFISH;
+
     // humans ('@')
     case MONS_HUMAN:
     case MONS_HELL_KNIGHT:
-- 
cgit v1.2.3-54-g00ecf