Allow for item use when not root

2024-12-20 16:07:58 +00:00
parent 3a72bd366f
commit d9aaa8cc05
26 changed files with 436 additions and 493 deletions
@@ -24,9 +24,10 @@ import Picture

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

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

 defaultMachine :: Machine
 defaultMachine =