Remove temporary light sources as separate entity

2024-11-26 13:12:55 +00:00
parent e93a804559
commit cc302a6846
17 changed files with 243 additions and 241 deletions
@@ -18,7 +18,9 @@ updateLampoid cr w = case cr ^?! crType . lampLSID of
    Just i
        | _crHP cr < 0 ->
            w
-                & cWorld . lWorld . tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 cpos)
+                -- & cWorld . lWorld . tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 cpos)
+                & cWorld . lWorld . worldEvents .:~ MakeTempLight 
+                    (LSParam (addZ 20 cpos) 150 1) 20
                & originsIDsAt [MaterialSound Glass n | n <- [0, 1, 2]] (destroyMatS Glass) cpos
                & cWorld . lWorld . lightSources . at i .~ Nothing
                & cWorld . lWorld . creatures . at cid .~ Nothing