Fix bug in flame wall damages, cleanup

2025-06-08 14:16:59 +01:00
parent 4c3a3d83da
commit 5b1e4fba4e
16 changed files with 93 additions and 253 deletions
@@ -118,7 +118,7 @@ useBulletPayload bu = case _buPayload bu of
    BulBall ExplosiveBall -> \p -> cWorld . lWorld . shockwaves .:~ concBall p
    BulBall ElectricalBall -> makeStaticBall
    BulBall FlashBall -> makeFlashBall
-    BulBall (FlameletBall x)  -> \p -> makeFlamelet p 0 x 10
+    BulBall (FlameletBall x _)  -> \p -> makeFlamelet p 0 x 10

 makeFragBullets :: Point2 -> World -> World
 makeFragBullets p w = w & cWorld . lWorld . bullets .++~ bus