Remove creature records

2025-06-06 14:52:52 +01:00
parent 05f250f928
commit 467f241d7a
15 changed files with 37 additions and 28 deletions
@@ -2,13 +2,14 @@ module Dodge.Creature.Info (
    yourInfo,
 ) where

+import Dodge.Inventory.CheckSlots
 import Dodge.Data.Creature
 import LensHelp

 yourInfo :: Creature -> String
 yourInfo cr =
        yourStatsInfo cr
-        ++ " You can carry a maximum of " ++ show (cr ^. crInvCapacity) ++ " individual items. "
+        ++ " You can carry a maximum of " ++ show maxInvSlots ++ " individual items. "
        ++ " You can't remember your name."

 statsModifier :: Int -> String -> String -> String -> String