Tweak info

2023-01-11 22:35:35 +00:00
parent 994496e964
commit f2f414cee6
3 changed files with 72 additions and 65 deletions
@@ -126,8 +126,8 @@ drawExamineInventory cfig mtweaki w =

 closeObjectInfo :: Int -> Either FloorItem Button -> String
 closeObjectInfo n x = case x of
-    Left (FlIt {_flIt = itm}) -> "This item is on the floor " ++ floorItemPickupInfo n itm ++ itemInfo itm
-    Right _ -> "This is some sort of switch or button."
+    Left (FlIt {_flIt = itm}) -> "It is on the floor " ++ floorItemPickupInfo n itm ++ itemInfo itm
+    Right _ -> "It is some sort of switch or button."

 floorItemPickupInfo :: Int -> Item -> String
 floorItemPickupInfo n itm