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
@@ -36,16 +36,16 @@ chaseCrit :: Creature
 chaseCrit = defaultCreature
    { _crUpdate = stateUpdate $ --dummyUpdate
        impulsiveAIR $ 
-        --doStrategyActionsR >=>
-        --performActionsR >=>
-        --overrideMeleeCloseTargetR >=>
-        --chaseTargetR targetYouLOS >=>
-        --basicPerceptionUpdateR [0] >=>
-        --targetYouWhenCognizantR >=>
-        return . (crMeleeCooldown . _Just %~ max 0 . subtract 1)
+        doStrategyActionsR >=>
+        performActionsR >=>
+        overrideMeleeCloseTargetR >=>
+        chaseTargetR targetYouLOS >=>
+        basicPerceptionUpdateR [0] >=>
+        targetYouWhenCognizantR >=>
+        return . (crMeleeCooldown %~ max 0 . subtract 1)
    , _crHP = 300
    , _crPict = basicCrPict green
    , _crInv = IM.fromList [(0,medkit 200)]
-    , _crMeleeCooldown = Just 0
+    , _crMeleeCooldown = 0
    , _crFaction = ColorFaction green
    }