Add basic booster

2021-05-24 13:59:51 +02:00
parent cda035b1d1
commit 968273bf25
20 changed files with 276 additions and 324 deletions
@@ -31,7 +31,7 @@ import Control.Monad.Reader
 swarmCrit :: Creature
 swarmCrit = defaultCreature
    { _crUpdate = stateUpdate $ impulsiveAIR $
-        flockToPointUsing (encircleDistP (100)) (meleeHeadingMove 0.1 0.1 (pi/4) 3.9)
+        flockToPointUsing (encircleDistP 100) (meleeHeadingMove 0.1 0.1 (pi/4) 3.9)
        >=> return . (crMeleeCooldown . _Just %~ max 0 . subtract 1)
        >=> basicPerceptionUpdateR [0]
        >=> doStrategyActionsR