Start moving creature properties out of records

2025-06-06 08:46:27 +01:00
parent bae75a1e60
commit 4ae7c6ebd6
32 changed files with 609 additions and 672 deletions
@@ -18,7 +18,7 @@ smallChaseCrit =
        { _crHP = 1
        , _crRad = 4
        , _crInv = mempty
-        , _crCorpse = MakeDefaultCorpse
+--        , _crCorpse = MakeDefaultCorpse
        }

 invisibleChaseCrit :: Creature
@@ -39,7 +39,7 @@ chaseCrit =
        , _crVocalization = chaseCritVocalization
        , _crMvType = defaultChaseMvType
        }
-        & crType . humanoidAI .~ ChaseAI
+--        & crType . humanoidAI .~ ChaseAI

 chaseCritVocalization :: Vocalization
 chaseCritVocalization =