Allow for pump attachment to flamethrower

2026-03-17 15:16:24 +00:00
parent 902d8e0c00
commit 4cacb45252
18 changed files with 384 additions and 323 deletions
@@ -30,8 +30,9 @@ damMatSideEffect dm = \case
 defDamageMaterial :: Damage -> ECW -> World -> (Int,World)
 defDamageMaterial dm _ = (dm ^. dmAmount,)

-laserSpark x y -- = makeSpark FireSpark x y
-    = id
+laserSpark :: Point2 -> Float -> World -> World
+--laserSpark x y = makeSpark FireSpark x y
+laserSpark = makeSpark FireSpark

 damageStone :: Damage -> ECW -> World -> (Int,World)
 damageStone dm ecw w = case dm of