Play around with tesla arcs

src/Dodge/Data/Item/Params.hs

@@ -12,37 +12,17 @@ import Dodge.Data.ArcStep
 
 data ItemParams
     = NoParams
---    | MagShieldParams
---        {_magShieldMgMIX :: Maybe Int}
     | FlatShieldParams
         {_flatShieldWlMIX :: Maybe Int}
     | Arcing
         { _currentArc :: [ArcStep]
-        , _arcSize :: Float
-        , _arcNumber :: Int
-        , _newArcStep :: NextArcStep --ItemParams -> World -> ArcStep -> State StdGen (Maybe ArcStep)
-        , _previousArcEffect :: PreviousArcEffect
+--        , _arcSize :: Float
+--        , _arcNumber :: Int
         }
 
 data ShrinkGunStatus = FullSize | Shrunk
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
---data GunBarrels
-----    = MultiBarrel
-----        { _brlSpread :: BarrelSpread
-----        , _brlNum :: Int
-----        , _brlInaccuracy :: Float
-----        }
---    = BarrelList 
---        { _brlList :: [GunBarrel]
---        }
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
-
 makeLenses ''ItemParams
 deriveJSON defaultOptions ''ShrinkGunStatus
-deriveJSON defaultOptions ''PreviousArcEffect
 deriveJSON defaultOptions ''ItemParams