Move item parameters into a more sensible place

2021-11-29 17:45:10 +00:00
parent e9ff591a28
commit 4f77a15445
9 changed files with 68 additions and 51 deletions
@@ -82,16 +82,12 @@ data UseDelay -- should just be Delay
        {_warmTime :: Int
        ,_warmMax  :: Int
        }
-data ItemType
-    = Weapon'
-        { _wpSpread     :: Float
-        , _wpRange      :: Float
-        , _wpNumBarrels :: Int
-        }
-    | UtilityItem
-    | ConsumableItem
+data BarrelSpread
+    = AlignedBarrels
+    | SpreadBarrels   {_spreadAngle :: Float}
+    | RotatingBarrels {_rotatingBarrelAccuracy :: Float}
+makeLenses ''BarrelSpread
 makeLenses ''HammerType
 makeLenses ''ItZoom
 makeLenses ''AimParams
 makeLenses ''UseDelay
-makeLenses ''ItemType