Continue weapon refactor, gas combinations

2024-09-19 09:49:56 +01:00
parent 6f972bb316
commit bb18831393
21 changed files with 489 additions and 379 deletions
@@ -44,7 +44,6 @@ data ItemParams
        , _dbGap :: Float
        }
    | Attracting {_attractionPower :: Point2}
-    | Sprayer {_sprayNozzles :: [Nozzle]}
    | AngleWalk
        { _maxWalkAngle :: Float
        , _currentWalkAngle :: Float
@@ -79,13 +78,6 @@ data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data Nozzle = Nozzle
-    { _nzPressure :: Float
-    , _nzDir :: Float
-    , _nzMaxWalkAngle :: Float
-    , _nzCurrentWalkAngle :: Float
-    , _nzWalkSpeed :: Float
-    , _nzLength :: Float
-    }
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

 makeLenses ''ItemParams