Rename Perception datatype/fields

2022-06-18 10:08:06 +01:00
parent 66fda3fb93
commit a1c7abedaf
13 changed files with 76 additions and 85 deletions
@@ -81,21 +81,19 @@ defaultCreatureSkin = CreatureSkin (greyN 0.9) (light4 green) (greyN 0.3)
 defaultInanimate :: Creature
 defaultInanimate = defaultCreature & crActionPlan .~ Inanimate

-defaultCreatureMemory :: MemoryState
-defaultCreatureMemory = MemoryState
-    { _soundsToInvestigate = []
-    }
+defaultCreatureMemory :: Memory
+defaultCreatureMemory = Memory { _soundsToInvestigate = [] }

 defaultInvSize :: Int
 defaultInvSize = 20

-defaultPerceptionState :: PerceptionState
-defaultPerceptionState = PerceptionState
-    { _crAwakeLevel = Lethargic
-    , _crAttentionDir = AttentiveTo IM.empty
-    , _crAwarenessLevel = IM.empty
-    , _crVision = defaultVision
-    , _crAudition = defaultAudition
+defaultPerceptionState :: Perception
+defaultPerceptionState = Perception
+    { _cpVigilance      = Lethargic
+    , _cpAttention      = AttentiveTo IM.empty
+    , _cpAwareness      = IM.empty
+    , _cpVision         = defaultVision
+    , _cpAudition       = defaultAudition
    }
 defaultVision :: Vision
 defaultVision = Eyes