Tweak tutorial

2026-04-01 17:15:01 +01:00
parent ac32ebba2b
commit c504d3c511
1 changed files with 7 additions and 6 deletions
@@ -429,25 +429,26 @@ loadAmmoTut = do
        putSingleLight
            . analyserByDoor (RequireEquipment (AMMOMAG DRUMMAG)) i
            =<< shuffleLinks
-            =<< roomRectAutoLights 100 100
+            =<< join (takeOne [roomNgon 6 80, roomRectAutoLights 100 100])
    j <- nextLayoutInt
    wprm <-
        putSingleLight
            . addDoorAtNthLinkToggleInterrupt 0 ["DOOR LOCKDOWN ACTIVE"] j
            =<< shuffleLinks
            =<< roomRectAutoLights 100 100
-    droom <- distributerRoom BulletAmmo (10 ^ (8::Int))
-    croom <- roomCCrits 1
+    droom <- distributerRoom BulletAmmo (10 ^ (4::Int))
+    ncrits <- takeOne [1,1,2,2,2,3]
+    croom <- roomCCrits ncrits
    return $
        tToBTree "loadAmmoTest" $
            treePost 
-                [ croom
-                , door
-                , amrm & rmPmnts .:~ sps (PS 50 0) (PutFlIt (drumMag & itConsumables ?~ 90))
+                [ amrm & rmPmnts .:~ sps (PS 50 0) (PutFlIt (drumMag & itConsumables ?~ 90))
                , triggerDoorRoom i
                , wprm & rmPmnts .:~ sps (PS 50 0) (PutFlIt burstRifle)
                , triggerDoorRoom j
                , droom
+                , door
+                , croom
                ]

 putSingleLight :: Room -> State LayoutVars Room