Add support for group placements

src/Dodge/Room/Teleport.hs

@@ -28,8 +28,8 @@ telRoomLev i = do
     w <- state $ randomR (200,300)
     h <- state $ randomR (200,300)
     return $ roomRectAutoLinks w h & rmPS .~ 
-        [ PS (w/2,h/2) 0 $ PutPressPlate telPP 
-        , PS (w/2,h/2+ 30) 0 putLamp
+        [ sPS (w/2,h/2) 0 $ PutPressPlate telPP 
+        , sPS (w/2,h/2+ 30) 0 putLamp
         ]
   where
     telPP = PressPlate