30 lines
684 B
Haskell
30 lines
684 B
Haskell
module Dodge.Creature.SwarmCrit (
|
|
swarmCrit,
|
|
) where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.Creature
|
|
import Dodge.Default
|
|
import Picture
|
|
|
|
swarmCrit :: Creature
|
|
swarmCrit =
|
|
defaultCreature
|
|
{ _crHP = 1
|
|
, _crRad = 2
|
|
, _crMass = 2
|
|
-- , _crCorpse = MakeDefaultCorpse
|
|
, _crFaction = ColorFaction yellow
|
|
, _crMeleeCooldown = 0
|
|
}
|
|
& crType .~ SwarmCrit
|
|
-- & crType . skinUpper .~ lightx4 yellow
|
|
-- & crType . humanoidAI .~ SwarmAI
|
|
|
|
--swarmCritMoveFunc :: Creature -> Point2 -> Creature -> Point2
|
|
--swarmCritMoveFunc tcr cenp cr
|
|
-- | targBehindCrit
|
|
-- where
|
|
-- cpos = _crPos cr
|
|
-- ypos = _crPos tcr
|