Add crab crit, rethink Action datatype slightly

src/Dodge/Data/ActionPlan.hs

@@ -15,7 +15,7 @@ data ActionPlan
     = Inanimate
     | ActionPlan
         { -- _apImpulse :: [Impulse] -- done per frame
-         _apAction :: [Action] -- updated per frame, likely persist across frames
+         _apAction :: Action -- updated per frame, likely persist across frames
         , _apStrategy :: Strategy -- current strategy
         , _apGoal :: [Goal] -- particular ordered goals
         }
@@ -68,8 +68,9 @@ data Action
         , _targetSeenAt :: Point2
         }
     | PathTo { _pathToPoint :: Point2, _pathFailAction :: Action }
+    | EvadeAim {_enemyPos :: Point2, _enemyDir :: Float, _acTimer :: Int}
     | TurnToPoint { _turnToPoint :: Point2 }
-    | ImpulsesList { _impulsesListList :: [[Impulse]] }
+    | ImpulsesList { _impulsesListList :: [[Impulse]], _acAction :: Action }
     | DoImpulses { _doImpulsesList :: [Impulse] }
     | WaitThen
         { _waitThenTimer :: Int
@@ -98,7 +99,7 @@ data Action
         , _doActionWhileThenCondition :: WdCrBl
         , _doActionWhileThenThen :: Action
         }
-    | DoActions { _doActionsList :: [Action] }
+--    | DoActions { _doActionsList :: [Action] }
     | DoActionThen
         { _doActionThenFirst :: Action
         , _doActionThenSecond :: Action
@@ -140,9 +141,9 @@ data Strategy
     | CloseToMelee {_meleeTarget :: Int}
     | StrategyActions Strategy [Action]
     | GetTo Point2
-    | Reload
+--    | Reload
     | Flee
-    | MeleeStrike
+--    | MeleeStrike
     | Search
     deriving (Eq, Ord, Show) --Generic, Flat)
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/Creature/Misc.hs

@@ -58,6 +58,11 @@ data CreatureType
         , _footForward :: FootForward
         , _strideAmount :: Float
         }
+    | CrabCrit {_meleeCooldown :: Int
+        , _footForward :: FootForward
+        , _strideAmount :: Float
+        , _dodgeCooldown :: Int
+        }
     | HoverCrit {_meleeCooldown :: Int}
     | SwarmCrit
     | AutoCrit