{-# 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
    ChaseCrit {} -> Flesh
    CrabCrit {} -> Flesh
    HoverCrit {} -> Metal
    SwarmCrit -> Flesh
    AutoCrit -> Flesh
    SlinkCrit{} -> Flesh
    BarrelCrit{} -> Metal
    LampCrit{} -> Glass
    SlimeCrit{} -> Flesh
    BeeCrit{} -> Flesh
    HiveCrit{} -> Flesh