Fix worldEvent reset space leak

2021-08-18 13:18:46 +02:00
parent a6f08aef16
commit 910c29a510
12 changed files with 34 additions and 33 deletions
@@ -75,8 +75,8 @@ velocity to carry across frames.
 crFriction :: Creature -> Point2 -> Point2
 crFriction _ _ = V2 0 0

-meleeCooldown :: CRUpdate -> CRUpdate
-meleeCooldown u cr = u $ cr & crMeleeCooldown . _Just %~ (max 0 . (\x -> x - 1))
+--meleeCooldown :: CRUpdate -> CRUpdate
+--meleeCooldown u cr = u $ cr & crMeleeCooldown . _Just %~ (max 0 . (\x -> x - 1))

 doDamage :: Creature -> Creature
 doDamage cr = set (crState . crDamage) []