{-# LANGUAGE LambdaCase #-}

module Dodge.Creature.Material (crMaterial) where

import Dodge.Data.Creature.Misc
import Dodge.Data.Material

crMaterial :: CreatureType -> Material
crMaterial = \case
    Avatar{_avatarMaterial = mt} -> mt
    AvatarDead -> Flesh
    ChaseCrit {} -> Flesh
    SwarmCrit -> Flesh
    AutoCrit -> Flesh
    BarrelCrit{} -> Metal
    LampCrit{} -> Glass