Add destruction to mounted lights

2025-10-26 14:39:33 +00:00
parent c55c3e874d
commit 0adf3f57b4
7 changed files with 64 additions and 70 deletions
@@ -44,6 +44,11 @@ doWdWd we = case we of
    MakeTempLight x t ->
        (cWorld . lWorld . lights .:~ x)
            . (cWorld . lWorld . worldEvents .:~ MakeTempLight x (t -1))
+    MakeTempLightFade _ _ 0 -> id
+    MakeTempLightFade y x t ->
+        (cWorld . lWorld . lights .:~ x)
+            . (cWorld . lWorld . worldEvents 
+                .:~ MakeTempLightFade y (x&lsCol . each -~ y) (t -1))
    UseInvItem invid pt -> \w -> fromMaybe w (useItem invid pt w)
    WdWdBurstFireRepetition cid invid -> \w -> fromMaybe w $ do
        cr <- w ^? cWorld . lWorld . creatures . ix cid