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
@@ -39,9 +39,10 @@ decontamRoom i =
                            \_ _ -> Just $ putDoubleDoor DoorObstacle thewall (WdBlBtOn btid) (V2 0 80) (V2 40 80) 2
               , invisibleWall $ rectNSWE 60 40 (-40) (-30)
               , spanLightI (V2 (-20) 30) (V2 (-20) 70)
+               , analyser (NoItemZone ps) (PS 50 0) (PS mcpos 0) & plExternalID ?~ i
               ]
-        & rmOutPmnt . at i ?~ 
-               analyser (NoItemZone ps) (PS 50 0) (PS mcpos 0)
+--        & rmOutPmnt . at i ?~ 
+--               analyser (NoItemZone ps) (PS 50 0) (PS mcpos 0)
        & rmInPmnt .~ [f]
        & rmBound .~ [rectNSWE 75 15 0 40, switchcut]
  where