{-# LANGUAGE LambdaCase #-}

module Dodge.Creature.Shape (crShape) where

import Color
import Dodge.Data.Creature.Misc

crShape :: CreatureType -> CreatureShape
crShape = \case
    Avatar{} -> Humanoid (greyN 0.9) (lightx4 black) (greyN 0.3) InanimateAI
    ChaseCrit {} -> Humanoid (greyN 0.9) (lightx4 green) (greyN 0.3) ChaseAI
    SwarmCrit -> Humanoid (greyN 0.9) (lightx4 yellow) (greyN 0.3) SwarmAI
    AutoCrit -> Humanoid (greyN 0.9) (lightx4 red) (greyN 0.3) AutoAI
    AvatarDead -> Humanoid (greyN 0.9) (lightx4 black) (greyN 0.3) InanimateAI
    BarrelCrit {} -> Barreloid
    LampCrit {} -> NonDrawnCreature