Data-ify creature drawing (partially)

2022-07-10 23:24:25 +01:00
parent 646942d20c
commit 75cd15c240
20 changed files with 52 additions and 76 deletions
@@ -80,7 +80,7 @@ checkDeath cr w
  where
    removecr
        | _crID cr == 0 = (creatures . ix (_crID cr) . crUpdate .~ const id)
-            . (creatures . ix (_crID cr) . crPict .~ const mempty)
+            . (creatures . ix (_crID cr) . crType .~ DrawnCreature (const mempty))
            . (creatures . ix (_crID cr) . crHP   .~ 0) 
            -- hack to get around player creature being killed but left with more than 0 hp
        | otherwise  = creatures . at (_crID cr) .~ Nothing