Move towards positional item targeting

src/Dodge/Item/Equipment.hs

@@ -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 =

src/Dodge/Item/Held/Rod.hs

@@ -72,7 +72,8 @@ sniperRifle =
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izMax = 0.5, _izMin = 0.5,_izFac = 1}
         & itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
         & itScope .~ ZoomScope (V2 0 0) 1 0.5 False
-        & itUse . useTargeting ?~ TargetLaser
+        & itType . iyModules . at ModTarget ?~ TARGET TargetLaser
+--        & itUse . useTargeting ?~ TargetLaser
 
 machineGun :: Item
 machineGun =

src/Dodge/Item/Held/Utility.hs

@@ -52,7 +52,8 @@ torch =
 forceFieldGun :: Item
 forceFieldGun =
     defaultWeapon
-        & itUse . useTargeting ?~ TargetRBLine
+--        & itUse . useTargeting ?~ TargetRBLine
+        & itType . iyModules . at ModTarget ?~ TARGET TargetRBLine
         & itParams .~ ParamMID Nothing
         & itUse . heldUse .~ HeldForceField --useForceFieldGun
         & itUse . heldDelay .~ NoDelay