Introduction

Happy Halloween! I love scary movies; I try to watch at least one scary movie every night for all of October. In this post, I wanted to use R to create scary sounds. A pet-peeve of mine in horror movies is that the scary sounds in them are always so cheesy. The ghosts whispering are always so, so obvious. I wanted to see if I could blend voices with other auditory stimuli.

In order to blend the voices, I am going to use ntile to create windows to transpose the background noise to a voice. To do that, first I’ll need to read in the audio files.

knitr::opts_chunk$set(echo = TRUE)
knitr::opts_chunk$set(warning = FALSE)
knitr::opts_chunk$set(message = FALSE)

library(seewave)
library(tuneR)
library(here)
library(tibble)
library(tidyverse)
library(fuzzyjoin)
library(fs)
library(mgcv)
library(data.table)
library(reticulate)
library(glue)
library(stringr)
library(splines)
library(broom)
library(lsa)

<script>
  audiojs.events.ready(function() {
    var as = audiojs.createAll();
  });
</script>

Helper Function

First I’ll set up a help function to embed the audio files.

get_clip <- function(str_search){
  
  dl_clips = dir_ls(here('content', 'post_data', 'sounds'), regexp = str_search)
  dl_clips = map(dl_clips, readWave)
}

embed_audio <- function(src, type = "audio/mpeg", attribute = "controls",
                     placeholder = "") {
                        
  sprintf("<audio %3$s>
               <source src='%1$s' type='%2$s'>
            </audio>", src, type, attribute)

}

The Sounds

Here’s a clip of someone (my wife) saying Michelle in a creepy voice

embed_audio('/post_data/sounds/MichelleShort.wav')

[1] “”

And here is a clip of a water running.

embed_audio('/post_data/sounds/WaterShort.wav')

[1] “”

Now I want to extract the wav files.

michelle = readWave(here::here('content', 'post_data', 'sounds', 'MichelleShort.wav'))
water = readWave(here::here('content', 'post_data', 'sounds', 'WaterShort.wav'))

Plotting

Again, I am going to use ntile to create windows to transpose the background noise to a voice. This process is best shown graphically.

df = tibble(time = 1:length(michelle@left), voice = michelle@left, 
             background = water@left[1:length(water@left)])

colors <- c("voice" = "blue", "background" = "red")

ggplot(df, aes(x = time)) +
  geom_point(aes(y = background, color = 'background')) + 
  geom_point(aes(y = voice,  color = 'voice')) +
  scale_color_manual(values = colors)  

I want to put the sounds on the same scale.

# put background on same scale as voice
df$background = rescale(df$background, lower = min(df$voice), upper = max(df$voice))

If I group by 5000 tiles and filter, I can more cleary see what I want to do.

df = df %>%
  mutate(
    tile = ntile(time, 2500)
  )


ggplot(df %>% filter(tile < 10), aes(x = time)) +
  geom_point(aes(y = background, color = 'background')) + 
  geom_point(aes(y = voice,  color = 'voice')) +
  scale_color_manual(values = colors) 

Using N-Tile

So I can now do group-mean centering to make the background noise fit the same pattern as the voice.

df = df  %>%
  group_by(tile) %>% 
  mutate(
    new_background = background + (mean(voice) - mean(background)),
  )

ggplot(df %>% filter(tile < 10), aes(x = time)) +
  geom_point(aes(y = new_background, color = 'background')) + 
  geom_point(aes(y = voice,  color = 'voice')) +
  scale_color_manual(values = colors) 

Another Helper

Now let’s write this all out to a helper function.

# this function will blend an overlay sound (a voice)
# with an underlay sound (a faucet, radiator, etc)
# ratio is the number we divided between the number of rows in the dataframe by in order
# to get the number of tiles; the lower the ratio number the more groups there are
# a ratio of 1 would reproduce the voice
blend_it <- function(overlay, underlay, ratio){
  
 df = tibble(time = 1:length(overlay@left), voice = overlay@left, 
             background = underlay@left[1:length(overlay@left)])
  # put background on same scale as voice
 df$background = rescale(df$background, lower = min(df$voice), upper = max(df$voice))

  df = df %>%
    mutate(
      tile = ntile(time, nrow(df)/ratio),
    )
  
  df = df  %>%
    group_by(tile) %>% 
    mutate(
      new_background = background + (mean(voice) - mean(background)),
  
    )

  Wave(left = df$new_background, 
          right = df$new_background, 
          samp.rate = 96000,
          bit = 24,
          pcm = TRUE)
}

New Sound

new_sound_faint = (blend_it(michelle, water, 20))
new_sound_less_faint = (blend_it(michelle, water, 15))
new_sound_middle = (blend_it(michelle, water, 10))
new_sound_high = (blend_it(michelle, water, 5))

writeWave(new_sound_faint, here::here('content', 'post_data', 'sounds', 'MichelleFaint.wav'))
writeWave(new_sound_less_faint, here::here('content', 'post_data', 'sounds', 'MichelleLessFaint.wav'))
writeWave(new_sound_middle, here::here('content', 'post_data', 'sounds', 'MichelleMiddle.wav'))
writeWave(new_sound_high, here::here('content', 'post_data', 'sounds', 'MichelleHigh.wav'))

embed_audio('/post_data/sounds/finished/MichelleFaint.wav', placeholder = 'Faint')

[1] “”

embed_audio('/post_data/sounds/finished/MichelleLessFaint.wav', placeholder = 'Less Faint')

[1] “”

embed_audio('/post_data/sounds/finished/MichelleMiddle.wav', placeholder = 'Middle')

[1] “”

embed_audio('/post_data/sounds/finished/MichelleHigh.wav', placeholder = 'High')

[1] “”

More Sounds

Now I want to get all the audio files and write up a bunch of wav files.

michelle = get_clip('Michelle.*') %>% pluck(2)
save = get_clip('Save.*') %>% pluck(2)
kill = get_clip('Kill.*') %>% pluck(1)
who = get_clip('Who.*') %>% pluck(1)
murderer = get_clip('Murder.*') %>% pluck(2)
adore = get_clip('Adore.*') %>% pluck(1)

chimes = get_clip('Chimes.*') %>% pluck(1)
furnace = get_clip('Furnace.*') %>% pluck(1)
ac = get_clip('AC.*') %>% pluck(1)
radiator = get_clip('Radiator.*') %>% pluck(1)
rain = get_clip('Rain.*') %>% pluck(1)
water = get_clip('Water.*') %>% pluck(7)

michelle_wav = extractWave(michelle, from = .5, to = 2.5, xunit = "time")
adore_wav = extractWave(adore, from = .5, to = 2.5, xunit = "time")
save_wav = extractWave(save, from = .5, to = 2.5, xunit = "time")
murderer_wav = extractWave(murderer, from = .5, to = 2.5, xunit = "time")
kill_wav = extractWave(kill, from = .5, to = 2.5, xunit = "time")
who_wav = extractWave(who, from = .5, to = 2.5, xunit = "time")

water_wav = extractWave(water, from = .5, to = 2.5, xunit = "time")
radiator_wav = extractWave(radiator, from = .5, to = 2.5, xunit = "time")
ac_wav = extractWave(ac, from = .5, to = 2.5, xunit = "time")
furnace_wav = extractWave(furnace, from = .5, to = 2.5, xunit = "time")
rain_wav = extractWave(rain, from = .5, to = 2.5, xunit = "time")

writeWave(blend_it(michelle_wav, water_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleWaterFaint.wav'))
writeWave(blend_it(michelle_wav, water_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleWaterLessFaint.wav'))
writeWave(blend_it(michelle_wav, water_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleWaterHigh.wav'))

writeWave(blend_it(adore_wav, water_wav, 40), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreWaterFaint.wav'))
writeWave(blend_it(adore_wav, water_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreWaterLessFaint.wav'))
writeWave(blend_it(adore_wav, water_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreWaterHigh.wav'))

writeWave(blend_it(save_wav, water_wav, 30), here::here('content', 'post_data', 'sounds', 'finished', 'SaveWaterFaint.wav'))
writeWave(blend_it(save_wav, water_wav, 15), here::here('content', 'post_data', 'sounds', 'finished', 'SaveWaterLessFaint.wav'))
writeWave(blend_it(save_wav, water_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'SaveWaterHigh.wav'))

writeWave(blend_it(murderer_wav, water_wav, 25), here::here('content', 'post_data', 'sounds', 'finished', 'MurderWaterFaint.wav'))
writeWave(blend_it(murderer_wav, water_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MurderWaterLessFaint.wav'))
writeWave(blend_it(murderer_wav, water_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MurderWaterHigh.wav'))

writeWave(blend_it(kill_wav, water_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'KillWaterFaint.wav'))
writeWave(blend_it(kill_wav, water_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'KillWaterLessFaint.wav'))
writeWave(blend_it(kill_wav, water_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'KillWaterHigh.wav'))


writeWave(blend_it(michelle_wav, radiator_wav, 15), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleRadiatorFaint.wav'))
writeWave(blend_it(michelle_wav, radiator_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleRadiatorLessFaint.wav'))
writeWave(blend_it(michelle_wav, radiator_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleRadiatorHigh.wav'))

writeWave(blend_it(adore_wav, radiator_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreRadiatorFaint.wav'))
writeWave(blend_it(adore_wav, radiator_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreRadiatorLessFaint.wav'))
writeWave(blend_it(adore_wav, radiator_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreRadiatorrHigh.wav'))

writeWave(blend_it(save_wav, radiator_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'SaveRadiatorFaint.wav'))
writeWave(blend_it(save_wav, radiator_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'SaveRadiatorLessFaint.wav'))
writeWave(blend_it(save_wav, radiator_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'SaveRadiatorHigh.wav'))

writeWave(blend_it(murderer_wav, radiator_wav, 15), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererRadiatorFaint.wav'))
writeWave(blend_it(murderer_wav, radiator_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererRadiatorLessFaint.wav'))
writeWave(blend_it(murderer_wav, radiator_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererRadiatorWaterHigh.wav'))

writeWave(blend_it(kill_wav, radiator_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'KillRadiatorFaint.wav'))
writeWave(blend_it(kill_wav, radiator_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'KillRadiatorLessFaint.wav'))
writeWave(blend_it(kill_wav, radiator_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'KillRadiatorHigh.wav'))

writeWave(blend_it(who_wav, radiator_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'WhoRadiatorFaint.wav'))
writeWave(blend_it(who_wav, radiator_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'WhoRadiatorLessFaint.wav'))
writeWave(blend_it(who_wav, radiator_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'WhoRadiatorHigh.wav'))

writeWave(blend_it(michelle_wav, ac_wav, 15), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleACFaint.wav'))
writeWave(blend_it(michelle_wav, ac_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleACLessFaint.wav'))
writeWave(blend_it(michelle_wav, ac_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleACHigh.wav'))

writeWave(blend_it(adore_wav, ac_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreACFaint.wav'))
writeWave(blend_it(adore_wav, ac_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreACLessFaint.wav'))
writeWave(blend_it(adore_wav, ac_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreACHigh.wav'))

writeWave(blend_it(save_wav, ac_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'SaveACFaint.wav'))
writeWave(blend_it(save_wav, ac_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'SaveACLessFaint.wav'))
writeWave(blend_it(save_wav, ac_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'SaveACHigh.wav'))

writeWave(blend_it(murderer_wav, ac_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererACFaint.wav'))
writeWave(blend_it(murderer_wav, ac_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererACLessFaint.wav'))
writeWave(blend_it(murderer_wav, ac_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererACHigh.wav'))

writeWave(blend_it(kill_wav, ac_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'KillACFaint.wav'))
writeWave(blend_it(kill_wav, ac_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'KillACLessFaint.wav'))
writeWave(blend_it(kill_wav, ac_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'KillACHigh.wav'))

writeWave(blend_it(michelle_wav, furnace_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleFurnaceFaint.wav'))
writeWave(blend_it(michelle_wav, furnace_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleFurnaceLessFaint.wav'))
writeWave(blend_it(michelle_wav, furnace_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleFurnaceHigh.wav'))

writeWave(blend_it(adore_wav, furnace_wav, 40), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreFurnaceFaint.wav'))
writeWave(blend_it(adore_wav, furnace_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreFurnaceLessFaint.wav'))
writeWave(blend_it(adore_wav, furnace_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreFurnaceHigh.wav'))

writeWave(blend_it(save_wav, furnace_wav, 30), here::here('content', 'post_data', 'sounds', 'finished', 'SaveFurnaceFaint.wav'))
writeWave(blend_it(save_wav, furnace_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'SaveFurnaceLessFaint.wav'))
writeWave(blend_it(save_wav, furnace_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'SaveFurnaceHigh.wav'))

writeWave(blend_it(murderer_wav, furnace_wav, 15), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererFurnaceFaint.wav'))
writeWave(blend_it(murderer_wav, furnace_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererFurnaceLessFaint.wav'))
writeWave(blend_it(murderer_wav, furnace_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererFurnaceHigh.wav'))

writeWave(blend_it(kill_wav, furnace_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'KillFurnaceFaint.wav'))
writeWave(blend_it(kill_wav, furnace_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'KillFurnaceLessFaint.wav'))
writeWave(blend_it(kill_wav, furnace_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'KillFurnaceHigh.wav'))

writeWave(blend_it(michelle_wav, rain_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleRainFaint.wav'))
writeWave(blend_it(michelle_wav, rain_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleRainLessFaint.wav'))
writeWave(blend_it(michelle_wav, rain_wav, 2.5), here::here('content', 'post_data', 'sounds', 'finished', 'MichelleRainHigh.wav'))

writeWave(blend_it(adore_wav, rain_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreRainFaint.wav'))
writeWave(blend_it(adore_wav, rain_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreRainLessFaint.wav'))
writeWave(blend_it(adore_wav, rain_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'AdoreRainHigh.wav'))

writeWave(blend_it(save_wav, rain_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'SaveRainFaint.wav'))
writeWave(blend_it(save_wav, rain_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'SaveRainLessFaint.wav'))
writeWave(blend_it(save_wav, rain_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'SaveRainHigh.wav'))

writeWave(blend_it(murderer_wav, rain_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererRainFaint.wav'))
writeWave(blend_it(murderer_wav, rain_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererRainLessFaint.wav'))
writeWave(blend_it(murderer_wav, rain_wav, 2.5), here::here('content', 'post_data', 'sounds', 'finished', 'MurdererRainHigh.wav'))

writeWave(blend_it(kill_wav, rain_wav, 15), here::here('content', 'post_data', 'sounds', 'finished', 'KillRainFaint.wav'))
writeWave(blend_it(kill_wav, rain_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'KillRainLessFaint.wav'))
writeWave(blend_it(kill_wav, rain_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'KillRainHigh.wav'))

writeWave(blend_it(who_wav, rain_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'WhoRainFaint.wav'))
writeWave(blend_it(who_wav, rain_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'WhoRainLessFaint.wav'))
writeWave(blend_it(who_wav, rain_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'WhoRainHigh.wav'))


writeWave(blend_it(who_wav, ac_wav, 40), here::here('content', 'post_data', 'sounds', 'finished', 'WhoACFaint.wav'))
writeWave(blend_it(who_wav, ac_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'WhoACLessFaint.wav'))
writeWave(blend_it(who_wav, ac_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'WhoACHigh.wav'))

writeWave(blend_it(who_wav, water_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'WhoWaterFaint.wav'))
writeWave(blend_it(who_wav, water_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'WhoWaterLessFaint.wav'))
writeWave(blend_it(who_wav, water_wav, 5), here::here('content', 'post_data', 'sounds', 'finished', 'WhoWaterHigh.wav'))

writeWave(blend_it(who_wav, furnace_wav, 40), here::here('content', 'post_data', 'sounds', 'finished', 'WhoFurnaceFaint.wav'))
writeWave(blend_it(who_wav, furnace_wav, 20), here::here('content', 'post_data', 'sounds', 'finished', 'WhoFurnaceLessFaint.wav'))
writeWave(blend_it(who_wav, furnace_wav, 10), here::here('content', 'post_data', 'sounds', 'finished', 'WhoFurnaceHigh.wav'))

Lots of Sounds!

And now I can display them all

embed_audio('/post_data/sounds/finished/MichelleWaterFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleWaterLessFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleWaterHigh.wav')

embed_audio('/post_data/sounds/finished/AdoreWaterFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreWaterLessFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreWaterHigh.wav')

embed_audio('/post_data/sounds/finished/SaveWaterFaint.wav')

embed_audio('/post_data/sounds/finished/SaveWaterLessFaint.wav')

embed_audio('/post_data/sounds/finished/SaveWaterHigh.wav')

embed_audio('/post_data/sounds/finished/MurderWaterFaint.wav')

embed_audio('/post_data/sounds/finished/MurderWaterLessFaint.wav')

embed_audio('/post_data/sounds/finished/MurderWaterHigh.wav')

embed_audio('/post_data/sounds/finished/KillWaterFaint.wav')

embed_audio('/post_data/sounds/finished/KillWaterLessFaint.wav')

embed_audio('/post_data/sounds/finished/KillWaterHigh.wav')

embed_audio('/post_data/sounds/finished/MichelleRadiatorFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleRadiatorLessFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleRadiatorHigh.wav')

embed_audio('/post_data/sounds/finished/AdoreRadiatorFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreRadiatorLessFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreRadiatorrHigh.wav')

embed_audio('/post_data/sounds/finished/SaveRadiatorFaint.wav')

embed_audio('/post_data/sounds/finished/SaveRadiatorLessFaint.wav')

embed_audio('/post_data/sounds/finished/SaveRadiatorHigh.wav')

embed_audio('/post_data/sounds/finished/MurdererRadiatorFaint.wav')

embed_audio('/post_data/sounds/finished/MurdererRadiatorLessFaint.wav')

embed_audio('/post_data/sounds/finished/MurdererRadiatorWaterHigh.wav')

embed_audio('/post_data/sounds/finished/KillRadiatorFaint.wav')

embed_audio('/post_data/sounds/finished/KillRadiatorLessFaint.wav')

embed_audio('/post_data/sounds/finished/KillRadiatorHigh.wav')

embed_audio('/post_data/sounds/finished/MichelleACFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleACLessFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleACHigh.wav')

embed_audio('/post_data/sounds/finished/AdoreACFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreACLessFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreACHigh.wav')

embed_audio('/post_data/sounds/finished/SaveACFaint.wav')

embed_audio('/post_data/sounds/finished/SaveACLessFaint.wav')

embed_audio('/post_data/sounds/finished/SaveACHigh.wav')

embed_audio('/post_data/sounds/finished/MurdererACFaint.wav')

embed_audio('/post_data/sounds/finished/MurdererACLessFaint.wav')

embed_audio('/post_data/sounds/finished/MurdererACHigh.wav')

embed_audio('/post_data/sounds/finished/KillACFaint.wav')

embed_audio('/post_data/sounds/finished/KillACLessFaint.wav')

embed_audio('/post_data/sounds/finished/KillACHigh.wav')

embed_audio('/post_data/sounds/finished/MichelleFurnaceFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleFurnaceLessFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleFurnaceHigh.wav')

embed_audio('/post_data/sounds/finished/AdoreFurnaceFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreFurnaceLessFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreFurnaceHigh.wav')

embed_audio('/post_data/sounds/finished/SaveFurnaceFaint.wav')

embed_audio('/post_data/sounds/finished/SaveFurnaceLessFaint.wav')

embed_audio('/post_data/sounds/finished/SaveFurnaceHigh.wav')

embed_audio('/post_data/sounds/finished/MurdererFurnaceFaint.wav')

embed_audio('/post_data/sounds/finished/MurdererFurnaceLessFaint.wav')

embed_audio('/post_data/sounds/finished/MurdererFurnaceHigh.wav')

embed_audio('/post_data/sounds/finished/KillFurnaceFaint.wav')

embed_audio('/post_data/sounds/finished/KillFurnaceLessFaint.wav')

embed_audio('/post_data/sounds/finished/KillFurnaceHigh.wav')

embed_audio('/post_data/sounds/finished/MichelleRainFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleRainLessFaint.wav')

embed_audio('/post_data/sounds/finished/MichelleRainHigh.wav')

embed_audio('/post_data/sounds/finished/AdoreRainFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreRainLessFaint.wav')

embed_audio('/post_data/sounds/finished/AdoreRainHigh.wav')

embed_audio('/post_data/sounds/finished/SaveRainFaint.wav')

embed_audio('/post_data/sounds/finished/SaveRainLessFaint.wav')

embed_audio('/post_data/sounds/finished/SaveRainHigh.wav')

embed_audio('/post_data/sounds/finished/MurdererRainFaint.wav')

embed_audio('/post_data/sounds/finished/MurdererRainLessFaint.wav')

embed_audio('/post_data/sounds/finished/MurdererRainHigh.wav')

embed_audio('/post_data/sounds/finished/KillRainFaint.wav')

embed_audio('/post_data/sounds/finished/KillRainLessFaint.wav')

embed_audio('/post_data/sounds/finished/KillRainHigh.wav')

embed_audio('/sounds/choking_laughing.wav')