16 lines
508 B
Haskell
16 lines
508 B
Haskell
{-# 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)
|
|
SwarmCrit -> Humanoid (greyN 0.9) (lightx4 yellow) (greyN 0.3)
|
|
AutoCrit -> Humanoid (greyN 0.9) (lightx4 red) (greyN 0.3)
|
|
BarrelCrit {} -> Barreloid
|
|
LampCrit {} -> NonDrawnCreature
|