Fix long door bug.

2021-08-17 20:59:10 +02:00
parent 92c897e6a2
commit 4b7562521c
7 changed files with 40 additions and 4 deletions
@@ -82,7 +82,7 @@ crFriction _ _ = V2 0 0

 doDamage :: Creature -> Creature
 doDamage cr = set (crState . crDamage) [] 
-    $ over (crState . crPastDamage) (forceFoldable . take 20 . (dams :) ) damagedCr
+    $ over (crState . crPastDamage) (forceFoldable . take 10 . (dams :) ) damagedCr
  where 
    dams = _crDamage $ _crState cr
    damagedCr = snd $ _crApplyDamage cr dams cr