Remove reified impulses from creature record

2025-10-18 15:42:35 +01:00
parent b43168ae33
commit 4ee389efb1
16 changed files with 155 additions and 191 deletions
@@ -1,5 +1,6 @@
 module Dodge.Creature.Update (updateCreature) where

+import Dodge.Creature.Impulse
 import Linear
 import NewInt
 import Color
@@ -47,8 +48,9 @@ updateCreature' cr =
        LampCrit{} -> updateLampoid cr
        BarrelCrit bt -> updateBarreloid bt cr
        AvatarDead -> id
-        ChaseCrit {} -> crUpdate cid . updateHumanoid cr
-        _ -> crUpdate cid . updateHumanoid cr
+        ChaseCrit {} -> \w -> crUpdate cid . followImpulses cid 
+            $ over (cWorld . lWorld . creatures . ix cid) (chaseCritInternal w) w
+        _ -> crUpdate cid 
  where
    cid = cr ^. crID