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
@@ -252,7 +252,8 @@ shineTorch cr itmtree (p, q) = fromMaybe id $ do
    guard $ i >= x
    invid <- mag ^? ldtValue . cItem . itLocation . ilInvID
    return $
-        (cWorld . lWorld . tempLightSources .:~ tlsTimeRadColPos 1 250 0.7 pos'')
+        --(cWorld . lWorld . tempLightSources .:~ tlsTimeRadColPos 1 250 0.7 pos'')
+        (cWorld . lWorld . lights .:~ LSParam pos'' 250 0.7)
            . (cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix invid . itUse . amagLoadStatus . iaLoaded -~ x)
  where
    x = 10