Allow more general detection of item use focus

2024-12-25 21:26:25 +00:00
parent aec56f4977
commit c788af47bd
12 changed files with 28 additions and 32 deletions
@@ -24,7 +24,7 @@ import Picture

 defaultEquipment :: Item
 defaultEquipment = defaultHeldItem & itUse .~ defaultEquipUse
-    & itUseFocus .~ UseFromLocation
+--    & itUseFocus .~ UseFromLocation

 defaultFlIt :: FloorItem
 defaultFlIt = FlIt{_flItRot = 0, _flIt = defaultHeldItem, _flItPos = V2 0 0, _flItID = 0}