Tweak info

2023-01-11 22:35:35 +00:00
parent 994496e964
commit f2f414cee6
3 changed files with 72 additions and 65 deletions
@@ -0,0 +1,7 @@
+module Dodge.Creature.Info where
+
+import Dodge.Data.Creature
+import LensHelp
+
+yourInfo :: Creature -> String
+yourInfo cr = "You can carry a maximum of " ++ show (cr ^. crInvCapacity) ++ " individual items. "