Cleanup

src/Dodge/Room/Warning.hs

@@ -11,6 +11,7 @@ import Dodge.Tree
 import Dodge.Room.Door
 import Dodge.Room.Ngon
 import Dodge.Room.Procedural
+import Dodge.Room.Tanks
 --import Dodge.Room.Corridor
 import Dodge.Room.Link
 --import Dodge.Room.Procedural
@@ -39,7 +40,9 @@ import qualified Data.Map.Strict as M
 
 warningRooms :: RandomGen g => Int -> State g (MetaTree Room String)
 warningRooms n = do
-    rm <- takeOne [roomNgon 8 200, roomRectAutoLinks 200 200]
+    rm <- do
+        tr <- tanksRoom [] []
+        takeOne [roomNgon 8 200, roomRectAutoLinks 200 200,tr]
     cenroom <- shuffleLinks $ addWarningTerminal n rm
     rToOnward "warningRooms" $ treePost [ door, cenroom, triggerDoorRoom n, cleatOnward door]