Start moving creature properties out of records

src/Dodge/Default/Creature.hs

@@ -6,7 +6,7 @@ import Dodge.Data.Creature
 import Dodge.Data.FloatFunction
 import Geometry.Data
 import qualified IntMapHelp as IM
-import Picture
+--import Picture
 --import MaybeHelp
 
 defaultCreature :: Creature
@@ -15,12 +15,11 @@ defaultCreature =
         { _crPos = V2 0 0
         , _crOldPos = V2 0 0
         , _crDir = 0
-        , _crOldDir = 0
         , _crMvDir = 0
         , _crMvAim = 0
 --        , _crTwist = 0
         , _crID = 1
-        , _crType = defaultCreatureSkin
+        , _crType = ChaseCrit
         , _crRad = 10
         , _crMass = 10
         , _crHP = 100
@@ -30,7 +29,7 @@ defaultCreature =
         , _crInvCapacity = 25
         , _crInvLock = False
         , _crState = defaultState
-        , _crCorpse = MakeDefaultCorpse
+--        , _crCorpse = MakeDefaultCorpse
         , _crMaterial = Flesh
         , _crPastDamage = 0
 --        , _crInvEquipped = mempty
@@ -58,8 +57,8 @@ defaultCreature =
         , _crDeathTimer = 0
         }
 
-defaultCreatureSkin :: CreatureType
-defaultCreatureSkin = Humanoid (greyN 0.9) (lightx4 green) (greyN 0.3) InanimateAI
+--defaultCreatureSkin :: CreatureType
+--defaultCreatureSkin = Humanoid (greyN 0.9) (lightx4 green) (greyN 0.3) InanimateAI
 
 defaultInanimate :: Creature
 defaultInanimate = defaultCreature & crActionPlan .~ Inanimate