justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Commit mid big tree composing change

Browse Source
This commit is contained in:
justin
2022-06-09 21:25:22 +01:00
parent 8fb80f9691
commit 3edc7a0a58
20 changed files with 263 additions and 248 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Annotation/Data.hs
+7 -6
View File
@@ -3,6 +3,7 @@
module Dodge.Annotation.Data where
import Dodge.Data
--import Dodge.Room
import TreeHelp
import Dodge.Tree.Compose.Data
import Control.Monad.State
@@ -14,16 +15,16 @@ data Annotation
| Corridor
| AirlockAno
| OrAno [[Annotation]]
| SpecificRoom (State StdGen (LabSubCompTree Room))
| SpecificRoom (State StdGen (LabTree Room))
| BossAno Creature
| TreasureAno [Creature] [Item]
| AnoApplyInt Int (Int -> State StdGen (LabSubCompTree Room))
| AnoNewInt (Int -> State StdGen (SubCompTree Room))
| AnoApplyInt Int (Int -> State StdGen (LabTree Room))
| AnoNewInt (Int -> State StdGen (Tree Room))
| PassthroughLockKeyLists Int
[(Int -> State StdGen (LabSubCompTree Room), State StdGen ItemBaseType)]
[(ItemBaseType, State StdGen (LabSubCompTree Room))]
[(Int -> State StdGen (LabTree Room), State StdGen ItemBaseType)]
[(ItemBaseType, State StdGen (LabTree Room))]
-- | SetLabel Int (State g Room)
-- | UseLabel Int (State g Room)
-- | useLabel Int (State g Room)
| ChainAnos [[Annotation]]
makeLenses ''Annotation