Work on more complicated terminals

src/Dodge/Floor.hs

@@ -16,6 +16,7 @@ import Dodge.PlacementSpot
 import Dodge.Annotation
 --import Dodge.Placement.Instance.Sensor
 import Dodge.Creature
+import Dodge.Room.Warning
 --import Dodge.LevelGen.Data
 --import Dodge.LevelGen.Switch
 --import Dodge.Item.Weapon.Launcher
@@ -39,6 +40,7 @@ import System.Random
 initialAnoTree :: Tree [Annotation]
 initialAnoTree = padSucWithDoors $ treeFromPost 
     [[AnoApplyInt 0 startRoom]
+    , [SpecificRoom $ warningRooms 7]
     , [SpecificRoom $ return (return . UseAll $ roomRectAutoLinks 400 400
         & rmPmnts .++~ [spNoID anyUnusedSpot (PutCrit invisibleChaseCrit)
                 , spNoID anyUnusedSpot (PutCrit armourChaseCrit)