Fix enemy stride/footsteps

src/Dodge/Room/Room.hs

@@ -399,9 +399,9 @@ critsRoom :: Int -> State LayoutVars (Tree Room)
 critsRoom i =
     join $
         takeOne
---            [ return <$> roomCCrits i
---            , return <$> critsPillarRoom i
-            [ return <$> glassSwitchBackCrits i
+            [ return <$> roomCCrits i
+            , return <$> critsPillarRoom i
+            , return <$> glassSwitchBackCrits i
             ]
 
 --    cor <- shuffleLinks corridor

src/Dodge/Room/Tutorial.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.Tutorial where
 
+--import Dodge.Room.LongDoor
 import Dodge.Layout
 import Dodge.Item.Held.Utility
 import Control.Monad
@@ -42,6 +43,10 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
+--        , corDoor
+--        , tToBTree "t" . return . cleatOnward <$> slowDoorRoom
+--        , corDoor
+--        , corDoor
         , tutHub
         , tutLight
         , tutDrop