Move wall damages to external position

2022-06-19 15:05:12 +01:00
parent f2d6504634
commit a7e6d6f3cc
14 changed files with 47 additions and 18 deletions
@@ -208,9 +208,9 @@ weaponBetweenPillars = do
        rpIsOnPath rp
        && _rpPlacementUse rp == 0
        && all ((>100) . dist (_rpPos rp)) (usedRoomLinkPoss r)
-    (fmap pure $ roomPillars 30 w h wn hn 
+    (roomPillars 30 w h wn hn 
        <&> rmPmnts .++~ map (`sps` randC1) critPlacementSpots ++ [ sps wpPos (PutFlIt wp) ]
-        <&> cleatOnward) >>= rToOnward ("weaponBetweenPillars_"++itemString wp)
+        <&> cleatOnward) >>= rToOnward ("weaponBetweenPillars_"++itemString wp) . pure

 weaponLongCorridor :: RandomGen g => State g (Tree Room)
 weaponLongCorridor = do