Simplify item placement during generation

2021-04-25 13:21:24 +02:00
parent 30736997c3
commit 17986651c5
13 changed files with 95 additions and 95 deletions
@@ -8,6 +8,8 @@ import Dodge.RandomHelp
 import Dodge.Layout.Tree.Polymorphic
 import Dodge.Layout.Tree.Either
 import Dodge.Room.Procedural
+import Dodge.Room.Branch
+import Dodge.Room.Door
 import Dodge.Room.Boss
 import Dodge.Room.Link
 import Dodge.Room.Data
@@ -32,6 +34,7 @@ data Annotation g
    | OrAno [[Annotation g]]
    | SpecificRoom (State g (Tree (Either Room Room)))
    | BossAno Creature
+    | TreasureAno [Creature] Item

 addLock :: RandomGen g => Int -> Tree [Annotation g] -> State g (Tree [Annotation g])
 addLock i t = do