Move targeting functions

src/Dodge/Item/Equipment.hs

@@ -4,6 +4,7 @@ module Dodge.Item.Equipment (
     powerLegs,
     wristInvisibility,
     wristArmour,
+    targetingHat,
     hat,
     brainHat,
     frontArmour,
@@ -16,6 +17,7 @@ module Dodge.Item.Equipment (
     flameShield,
 ) where
 
+import Dodge.Item.Targeting
 import Geometry.Data
 import Dodge.Data.CamouflageStatus
 import Dodge.Data.Item
@@ -86,6 +88,13 @@ hat =
         & itUse . equipEffect . eeSite .~ GoesOnHead
         & itType . iyBase .~ EQUIP HAT
 
+targetingHat :: TargetType -> Item
+targetingHat tt = 
+    defaultEquipment
+        & itUse . equipEffect . eeSite .~ GoesOnHead
+        & itType . iyBase .~ EQUIP (TARGETINGHAT tt)
+        & itUse . equipTargeting .~ (defaultTargeting & tgType .~ tt)
+
 headLamp :: Item
 headLamp =
     defaultEquipment