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

Add seagull sounds, remove random generator paramatricity for level gen

Browse Source
This commit is contained in:
justin
2022-05-19 17:56:45 +01:00
parent 40fc6792ae
commit 887dd547d9
10 changed files with 147 additions and 138 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Annotation/Data.hs
+9 -8
View File
@@ -7,22 +7,23 @@ import Dodge.Tree.Compose.Data
import Control.Monad.State
import Control.Lens
data Annotation g
import System.Random
data Annotation
= Lock Int
| Key Int
| Corridor
| AirlockAno
| OrAno [[Annotation g]]
| SpecificRoom (State g (SubCompTree Room))
| OrAno [[Annotation]]
| SpecificRoom (State StdGen (SubCompTree Room))
| BossAno Creature
| TreasureAno [Creature] [Item]
| AnoApplyInt Int (Int -> State g (SubCompTree Room))
| AnoNewInt (Int -> State g (SubCompTree Room))
| AnoApplyInt Int (Int -> State StdGen (SubCompTree Room))
| AnoNewInt (Int -> State StdGen (SubCompTree Room))
| PassthroughLockKeyLists Int
[(Int -> State g (SubCompTree Room), State g CombineType)]
[(CombineType, State g (SubCompTree Room))]
[(Int -> State StdGen (SubCompTree Room), State StdGen CombineType)]
[(CombineType, State StdGen (SubCompTree Room))]
-- | SetLabel Int (State g Room)
-- | UseLabel Int (State g Room)
| ChainAnos [[Annotation g]]
| ChainAnos [[Annotation]]
makeLenses ''Annotation