Cleanup

2022-07-27 12:49:23 +01:00
parent 6554d219dc
commit 8d17ce66e9
106 changed files with 2911 additions and 2678 deletions
@@ -12,6 +12,7 @@ updateLampoid :: Creature -> World -> World
 updateLampoid cr w = case cr ^?! crType . lampLSID of
    Nothing -> let i = IM.newKey (_lightSources (_cWorld w))
        in w & cWorld . lightSources %~ IM.insert i (lsColPosID lcol (addZ h cpos) i)
+            & cWorld . creatures . ix (_crID cr) . crType . lampLSID ?~ i
    Just i 
        | _crHP cr < 0 -> w
            & explosionFlashAt cpos