Allow for lights to be stored in a one-frame list

2024-11-26 12:50:39 +00:00
parent 851fdc2410
commit e93a804559
8 changed files with 127 additions and 114 deletions
@@ -164,6 +164,7 @@ updateUniverseMid u = case _uvScreenLayers u of
                 (cWorld . lWorld . radarBlips .~ [])
                    --        . updateIMl _props _pjUpdate
                    . updateLightSources
+                    . (cWorld . lWorld . lights .~ [])
                    . updateClouds
               )
    (sl : _) -> u & updateUseInputOnScreen sl
@@ -297,6 +298,7 @@ functionalUpdate u =
        . over uvWorld zoneCreatures
        -- . over uvWorld updateInventorySelectionList
        . set (uvWorld . cWorld . lWorld . flares) []
+        . set (uvWorld . cWorld . lWorld . lights) []
        $ over uvWorld updatePastWorlds u

 checkTermDist :: World -> World