Reorganise weapons, start work on drones

2021-11-22 00:37:27 +00:00
parent 1aa797ddef
commit 213f573011
19 changed files with 559 additions and 403 deletions
@@ -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