Make more sounds positional

2021-04-23 17:27:32 +02:00
parent ffe4a8083b
commit 4c611ba4aa
4 changed files with 75 additions and 63 deletions
@@ -31,7 +31,7 @@ import System.Random
 roomTreex :: RandomGen g => State g (Maybe [Room])
 roomTreex = do
    struct' <- aTreeStrut
-    let struct = Node [EndRoom] []
+    let struct = treePost [[SpecificRoom $ fmap (pure . Right) pistolerRoom]] [EndRoom]
    let t' = padCorridors struct
        t = treeTrunk 
                [[StartRoom]