Start to migrate all old level generation to MetaTrees

2022-06-12 19:31:57 +01:00
parent 617765d5d4
commit dbba78ef05
9 changed files with 57 additions and 93 deletions
@@ -3,22 +3,17 @@
 module Dodge.Annotation.Data where
 import Dodge.Data
 --import Dodge.Room
-import TreeHelp
+--import TreeHelp
 import Dodge.Tree.Compose.Data

 import Control.Monad.State
 import Control.Lens
 import System.Random
 data Annotation
-    = -- Corridor
--    | AirlockAno
-    PadWith Room Annotation
+    = ModifyTree (MetaTree Room -> MetaTree Room) Annotation
    | OnwardList [Annotation]
--    | IntAnno Int (Int -> Annotation)
    | IntAnno (Int -> Annotation)
--    | OrAno [[Annotation]]
    | SpecificRoom (State StdGen (MetaTree Room))
-    | AnoApplyInt Int (Int -> State StdGen (LabTree Room))
    | PassthroughLockKeyLists
        [(Int -> State StdGen (MetaTree Room), State StdGen ItemBaseType)]
        [(ItemBaseType, State StdGen (MetaTree Room))]