Remove external corpses, handle them as creatures

2025-09-25 09:31:58 +01:00
parent fcb02850d0
commit 23f61081cf
33 changed files with 184 additions and 159 deletions
@@ -79,7 +79,7 @@ epText Nothing = " @NOT.EQP"

 introScanValue :: Creature -> IntroScanType -> Either Int String
 introScanValue cr = \case
-    HEALTH -> Left $ cr ^. crHP
+    HEALTH -> Left $ fromMaybe 0 $ cr ^? crHP . _HP
    MAXHEALTH -> Left $ crMaxHP $ cr ^. crType

 itemExternalValue :: Item -> World -> Creature -> Maybe (Either Int String)