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
@@ -158,12 +158,17 @@ removeShieldWall it _ w = case it ^? itParams . flatShieldWlMIX . _Just of

 createHeadLamp :: Item -> Creature -> World -> World
 createHeadLamp _ cr =
-    cWorld . lWorld . tempLightSources
-        .:~ tlsTimeRadColPos
-            1
-            200
-            0.7
+    cWorld . lWorld . lights .:~ LSParam             
            ((_crPos cr `v2z` 0) +.+.+ rotate3 (_crDir cr) (translatePointToHead cr (V3 5 0 3)))
+            200 
+            0.7
+
+--    cWorld . lWorld . tempLightSources
+--        .:~ tlsTimeRadColPos
+--            1
+--            200
+--            0.7
+--            ((_crPos cr `v2z` 0) +.+.+ rotate3 (_crDir cr) (translatePointToHead cr (V3 5 0 3)))

 overCID :: (Creature -> Creature) -> Item -> Creature -> World -> World
 overCID f _ cr = cWorld . lWorld . creatures . ix (_crID cr) %~ f