Make anti-clockwise what were clockwise shapes, cleanup flash module-ing

src/Dodge/Lampoid.hs

@@ -4,7 +4,6 @@ import Dodge.Creature.State
 import Dodge.Data.World
 import Dodge.LightSource
 import Dodge.Material.Sound
-import Dodge.WorldEvent.Flash
 import Dodge.WorldEvent.Sound
 import Geometry
 import qualified IntMapHelp as IM
@@ -19,7 +18,7 @@ updateLampoid cr w = case cr ^?! crType . lampLSID of
     Just i
         | _crHP cr < 0 ->
             w
-                & explosionFlashAt cpos
+                & cWorld . lWorld . tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 cpos)
                 & originsIDsAt [MaterialSound Glass n | n <- [0, 1, 2]] (destroyMatS Glass) cpos
                 & cWorld . lWorld . lightSources . at i .~ Nothing
                 & cWorld . lWorld . creatures . at cid .~ Nothing