Damage sense through immediate damage to machines

src/Dodge/Room/Tutorial.hs

@@ -1,6 +1,9 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.Room.Tutorial where
 
+import Data.Maybe
+import Dodge.LockAndKey
+import Dodge.Room.SensorDoor
 import Dodge.Room.Room
 import Dodge.Data.AmmoType
 import Dodge.Room.Path
@@ -51,6 +54,14 @@ tutAnoTree = do
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
         , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+            , passthroughLockKeyLists
+                    [(sensorRoomRunPast ElectricSensor, takeOne 
+                        [-- CRAFT (ENERGYBALLCRAFT TeslaBall) , 
+                        HELD SPARKGUN])]
+                    itemRooms
+        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
         , tToBTree "sdr" . return . cleatOnward <$> 
                 (shuffleLinks =<< distributerRoom BulletAmmo 100000)
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
@@ -505,3 +516,18 @@ tutorialMessage1 i =
 --           , makeTermLine "        AND NEARBY OBJECTS WILL BE DISPLAYED"
 --           , makeTermLine "--------------------------------------------"
 --           ]
+passthroughLockKeyLists ::
+        [(Int -> State LayoutVars (MetaTree Room String), State LayoutVars ItemType)]
+        -> [(ItemType, State LayoutVars (MetaTree Room String))]
+        -> State LayoutVars (MetaTree Room String)
+passthroughLockKeyLists ls ks = do
+        i <- nextLayoutInt
+        (functionlockroom, randomitemidentity) <- takeOne ls
+        lr <- functionlockroom i
+        ii <- randomitemidentity
+        keyroom <- fromJust $ lookup ii ks
+        return $
+            MTree
+                ("PassthroughLockKeyLists-" ++ show ii)
+                (NodeMTree $ MTree "RassThroughLockKeyLists" (NodeMTree lr) [MBranch (toLabel i) keyroom])
+                []