14 lines
296 B
Haskell
14 lines
296 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
module Dodge.Creature.Mass (crMass) where
|
|
import Dodge.Data.Creature.Misc
|
|
|
|
crMass :: CreatureType -> Float
|
|
crMass = \case
|
|
Avatar {} -> 10
|
|
AvatarDead -> 10
|
|
ChaseCrit {} -> 10
|
|
SwarmCrit -> 2
|
|
AutoCrit -> 10
|
|
BarrelCrit{} -> 10
|
|
LampCrit {} -> 3
|