Tweak walk cycle parameters

2021-06-09 00:01:56 +02:00
parent fb7a90df71
commit 3371e2ae79
16 changed files with 112 additions and 81 deletions
@@ -88,8 +88,8 @@ bulPenCr' bt p cr w
              ) {_btTimer' = _btTimer' bt - 1}
 {- | Heavy bullet effects when hitting creature:
 piercing, blunt, twisting and pushback damage all applied.  -}
-hvBulHitCr' :: Particle -> Point2 -> Creature -> World -> World
-hvBulHitCr' bt p cr w 
+hvBulHitCr :: Particle -> Point2 -> Creature -> World -> World
+hvBulHitCr bt p cr w 
    = over (creatures . ix cid . crState . crDamage)
           ([Piercing 200 sp p ep
            ,Blunt    100  sp p ep