Start work on crafting/combinations

2021-12-02 00:50:29 +00:00
parent ce06845278
commit 85ededc158
28 changed files with 189 additions and 112 deletions
@@ -176,7 +176,7 @@ applyIndividualDamage :: DamageType -> Creature -> (World -> World, Creature)
 applyIndividualDamage (Concussive amount fromDir push pushexp pushRad) cr
        = ( id
          , over crHP (\hp -> hp - amount) 
-                $ over crPos (+.+ (pushAmount *.* safeNormalizeV (_crPos cr -.- fromDir))) 
+                $ over crPos (+.+ (pushAmount *.* squashNormalizeV (_crPos cr -.- fromDir))) 
                cr
          )
  where