Remove creature records

2025-06-06 13:36:18 +01:00
parent 73c79f2f4d
commit 0f55257bff
48 changed files with 621 additions and 610 deletions
@@ -12,7 +12,7 @@ import RandomHelp

 updateHumanoid :: Creature -> World -> World
 updateHumanoid cr = case cr ^?! crType of
-    ChaseCrit ->
+    ChaseCrit {} ->
        humanoidAIList
            [ const doStrategyActions
            , performActions
@@ -23,7 +23,7 @@ updateHumanoid cr = case cr ^?! crType of
            , chaseCritPerceptionUpdate [0]
            , targetYouWhenCognizant
            , const searchIfDamaged
-            , const (crMeleeCooldown %~ max 0 . subtract 1)
+            , const (crType . meleeCooldown %~ max 0 . subtract 1)
            , const (crVocalization . vcCoolDown %~ max 0 . subtract 1)
            ]
            cr