Cleanup

src/Dodge/Data/Item/Scope.hs

@@ -20,11 +20,6 @@ data Scope
         , _opticZoom :: Float
         , _opticDefaultZoom :: Float
         }
-    | RemoteScope
-        { -- | a camera offset, note unlike the optic pos this is absolute
-          _remotePos :: Point2
-        , _remoteZoom :: Float
-        }
     deriving (Eq, Show, Read) --Generic, Flat)
 
 makeLenses ''Scope

src/Dodge/Data/Item/Use.hs

@@ -12,8 +12,10 @@ module Dodge.Data.Item.Use (
     module Dodge.Data.Hammer,
     module Dodge.Data.Item.Targeting,
     module Dodge.Data.GenFloat,
+    module Dodge.Data.Item.Scope
 ) where
 
+import Dodge.Data.Item.Scope
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -67,6 +69,10 @@ data ItemUse
         , _amagParams :: AmmoParams
         , _amagType :: AmmoType
         }
+    | ScopeUse
+        { -- | a camera offset
+          _scopeScope :: Scope
+        }
     deriving (Eq, Show, Read) --Generic, Flat)
 
 data TriggerType
@@ -111,8 +117,7 @@ data AmmoParams
     = BulletParams {_ampBullet :: Bullet}
     | ProjectileParams
         { _ampPayload :: Payload
-        , _ampPjDraw :: ProjectileDraw
---        , _ampPjCreation :: ProjectileCreate
+--        , _ampPjDraw :: ProjectileDraw
         }
     | GasParams {_ampCreateGas :: GasFuel}
     deriving (Eq, Show, Read) --Generic, Flat)