Fix aiming with scope

src/Dodge/Data/Item/Combine.hs

@@ -195,7 +195,6 @@ data HeldItemType
     | FORCEFIELDGUN
     | HELDDETECTOR Detector
     | TORCH
-    | BINOCULARS
     | FLATSHIELD
     | KEYCARD Int
     deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/Item/Scope.hs

@@ -17,13 +17,6 @@ data Scope
           _remotePos :: Point2
         , _remoteZoom :: Float
         }
---    | ZoomScope
---        { -- | a camera offset
---          _scopePos :: Point2
-----        , _scopeZoomChange :: Int
---        , _scopeZoom :: Float
---        , _scopeDefaultZoom :: Float
---        }
     deriving (Eq, Show, Read) --Generic, Flat)
 
 makeLenses ''Scope

src/Dodge/Data/Item/Use.hs

@@ -66,7 +66,6 @@ data ScrollAttachParams
           _opticPos :: Point2  -- this should be relative to the camera rotation
                                 -- then when the camera rotates when firing etc,
                                 -- this doesn't need to be changed
---        , _scopeZoomChange :: Int
         , _opticZoom :: Float
         , _opticDefaultZoom :: Float
         }