Add looping sound, add sound to terminals

src/Dodge/Annotation.hs

@@ -45,12 +45,6 @@ roomThenCorridor theRoom = fmap
 anoToRoomTree :: RandomGen g => [Annotation g] -> State g (SubCompTree Room)
 anoToRoomTree anos = case anos of
     [AnoApplyInt i f] -> f i
---    [SetLabel i randrm] -> do
---        rm <- randrm
---        return . singleUseAll $ rm & rmLabel ?~ i
---    [UseLabel i randrm] -> do
---        rm <- randrm
---        return $ singleUseAll $ rm & rmTakeFrom ?~ i
     [ChainAnos ass] -> do
         rms <- mapM anoToRoomTree ass
         return $ chainUses rms
@@ -64,12 +58,10 @@ anoToRoomTree anos = case anos of
         a <- takeOne as
         anoToRoomTree a
     [Corridor] -> pure . UseAll <$> shuffleLinks corridor
-    [AirlockAno] -> airlock >>=  roomThenCorridor
     [FirstWeapon] -> do
         branchWP <- branchRectWith weaponRoom
         blockedC <- longBlockedCorridor 3
         join $ takeOne $ return (passUntilUseAll branchWP [blockedC]) : replicate 5 weaponRoom
-    [EndRoom] -> fmap (pure . UseAll) (telRoomLev 1)
     (SpecificRoom rt:_) -> rt
     (BossAno cr : _) -> do
         br <- bossRoom cr