Add looping sound, add sound to terminals

2022-03-16 09:23:17 +00:00
parent 5623747b01
commit 5aeb04ba05
24 changed files with 156 additions and 133 deletions
@@ -94,7 +94,7 @@ initialAnoTree = padSucWithCorridors $ treeFromTrunk
 --    ,[TreasureAno [addArmour autoCrit,addArmour autoCrit] [launcher]]
    ] 
    $ treeFromPost [[Corridor,SpecificRoom $ pure . UseAll <$> randomFourCornerRoom []]] 
-                                [EndRoom]
+    [SpecificRoom $ fmap (pure . UseAll) (telRoomLev 1)]

 {- | A test level tree. -}
 initialRoomTree :: RandomGen g => State g (Tree Room)