Start to remove explicit "outplacements"

2025-09-23 17:11:07 +01:00
parent ef90e5702b
commit a6ca90d7d8
15 changed files with 67 additions and 44 deletions
@@ -51,8 +51,9 @@ lockedStart i = do
            map (over root $ rmConnectsTo .~ S.member theedge) doorrooms
                ++ [ return
                        smallRoom
-                            { _rmOutPmnt = IM.singleton i (putLitButOnPosExtTrig red useUnusedLnk)
-                            , _rmPmnts = [plRRpt 0 (PutFlIt theweapon)]
+                            {  --_rmOutPmnt = IM.singleton i (putLitButOnPosExtTrig red useUnusedLnk)
+                             _rmPmnts = [plRRpt 0 (PutFlIt theweapon)
+                                ,(putLitButOnPosExtTrig red useUnusedLnk) & plExternalID ?~ i]
                            , _rmBound = [rectNSWE 70 30 0 40]
                            }
                   ]