From c504d3c511d26d3c5e37553110053ece19ddfa40 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Wed, 1 Apr 2026 17:15:01 +0100
Subject: [PATCH] Tweak tutorial

---
 src/Dodge/Room/Tutorial.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/Dodge/Room/Tutorial.hs b/src/Dodge/Room/Tutorial.hs
index 296243153..d964bb883 100644
--- a/src/Dodge/Room/Tutorial.hs
+++ b/src/Dodge/Room/Tutorial.hs
@@ -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