Start implementing attachable scroll items

src/Dodge/Item/Held/Launcher.hs

@@ -59,7 +59,7 @@ remoteLauncher =
     launcher
         & itType . iyBase .~ HELD REMOTELAUNCHER
         & itUse . heldUse .~ HeldFireRemoteShell --fireRemoteShell
-        & itScope .~ RemoteScope (V2 0 0) 1 True
+        & itScope .~ RemoteScope (V2 0 0) 1
         & itUse . heldConsumption . laAmmoType . amPjDraw .~ DrawRemoteShell
 
 basicAmPjMoves :: IM.IntMap TweakParam

src/Dodge/Item/Held/Rod.hs

@@ -68,12 +68,12 @@ sniperRifle =
         & itType . iyBase .~ HELD SNIPERRIFLE
         & itUse . heldAim . aimMuzzles . ix 0 . mzInaccuracy .~ 0
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izMax = 0.5, _izMin = 0.5,_izFac = 1}
-        & itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
-        & itScope .~ ZoomScope 
-            { _scopePos = (V2 0 0)
-            , _scopeZoom =  1
-            , _scopeDefaultZoom = 0.5 
-            }
+--        & itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
+--        & itScope .~ ZoomScope 
+--            { _scopePos = (V2 0 0)
+--            , _scopeZoom =  1
+--            , _scopeDefaultZoom = 0.5 
+--            }
         & itType . iyModules . at ModTarget ?~ TARGET TargetLaser
 --        & itUse . useTargeting ?~ TargetLaser
 

src/Dodge/Item/Held/Utility.hs

@@ -26,16 +26,16 @@ latchkey _ = defaultHeldItem
 binoculars :: Item
 binoculars =
     defaultHeldItem
-        & itScope .~ ZoomScope 
-            { _scopePos = (V2 0 0) 
-            , _scopeZoom = 1 
-            , _scopeDefaultZoom = 0.5 
-            }
+--        & itScope .~ ZoomScope 
+--            { _scopePos = (V2 0 0) 
+--            , _scopeZoom = 1 
+--            , _scopeDefaultZoom = 0.5 
+--            }
         & itType . iyBase .~ HELD BINOCULARS
         -- & itUse . heldAim . aimHandlePos .~ 5
 --        & itUse . heldAim . aimMuzPos .~ 10
         & itUse . heldAim . aimStance .~ TwoHandFlat
-        & itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
+--        & itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izMax = 0.5, _izMin = 0.5, _izFac = 1}