Cleanup, work towards unifying spayguns

src/Dodge/Data.hs

@@ -399,9 +399,9 @@ data ModuleSlot
 data ItemModule
     = DefaultModule
     | ItemModule
-        { _modName :: [String]
-        , _modSize :: Int
-        , _modModification :: Item -> Item
+        { _modName          :: [String]
+        , _modSize          :: Int
+        , _modModification  :: Item -> Item
         }
 
 data ItemDimension = ItemDimension
@@ -549,6 +549,14 @@ data TweakParam = TweakParam
         , _showTweak :: Int -> String
         , _nameTweak :: String
         }
+data Nozzle = Nozzle
+    { _nzPressure :: Int
+    , _nzDir :: Float
+    , _nzMaxWalkAngle :: Float
+    , _nzCurrentWalkAngle :: Float
+    , _nzWalkSpeed  :: Float
+    , _nzLength     :: Float
+    }
 data GunBarrels
     = MultiBarrel
         { _brlSpread     :: BarrelSpread
@@ -579,6 +587,9 @@ data ItemParams
         { _nozzleSpread :: Float
         , _nozzleNum :: Int
         }
+    | Sprayer'
+        { _sprayerNozzles :: [Nozzle]
+        }
     | AngleWalk
         { _maxWalkAngle :: Float
         , _currentWalkAngle :: Float
@@ -963,3 +974,4 @@ makeLenses ''Gust
 makeLenses ''GunBarrels
 makeLenses ''ItemModule
 makeLenses ''Targeting
+makeLenses ''Nozzle