Commit on returning to work

2023-09-21 09:17:49 +01:00
parent b8f03f7d8c
commit 9ee925f13a
17 changed files with 56 additions and 32 deletions
@@ -32,7 +32,11 @@ latchkey _ =
 binoculars :: Item
 binoculars =
    defaultHeldItem
-        & itScope .~ ZoomScope (V2 0 0) 1 0.5 False
+        & itScope .~ ZoomScope 
+            { _scopePos = (V2 0 0) 
+            , _scopeZoom = 1 
+            , _scopeDefaultZoom = 0.5 
+            }
        & itType . iyBase .~ HELD BINOCULARS
        -- & itUse . heldAim . aimHandlePos .~ 5
 --        & itUse . heldAim . aimMuzPos .~ 10