{-# 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)
    ChaseCrit {} -> Humanoid (greyN 0.9) (lightx4 green) (greyN 0.3)
    CrabCrit {} -> Humanoid (greyN 0.9) (lightx4 red) (greyN 0.3)
    HoverCrit {} -> Humanoid (greyN 0.9) (light blue) (greyN 0.3)
    SwarmCrit -> Humanoid (greyN 0.9) (lightx4 yellow) (greyN 0.3)
    AutoCrit -> Humanoid (greyN 0.9) (lightx4 red) (greyN 0.3)
    SlinkCrit{} -> Humanoid (greyN 0.9) (dark . dark . dark $ orange) (greyN 0.3)
    BarrelCrit {} -> Barreloid
    LampCrit {} -> NoCreatureShape
    SlimeCrit {} -> Humanoid (greyN 0.9) (lightx4 green) (greyN 0.3)
    BeeCrit {} -> NoCreatureShape
    HiveCrit {} -> NoCreatureShape