Add simple flamethrower upgrade path

2022-03-03 15:11:20 +00:00
parent 08389ad4e0
commit fd622b4b80
6 changed files with 136 additions and 74 deletions
@@ -535,6 +535,10 @@ data AmmoType
        }
    | DroneAmmo
        { _amString :: String }
+    | GasAmmo
+        { _amString    :: String
+        , _amCreateGas :: Float -> Point2 -> Float -> Creature -> World -> World
+        }
    | GenericAmmo
 data ItemTweaks
    = NoTweaks
@@ -550,7 +554,7 @@ data TweakParam = TweakParam
        , _nameTweak :: String
        }
 data Nozzle = Nozzle
-    { _nzPressure :: Int
+    { _nzPressure :: Float
    , _nzDir :: Float
    , _nzMaxWalkAngle :: Float
    , _nzCurrentWalkAngle :: Float
@@ -588,7 +592,7 @@ data ItemParams
        , _nozzleNum :: Int
        }
    | Sprayer'
-        { _sprayerNozzles :: [Nozzle]
+        { _sprayNozzles :: [Nozzle]
        }
    | AngleWalk
        { _maxWalkAngle :: Float