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
@@ -66,5 +66,6 @@ sensInsideDoor senseType i rm = rm
             , putMessageTerminal terminalColor 
                (textTerminal & tmCommands .:~ TCDamageCommand)
                & plSpot .~ rprBoolShift isUnusedLnk (shiftInBy 10)
+            , sensAboveDoor senseType 10 (atFstLnkOutShiftInward 100) & plExternalID ?~ i
             ]
-    & rmOutPmnt . at i ?~ sensAboveDoor senseType 10 (atFstLnkOutShiftInward 100)
+--    & rmOutPmnt . at i ?~ sensAboveDoor senseType 10 (atFstLnkOutShiftInward 100)