Allow for bullet drag

2021-12-02 18:29:46 +00:00
parent 85ededc158
commit 8b8d75b016
35 changed files with 362 additions and 228 deletions
@@ -20,8 +20,8 @@ data Annotation g
    | TreasureAno [Creature] [Item]
    | AnoApplyInt Int (Int -> State g (SubCompTree Room))
    | PassthroughLockKeyLists Int 
-        [(Int -> State g (SubCompTree Room), State g ItemIdentity)]
-        [(ItemIdentity, State g (SubCompTree Room))]
+        [(Int -> State g (SubCompTree Room), State g CombineType)]
+        [(CombineType, State g (SubCompTree Room))]
 --    | SetLabel Int (State g Room)
 --    | UseLabel Int (State g Room)
    | ChainAnos [[Annotation g]]