Add no weapon start

2021-04-27 19:26:35 +02:00
parent 64b5b9e2a5
commit 6d229f8de2
20 changed files with 448 additions and 313 deletions
@@ -42,6 +42,8 @@ roomTreex = do
        t = treeFromTrunk 
                [[StartRoom]
                ,[Corridor]
+                ,[SpecificRoom $ fmap (pure . Right) $ randomiseAllLinks =<< centerVaultRoom 1 200 200 50]
+                ,[SpecificRoom blockedCorridor]
                ,[OrAno [[DoorAno]
                        ,[Corridor]
                        ,[DoorNumAno 0,AirlockAno]] 
@@ -68,7 +70,7 @@ levx = untilJust roomTreex

 lev1' :: RandomGen g => State g (Tree Room)
 lev1' = do
-    firstWeapon <- takeOne $ [[branchRectWith weaponRoom,blockedCorridor]] ++ replicate 5 [weaponRoom]
+    firstWeapon <- takeOne $ [[branchRectWith weaponRoom,longBlockedCorridor]] ++ replicate 5 [weaponRoom]
    iterateWhile boundClip $ fmap (shiftRoomTree . expandTreeBy id) 
        $ sequence $ treeFromPost 
        (