Allow arbitrary changes to a room when using a link slot

src/Dodge/Floor.hs

@@ -18,6 +18,7 @@ import Dodge.Item.Weapon.Launcher
 import MonadHelp
 import Data.Tree
 import Color
+import Dodge.Wire
 
 import Control.Lens
 import Control.Monad.State
@@ -25,12 +26,18 @@ import Control.Monad.Loops
 import System.Random
 import Data.Sequence hiding (zipWith)
 import Data.Maybe
+import qualified Data.IntMap.Strict as IM
+
 
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
     [[StartRoom]
-    ,[ChainAnos [[SetLabel 0 $ return $ roomRectAutoLinks 100 100 
-                    & rmExtPmnt ?~ externalButton red (anyLnkInPS 5) ]
+    ,[ChainAnos 
+        [[SetLabel 0 $ return $ roomRectAutoLinks 100 100 
+                    & rmExtPmnt ?~ externalButton red (anyLnkInPS 5) 
+                    & rmStartWires .~ IM.fromList [(0,RoomWire 0 0)]
+                    & rmLinkEff .~ [putWireEnd 0]
+         ]
         ,[UseLabel 0 $ return switchDoorRoom]
         ]
      ]