Test of lock and key system

src/Dodge/Floor.hs

@@ -5,6 +5,7 @@ module Dodge.Floor
     ) where
 import Geometry.Data
 import Dodge.Data
+import Dodge.LockAndKey
 import Dodge.Creature.State.Data
 import Dodge.Room
 import Dodge.Room
@@ -35,6 +36,7 @@ import qualified Data.IntMap.Strict as IM
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
     [[AnoApplyInt 0 startRoom]
+    , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]
     , [AnoApplyInt 2 room2]
     , [AnoApplyInt 1 lasSensorTurretTest]
 --    ,[ChainAnos