17 lines
382 B
Haskell
17 lines
382 B
Haskell
{-# 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
|