Correct non-pushing of partially destroyed doors

2022-06-23 15:20:50 +01:00
parent 56b9b2dd9e
commit 85406d06c1
6 changed files with 23 additions and 4 deletions
@@ -34,6 +34,7 @@ worldSPic cfig w =
    (extraShapes w, extraPics cfig w)
    <> foldMap (dbArg _prDraw) (filtOn _prPos _props)
    <> foldMap (shiftDraw _blPos _blDir _blDraw) (filtOn _blPos _blocks)
+    <> foldMap (shiftDraw _fsPos _fsDir (const _fsSPic)) (filtOn _fsPos _shapes)
    <> foldMap (dbArg _cpPict) (filtOn _cpPos _corpses)
    <> foldMap ((($ w) . ($ cfig)) . dbArg _crPict) (filtOn _crPos _creatures)
    <> foldMap floorItemSPic (filtOn _flItPos _floorItems)