Work on chase crit corpse

src/Dodge/Creature/ChaseCrit.hs

@@ -36,7 +36,7 @@ hoverCrit :: Creature
 hoverCrit =
     defaultCreature
         & crName .~ "hoverCrit"
-        & crHP .~ HP 500
+        & crHP .~ HP 150
         & crType .~ HoverCrit 0
         & crFaction .~ ColorFaction blue
         & crStance . carriage .~ Flying 15 0.975

src/Dodge/Creature/Mass.hs

@@ -5,7 +5,7 @@ import Dodge.Data.Creature.Misc
 crMass :: CreatureType -> Float
 crMass = \case
     Avatar {} -> 10
-    ChaseCrit {} -> 10
+    ChaseCrit {} -> 12
     HoverCrit {} -> 5
     SwarmCrit -> 2
     AutoCrit -> 10

src/Dodge/Creature/State/WalkCycle.hs

@@ -46,7 +46,7 @@ updateCarriage' cid cr w = \case
                     & cWorld . lWorld . creatures . ix cid . crStance . carriage .~ OnGround
             else w & cWorld . lWorld . creatures . ix cid . crPos .~ ep
     OnGround {} -> w
-        & tocr . crPos +~ 0.8 *^ (cr ^. crOldPos - oop)
+        & tocr . crPos . _xy +~ 0.8 *^ (cr ^. crOldPos . _xy - oop ^. _xy)
   where
     tocr = cWorld . lWorld . creatures . ix cid
     oop = cr ^. crOldOldPos