Start adding machines for storing/distributing items

src/Dodge/Room/Tutorial.hs

@@ -1,6 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.Room.Tutorial where
 
+import Dodge.Data.AmmoType
 import Dodge.Room.Path
 import Dodge.Room.Pillar
 import Dodge.Room.Boss
@@ -49,12 +50,20 @@ tutAnoTree = do
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , tToBTree "sdr" . return . cleatOnward <$> 
+                (shuffleLinks =<< distributerRoom BulletAmmo 10000000)
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
         --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
-        , tToBTree "sdr" . return . cleatOnward <$> tanksPipesRoom
+--        , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []
+        , return $ tToBTree "door" $ return $ cleatOnward door
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , tToBTree "sdr" . return . cleatOnward <$> 
+            (shuffleLinks =<< tanksPipesRoom)
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "door" $ return $ cleatOnward door
         , tutHub
         , tutLight
         , tutDrop