Cleanup, fix menu lock on restarting level after game over

2021-12-06 23:44:10 +00:00
parent 19540bd19e
commit 763b771928
18 changed files with 88 additions and 119 deletions
@@ -9,8 +9,7 @@ glow    : continuous, potentially long, fading, slow changes in alpha
 flicker : potentially long, moving, abrupt changes in alpha
 -}
 module Dodge.WorldEvent.Flash
-    ( sparkFlashAt
-    , explosionFlashAt
+    ( explosionFlashAt
    , laserGunFlashAt
    , teslaGunFlashAt
    , muzFlareAt
@@ -64,9 +63,6 @@ explosionFlashAt p = tempLightSources .:~ tlsTimeRadFunPos 20 150 intensityFunc
        | x < 10 = 1 / (10 - fromIntegral x)
        | otherwise = 1

-sparkFlashAt :: Point2 -> World -> World
-sparkFlashAt _ = id
-
 flameFlicker :: Particle -> World -> World
 flameFlicker pt 
    | _btTimer' pt `mod` 5 == 0 = tempLightSources .:~ theLight