module Dodge.Creature.SwarmCrit (
    swarmCrit,
) where

import Control.Lens
import Dodge.Data.Creature
import Dodge.Default
import Picture

swarmCrit :: Creature
swarmCrit =
    defaultCreature
        { _crHP = HP 1
--        , _crRad = 2
        , _crFaction = ColorFaction yellow
        }
        & 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