Add seagull sounds, remove random generator paramatricity for level gen

src/Dodge/Floor.hs

@@ -35,7 +35,7 @@ import System.Random
 --import Data.Maybe
 --import qualified Data.IntMap.Strict as IM
 
-initialAnoTree :: RandomGen g => Tree [Annotation g]
+initialAnoTree :: Tree [Annotation]
 initialAnoTree = padSucWithDoors $ treeFromTrunk 
     [[AnoApplyInt 0 startRoom]
     , [SpecificRoom $ return . return . UseAll $ roomRectAutoLinks 400 400
@@ -92,6 +92,6 @@ initialAnoTree = padSucWithDoors $ treeFromTrunk
     [SpecificRoom $ fmap (pure . UseAll) (telRoomLev 1)]
 
 {- | A test level tree. -}
-initialRoomTree :: RandomGen g => State g (Tree Room)
+initialRoomTree :: State StdGen (Tree Room)
 initialRoomTree = do
     expandTree <$> mapM anoToRoomTree initialAnoTree