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
@@ -7,7 +7,6 @@ module Dodge.Item.Held.Rod (
    machineGun,
 ) where

-import Dodge.Item.Targeting
 import Dodge.Data.Item
 import Dodge.Default
 import Dodge.Item.Weapon.Bullet
@@ -73,7 +72,7 @@ sniperRifle =
        & itUse . heldAim . aimZoom .~ defaultItZoom{_izMax = 0.5, _izMin = 0.5}
        & itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
        & itScope .~ ZoomScope (V2 0 0) 0 1 0.5 False
-        & itUse . heldTargeting .~ (defaultTargeting & tgType .~ TargetLaser)
+        & itUse . useTargeting .~ (Just TargetLaser)
        & itUse . heldAim . aimZoom .~ defaultItZoom{_izFac = 1}

 machineGun :: Item