22 lines
859 B
Haskell
22 lines
859 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)
|
|
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
|