Allow debris to do damage

2022-06-16 02:46:18 +01:00
parent a7201b8fb6
commit 6d5d651566
6 changed files with 30 additions and 7 deletions
@@ -92,7 +92,7 @@ placeLineBlock basePane bm blockWidth depth a b gw = ( 0
        { _blID = i + blid, _blWallIDs = IS.fromList $ ksAtI i
        , _blHPs = [5,5], _blShadows = shadowsAt i, _blMaterial = bm
        , _blFootprint = cornersAt p -- TODO check winding (clockwise, anticlockwise)
-        , _blPos = p, _blDraw = const mempty , _blDeath = const id}
+        , _blPos = p, _blDraw = const mempty , _blDeath = makeBlockDebris bm}
    insertBlocks = flip (foldr insertBlock) $ zip is blockCenPs
    ksAtI i = map ( + (wlid + i*4) ) [0,1,2,3]
    visibilityAt i