Test of lock and key system

2021-11-22 23:54:58 +00:00
parent 05e1307336
commit 5ab5be3087
11 changed files with 84 additions and 20 deletions
@@ -19,8 +19,11 @@ data Annotation g
    | BossAno Creature
    | TreasureAno [Creature] [Item]
    | AnoApplyInt Int (Int -> State g (SubCompTree Room))
-    | SetLabel Int (State g Room)
-    | UseLabel Int (State g Room)
+    | PassthroughLockKeyLists Int 
+        [(Int -> State g (SubCompTree Room), State g ItemIdentity)]
+        [(ItemIdentity, State g (SubCompTree Room))]
+--    | SetLabel Int (State g Room)
+--    | UseLabel Int (State g Room)
    | ChainAnos [[Annotation g]]

 makeLenses ''Annotation