Work on airlocks

2025-08-23 17:42:36 +01:00
parent f641805845
commit 32d7120177
19 changed files with 380 additions and 334 deletions
@@ -2,6 +2,7 @@ module Dodge.Room.RunPast (
    lockedStart,
 ) where

+import qualified Data.IntMap.Strict as IM
 import Color
 import qualified Data.Set as S
 import Dodge.Cleat
@@ -50,7 +51,7 @@ lockedStart i = do
            map (over root $ rmConnectsTo .~ S.member theedge) doorrooms
                ++ [ return
                        smallRoom
-                            { _rmOutPmnt = [OutPlacement (putLitButOnPosExtTrig red useUnusedLnk) i]
+                            { _rmOutPmnt = IM.singleton i (putLitButOnPosExtTrig red useUnusedLnk)
                            , _rmPmnts = [plRRpt 0 (PutFlIt theweapon)]
                            , _rmBound = [rectNSWE 70 30 0 40]
                            }