Start implementing attachable scroll items

2023-11-08 18:39:38 +00:00
parent 8f0dd8cd1b
commit f26d380c1b
20 changed files with 119 additions and 116 deletions
@@ -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}