Make clouds use specific upscale filter, break cloud render over walls

2025-12-02 12:43:56 +00:00
parent 25efce7a89
commit c89d5af6a3
7 changed files with 168 additions and 40 deletions
@@ -7,6 +7,7 @@ module Dodge.Wall.Damage (
    damageWall,
 ) where

+import Control.Monad
 import Data.Foldable
 import qualified Data.IntMap.Strict as IM
 import Data.Maybe
@@ -48,6 +49,7 @@ damageBlock = \case

 damageGlassBlock :: Int -> Int -> World -> (S.Set Int2, World)
 damageGlassBlock x i w = fromMaybe (mempty,w) $ do
+    guard $ x > 0
    bl <- w ^? cWorld . lWorld . blocks . ix i
    return $ case bl ^. blHP - x of
        y | y > 0 -> (mempty, w