Remove external corpses, handle them as creatures

2025-09-25 09:31:58 +01:00
parent fcb02850d0
commit 23f61081cf
33 changed files with 184 additions and 159 deletions
@@ -16,7 +16,7 @@ updateLampoid cr w = case cr ^?! crType . lampLSID of
         in w & cWorld . lWorld . lightSources %~ IM.insert i (lsColPosID lcol (addZ h cpos) i)
                & cWorld . lWorld . creatures . ix (_crID cr) . crType . lampLSID ?~ i
    Just i
-        | _crHP cr < 0 ->
+        | cr ^?! crHP . _HP < 0 ->
            w
                -- & cWorld . lWorld . tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 cpos)
                & cWorld . lWorld . worldEvents .:~ MakeTempLight