Start implementing attachable scroll items

src/Dodge/Data/Item/Scope.hs

@@ -14,18 +14,16 @@ data Scope
     = NoScope
     | RemoteScope
         { -- | a camera offset
-          _scopePos :: Point2
-        , _scopeZoom :: Float
-        , -- | if the camera offset is also the center of vision
-          _scopeIsCamera :: Bool
-        }
-    | ZoomScope
-        { -- | a camera offset
-          _scopePos :: Point2
---        , _scopeZoomChange :: Int
-        , _scopeZoom :: Float
-        , _scopeDefaultZoom :: Float
+          _remotePos :: Point2
+        , _remoteZoom :: Float
         }
+--    | ZoomScope
+--        { -- | a camera offset
+--          _scopePos :: Point2
+----        , _scopeZoomChange :: Int
+--        , _scopeZoom :: Float
+--        , _scopeDefaultZoom :: Float
+--        }
     deriving (Eq, Show, Read) --Generic, Flat)
 
 makeLenses ''Scope