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
@@ -157,16 +157,16 @@ drawPathing cfig w

 crDisplayInfo :: Configuration -> World -> Creature -> Maybe (Point2,[String])
 crDisplayInfo cfig w cr 
-    | _crID cr == 0 = Nothing
+--    | _crID cr == 0 = Nothing
    | crOnScreen = Just (_crPos cr, catMaybes
 --        [fmap show $ ap ^? crGoal
-        [fmap show $ cr ^? crHP
-        ,fmap show $ ap ^? crStrategy
-        ,fmap show $ cr ^? crPos
-        ,fmap show $ cr ^? crPerception . crAwakeLevel
--        ,fmap show $ cr ^? crOldPos
-        ,fmap show $ ap ^? crAction
-        ,fmap show $ ap ^? crImpulse
+        [ fmap show $ cr ^? crHP
+        , fmap show $ ap ^? crStrategy
+        , fmap show $ cr ^? crPos
+        , fmap show $ cr ^? crPerception . cpVigilance
+--        , fmap show $ cr ^? crOldPos
+        , fmap show $ ap ^? crAction
+        , fmap show $ ap ^? crImpulse
        ]
        )
    | otherwise = Nothing