Fix explosion damage

2022-07-11 20:26:19 +01:00
parent 1506f5a83e
commit 791d065eff
10 changed files with 87 additions and 74 deletions
@@ -17,6 +17,7 @@ import Dodge.RoomLink
 import Dodge.Default.Room
 import Dodge.Creature
 import Dodge.Room.Pillar
+import Dodge.Room.Foreground
 import Dodge.Room.Girder
 import Dodge.Room.Modify.Girder
 import Dodge.LevelGen.Data
@@ -47,6 +48,7 @@ roomC w h = do
            . setOutLinks (\rl -> OnEdge West `S.member` _rlType rl)
            )
        & rmPmnts .:~ wallf (V2 (w/2) 0) (V2 (w/2) (h-60))
+        & rmPmnts .:~ sps0 (PutDecoration (highMesh (V2 0 0) (V2 0 h) 50))
        & rmRandPSs .~ [farside]
        )
  where