Working inter-room placements

src/Dodge/Floor.hs

@@ -10,11 +10,13 @@ import Dodge.Room.Procedural
 import Dodge.Room.RoadBlock
 import Dodge.Room.Data
 import Dodge.Room
+import Dodge.Room.Door
 import Dodge.Room.Branch
 import Dodge.Room.Boss
 import Dodge.Room.LongDoor
 import Dodge.Room.NoNeedWeapon
 import Dodge.Room.Link
+import Dodge.Placements.Button
 import Dodge.Layout.Tree.Polymorphic
 import Dodge.Layout.Tree.Either
 import Dodge.Layout.Tree.Annotate
@@ -24,6 +26,7 @@ import Dodge.LevelGen.Data
 import Dodge.Item.Weapon.Launcher
 import MonadHelp
 import Data.Tree
+import Color
 
 import Control.Lens
 import Control.Monad.State
@@ -35,6 +38,10 @@ import Data.Maybe
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
     [[StartRoom]
+    ,[SetLabel 0 $ return $ roomRectAutoLinks 100 100 
+        & rmExtendedPmnt .~ Just (externalButton red (PS (V2 50 50) 0))
+     ]
+    ,[UseLabel 0 $ return switchDoorRoom]
     ,[SpecificRoom $ return $ connectRoom lasTunnel ]
     ,[SpecificRoom $ fmap connectRoom slowDoorRoom ]
     ,[Corridor]