dragons have scales, not fur

body_part should return "scales" for the HAIR part of a dragon

diff --git a/src/polyself.c b/src/polyself.c
index 3c2ac0d727ab3fab80729401a5d35c1c3708c38c..9c38369cc6f2fb3694dcc84e825b13b5548fe27f 100644 (file)
--- a/src/polyself.c
+++ b/src/polyself.c
@@ -1174,7 +1174,7 @@ int part;
            return horse_parts[part];
        if (mptr->mlet == S_EEL && mptr != &mons[PM_JELLYFISH])
            return fish_parts[part];
-       if (slithy(mptr))
+       if (slithy(mptr) || (mptr->mlet == S_DRAGON && part == HAIR))
            return snake_parts[part];
        if (mptr->mlet == S_EYE)
            return sphere_parts[part];