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 . skinUpper .~ lightx4 yellow
        & crType . humanoidAI .~ SwarmAI

--swarmCritMoveFunc :: Creature -> Point2 -> Creature -> Point2
--swarmCritMoveFunc tcr cenp cr
--    | targBehindCrit
--  where
--    cpos = _crPos cr
--    ypos = _crPos tcr