Reorganise weapons, start work on drones

src/Dodge/Room/Procedural.hs

@@ -21,7 +21,6 @@ import Dodge.Item.Consumable
 import Dodge.Item.Equipment
 import Dodge.Room.Foreground
 import Dodge.Item.Weapon
-import Dodge.Item.Weapon.Launcher
 import Dodge.RandomHelp
 import Dodge.Placement.PlaceSpot
 import Dodge.LevelGen.Data

src/Dodge/Room/Start.hs

@@ -73,7 +73,7 @@ lasSensorTurretTest :: RandomGen g => Int -> State g (Tree (Either Room Room))
 lasSensorTurretTest n = do
     cenroom <- randomiseOutLinks $ centralLasTurret {_rmLabel = Just n}
     let doorroom = switchDoorRoom {_rmTakeFrom = Just n}
-    return $ treeFromPost [Left cenroom,Left doorroom] (Right door)
+    return $ treeFromPost [Left door,Left cenroom,Left doorroom] (Right door)
 
 rezThenLasTurret :: RandomGen g => State g (Tree (Either Room Room))
 rezThenLasTurret = do