Move typical light placement over doors

src/Dodge/Room/Procedural.hs

@@ -91,8 +91,7 @@ roomRectAutoLinks x y = (roomRect x y xn yn)
   where
     xn = max 1 $ (ceiling x - 40) `div` 60
     yn = max 1 $ (ceiling y - 40) `div` 60
-    plmnts = [mntLightLnkCond unusedLnkToPS
-        , mntLightLnkCond unusedLnkToPS ]
+    plmnts = replicate 3 (mntLightLnkCond $ useRoomPosCond isUsedLnkUnplaced)
 {- Combines two rooms into one room.
  - will have to work out exactly what to do with combining links
 Mostly involves concatenation.  -}