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
@@ -13,12 +13,13 @@ swarmCrit =
        { _crHP = 1
        , _crRad = 2
        , _crMass = 2
-        , _crCorpse = MakeDefaultCorpse
+--        , _crCorpse = MakeDefaultCorpse
        , _crFaction = ColorFaction yellow
        , _crMeleeCooldown = 0
        }
-        & crType . skinUpper .~ lightx4 yellow
-        & crType . humanoidAI .~ SwarmAI
+        & crType .~ SwarmCrit
+--        & crType . skinUpper .~ lightx4 yellow
+--        & crType . humanoidAI .~ SwarmAI

 --swarmCritMoveFunc :: Creature -> Point2 -> Creature -> Point2
 --swarmCritMoveFunc tcr cenp cr