Tweak tutorial

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))
+    droom <- distributerRoom BulletAmmo (10 ^ (4::Int))
-    croom <- roomCCrits 1
+    ncrits <- takeOne [1,1,2,2,2,3]
+    croom <- roomCCrits ncrits
     return $
         tToBTree "loadAmmoTest" $
             treePost 
-                [ croom
+                [ amrm & rmPmnts .:~ sps (PS 50 0) (PutFlIt (drumMag & itConsumables ?~ 90))
-                , door
-                , 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