Move towards allowing equipable targeting items

2023-01-06 11:01:32 +00:00
parent bf479ca080
commit 612ee85579
23 changed files with 152 additions and 145 deletions
@@ -17,7 +17,6 @@ module Dodge.Item.Equipment (
    flameShield,
 ) where

-import Dodge.Item.Targeting
 import Geometry.Data
 import Dodge.Data.CamouflageStatus
 import Dodge.Data.Item
@@ -93,7 +92,7 @@ targetingHat tt =
    defaultEquipment
        & itUse . equipEffect . eeSite .~ GoesOnHead
        & itType . iyBase .~ EQUIP (TARGETINGHAT tt)
-        & itUse . equipTargeting .~ (defaultTargeting & tgType .~ tt)
+        & itUse . useTargeting .~ (Just tt)

 headLamp :: Item
 headLamp =