#! /bin/bash

regions="$(wget -q -O - https://dialectsarchive.com/dialects-accents)"

regions="$(echo "$regions" | sed -n -e '/Select a continent/,/clear/{ /Select a continent/d; /clear/d; p;  }' | grep -io --color=never 'https[^"]*')"

for region in $regions
do
    countries="$(wget -q -O - $region)"

    countries="$(echo "$countries" | sed -n -e '/Please select a/,/clear/{ /Please select a/d; /clear/d; p;  }' | grep -io --color=never 'https[^"]*')"

    for country in $countries
    do
        dialects="$(wget -q -O - $country)"

        dialects="$(echo "$dialects" | sed -n -e '/Please select a/,/clear/{ /Please select a/d; /clear/d; p;  }' | grep -io --color=never 'https[^"]*')"

        dir="$(basename $country)"

        mkdir -p "$dir"

        for dialect in $dialects
        do
            dialect="$(wget -q -O - $dialect)"

            dialect="$(echo $dialect | grep -io 'https[^"]*\.mp3' | head -1)"

            file="$(basename $dialect)"

            echo "Downloading $file to $dir"
            wget -q -O "$dir/$file" $dialect
        done
    done
done