19 lines
446 B
Haskell
19 lines
446 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
module Dodge.Creature.Mass (crMass) where
|
|
import Dodge.Data.Creature.Misc
|
|
|
|
crMass :: CreatureType -> Float
|
|
crMass = \case
|
|
Avatar {} -> 10
|
|
ChaseCrit {} -> 10
|
|
CrabCrit {} -> 10
|
|
HoverCrit {} -> 5
|
|
SwarmCrit -> 2
|
|
AutoCrit -> 10
|
|
BarrelCrit{} -> 10
|
|
SlinkCrit{} -> 100
|
|
LampCrit {} -> 3
|
|
SlimeCrit {_slimeRad = r} -> r * r / 10
|
|
BeeCrit {_beeSlime = x} -> 3 + x
|
|
HiveCrit {} -> 100
|