Move towards positional item targeting

2023-05-19 23:03:52 +01:00
parent 7cb17034f8
commit 2d3b76dfd4
8 changed files with 29 additions and 19 deletions
@@ -111,7 +111,7 @@ targetingHat tt =
    defaultEquipment
        & itUse . equipEffect . eeSite .~ GoesOnHead
        & itType . iyBase .~ EQUIP (TARGETINGHAT tt)
-        & itUse . useTargeting ?~ tt
+--        & itUse . useTargeting ?~ tt

 headLamp :: Item
 headLamp =