batchgemist.sh

#!/bin/sh
echo off
clear

# BatchGemist versie 1.6
# 
#   Veranderingslogboek:
#     xx-xx-2017 v1.6:
#       - 
#     26-10-2016 v1.51:
#       - Ondersteuning voor Collegerama TU Delft verwijderd i.v.m. copyright van het
#         beeldmateriaal.
#       - NPO extractor: Spaties in video-url van videofragmenten verholpen, waardoor ze nu wel
#         zijn te downloaden / af te spelen. Extra beschikbaarheids controle toegevoegd voor
#         videofragmenten die uiteindelijk toch niet beschikbaar zijn.
#     16-10-2016 v1.5:
#       [Batch code]
#         - Onder :Input waar mogelijk 'GOTO'-commando's onderaan in IF-statement ondergebracht.
#         - :Formats sterk geoptimaliseerd door veel van de speciale queries onderaan bij de
#           desbetreffende extractors onder te brengen.
#         - Onder :Task extra IF-statement toegevoegd voor de twee extractors die Youtube-urls
#           teruggeven. Omdat mijn script het downloaden van Youtube-urls niet ondersteunt, wordt
#           deze vraag in dit geval overgeslagen.
#         - Onder :Task extra IF-statement toegevoegd voor oude 'Silverlight' videostreams, omdat
#           deze geen fragment selectie in de video-url ondersteunen.
#         - Aan :Download de mogelijkheid toegevoegd om ondertiteling van de NPO te muxen.
#         - Onder :Download de FFMpeg-commando '-user_agent', om rtlXL's progressieve videostreams
#           te kunnen downloaden, verwijderd. Voor andere websites gaf dit teveel problemen. Omdat
#           bij rtlXL's progressieve videostreams het nog wel eens gebeurd dat het beeld en geluid
#           niet synchroon lopen, heeft het downloaden van de dynamische videostreams sowieso de
#           voorkeur.
#         - Door betere tekencodering detectie in Xidel 0.9.4. is 'CHCP' overbodig geworden.
#         - Waar nodig extra 'ENDLOCAL'-commando's toegevoegd, omdat in een bepaalde situatie niet
#           alle variabelen waren gereset.
#       [Xidel queries]
#         - Queries geüpdatet in lijn met versie 0.9.4.
#         - ALLE websites opnieuw nagelopen!
#         - Formaat selectie verbeterd: Bij iedere extractor is de volgorde van beschikbare
#           formaten nu eerst progressief en dan dynamisch. En per variant is de kwaliteit
#           oplopend.
#         - Bestandsnaamgeving verbeterd, waardoor aanhalings- en uitroeptekens nu wel goed worden
#           verwerkt in de bestandsnaam.
#         - NPO_meta extractor uitgebreide bestandsnaamgeving gegeven. Hierdoor zijn de
#           naar-NPO_meta-verwijzende-extractors alleen nog verantwoordelijk voor het achterhalen
#           van de programma ID en eventueel de datum.
#         - NPO extractor: Sterk geoptimaliseerd en teruggebracht tot twee queries. Extra
#           beschikbaarheids controles toegevoegd. Alleen de beveiligde progressieve
#           videofragmenten geen nu nog door de resolver. 'Silverlight' videostream controle
#           voorheen onder :Formats nu geïntegreerd.
#         - rtlXL extractor: De bestandsnaamgeving combineert nu de originele datum en niet die
#           van de herhaling. Extra controle toegevoegd voor als de 720p progressieve videostream
#           niet beschikbaar is.
#         - Kijk extractor: Gerepareerd en extra beschikbaarheids controle toegevoegd.
#         - NPO Doc extractor hernoemt naar 2Doc.
#         - Schooltv extractor: Gerepareerd.
#         - NOS extractor: Gerepareerd en ondersteuning toegevoegd voor artikelen met meerdere
#           video's.
#         - EenVandaag extractor: Ondersteuning toegevoegd voor complete uitzendingen.
#         - 101TV extractor: Gerepareerd en ondersteuning toegevoegd voor Youtube-urls.
#         - Alle regionale omroep extractors: Gerepareerd, sterk geoptimaliseerd en bijna allemaal
#           ondersteunen ze nu livestreams, uitzendingen en artikelen al dan niet met meerdere
#           video's.
#         - Telegraaf extractor: Gerepareerd en ondersteuning toegevoegd voor dynamische
#           videostreams.
#         - Nickelodeon: De bestandsnaamgeving combineert nu de originele datum en niet die van de
#           herhaling.
#         - Ketnet extractor: De bestandsnaamgeving combineert nu een datum.
#         - Disney extractor: Gerepareerd en samengevoegd. De bestandsnaamgeving combineert nu een
#           datum. Beschikbaarheids controle voorheen onder :Formats nu geïntegreerd.
#         - Cartoon Network extractor: De bestandsnaamgeving combineert nu een datum.
#           Beschikbaarheids controle voorheen onder :Formats nu geïntegreerd.
#         - Dumpert extractor: Youtube-url controle voorheen onder :Formats nu geïntegreerd.
#         - Comedy Central extractor: Bestandsnaamgeving verbeterd.
#         - Funny Clips extractor: De bestandsnaamgeving combineert nu een datum.
#         - MTV extractor: Bestandsnaamgeving verbeterd.
#         - Tweakers extractor: Gerepareerd, bestandsnaamgeving verbeterd en ondersteuning
#           toegevoegd voor artikelen/reviews met meerdere video's.
#         - Collegerama TU Delft extractor: Ondersteuning toegevoegd voor colleges met meerdere
#           video's.
#         - Ondersteuning toegevoegd voor: Andere Tijden, Willem Wever, NOS Livestreams,
#           101TV Livestream, http://rtl.nl/#!/... en FOX Sports.
#     25-04-2016 v1.41:
#       - Gerepareerd: rtlXL 720p progressieve videostream, niet meer werkende video-url in Disney
#         videoclips extractor en naam video in Disney- en Cartoon Network extractor.
#       - :Download opgeschoond.
#     30-03-2016 v1.4:
#       - Xidel queries geüpdatet in lijn met versie 0.9.1.20160322.
#       - Disney extractor geoptimaliseerd en is nu af. Tijdelijke oplossing aan :Formats
#         toegevoegd voor het downloaden van de progressieve videostreams.
#         LET OP: voor het downloaden van de dynamische videostreams is FFMpeg ná 16 maart nodig!
#       - Ondersteuning toegevoegd voor: Cartoon Network.
#       - Samenvoeging programma-url controle NPO en NPOLive teniet gedaan en een aparte regel
#         voor de livestream van NPO 3 toegevoegd, omdat deze voor problemen bleef zorgen.
#         Hierdoor :NPO_meta en :NPOLive_meta ook geüpdatet.
#       - NOS- en 101TV extractor geoptimaliseerd door beter inzicht in Xidel's mogelijkheden.
#       - NPO extractor geoptimaliseerd en, dankzij een nieuwe versie van Xidel, uitgebreid met
#         een extra beschikbaarheids controle. Ook procenttekens in gecodeerde video-urls worden
#         nu goed weergegeven.
#       - rtlXL extractor gerepareerd: Samenstelling video-url progressieve videostreams. Extra
#         FFMpeg parameter aan :Download toegevoegd voor het kunnen downloaden van de dynamische
#         videostreams.
#       - Kijk extractor uitgebreid met ondersteuning voor progressieve videostreams.
#       - Gerepareerd: Niet meer werkende Tweakers extractor, kleine foutjes in :Formats,
#         :Download en in de AT5 Gemist-, RTV Utrecht Gemist- en RTV Utrecht Nieuws extractor.
#     10-02-2016 v1.3:
#       - Ondersteuning toegevoegd voor: NOS, 101TV, RTL Nieuws, alle regionale omroepen(!) en
#         Disney uitzendingen.
#         LET OP: Ondersteuning voor Disney uitzendingen is nog in ontwikkeling!
#       - Alle andere websites opnieuw nagelopen, sterk geoptimaliseerd, ondersteuning uitgebreid
#         en waar mogelijk bij :Input ondergebracht.
#       - NPO extractor grondig aangepakt waardoor nog meer video's worden ondersteund, waaronder
#         beveiligde progressieve videofragmenten. Op nos.nl, waar ze ook voorkomen, worden ze ook
#         ondersteund.
#       - Programma-url controle van NPO en NPOLive samengevoegd met prid-check, vanwege de
#         livestream van NPO 3, die als enige 'live' niet in de url heeft.
#       - Gerepareerd: Escape characters in video-urls van Collegerama TU Delft.
#       - De :Formats_xxx subroutines teruggebracht tot één grote.
#       - Overzicht ondersteunde websites onder :Help ingekort.
#     15-11-2015 v1.2:
#       - Ondersteuning toegevoegd voor: NPO Doc, Eenvandaag, Telegraaf en Disney videoclips.
#       - Door ondersteuning van Telegraaf, :Formats_json2 aangemaakt en :Tweakers ondergebracht
#         bij :Input.
#       - Door ondersteuning van Eenvandaag, tijdcode-calculaties voor :NPO videofragmenten aan
#         Xidel overgelaten.
#       - NPO extractor opgedeeld in :NPO_meta en :NPO.
#       - Extra FOR-loop toegevoegd voor eventueel achtervoegsel in rtl-embed-url.
#     04-10-2015 v1.1:
#       - Script aanzienlijk verkort door websites en veel voorkomende functies onder te verdelen
#         in aparte subroutines.
#       - Ondersteuning toegevoegd voor: Ketnet en 24Kitchen.
#       - RTVNoord-, RTVDrenthe- en RTVDrenthe_Live extractor vernieuwd.
#     29-09-2015 v1.0:
#       - Eerste versie.
#
# BatchGemist is geschreven door Reino Wijnsma en is terug te vinden op
# http://rwijnsma.home.xs4all.nl/uitzendinggemist/batchgemist.htm.
# Copyright (C) 2017 Reino Wijnsma. Op dit script is de GNU GPLv3 Licentie van toepassing.

# ================================================================================================

:Check
SET xidel="/data/data/com.termux/files/home/xidel"
SET ffmpeg=""
SET mpc=""

SET check=
IF NOT EXIST %xidel% (
	SET check=1
	echo %xidel% niet gevonden.
) ELSE (
	SET "XIDEL_OPTIONS=--silent"
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"extract^(
	      system^(
	        '%xidel% --version'
	      ^)^,
	      '\.^(\d{4}^)\.'^,
	      1
	    ^)^"^"') DO (
		IF %%A LSS 5651 (
			SET check=1
			echo %xidel% gevonden, maar versie is te oud.
		) ELSE (
			SET "user-agent=Mozilla/5.0 Firefox/58.0"
		)
	)
)
IF NOT EXIST %SystemRoot%\System32\clip.exe (
	SET check=1
	echo "clip.exe" niet gevonden.
)

IF DEFINED check (
	echo
	sleep
	GOTO Help
)

GOTO Input

# ================================================================================================

:Input
ENDLOCAL
SETLOCAL
echo Voer programma-url in (of 'h' voor hulp):
SET /P url=
IF NOT DEFINED url GOTO :EOF
IF /I "%url%"=="v" GOTO Versie
IF /I "%url%"=="h" GOTO Help
:Process
IF NOT "%url: =%"=="%url%" (
	echo
	echo Spaties in programma-url niet toegestaan.
	echo
	echo
	GOTO Input
) ELSE IF "%url%"=="npo-radio" (
	GOTO NPORadio
) ELSE IF "%url%"=="npo-gids" (
	GOTO NPOGids
) ELSE IF "%url%"=="zoek-npo" (
	read url=NPO
	GOTO ZoekProg
) ELSE IF "%url%"=="zoek-rtl" (
	read url=rtlXL
	GOTO ZoekProg
) ELSE IF "%url%"=="zoek-kijk" (
	read url=Kijk
	GOTO ZoekProg
) ELSE IF NOT "%url:npo.nl/live=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% --user-agent "%user-agent%" "%url%" -e "prid:=//@media-id" --output-format^=cmd^"') DO %%A
	GOTO NPO
) ELSE IF NOT "%url:npo.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"prid:^=extract(
	      '%url%'^,
	      '.+/([\w_]+^)'^,
	      1
	    ^)^,
	    date:^=replace(
	      '%url%'^,
	      '.+?(\d+^)-(\d+^)-(\d+^).+'^,
	      '$1$2$3'
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO NPO
) ELSE IF NOT "%url:gemi.st=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"prid:^=extract(
	      '%url%'^,
	      '.+/([\w_]+^)'^,
	      1
	    ^)^,
	    date:^=replace(
	      '%url%'^,
	      '.+?(\d+^)-(\d+^)-(\d+^).+'^,
	      '$1$2$3'
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO NPO
) ELSE IF NOT "%url:uitzendinggemist.net/aflevering=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"let $a:^=extract^(
	      ^(
	        //iframe[@class]/@src^,
	        extract^(
	          //@onclick^,
	          '^(http.+?^)'''^,
	          1
	        ^)
	      ^)^,
	      '^(\w+^)\.nl.+^(?:/^|video^=^)^([\w-]+^)'^,
	      ^(1^,2^)
	    ^) return
	    videos:^=[
	      {
	        '1':{
	          'prid':$a[2]^,
	          'goto':$a[1]
	        }
	      }
	    ]^" --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:tvblik.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"let $a:^=extract^(
	      //div[@id^='embed-player']/^(
	        @data-episode^,
	        .//@href
	      ^)^,
	      '^(\w+^)\.nl.+^(?:/^|video^=^)^([\w-]+^)'^,
	      ^(1^,2^)
	    ^) return
	    videos:^=[
	      {
	        '1':{
	          'prid':$a[2]^,
	          'goto':$a[1]
	        }
	      }
	    ]^" --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:2doc.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"prid:^=(//@data-media-id^)[1]^,
	    date:^=replace(
	      (//@datetime^)[1]^,
	      '(\d+^)-(\d+^)-(\d+^)'^,
	      '$3$2$1'
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO NPO
) ELSE IF NOT "%url:anderetijden.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"videos:^=[
	      //figure[@data-mid]/{
	        position^(^):{
	          'name':.//h2^,
	          'prid':@data-mid^,
	          'goto':'NPO'
	        }
	      }
	    ]^" --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:schooltv.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"prid:^=//div/@data-mid^,
	    date:^=replace(
	      //dd[span[@property^='datePublished']]^,
	      '(\d+^)-(\d+^)-(\d+^)'^,
	      '$1$2$3'
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO NPO
) ELSE IF NOT "%url:willemwever.kro-ncrv.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%" -e "prid:=//@data-video-id" --output-format^=cmd^"') DO %%A
	GOTO NPO
) ELSE IF NOT "%url:nos.nl/livestream=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"name:^=//h1^|^|replace^(
	            '%date%'^,
	            '.+?^(\d+^)-^(\d+^)-^(\d+^)'^,
	            ': Livestream ^($1$2$3^)'
	          ^)^,
	          let $a:^=//video/x:request^(
	            {
	              'post':serialize-json^(
	                {
	                  'stream':string^(@data-stream^)
	                }
	              ^)^,
	              'url':@data-path
	            }
	          ^)/json/json^(
	            substring-before^(
	              url^,
	              'p^&amp^;callback'
	            ^)
	          ^) return
	          formats:^=[
	            {
	              'format':'hls-0'^,
	              'extension':'m3u8'^,
	              'resolution':'manifest'^,
	              'url':$a
	            }^,
	            for $x at $i in tail^(
	              tokenize^(
	                extract^(
	                  unparsed-text^($a^)^,
	                  '^(#EXT-X-STREAM-INF.+m3u8$^)'^,
	                  1^,'ms'
	                ^)^,
	                '#EXT-X-STREAM-INF:'
	              ^)
	            ^) order by extract^(
	              $x^,
	              'BANDWIDTH^=^(\d+^)'^,
	              1
	            ^) count $i return {
	              'format':'hls-'^|^|$i^,
	              'extension':'m3u8'^,
	              'resolution':extract^(
	                $x^,
	                'RESOLUTION^=^([\dx]+^)'^,
	                1
	              ^) ! ^(
	                if ^(.^) then
	                  .
	                else
	                  'audiospoor'
	              ^)^,
	              'vbitrate':extract^(
	                $x^,
	                'video^=^(\d+^)\d{3}'^,
	                1
	              ^) ! ^(
	                if ^(.^) then
	                  concat^(
	                    'v:'^,
	                    .^,
	                    'k'
	                  ^)
	                else
	                  ''
	              ^)^,
	              'abitrate':replace^(
	                $x^,
	                '.+audio.+?^(\d+^)\d{3}.+'^,
	                'a:$1k'^,
	                's'
	              ^)^,
	              'url':resolve-uri^(
	                '.'^,
	                $a
	              ^)^|^|extract^(
	                $x^,
	                '^(.+m3u8^)'^,
	                1
	              ^)
	            }
	          ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:nos.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"videos:^=[
	            ^(
	              if ^(//div[@class^='video-play']^) then
	                //div[@class^='video-play']/a/doc^(@href^)
	              else
	                .
	            ^)/{
	              position^(^):{
	                'name':concat^(
	                  'NOS: '^,
	                  replace^(
	                    //h1^,
	                    '[^&quot^;^&apos^;]'^,
	                    ''''''
	                  ^)^,
	                  replace^(
	                    //@datetime^,
	                    '^(\d+^)-^(\d+^)-^(\d+^).+'^,
	                    ' ^($3$2$1^)'
	                  ^)
	                ^)^,
	                'formats':for $x at $i in //source order by extract^(
	                  $x/@data-label^,
	                  '^(\d+^)p'^,
	                  1
	                ^) count $i
	                return {
	                  'format':'mp4-'^|^|$i^,
	                  'extension':'mp4'^,
	                  'url':if ^(
	                    contains^(
	                      $x/@src^,
	                      'ipv4-api'
	                    ^)
	                  ^) then
	                    x:request^(
	                      {
	                        'data':$x/@src^,
	                        'method':'HEAD'
	                      }
	                    ^)/url
	                  else
	                    $x/@src
	                }
	              }
	            }
	          ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:eenvandaag.avrotros.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%" -e "prid:=json(//@data-at-player)/video_id" --output-format^=cmd^"') DO %%A
	GOTO NPO
) ELSE IF NOT "%url:static.rtl.nl/embed=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"prid:^=extract(
	      '%url%'^,
	      'uuid=([\w-]+^)'^,
	      1
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO rtlXL
) ELSE IF NOT "%url:rtlxl.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"prid:^=extract(
	      '%url%'^,
	      'video/([\w-]+^)'^,
	      1
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO rtlXL
) ELSE IF NOT "%url:rtl.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"prid:^=extract(
	      '%url%'^,
	      'video/([\w-]+^)'^,
	      1
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO rtlXL
) ELSE IF NOT "%url:rtlnieuws.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% --user-agent "%user-agent%" "%url%"
	-e ^"prid:^=extract(
	      //div[@class^='videoContainer']//@src^,
	      '^=(.+^)/'^,
	      1
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO rtlXL
) ELSE IF NOT "%url:rtlz.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% --user-agent "%user-agent%" "%url%"
	-e ^"prid:^=//iframe/extract(
	      @src^,
	      'uuid^=(.+?^)/'^,
	      1
	    ^)[.]^" --output-format^=cmd^"') DO %%A
	GOTO rtlXL
) ELSE IF NOT "%url:kijk.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"prid:^=extract(
	      '%url%'^,
	      '(?:video^|videos^)/(\w+^)'^,
	      1
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO Kijk
) ELSE IF NOT "%url:sbs6.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"prid:^=extract(
	      '%url%'^,
	      'videos/(\w+^)'^,
	      1
	    ^)^" --output-format^=cmd^"') DO %%A
	GOTO Kijk
) ELSE IF NOT "%url:www.omropfryslan.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"if (contains($url^,'live'^)^) then
	            let $a:^=json(
	              doc(
	                //script/extract(
	                  .^,
	                  'playlist: \^"(.+^^^)\^"'^,1
	                ^)[.]
	              ^)
	            ^)(2^)/(sources^)(^) return (
	              name:^=concat(
	                substring-before(
	                  //meta[@itemprop^='name']/@content^,
	                  'TV'
	                ^)^,
	                replace(
	                  '%date%'^,
	                  '.+?(\d+^)-(\d+^)-(\d+^)'^,
	                  '- Livestream ($1$2$3^)'
	                ^)
	              ^)^,
	              json:^=[
	                doc(
	                  $a[type^='rtmp']/file
	                ^)//video/{
	                  'format':concat(
	                    'rtsp-'^,
	                    @system-bitrate idiv 1000
	                  ^)^,
	                  'url':concat(
	                    replace(
	                      //@base^,
	                      'rtmp'^,
	                      'rtsp'
	                    ^)^,
	                    @src
	                  ^)
	                }^,
	                let $b:^=$a[type^='hls']/file return (
	                  {
	                    'format':'meta'^,
	                    'url':$b
	                  }^,
	                  tail(
	                    tokenize(
	                      unparsed-text($b^)^,
	                      '#EXT-X-STREAM-INF:'
	                    ^)
	                  ^) ! {
	                    'format':string(
	                      extract(
	                        .^,
	                        'BANDWIDTH^=(\d+^)'^,1
	                      ^) idiv 1000
	                    ^)^,
	                    'url':concat(
	                      resolve-uri('.'^,$b^)^,
	                      extract(
	                        .^,
	                        '(.+m3u8^)'^,1
	                      ^)
	                    ^)
	                  }
	                ^)
	              ]^,
	              formats:^=join($json(^)/format^,'^, '^)^,
	              best:^=$json(^)[last(^)]/format
	            ^)
	          else
	            let $a:^=replace(
	              //meta[@property^='article:published_time']/@content^,
	              '(\d+^)-(\d+^)-(\d+^).+'^,
	              ' ($3$2$1^)'
	            ^)
	            let $b:^=//script/json(
	              extract(
	                .^,
	                '(\{\^"sources\^".+?^)\^)'^,1^,'s'
	              ^)[.]
	            ^) return
	            if (count($b^)^=1^) then (
	              name:^=concat(
	                'Omrop FryslGn - '^,
	                if (contains($url^,'utstjoering'^)^) then
	                  substring-before(
	                    //meta[@itemprop^='name']/@content^,
	                    ' fan'
	                  ^)
	                else
	                  replace(
	                    $b//idstring^,
	                    '^&amp^;quot^;'^,
	                    ''''''
	                  ^)^,
	                $a
	              ^)^,
	              json:^=[
	                $b/(sources^)(^)/{
	                  'format':replace(
	                    label^,
	                    '(\d+^).'^,
	                    'mp4-$1'
	                  ^)^,
	                  'url':file
	                }
	              ]^,
	              formats:^=join($json(^)/format^,'^, '^)^,
	              best:^=$json(^)[last(^)]/format
	            ^) else (
	              json:^=[
	                $b/{
	                  position(^)^|^|'e':{
	                    'name':concat(
	                      'Omrop FryslGn - '^,
	                      replace(
	                        .//idstring^,
	                        '^&amp^;quot^;'^,
	                        ''''''
	                      ^)^,
	                      $a
	                    ^)^,
	                    'formats':(sources^)(^)/{
	                      'format':replace(
	                        label^,
	                        '(\d+^).'^,
	                        'mp4-$1'
	                      ^)^,
	                      'url':file
	                    }
	                  }
	                }
	              ]^,
	              videos:^=join($json(^)(^)^,'^, '^)
	            ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.rtvnoord.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"if (contains($url^,'livetv'^)^) then (
	            name:^=replace(
	              '%date%'^,
	              '.+?(\d+^)-(\d+^)-(\d+^)'^,
	              'RTV Noord - Livestream ($1$2$3^)'
	            ^)^,
	            let $a:^=doc(
	              doc(
	                doc(
	                  //iframe/@src
	                ^)//@src
	              ^)/extract(.^,'\^"playlist\^": \^"(.+^^^)\^"^,'^,1^)
	            ^)//@file return
	            json:^=[
	              {
	                'format':'meta'^,
	                'url':$a
	              }^,
	              tail(
	                tokenize(
	                  unparsed-text($a^)^,
	                  '#EXT-X-STREAM-INF:'
	                ^)
	              ^) ! {
	                'format':string(
	                  extract(
	                    .^,'BANDWIDTH^=(\d+^)'^,1
	                  ^) idiv 1000
	                ^)^,
	                'url':concat(
	                  resolve-uri('.'^,$a^)^,
	                  extract(
	                    .^,'(.+m3u8^)'^,1
	                  ^)
	                ^)
	              }
	            ]^,
	            formats:^=join($json(^)/format^,'^, '^)^,
	            best:^=$json(^)[last(^)]/format
	          ^) else
	            let $a:^=replace(
	              //@datetime^,
	              '(\d+^)-(\d+^)-(\d+^).+'^,
	              ' ($3$2$1^)'
	            ^)
	            let $b:^=//div[@data-button^='player-still-overlay icon-play'] return
	            if (count($b^)^=1^) then (
	              name:^=if (//meta[@property^='og:type']/@content^='video:episode'^) then
	                concat(
	                  'RTV Noord - '^,
	                  //div[@class^='media-details']/h3^,
	                  replace(
	                    //@data-media^,
	                    '.+?/(\d+^).{3}(\d{2}^)(\d{2}^).+'^,
	                    ' ($3$2$1^)'
	                  ^)
	                ^)
	              else
	                concat(
	                  'RTV Noord - '^,
	                  replace(
	                    $b/@title^,
	                    '[^&quot^;^&apos^;]'^,
	                    ''''''
	                  ^)^,
	                  $a
	                ^)^,
	                v_url:^=$b/@data-media
	            ^) else (
	              json:^=[
	                $b ! {
	                  position(^)^|^|'e':{
	                    'name':concat(
	                      'RTV Noord - '^,
	                      replace(
	                        @title^,
	                        '[^&quot^;^&apos^;]'^,
	                        ''''''
	                      ^)^,
	                      $a
	                    ^)^,
	                    'url':@data-media
	                  }
	                }
	              ]^,
	              videos:^=join($json(^)(^)^,'^, '^)
	            ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.rtvdrenthe.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"let $a:^=//meta[@property^='og:type']/@content
	          let $b:^=replace(
	            //@datetime^,
	            '(\d+^)-(\d+^)-(\d+^).+'^,
	            ' ($3$2$1^)'
	          ^)
	          let $c:^=//div[@data-button^='player-still-overlay icon-play'] return
	          if (count($c^)^=1^) then
	            if ($a^) then (
	              name:^=if ($a^='video:episode'^) then
	                concat(
	                  'RTV Drenthe - '^,
	                  //div[@class^='media-details']/h3^,
	                  replace(
	                    //@data-media^,
	                    '.+?(\d{4}^)(\d{2}^)(\d{2}^).+'^,
	                    ' ($3$2$1^)'
	                  ^)
	                ^)
	              else
	                concat(
	                  'RTV Drenthe - '^,
	                  replace(
	                    $c/@title^,
	                    '[^&quot^;^&apos^;]'^,
	                    ''''''
	                  ^)^,
	                  $b
	                ^)^,
	                v_url:^=$c/@data-media
	            ^) else (
	              name:^=replace(
	                '%date%'^,
	                '.+?(\d+^)-(\d+^)-(\d+^)'^,
	                'RTV Drenthe - Livestream ($1$2$3^)'
	              ^)^,
	              v_url:^=concat(
	                resolve-uri(
	                  '.'^,
	                  //@data-media
	                ^)^,
	                extract(
	                  unparsed-text(//@data-media^)^,
	                  '(.+m3u8^)'^,1
	                ^)
	              ^)
	            ^)
	          else (
	            json:^=[
	              $c ! {
	                position(^)^|^|'e':{
	                  'name':concat(
	                    'RTV Drenthe - '^,
	                    replace(
	                      @title^,
	                      '[^&quot^;^&apos^;]'^,
	                      ''''''
	                    ^)^,
	                    $b
	                  ^)^,
	                  'url':@data-media
	                }
	              }
	            ]^,
	            videos:^=join($json(^)(^)^,'^, '^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.rtvnh.nl/live/tv=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"name:^=replace(
	            '%date%'^,
	            '.+?(\d+^)-(\d+^)-(\d+^)'^,
	            'RTV NH - Livestream ($1$2$3^)'
	          ^)^,
	          let $a:^=json(
	            replace(
	              replace(
	                //script/extract(
	                  .^,
	                  'sources: (.+^)^,\s+\]'^,1^,'s'
	                ^)[.]^,
	                '^,\s+\}'^,
	                '}'
	              ^)^,
	              'rtmp'^,
	              'rtsp'
	            ^)^|^|']'
	          ^)(^) return
	          json:^=[
	            $a[type!^='hls']/{
	              'format':replace(
	                file^,
	                '(.+?^):.+(.^)'^,
	                '$1-$2'
	              ^)^,
	              'url':file
	            }^,
	            {
	              'format':'meta'^,
	              'url':$a[type^='hls']/file
	            }^,
	            tail(
	              tokenize(
	                unparsed-text($a[type^='hls']/file^)^,
	                '#EXT-X-STREAM-INF:'
	              ^)
	            ^) ! {
	              'format':string(
	                extract(
	                  .^,
	                  'BANDWIDTH^=(\d+^)'^,1
	                ^) idiv 1000
	              ^)^,
	              'url':concat(
	                resolve-uri(
	                  '.'^,
	                  $a[type^='hls']/file
	                ^)^,
	                extract(
	                  .^,
	                  '(.+m3u8^)'^,1
	                ^)
	              ^)
	            }
	          ]^,
	          let $b:^=(
	            $json(^)[contains(format^,'rtsp'^)]/format^,
	            $json(^)[format^='meta']/format^,
	            for $x in $json(^)[format castable as int]/format order by $x return $x
	          ^) return (
	            formats:^=join($b^,'^, '^)^,
	            best:^=$b[last(^)]
	          ^)^" --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.rtvnh.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"let $a:^=replace(
	            //meta[@property^='article:published_time']/@content^,
	            '(\d+^)-(\d+^)-(\d+^).+'^,
	            ' ($3$2$1^)'
	          ^)
	          let $b:^=[
	            if (//div/@data-video^) then
	              //div/@data-video ! {
	                'name':concat(
	                  'RTV NH - '^,
	                  //meta[@property^='og:title']/@content^,
	                  $a
	                ^)^,
	                'id':.
	              }
	            else
	              (^)^,
	            if (//@class^='video-container'^) then
	              //div[@class^='video-container']/{
	                'name':if (contains($url^,'gemist'^)^) then
	                  concat(
	                    'RTV NH - '^,
	                    //div[@class^='banner_label']^,
	                    replace(
	                      //a[@class^='video-player']/@href^,
	                      '.+?(\d+^)/(\d+^)/(\d+^).+'^,
	                      ' ($3$2$1^)'
	                    ^)
	                  ^)
	                else
	                  concat(
	                    'RTV NH - '^,
	                    //script/extract(
	                      .^,
	                      'title.+: (.+^)'''^,1
	                    ^)[.]^,
	                    $a
	                  ^)^,
	                'id':substring-after(@id^,'video'^)
	              }
	            else
	              (^)^,
	            if (//iframe^) then
	              //iframe/{
	                'name':concat(
	                  'RTV NH - '^,
	                  //meta[@property^='og:title']/@content^,
	                  $a
	                ^)^,
	                'id':substring-after(@src^,'^='^)
	              }
	            else
	              (^)
	          ] return
	          if (count($b(^)^)^=1^) then
	            $b(^)/(
	              name:^=name^,
	              json:^=doc(
	                concat(
	                  'http://www.rtvnh.nl/media/smil/video/'^,
	                  id
	                ^)
	              ^)/[
	                //@src ! {
	                  'format':concat(
	                    'rtsp-'^,
	                    extract(
	                      .^,
	                      '_(\d+^)'^,1
	                    ^)
	                  ^)^,
	                  'url':concat(
	                    replace(
	                      //@base^,
	                      'rtmp'^,
	                      'rtsp'
	                    ^)^,
	                    substring-after(.^,'mp4:'^)
	                  ^)
	                }^,
	                //@src ! {
	                  'format':extract(
	                    .^,
	                    '_(\d+^)'^,1
	                  ^)^,
	                  'url':let $c:^=concat(
	                    replace(
	                      replace(
	                        //@base^,
	                        'rtmp'^,
	                        'http'
	                      ^)^,
	                      ':\d+'^,
	                      ''
	                    ^)^,
	                    substring-after(.^,'mp4:'^)^,
	                    '/playlist.m3u8'
	                  ^) return
	                  concat(
	                    resolve-uri('.'^,$c^)^,
	                    extract(
	                      unparsed-text($c^)^,
	                      '(.+m3u8^)'^,1
	                    ^)
	                  ^)
	                }
	              ]^,
	              formats:^=join($json(^)/format^,'^, '^)^,
	              best:^=$json(^)[last(^)]/format
	            ^)
	          else (
	            json:^=[
	              $b(^)/{
	                position(^)^|^|'e':{
	                  'name':name^,
	                  'formats':doc(
	                    concat(
	                      'http://www.rtvnh.nl/media/smil/video/'^,
	                      id
	                    ^)
	                  ^)/[
	                    //@src ! {
	                      'format':concat(
	                        'rtsp-'^,
	                        extract(
	                          .^,
	                          '_(\d+^)'^,1
	                        ^)
	                      ^)^,
	                      'url':concat(
	                        replace(
	                          //@base^,
	                          'rtmp'^,
	                          'rtsp'
	                        ^)^,
	                        substring-after(.^,'mp4:'^)
	                      ^)
	                    }^,
	                    //@src ! {
	                      'format':extract(
	                        .^,
	                        '_(\d+^)'^,1
	                      ^)^,
	                      'url':let $c:^=concat(
	                        replace(
	                          replace(
	                            //@base^,
	                            'rtmp'^,
	                            'http'
	                          ^)^,
	                          ':\d+'^,
	                          ''
	                        ^)^,
	                        substring-after(.^,'mp4:'^)^,
	                        '/playlist.m3u8'
	                      ^) return
	                      concat(
	                        resolve-uri('.'^,$c^)^,
	                        extract(
	                          unparsed-text($c^)^,
	                          '(.+m3u8^)'^,1
	                        ^)
	                      ^)
	                    }
	                  ]
	                }
	              }
	            ]^,
	            videos:^=join($json(^)(^)^,'^, '^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF "%url%"=="http://www.omroepflevoland.nl/kijken" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"name:^=replace(
	            '%date%'^,
	            '.+?(\d+^)-(\d+^)-(\d+^)'^,
	            'Omroep Flevoland - Livestream ($1$2$3^)'
	          ^)^,
	          json:^=[
	            for $x in reverse(
	              json(
	                //script/extract(
	                  .^,
	                  concat(
	                    (//div[@class^='jwplayercontainer']^)[1]//@id^,
	                    '.+sources:(.+?\]^)'
	                  ^)^,
	                  1^,'s'
	                ^)[.]
	              ^)(^)
	            ^) return (
	              if (ends-with($x/file^,'m3u8'^)^) then
	                tail(
	                  tokenize(
	                    unparsed-text($x/file^)^,
	                    '#EXT-X-STREAM-INF:'
	                  ^)
	                ^) ! {
	                  'format':string(
	                    extract(
	                      .^,
	                      'BANDWIDTH^=(\d+^)'^,1
	                    ^) idiv 1000
	                  ^)^,
	                  'url':concat(
	                    resolve-uri(
	                      '.'^,
	                      $x/file
	                    ^)^,
	                    extract(.^,'(.+m3u8^)'^,1^)
	                  ^)
	                }
	              else
	                {
	                  'format':replace(
	                    replace(
	                      $x/file^,
	                      '(.+?^):.+\.(.+^)'^,
	                      '$1-$2'
	                    ^)^,
	                    'rtmp'^,
	                    'rtsp'
	                  ^)^,
	                  'url':replace(
	                    $x/file^,
	                    'rtmp'^,
	                    'rtsp'
	                  ^)
	                }
	            ^)
	          ]^,
	          formats:^=join($json(^)/format^,'^, '^)^,
	          best:^=$json(^)[last(^)]/format^" --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.omroepflevoland.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"let $a:^=//div[@class^='jwplayercontainer'] return
	          if (count($a^)^=2^) then (
	            name:^=concat(
	              'Omroep Flevoland - '^,
	              if (contains($url^,'kijken'^)^) then
	                //meta[@name^='keywords']/@content
	              else
	                extract(
	                  $a[1]/@data-video-name^,
	                  '.+?- (.+^) -'^,1
	                ^)^,
	              replace(
	                //meta[@property^='article:published_time']/@content^,
	                '(\d+^)-(\d+^)-(\d+^).+'^,
	                ' ($3$2$1^)'
	              ^)
	            ^)^,
	            json:^=[
	              for $x in json(
	                //script/extract(
	                  .^,
	                  concat(
	                    $a[1]/div/@id^,
	                    '.+sources:(.+?\]^)'
	                  ^)^,
	                  1^,'s'
	                ^)[.]
	              ^)(^)[starts-with(file^,'http'^)] return (
	                if (ends-with($x/file^,'m3u8'^)^) then (
	                  {
	                    'format':'meta'^,
	                    'url':$x/file
	                  }^,
	                  tail(
	                    tokenize(
	                      unparsed-text($x/file^)^,
	                      '#EXT-X-STREAM-INF:'
	                    ^)
	                  ^) ! {
	                    'format':string(
	                      extract(
	                        .^,
	                        'BANDWIDTH^=(\d+^)'^,1
	                      ^) idiv 1000
	                    ^)^,
	                    'url':concat(
	                      resolve-uri(
	                        '.'^,
	                        $x/file
	                      ^)^,
	                      extract(
	                        .^,
	                        '(.+m3u8^)'^,1
	                      ^)
	                    ^)
	                  }
	                ^) else
	                  ('laag'^,'middel'^,'hoog'^) ! {
	                    'format':concat('mp4-'^,.^)^,
	                    'url':replace(
	                      $x/file^,
	                      'middel'^,
	                      .
	                    ^)
	                  }
	              ^)
	            ]^,
	            let $b:^=(
	              $json(^)[contains(format^,'mp4'^)]/format^,
	              $json(^)[format^='meta']/format^,
	              for $x in $json(^)[format castable as int]/format order by $x return $x
	            ^) return (
	              formats:^=join($b^,'^, '^)^,
	              best:^=$b[last(^)]
	            ^)
	          ^) else (
	            json:^=[
	              for $x at $i in remove(
	                $a^,
	                count($a^)
	              ^) return {
	                $i^|^|'e':{
	                  'name':concat(
	                    'Omroep Flevoland - '^,
	                    extract(
	                      $x/@data-video-name^,
	                      '.+?- (.+^) -'^,1
	                    ^)^,
	                    replace(
	                      //meta[@property^='article:published_time']/@content^,
	                      '(\d+^)-(\d+^)-(\d+^).+'^,
	                      ' ($3$2$1^)'
	                    ^)
	                  ^)^,
	                  'formats':for $y in json(
	                    //script/extract(
	                      .^,
	                      concat(
	                        $x/div/@id^,
	                        '.+sources:(.+?\]^)'
	                      ^)^,
	                      1^,'s'
	                    ^)[.]
	                  ^)(^)[starts-with(file^,'http'^)] return (
	                    if (ends-with($y/file^,'m3u8'^)^) then (
	                      {
	                        'format':'meta'^,
	                        'url':$y/file
	                      }^,
	                      tail(
	                        tokenize(
	                          unparsed-text($y/file^)^,
	                          '#EXT-X-STREAM-INF:'
	                        ^)
	                      ^) ! {
	                        'format':string(
	                          extract(
	                            .^,
	                            'BANDWIDTH^=(\d+^)'^,1
	                          ^) idiv 1000
	                        ^)^,
	                        'url':concat(
	                          resolve-uri(
	                            '.'^,
	                            $y/file
	                          ^)^,
	                          extract(
	                            .^,
	                            '(.+m3u8^)'^,1
	                          ^)
	                        ^)
	                      }
	                    ^) else
	                      ('laag'^,'middel'^,'hoog'^) ! {
	                        'format':concat('mp4-'^,.^)^,
	                        'url':replace(
	                          $y/file^,
	                          'middel'^,
	                          .
	                        ^)
	                      }
	                  ^)
	                }
	              }
	            ]^,
	            videos:^=join($json(^)(^)^,'^, '^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.rtvoost.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"let $a:^=//meta[@property^='og:type']/@content
	          let $b:^=replace(
	            //meta[
	              if (@property^='video:release_date'^) then
	                @property^='video:release_date'
	              else
	                @property^='article:published_time'
	            ]/@content^,
	            '(\d+^)-(\d+^)-(\d+^).+'^,
	            ' ($3$2$1^)'
	          ^)
	          let $c:^=//script/extract(
	            .^,
	            '\$\.ajax\(\^"(.+^^^)\^"'^,1
	          ^)[.] return
	          if (count($c^)^=1^) then (
	            if ($a^='video.other'^) then (
	              name:^=replace(
	                '%date%'^,
	                '.+?(\d+^)-(\d+^)-(\d+^)'^,
	                'RTV Oost - Livestream ($1$2$3^)'
	              ^)^,
	              let $d:^=json($c^)//file return
	              json:^=[
	                {
	                  'format':'meta'^,
	                  'url':$d
	                }^,
	                tail(
	                  tokenize(
	                    unparsed-text($d^)^,
	                    '#EXT-X-STREAM-INF:'
	                  ^)
	                ^) ! {
	                  'format':string(
	                    extract(
	                      .^,'BANDWIDTH^=(\d+^)'^,1
	                    ^) idiv 1000
	                  ^)^,
	                  'url':concat(
	                    resolve-uri('.'^,$d^)^,
	                    extract(
	                      .^,
	                      '(.+m3u8^)'^,1
	                    ^)
	                  ^)
	                }
	              ]
	            ^) else (
	              name:^=concat(
	                'RTV Oost - '^,
	                if ($a^='video.episode'^) then
	                  extract(
	                    //meta[@property^='og:title']/@content^,
	                    '(.+^) van \d+'^,1
	                  ^)
	                else
	                  //meta[@property^='og:title']/@content^,
	                $b
	              ^)^,
	              json:^=[
	                (json($c^)//sources^)(^)/{
	                  'format':replace(
	                    label^,
	                    '(\d+^).'^,
	                    'mp4-$1'
	                  ^)^,
	                  'url':file
	                }
	              ]
	            ^)^,
	            let $e:^=(
	              $json(^)[format^='meta']/format^,
	              for $x in $json(^)[format!^='meta']/format order by $x return $x
	            ^) return (
	              formats:^=join($e^,'^, '^)^,
	              best:^=$e[last(^)]
	            ^)
	          ^) else (
	            json:^=[
	              for $x at $i in $c return {
	                $i^|^|'e':{
	                  'name':concat(
	                    'RTV Oost - '^,
	                    //div[@id^=concat('video'^,$i^)]/span[@class^='mediaTitle']^,
	                    $b
	                  ^)^,
	                  'formats':[
	                    (json($x^)//sources^)(^)/{
	                      'format':replace(
	                        label^,
	                        '(\d+^).'^,
	                        'mp4-$1'
	                      ^)^,
	                      'url':file
	                    }
	                  ]
	                }
	              }
	            ]^,
	            videos:^=join($json(^)(^)^,'^, '^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.at5.nl/live=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "http://www.at5.nl/video/json?s=live"
	--xquery ^"name:^=replace(
	            '%date%'^,
	            '.+?(\d+^)-(\d+^)-(\d+^)'^,
	            'AT5 - Livestream ($1$2$3^)'
	          ^)^,
	          let $a:^=json($raw^)/source/(def^)(^) return
	          json:^=[
	            ('a'^,'b'^,'c'^,'d'^) ! {
	              'format':concat('rtsp-'^,.^)^,
	              'url':concat(
	                replace(
	                  $a[type^='rtmp']/file^,
	                  '.+?(:.+^).'^,
	                  'rtsp$1'
	                ^)^,
	                .
	              ^)
	            }^,
	            {
	              'format':'meta'^,
	              'url':$a[type^='hls']/file
	            }^,
	            tail(
	              tokenize(
	                unparsed-text($a[type^='hls']/file^)^,
	                '#EXT-X-STREAM-INF:'
	              ^)
	            ^) ! {
	              'format':string(
	                extract(
	                  .^,
	                  'BANDWIDTH^=(\d+^)'^,1
	                ^) idiv 1000
	              ^)^,
	              'url':concat(
	                resolve-uri(
	                  '.'^,
	                  $a[type^='hls']/file
	                ^)^,
	                extract(
	                  .^,
	                  '(.+m3u8^)'^,1
	                ^)
	              ^)
	            }
	          ]^,
	          let $b:^=(
	            $json(^)[contains(format^,'rtsp'^)]/format^,
	            $json(^)[format^='meta']/format^,
	            for $x in $json(^)[format castable as int]/format order by $x return $x
	          ^) return (
	            formats:^=join($b^,'^, '^)^,
	            best:^=$b[last(^)]
	          ^)^" --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.at5.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"name:^=concat(
	            'AT5 - '^,
	            replace(
	              if (contains($url^,'gemist'^)^) then
	                concat(
	                  if (contains(//div[@class^='banner_label']^,'Nieuws'^)^) then
	                    'Nieuws'
	                  else
	                    concat(
	                      //div[@class^='banner_label']^,
	                      '- '^,
	                      //div[@class^='banner_title']
	                    ^)^,
	                  replace(
	                    //a[@class^='video-player']/@href^,
	                    '.+(\d{4}^)/(\d{2}^)/(\d{2}^).+'^,
	                    ' ($3$2$1^)'
	                  ^)
	                ^)
	              else
	                concat(
	                  //meta[@property^='og:title']/@content^,
	                  replace(
	                    //meta[@property^='article:published_time']/@content^,
	                    '(\d+^)-(\d+^)-(\d+^).+'^,
	                    ' ($3$2$1^)'
	                  ^)
	                ^)^,
	              '[^&quot^;^&apos^;]'^,
	              ''''''
	            ^)
	          ^)^,
	          if (//iframe^) then
	            (^)
	          else (
	            let $a:^=json(
	              concat(
	                'http://www.at5.nl/video/json?m^='^,
	                (
	                  //div[@class^='video-container']/substring-after(@id^,'video'^)^,
	                  //div/@data-video
	                ^)
	              ^)
	            ^)/source return
	            json:^=[
	              ('low'^,'medium'^,'hi'^) ! {
	                'format':concat('mp4-'^,.^)^,
	                'url':replace(
	                  $a/(fb^)(1^)/file^,
	                  '(hi^)'^,
	                  .
	                ^)
	              }^,
	              for $x in ('low'^,'medium'^,'hi'^) ! replace(
	                $a/(def^)(^)[type^='hls']/file^,
	                '(hi^)'^,
	                .
	              ^) return
	              tail(
	                tokenize(
	                  unparsed-text($x^)^,
	                  '#EXT-X-STREAM-INF:'
	                ^)
	              ^) ! {
	                'format':string(
	                  extract(
	                    .^,
	                    'BANDWIDTH^=(\d+^)'^,1
	                  ^) idiv 1000
	                ^)^,
	                'url':concat(
	                  resolve-uri('.'^,$x^)^,
	                  extract(
	                    .^,
	                    '(.+m3u8^)'^,1
	                  ^)
	                ^)
	              }
	            ]^,
	            formats:^=join($json(^)/format^,'^, '^)^,
	            best:^=$json(^)[last(^)]/format
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.rtvutrecht.nl/live=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"prid:^=//script/extract(
	      .^,
	      '\^"prid\^": \^"(.+^^^)\^"'^,1
	    ^)[.]^" --output-format^=cmd^"') DO %%A
	GOTO NPO
) ELSE IF NOT "%url:www.rtvutrecht.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"let $a:^=//script/extract(
	            .^,
	            '(http.+mp4^)'^,1
	          ^)[.] return
	          if (count($a^)^=1^) then (
	            name:^=concat(
	              'RTV Utrecht - '^,
	              if (contains($url^,'gemist'^)^) then
	                substring-before(
	                  //h2[@class^='h2-large-met-grijs border-top'][1]^,
	                  ' -'
	                ^)
	              else
	                replace(
	                  if (//p[@class^='margin-bottom-5 fragment-bijschrift']^) then
	                    //p[@class^='margin-bottom-5 fragment-bijschrift']
	                  else
	                    //meta[@name^='og:title']/@content^,
	                  '[^&quot^;^&apos^;]'^,
	                  ''''''
	                ^)^,
	                replace(
	                  $a^,
	                  '.+(\d{4}^)/(\d{2}^)/(\d{2}^).+'^,
	                  ' ($3$2$1^)'
	                ^)
	            ^)^,
	            v_url:^=$a
	          ^) else (
	            json:^=[
	              for $x at $i in $a return {
	                $i^|^|'e':{
	                  'name':concat(
	                    'RTV Utrecht - '^,
	                    replace(
	                      //p[@class^='margin-bottom-5 fragment-bijschrift'][$i]^,
	                      '[^&quot^;^&apos^;]'^,
	                      ''''''
	                    ^)^,
	                    replace(
	                      $x^,
	                      '.+(\d{4}^)/(\d{2}^)/(\d{2}^).+'^,
	                      ' ($3$2$1^)'
	                    ^)
	                  ^)^,
	                  'url':$x
	                }
	              }
	            ]^,
	            videos:^=join($json(^)(^)^,'^, '^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.omroepgelderland.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"let $a:^=//meta[@property^='og:type']/@content
	          let $b:^=replace(
	            //@datetime^,
	            '(\d+^)-(\d+^)-(\d+^).+'^,
	            ' ($3$2$1^)'
	          ^)
	          let $c:^=//div[@data-button^='player-still-overlay icon-play'] return
	          if (count($c^)^=1^) then
	            if ($a^) then (
	              name:^=if ($a^='video:episode'^) then
	                concat(
	                  'Omroep Gelderland - '^,
	                  (//h3^)[1]^,
	                  replace(
	                    //@data-media^,
	                    '.+?(\d+^)/(\d+^)/\d{4}(\d+^).+'^,
	                    ' ($3$2$1^)'
	                  ^)
	                ^)
	              else
	                concat(
	                  'Omroep Gelderland - '^,
	                  replace(
	                    $c/@title^,
	                    '[^&quot^;^&apos^;]'^,
	                    ''''''
	                  ^)^,
	                  $b
	                ^)^,
	              v_url:^=$c/@data-media
	            ^) else (
	              name:^=replace(
	                '%date%'^,
	                '.+?(\d+^)-(\d+^)-(\d+^)'^,
	                'Omroep Gelderland - Livestream ($1$2$3^)'
	              ^)^,
	              v_url:^=extract(
	                unparsed-text(//@data-media^)^,
	                '(.+m3u8^)'^,1
	              ^)
	            ^)
	          else (
	            json:^=[
	              for $x at $i in $c return {
	                $i^|^|'e':{
	                  'name':concat(
	                    'Omroep Gelderland - '^,
	                    replace(
	                      $x/@title^,
	                      '[^&quot^;^&apos^;]'^,
	                      ''''''
	                    ^)^,
	                    $a
	                  ^)^,
	                  'url':$x/@data-media
	                }
	              }
	            ]^,
	            videos:^=join($json(^)(^)^,'^, '^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.omroepwest.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"let $a:^=//meta[@property^='og:type']/@content return
	          if (count(//@data-script^)^=1^) then
	            json(
	              extract(
	                unparsed-text(//@data-script^)^,
	                'var opts ^= (.+^)^;'^,1
	              ^)
	            ^)/(
	              if ($a^) then (
	                name:^=if ($a^='video:episode'^) then
	                  replace(
	                    clipData/title^,
	                    '(\d+^)-(\d+^)-(\d+^).+- (.+^)'^,
	                    'Omroep West - $4 ($3$2$1^)'
	                  ^)
	                else
	                  concat(
	                    'Omroep West - '^,
	                    replace(
	                      clipData/title^,
	                      '[^&quot^;^&apos^;]'^,
	                      ''''''
	                    ^)^,
	                    replace(
	                      clipData/publisheddate^,
	                      '(\d+^)-(\d+^)-(\d+^).+'^,
	                      ' ($3$2$1^)'
	                    ^)
	                  ^)^,
	                let $b:^=publicationData/defaultMediaAssetPath return
	                json:^=[
	                  clipData/(assets^)(^)/{
	                    'format':concat('mp4-'^,bandwidth^)^,
	                    'url':concat($b^,src^)
	                  }
	                ]
	              ^) else (
	                name:^=replace(
	                  '%date%'^,
	                  '.+?(\d+^)-(\d+^)-(\d+^)'^,
	                  'Omroep West - Livestream ($1$2$3^)'
	                ^)^,
	                let $b:^=clipData/(assets^)(1^)/concat('http:'^,src^) return
	                json:^=[
	                  {
	                    'format':'meta'^,
	                    'url':$b
	                  }^,
	                  tail(
	                    tokenize(
	                      unparsed-text($b^)^,
	                      '#EXT-X-STREAM-INF:'
	                    ^)
	                  ^) ! {
	                    'format':string(
	                      extract(
	                        .^,
	                        'BANDWIDTH^=(\d+^)'^,1
	                      ^) idiv 1000
	                    ^)^,
	                    'url':concat(
	                      resolve-uri('.'^,$b^)^,
	                      extract(
	                        .^,
	                        '(.+m3u8^)'^,1
	                      ^)
	                    ^)
	                  }
	                ]
	              ^)^,
	              let $c:^=(
	                $json(^)[format^='meta']/format^,
	                for $x in $json(^)[format!^='meta']/format order by $x return $x
	              ^) return (
	                formats:^=join($c^,'^, '^)^,
	                best:^=$c[last(^)]
	              ^)
	            ^)
	          else (
	            json:^=[
	              //@data-script ! {
	                position(^)^|^|'e':json(
	                  extract(
	                    unparsed-text(.^)^,
	                    'var opts ^= (.+^)^;'^,1
	                  ^)
	                ^)/{
	                  'name':concat(
	                    'Omroep West - '^,
	                    replace(
	                      clipData/title^,
	                      '[^&quot^;^&apos^;]'^,
	                      ''''''
	                    ^)^,
	                    replace(
	                      clipData/publisheddate^,
	                      '(\d+^)-(\d+^)-(\d+^).+'^,
	                      ' ($3$2$1^)'
	                    ^)
	                  ^)^,
	                  'formats':let $b:^=publicationData/defaultMediaAssetPath return [
	                    clipData/(assets^)(^)/{
	                      'format':concat('mp4-'^,bandwidth^)^,
	                      'url':concat($b^,src^)
	                    }
	                  ]
	                }
	              }
	            ]^,
	            videos:^=join($json(^)(^)^,'^, '^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.rijnmond.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"let $a:^=//meta[@property^='og:type']/@content return
	          if (count(//@data-script^)^=1^) then
	            json(
	              extract(
	                unparsed-text(//@data-script^)^,
	                'var opts ^= (.+^)^;'^,1
	              ^)
	            ^)/(
	              if ($a^) then (
	                name:^=concat(
	                  'RTV Rijnmond - '^,
	                  if ($a^='video:episode'^) then
	                    substring-before(
	                      clipData/title^,
	                      ' -'
	                    ^)
	                  else
	                    replace(
	                      clipData/title^,
	                      '[^&quot^;^&apos^;]'^,
	                      ''''''
	                    ^)^,
	                  replace(
	                    clipData/publisheddate^,
	                    '(\d+^)-(\d+^)-(\d+^).+'^,
	                    ' ($3$2$1^)'
	                  ^)
	                ^)^,
	                let $b:^=publicationData/defaultMediaAssetPath return
	                json:^=[
	                  clipData/(assets^)(^)/{
	                    'format':concat('mp4-'^,bandwidth^)^,
	                    'url':concat($b^,src^)
	                  }
	                ]^,
	                let $c:^=for $x in $json(^)/format order by $x return $x return (
	                  formats:^=join($c^,'^, '^)^,
	                  best:^=$c[last(^)]
	                ^)
	              ^) else (
	                name:^=replace(
	                  '%date%'^,
	                  '.+?(\d+^)-(\d+^)-(\d+^)'^,
	                  'RTV Rijnmond - Livestream ($1$2$3^)'
	                ^)^,
	                let $b:^=clipData/(assets^)(1^)/concat('http:'^,src^) return
	                v_url:^=concat(
	                  resolve-uri('.'^,$b^)^,
	                  extract(
	                    unparsed-text($b^)^,
	                    '(.+m3u8^)'^,1
	                  ^)
	                ^)
	              ^)
	            ^)
	          else (
	            json:^=[
	              //@data-script ! {
	                position(^)^|^|'e':json(
	                  extract(
	                    unparsed-text(.^)^,
	                    'var opts ^= (.+^)^;'^,1
	                  ^)
	                ^)/{
	                  'name':concat(
	                    'RTV Rijnmond - '^,
	                    replace(
	                      clipData/title^,
	                      '[^&quot^;^&apos^;]'^,
	                      ''''''
	                    ^)^,
	                    replace(
	                      clipData/publisheddate^,
	                      '(\d+^)-(\d+^)-(\d+^).+'^,
	                      ' ($3$2$1^)'
	                    ^)
	                  ^)^,
	                  'formats':let $b:^=publicationData/defaultMediaAssetPath return [
	                    clipData/(assets^)(^)/{
	                      'format':concat('mp4-'^,bandwidth^)^,
	                      'url':concat($b^,src^)
	                    }
	                  ]
	                }
	              }
	            ]^,
	            videos:^=join($json(^)(^)^,'^, '^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.omroepzeeland.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"name:^=if (contains($url^,'streams'^)^) then
	      replace(
	        '%date%'^,
	        '.+?(\d+^)-(\d+^)-(\d+^)'^,
	        'Omroep Zeeland - Livestream ($1$2$3^)'
	      ^)
	    else
	      concat(
	        'Omroep Zeeland - '^,
	        //meta[@property^='og:title']/@content^,
	        replace(
	          //div[@class^='field field-post-date']^,
	          '.+?(\d+^)-(\d+^)-(\d+^).+'^,
	          ' ($1$2$3^)'
	        ^)
	      ^)^"
	-f ^"if (//script[contains(@src^,'bbvms'^)]^) then
	      //script[contains(@src^,'bbvms'^)]/@src
	    else
	      concat(
	        'http://omroepzeeland.bbvms.com/p/OmroepZeelandDefault/c/'^,
	        //@data-bbwid^,
	        '.js'
	      ^)^"
	--xquery ^"json(
	            extract(
	              $raw^,
	              'var opts ^= (.+^)^;'^,1
	            ^)
	          ^)/(
	            let $a:^=publicationData/defaultMediaAssetPath return
	            json:^=[
	              if (contains($url^,'livetv'^)^) then (
	                clipData/(assets^)(^)[mediatype^='MP4_MAIN']/{
	                  'format':concat('rtmp-'^,bandwidth^)^,
	                  'url':src
	                }^,
	                for $x in clipData/(assets^)(^)[mediatype^='MP4_IPOD']/concat('http:'^,src^) return
	                tail(
	                  tokenize(
	                    unparsed-text($x^)^,
	                    '#EXT-X-STREAM-INF:'
	                  ^)
	                ^) ! {
	                  'format':string(
	                    extract(
	                      .^,
	                      'BANDWIDTH^=(\d+^)'^,1
	                    ^) idiv 1000
	                  ^)^,
	                  'url':concat(
	                    resolve-uri('.'^,$x^)^,
	                    extract(
	                      .^,
	                      '(.+m3u8^)'^,1
	                    ^)
	                  ^)
	                }
	              ^) else
	                clipData/(assets^)(^)/{
	                  'format':concat(
	                    replace(
	                      src^,
	                      '.+\.(.+^)'^,
	                      '$1-'
	                    ^)^,
	                    bandwidth
	                  ^)^,
	                  'url':concat($a^,src^)
	                }
	            ]^,
	            let $b:^=(
	              for $x in $json(^)[contains(format^,'rtmp'^)]/format order by $x return $x^,
	              for $x in $json(^)[not(contains(format^,'rtmp'^)^)]/format order by $x return $x
	            ^) return (
	              formats:^=join($b^,'^, '^)^,
	              best:^=$b[last(^)]
	            ^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.omroepbrabant.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"if (count((//@data-url^,//@data-script^)^)^=1^) then
	            json(
	              extract(
	                unparsed-text(
	                  (
	                    //@data-url^,
	                    //@data-script
	                  ^)
	                ^)^,
	                'var opts ^= (.+^)^;'^,1
	              ^)
	            ^)/clipData/(
	              if (contains($url^,'Portal'^)^) then (
	                name:^=replace(
	                  '%date%'^,
	                  '.+?(\d+^)-(\d+^)-(\d+^)'^,
	                  'Omroep Brabant - Livestream ($1$2$3^)'
	                ^)^,
	                let $a:^=substring-before(
	                  (assets^)(1^)/src^,
	                  '?'
	                ^) return
	                json:^=[
	                  {
	                    'format':'meta'^,
	                    'url':$a
	                  }^,
	                  tail(
	                    tokenize(
	                      unparsed-text($a^)^,
	                      '#EXT-X-STREAM-INF:'
	                    ^)
	                  ^) ! {
	                    'format':string(
	                      extract(
	                        .^,
	                        'BANDWIDTH^=(\d+^)'^,1
	                      ^) idiv 1000
	                    ^)^,
	                    'url':concat(
	                      resolve-uri('.'^,$a^)^,
	                      extract(
	                        .^,
	                        '.+/(.+m3u8^)'^,1
	                      ^)
	                    ^)
	                  }
	                ]
	              ^) else (
	                name:^=concat(
	                  'Omroep Brabant - '^,
	                  replace(
	                    title^,
	                    '[^&quot^;^&apos^;]'^,
	                    ''''''
	                  ^)^,
	                  replace(
	                    publisheddate^,
	                    '(\d+^)-(\d+^)-(\d+^).+'^,
	                    ' ($3$2$1^)'
	                  ^)
	                ^)^,
	                json:^=[
	                  (assets^)(^)/{
	                    'format':concat(
	                      'mp4-'^,
	                      bandwidth
	                    ^)^,
	                    'url':src
	                  }
	                ]
	              ^)^,
	              let $b:^=(
	                $json(^)[format^='meta']/format^,
	                for $x in $json(^)[format!^='meta']/format order by $x return $x
	              ^) return (
	                formats:^=join($b^,'^, '^)^,
	                best:^=$b[last(^)]
	              ^)
	            ^)
	          else (
	            if (//@data-script^) then (
	              json:^=[
	                //@data-script ! {
	                  position(^)^|^|'e':json(
	                    extract(
	                      unparsed-text(.^)^,
	                      'var opts ^= (.+^)^;'^,1
	                    ^)
	                  ^)/clipData/{
	                    'name':concat(
	                      'Omroep Brabant - '^,
	                      replace(
	                        title^,
	                        '[^&quot^;^&apos^;]'^,
	                        ''''''
	                      ^)^,
	                      replace(
	                        publisheddate^,
	                        '(\d+^)-(\d+^)-(\d+^).+'^,
	                        ' ($3$2$1^)'
	                      ^)
	                    ^)^,
	                    'formats':[
	                      (assets^)(^)/{
	                        'format':concat(
	                          'mp4-'^,
	                          bandwidth
	                        ^)^,
	                        'url':src
	                      }
	                    ]
	                  }
	                }
	              ]^,
	              videos:^=join($json(^)(^)^,'^, '^)
	            ^) else
	              (^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:l1-live.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"prid:^=//script/extract(
	      .^,
	      'prid: \^"(.+^^^)\^"'^,1
	    ^)[.]^" --output-format^=cmd^"') DO %%A
	GOTO NPO
) ELSE IF NOT "%url:l1.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"let $a:^=//div/script[contains(@src^,'video'^)]/@src return
	          if (count($a^)^=1^) then
	            json(
	              extract(
	                unparsed-text($a^)^,
	                'var opts ^= (.+^)^;'^,1
	              ^)
	            ^)/(
	              if (clipData^) then
	                let $b:^=.//defaultMediaAssetPath return
	                clipData/(
	                  name:^=concat(
	                    'L1 - '^,
	                    replace(
	                      replace(
	                        title^,
	                        '(.+^) -.+'^,
	                        '$1'
	                      ^)^,
	                      '[^&quot^;^&apos^;]'^,
	                      ''''''
	                    ^)^,
	                    replace(
	                      publisheddate^,
	                      '(\d+^)-(\d+^)-(\d+^).+'^,
	                      ' ($3$2$1^)'
	                    ^)
	                  ^)^,
	                  json:^=[
	                    (assets^)(^)/{
	                      'format':concat(
	                        'mp4-'^,
	                        bandwidth
	                      ^)^,
	                      'url':concat(
	                        $b^,
	                        src
	                      ^)
	                    }
	                  ]^,
	                  let $c:^=for $x in $json(^)/format order by $x return $x return (
	                    formats:^=join($c^,'^, '^)^,
	                    best:^=$c[last(^)]
	                  ^)
	                ^)
	              else
	                (^)
	            ^)
	          else (
	            json:^=[
	              for $x at $i in $a return {
	                $i^|^|'e':json(
	                  extract(
	                    unparsed-text($x^)^,
	                    'var opts ^= (.+^)^;'^,1
	                  ^)
	                ^)/(
	                  let $b:^=.//defaultMediaAssetPath return
	                  clipData/{
	                    'name':concat(
	                      'L1 - '^,
	                      replace(
	                        replace(
	                          title^,
	                          '(.+^) -.+'^,
	                          '$1'
	                        ^)^,
	                        '[^&quot^;^&apos^;]'^,
	                        ''''''
	                      ^)^,
	                      replace(
	                        publisheddate^,
	                        '(\d+^)-(\d+^)-(\d+^).+'^,
	                        ' ($3$2$1^)'
	                      ^)
	                    ^)^,
	                    'formats':[
	                      (assets^)(^)/{
	                        'format':concat(
	                          'mp4-'^,
	                          bandwidth
	                        ^)^,
	                        'url':concat(
	                          $b^,
	                          src
	                        ^)
	                      }
	                    ]
	                  }
	                ^)
	              }
	            ]^,
	            videos:^=join($json(^)(^)^,'^, '^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:www.telegraaf.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-f ^"concat^(
	      'https://content.tmgvideo.nl/playlist/item^='^,
	      json^(
	        //script/extract^(
	          .^,
	          'APOLLO_STATE__^=^(.+^)^;'^,
	          1
	        ^)[.]
	      ^)/^(.//videoId^)[1]^,
	      '/playlist.json'
	    ^)^"
	--xquery ^"$json/^(items^)^(^)/^(
	            name:^=concat^(
	              'Telegraaf: '^,
	              title^,
	              replace^(
	                datecreated^,
	                '^(\d+^)-^(\d+^)-^(\d+^).+'^,
	                ' ^($3$2$1^)'
	              ^)
	            ^)^,
	            t:^=duration^,
	            duration:^=$t * dayTimeDuration^('PT1S'^) + time^('00:00:00'^)^,
	            formats:^=locations/[
	              reverse^(
	                ^(progressive^)^(^)
	              ^)/{
	                'format':'mp4-'^|^|position^(^)^,
	                'extension':'mp4'^,
	                'resolution':concat^(
	                  width^,
	                  'x'^,
	                  height
	                ^)^,
	                'url':.//src
	              }^,
	              let $a:^=^(adaptive^)^(^)[ends-with^(src^,'m3u8'^)]/src return ^(
	                {
	                  'format':'hls-0'^,
	                  'extension':'m3u8'^,
	                  'resolution':'manifest'^,
	                  'url':$a
	                }^,
	                for $x at $i in tail^(
	                  tokenize^(
	                    extract^(
	                      unparsed-text^($a^)^,
	                      '^(#EXT-X-STREAM-INF.+m3u8$^)'^,
	                      1^,'ms'
	                    ^)^,
	                    '#EXT-X-STREAM-INF:'
	                  ^)
	                ^) order by extract^(
	                  $x^,
	                  'BANDWIDTH^=^(\d+^)'^,
	                  1
	                ^) count $i return {
	                  'format':'hls-'^|^|$i^,
	                  'extension':'m3u8'^,
	                  'resolution':extract^(
	                    $x^,
	                    'RESOLUTION^=^([\dx]+^)'^,
	                    1
	                  ^) ! ^(
	                    if ^(.^) then
	                      .
	                    else
	                      'audiospoor'
	                  ^)^,
	                  'vbitrate':extract^(
	                    $x^,
	                    'video^=^(\d+^)\d{3}'^,
	                    1
	                  ^) ! ^(
	                    if ^(.^) then
	                      concat^(
	                        'v:'^,
	                        .^,
	                        'k'
	                      ^)
	                    else
	                      ''
	                  ^)^,
	                  'abitrate':replace^(
	                    $x^,
	                    '.+audio.+?^(\d+^)\d{3}.+'^,
	                    'a:$1k'^,
	                    's'
	                  ^)^,
	                  'url':resolve-uri^(
	                    '.'^,
	                    $a
	                  ^)^|^|extract^(
	                    $x^,
	                    '^(.+m3u8^)'^,
	                    1
	                  ^)
	                }
	              ^)
	            ]
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:nickelodeon.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"name:^=concat^(
	      'Nickelodeon: '^,
	      //meta[@itemprop^='name']/@content^,
	      replace^(
	        //meta[@itemprop^='uploadDate']/@content^,
	        '^(\d+^)-^(\d+^)-^(\d+^)'^,
	        ' ^($3$2$1^)'
	      ^)
	    ^)^"
	-f ^"//@data-mrss^"
	-e ^"t:^=//@duration^,
	    duration:^=$t * dayTimeDuration^('PT1S'^) + time^('00:00:00'^)^"
	-f ^"substring-before^(
	      //media:content/@url^,
	      '$'
	    ^)^|^|'NL'^"
	-e ^"formats:^=[
	      //rendition/{
	        'format':'mp4-'^|^|position^(^)^,
	        'extension':'mp4'^,
	        'resolution':concat^(
	          @width^,
	          'x'^,
	          @height
	        ^)^,
	        'vbitrate':@bitrate^|^|'k'^,
	        'url':src
	      }
	    ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:cartoonnetwork.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"name:^=concat^(
	      'Cartoon Network: '^,
	      //h1[@class^='cnLogo-tagline']^,
	      replace^(
	        //meta[@property^='uploadDate']/@content^,
	        '^(\d+^)-^(\d+^)-^(\d+^)'^,
	        ' ^($3$2$1^)'
	      ^)
	    ^)^"
	-f ^"//meta[@property^='embedUrl']/@content^"
	--xquery ^"json^(
	            //script/extract^(
	              .^,
	              'Data ^= ^(.+^)^;'^,
	              1
	            ^)[.]
	          ^)/entryResult/^(
	            t:^=.//duration^,
	            duration:^=$t * dayTimeDuration^('PT1S'^) + time^('00:00:00'^)^,
	            formats:^=[
	              let $a:^=extract^(
	                .//downloadUrl^,
	                '^(.+/^)'^,
	                1
	              ^) return
	              ^(.//flavorAssets^)^(^)/{
	                'format':'mp4-'^|^|position^(^)^,
	                'extension':fileExt^,
	                'resolution':concat^(
	                  width^,
	                  'x'^,
	                  height
	                ^)^,
	                'vbitrate':bitrate^|^|'k'^,
	                'url':x:request^(
	                  {
	                    'data':$a^|^|flavorParamsId^,
	                    'method':'HEAD'^,
	                    'error-handling':'4xx^=accept'
	                  }
	                ^)/^(
	                  if ^(
	                    contains^(
	                      headers[1]^,
	                      '404'
	                    ^)
	                  ^) then
	                    ^(^)
	                  else
	                    url
	                ^)
	              }[url]
	            ]
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:24kitchen.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% -H "Cookie: AcceptCookies=1" --user-agent "%user-agent%" "%url%"
	-e ^"json^(
	      //script/extract^(
	        .^,
	        'graph.+?^(\[.+\]^)'^,
	        1^,'s'
	      ^)
	    ^)^(1^)/^(
	      name:^=concat^(
	        '24Kitchen: '^,
	        name^,
	        replace^(
	          datePublished^,
	          '^(\d+^)-^(\d+^)-^(\d+^).+'^,
	          ' ^($3$2$1^)'
	        ^)
	      ^)
	    ^)^"
	-f ^"json^(
	      //script[@type^='application/json']
	    ^)/^(
	      let $a:^=^(mcplayers^)^(^) return
	      ^(mcplayers^)^($a^)
	    ^)^"
	-e ^"formats:^=[
	      {
	        'format':'mp4-1'^,
	        'extension':'mp4'^,
	        'url':x:request^(
	          {
	            'data':$json//src^,
	            'method':'HEAD'
	          }
	        ^)/url
	      }
	    ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:dumpert.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% -H "Cookie: nsfw=1;cpc=10" "%url%"
	--xquery ^"let $a:^={
	                'januari':'01'^,
	                'februari':'02'^,
	                'maart':'03'^,
	                'april':'04'^,
	                'mei':'05'^,
	                'juni':'06'^,
	                'juli':'07'^,
	                'augustus':'08'^,
	                'september':'09'^,
	                'oktober':'10'^,
	                'november':'11'^,
	                'december':'12'
	              }^,
	              $b:^=tokenize^(
	                //p[@class^='dump-pub']^,
	                ' '
	              ^)^,
	              $c:^='Dumpert: '^|^|replace^(
	                //div[@class^='dump-desc']/h1^,
	                '[^&quot^;^&apos^;]'^,
	                ''''''
	              ^)^,
	              $d:^=concat^(
	                ' ^('^,
	                if ^($b[1]^<10^) then
	                  '0'^|^|$b[1]
	                else
	                  $b[1]^,
	                $a^($b[2]^)^,
	                $b[3]^,
	                '^)'
	              ^)
	          return
	          if ^(//iframe^) then
	            v_url:^=replace^(
	              //iframe/@src^,
	              '.+/^(.+^)'^,
	              'https://youtu.be/$1'
	            ^)
	          else
	            videos:^=[
	              ^(
	                if ^(//@data-files^) then
	                  //div/@data-files/json^(
	                    binary-to-string^(
	                      base64Binary^(.^)
	                    ^)
	                  ^)
	                else
	                  json^(
	                    //script/extract^(
	                      .^,
	                      'fileinfo ^= ^(.+^)^,'^,
	                      1
	                    ^)[.]
	                  ^)
	              ^)/{
	                position^(^):{
	                  'name':^(
	                    if ^(position^(^)^=1^) then
	                      $c
	                    else
	                      concat^(
	                        $c^,
	                        ' ^('^,
	                        position^(^)^,
	                        '^)'
	                      ^)
	                  ^)^|^|$d^,
	                  'formats':for $x at $i in ^(
	                    for $x in ^(
	                      'flv'^,
	                      'mobile'^,
	                      'tablet'^,
	                      '720p'
	                    ^) return
	                    .^($x^)
	                  ^) return {
	                    'format':concat^(
	                      extract^(
	                        $x^,
	                        '.+\.^(.+^)'^,
	                        1
	                      ^)^,
	                      '-'^,
	                      $i
	                    ^)^,
	                    'extension':'mp4'^,
	                    'url':$x
	                  }
	                }
	              }
	            ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:comedycentral.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"videos:^=if ^(//@data-mrss^) then
	            if ^(count^(//@data-mrss^)^=1^) then [
	              {
	                '1':{
	                  'name':'Comedy Central: '^|^|replace^(
	                    //div[@class^='episode_information']/h2^,
	                    '[^&quot^;^&apos^;]'^,
	                    ''''''
	                  ^)^,
	                  'prid':extract^(
	                    //@data-mrss^,
	                    '^(local.+^)'^,
	                    1
	                  ^)^,
	                  'goto':'MTVapi'
	                }
	              }
	            ] else [
	              //li[@data-mrss]/{
	                position^(^):{
	                  'name':'Comedy Central: '^|^|replace^(
	                    if ^(@data-franchise^) then
	                      concat^(
	                        @data-franchise^,
	                        ' - '^,
	                        .//img/@alt
	                      ^)
	                    else
	                      .//img/@alt^,
	                    '[^&quot^;^&apos^;]'^,
	                    ''''''
	                  ^)^,
	                  'prid':extract^(
	                    @data-mrss^,
	                    '^(local.+^)'^,
	                    1
	                  ^)^,
	                  'goto':'MTVapi'
	                }
	              }
	            ]
	          else [
	            {
	              '1':{
	                'name':'Comedy Central: '^|^|replace^(
	                  //meta[@property^='og:title']/@content^,
	                  '[^&quot^;^&apos^;]'^,
	                  ''''''
	                ^)^,
	                'prid':json^(
	                  //script/extract^(
	                    .^,
	                    'playObject ^= ^(.+?^)^;'^,
	                    1^,'s'
	                  ^)[.]
	                ^)/concat^(
	                  type^,
	                  '-'^,
	                  token
	                ^)^,
	                'goto':'MTVapi'
	              }
	            }
	          ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:nl.funnyclips.cc=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"videos:^=[
	            {
	              '1':{
	                'name':'FunnyClips: '^|^|replace^(
	                  concat^(
	                    //h3[@class^='franchise_title']/text^(^)[1]^,
	                    ' - '^,
	                    //h2[@class^='title']
	                  ^)^,
	                  '[^&quot^;^&apos^;]'^,
	                  ''''''
	                ^)^,
	                'prid'://script/extract^(
	                  .^,
	                  'http.+^(local.+^)'''^,
	                  1
	                ^)[.]^,
	                'goto':'MTVapi'
	              }
	            }
	          ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:mtv.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-e ^"let $a:^=//meta[@property^='search:duration']/@content return
	    duration:^=substring^(
	      '00:00:00'^,
	      1^,
	      8-string-length^($a^)
	    ^)^|^|$a^,
	    t:^=hours-from-time^($duration^)*3600+
	      minutes-from-time^($duration^)*60+
	      seconds-from-time^($duration^)^"
	-f ^"//@data-tffeed[1]^"
	-e ^"name:^=$json//data/concat^(
	      'MTV: '^,
	      if ^(^(artists^)^(^)^) then
	        ^(artists^)^(1^)/name^|^|' - '
	      else
	        ^(^)^,
	      title^,
	      replace^(
	        displayDate^,
	        '^(\d+^)/^(\d+^)/^(\d+^)'^,
	        ' ^($2$1$3^)'
	      ^)
	    ^)^"
	-f ^"concat^(
	      'http://media.mtvnservices.com/pmt/e1/access/index.html?uri^='^,
	      $json//data/id^,
	      '^&configtype^=edge'
	    ^)^"
	-f ^"$json//content^"
	-e ^"formats:^=[
	      //rendition/{
	        'format':'flv-'^|^|position^(^)^,
	        'extension':'mp4'^,
	        'resolution':concat^(
	          @width^,
	          'x'^,
	          @height
	        ^)^,
	        'vbitrate':@bitrate^|^|'k',^,
	        'url':src
	      }
	    ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:foxtv.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"doc^(
	            'https://players.fichub.com/api/v1.1/get-player?callback^=sdkcb_1^&amp^;data^='^|^|string-to-base64Binary^(
	              replace^(
	                serialize-json^(
	                  {^|
	                    json^(
	                      //script/extract^(
	                        .^,
	                        '''#player''^, ^(.+?\}^)^,'^,
	                        1^,'s'
	                      ^)[.]
	                    ^)^,
	                    {'instance_id':1}
	                  ^|}
	                ^)^,
	                '\s'^,
	                ''
	              ^)
	            ^)
	          ^)/json^(
	            extract^(
	              .^,
	              '^(\{.+\}^)'^,
	              1
	            ^)
	          ^)/parse-html^(payload^) ! ^(
	            name:^=json^(
	              extract^(
	                .^,
	                'sola: ^(.+?\}^)'^,
	                1^,'s'
	              ^)
	            ^)/concat^(
	              'FOX: '^,
	              if ^(showTitle^) then
	                showTitle^|^|' - '
	              else
	                ^(^)^,
	              videoTitle^,
	              replace^(
	                createdDate^,
	                '^(\d{4}^)^(\d{2}^)^(\d{2}^).+'^,
	                ' ^($3$2$1^)'
	              ^)
	            ^)^,
	            let $a:^=json^(
	                  extract^(
	                    .^,
	                    'releaseUrl: ^(.+?\}^)'^,
	                    1^,'s'
	                  ^)
	                ^)/concat^(
	                  'https://'^,
	                  link^,
	                  '/s/'^,
	                  player^,
	                  '/'^,
	                  id^,
	                  '?mbr^=true^&amp^;policy^='^,
	                  policy^,
	                  '^&amp^;switch^='^,
	                  switch
	                ^)^,
	                $b:^=doc^($a^)
	            return ^(
	              t:^=round^(
	                substring-before^(
	                  $b//ref/@dur^,
	                  'ms'
	                ^) div 1000
	              ^)^,
	              duration:^=$t * dayTimeDuration^('PT1S'^) + time^('00:00:00'^)^,
	              if ^($b//textstream^) then
	                s_url:^=$b//textstream[@lang^='nl'][@type^='text/srt']/@src
	              else
	                ^(^)^,
	              formats:^=[
	                for $x at $i in $b//video order by $x/@system-bitrate count $i return
	                $x/{
	                  'format':'pg-'^|^|$i^,
	                  'extension':'mp4'^,
	                  'resolution':concat^(
	                    @width^,
	                    'x'^,
	                    @height
	                  ^)^,
	                  'vbitrate':round^(
	                    @system-bitrate div 1000
	                  ^)^|^|'k'^,
	                  'url':@src
	                }^,
	                doc^($a^|^|'^&amp^;manifest^=m3u'^)//video/^(
	                  {
	                    'format':'hls-0'^,
	                    'extension':'m3u8'^,
	                    'resolution':'manifest'^,
	                    'url':@src
	                  }^,
	                  for $x at $i in tail^(
	                    tokenize^(
	                      unparsed-text^(@src^)^,
	                      '#EXT-X-STREAM-INF:'
	                    ^)
	                  ^) order by extract^(
	                    $x^,
	                    'BANDWIDTH^=^(\d+^)'^,
	                    1
	                  ^) count $i return {
	                    'format':'hls-'^|^|$i^,
	                    'extension':'m3u8'^,
	                    'resolution':extract^(
	                      $x^,
	                      'RESOLUTION^=^([\dx]+^)'^,
	                      1
	                    ^)^,
	                    'vbitrate':extract^(
	                      $x^,
	                      'BANDWIDTH^=^(\d+^)\d{3}'^,
	                      1
	                    ^)^|^|'k'^,
	                    'url':extract^(
	                      $x^,
	                      '^(.+m3u8^)'^,
	                      1
	                    ^)
	                  }
	                ^)
	              ]
	            ^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:foxsports.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	-f ^"{
	      'data':concat^(
	        'https://'^,
	        $host^,
	        '/videodata/'^,
	        //@data-videoid^,
	        '.xml'
	      ^)^,
	      'input-format':'xml-strict'
	    }^"
	--xquery ^"name:^=concat^(
	            'FOX Sports: '^,
	            //title^,
	            replace^(
	              //publicationDate^,
	              '^(\d{4}^)^(\d{2}^)^(\d{2}^).+'^,
	              ' ^($3$2$1^)'
	            ^)
	          ^)^,
	          t:^=//duration^,
	          duration:^=$t * dayTimeDuration^('PT1S'^) + time^('00:00:00'^)^,
	          let $a:^=doc^(
	                //videoSource[@format^='IIS']/uri
	              ^)//StreamIndex[@Type^='video']/QualityLevel/concat^(
	                @MaxWidth^,
	                'x'^,
	                @MaxHeight
	              ^)^,
	              $b:^=//videoSource[@format^='HLS']/uri
	          return
	          formats:^=[
	            {
	              'format':'hls-0'^,
	              'extension':'m3u8'^,
	              'resolution':'manifest'^,
	              'url':$b
	            }^,
	            for $x at $i in tail^(
	              tokenize^(
	                unparsed-text^($b^)^,
	                '#EXT-X-STREAM-INF:'
	              ^)
	            ^) order by extract^(
	              $x^,
	              'BANDWIDTH^=^(\d+^)'^,
	              1
	            ^) count $i return {
	              'format':'hls-'^|^|$i^,
	              'extension':'m3u8'^,
	              'resolution':reverse^($a^)[$i]^,
	              'vbitrate':extract^(
	                $x^,
	                'BANDWIDTH^=^(\d+^)\d{3}'^,
	                1
	              ^)^|^|'k'^,
	              'url':resolve-uri^(
	                '.'^,
	                $b
	              ^)^|^|extract^(
	                $x^,
	                '^(.+m3u8^)'^,
	                1
	              ^)
	            }
	          ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:abhd.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"//div[@id^='playerObject']/^(
	            let $a:^={
	                  'Jan':'01'^,
	                  'Feb':'02'^,
	                  'Mar':'03'^,
	                  'Apr':'04'^,
	                  'May':'05'^,
	                  'Jun':'06'^,
	                  'Jul':'07'^,
	                  'Aug':'08'^,
	                  'Sep':'09'^,
	                  'Okt':'10'^,
	                  'Nov':'11'^,
	                  'Dec':'12'
	                }^,
	                $b:^=extract^(
	                  span[1]^,
	                  '^(\d+^)^(.+?^)^(\d+^)'^,
	                  ^(1^,2^,3^)
	                ^)
	            return
	            name:^=concat^(
	              'ABHD: '^,
	              replace^(
	                h1/a^,
	                '[^&quot^;^&apos^;]'^,
	                ''''''
	              ^)^,
	              ' ^('^,
	              $b[1]^,
	              $a^($b[2]^)^,
	              '20'^,
	              $b[3]^,
	              '^)'
	            ^)^,
	            script[@type^='text/javascript']/^(
	              if ^(@src^) then
	                v_url:^=replace^(
	                  @src^,
	                  '.+/^(.+^)\.js'^,
	                  'https://youtu.be/$1'
	                ^)
	              else
	                formats:^=[
	                  reverse^(
	                    extract^(
	                      .^,
	                      'myfile ^= ''^(.+^)'''^,
	                      1^,'*'
	                    ^)
	                  ^) ! {
	                    'format':'mp4-'^|^|position^(^)^,
	                    'extension':'mp4'^,
	                    'url':.
	                  }
	                ]
	            ^)
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:autojunk.nl=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% "%url%"
	--xquery ^"name:^=concat^(
	            'Autojunk: '^,
	            replace^(
	              //meta[@property^='og:title']/@content^,
	              '[^&quot^;^&apos^;]'^,
	              ''''''
	            ^)^,
	            replace^(
	              //span[@class^='posted']^,
	              '.+?^(\d+^)-^(\d+^)-^(\d+^).+'^,
	              ' ^($1$2$3^)'
	            ^)
	          ^)^,
	          //div[@id^='playerWrapper']/script[1]/^(
	            t:^=extract^(
	              .^,
	              '.+length.+?^(\d+^)'^,
	              1
	            ^)^,
	            duration:^=$t * dayTimeDuration^('PT1S'^) + time^('00:00:00'^)^,
	            if ^(@src^) then
	              v_url:^=replace^(
	                @src^,
	                '.+/^(.+^)\.js'^,
	                'https://youtu.be/$1'
	              ^)
	            else
	              formats:^=[
	                reverse^(
	                  json^(
	                    replace^(
	                      extract^(
	                        .^,
	                        'clipData.assets ^= ^(.+\]^)^;'^,
	                        1^,'s'
	                      ^)^,
	                      ' //.+'^,
	                      ''
	                    ^)
	                  ^)^(^)
	                ^)[src]/{
	                  'format':'mp4-'^|^|position^(^)^,
	                  'extension':'mp4'^,
	                  'url':src
	                }
	              ]
	          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE IF NOT "%url:tweakers.net=%"=="%url%" (
	FOR /F "delims=" %%A IN ('^"%xidel% --method^=POST "%url%"
	--xquery ^"videos:^=[
	            ^(
	              if ^(//iframe^) then
	                //iframe/doc^(@src^)
	              else
	                .
	            ^)/{
	              position^(^):json^(
	                //script/extract^(
	                  .^,
	                  '''video''^,^(.+^)\^)^;'^,
	                  1
	                ^)[.]
	              ^)/^(.//items^)^(^)/{
	                'name':'Tweakers: '^|^|replace^(
	                  title^,
	                  '[^&quot^;^&apos^;]'^,
	                  ''''''
	                ^)^,
	                't':duration^,
	                'duration':duration * dayTimeDuration^('PT1S'^) + time^('00:00:00'^)^,
	                'formats':locations/[
	                  reverse^(
	                    ^(progressive^)^(^)
	                  ^)/{
	                    'format':'pg-'^|^|position^(^)^,
	                    'extension':'mp4'^,
	                    'resolution':concat^(
	                      width^,
	                      'x'^,
	                      height
	                    ^)^,
	                    'url':.//src
	                  }^,
	                  let $a:^=^(adaptive^)^(^)[
	                    ends-with^(
	                      src^,
	                      'm3u8'
	                    ^)
	                  ]/src return ^(
	                    {
	                      'format':'hls-0'^,
	                      'extension':'m3u8'^,
	                      'resolution':'manifest'^,
	                      'url':$a
	                    }^,
	                    for $x at $i in tail^(
	                      tokenize^(
	                        extract^(
	                          unparsed-text^($a^)^,
	                          '^(#EXT-X-STREAM-INF.+m3u8$^)'^,
	                          1^,
	                          'ms'
	                        ^)^,
	                        '#EXT-X-STREAM-INF:'
	                      ^)
	                    ^) order by extract^(
	                      $x^,
	                      'BANDWIDTH^=^(\d+^)'^,
	                      1
	                    ^) count $i return {
	                      'format':'hls-'^|^|$i^,
	                      'extension':'m3u8'^,
	                      'resolution':extract^(
	                        $x^,
	                        'RESOLUTION^=^([\dx]+^)'^,
	                        1
	                      ^) ! ^(
	                        if ^(.^) then
	                          .
	                        else
	                          'audiospoor'
	                      ^)^,
	                      'vbitrate':extract^(
	                        $x^,
	                        'video^=^(\d+^)\d{3}'^,
	                        1
	                      ^) ! ^(
	                        if ^(.^) then
	                          concat^(
	                            'v:'^,
	                            .^,
	                            'k'
	                          ^)
	                        else
	                          ''
	                      ^)^,
	                      'abitrate':replace^(
	                        $x^,
	                        '.+audio.+?^(\d+^)\d{3}.+'^,
	                        'a:$1k'^,
	                        's'
	                      ^)^,
	                      'url':resolve-uri^(
	                        '.'^,
	                        $a
	                      ^)^|^|extract^(
	                        $x^,
	                        '^(.+m3u8^)'^,
	                        1
	                      ^)
	                    }
	                  ^)
	                ]
	              }
	            }
	          ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
) ELSE (
	echo
	echo Ongeldige programma-url.
	echo
	echo
	GOTO Input
)

IF DEFINED videos (
	GOTO Videos
) ELSE IF DEFINED formats (
	GOTO Formats
) ELSE IF DEFINED v_url (
	IF NOT "%%v_url:youtu.be=%%"=="%%v_url%%" (
		GOTO Render
	) ELSE (
		GOTO Select
	)
) ELSE (
	echo
	echo Video niet ^(meer^) beschikbaar.
	echo
	echo
	ENDLOCAL
	GOTO Input
)

# ================================================================================================

:NPO
FOR /F "delims=" %%A IN ('^"%xidel% "http://e.omroep.nl/metadata/%prid%"
--xquery ^"json^(
            extract^(
              $raw^,
              '\^(^(.+^)\^)'^,
              1
            ^)
          ^)[not^(error^)] ! ^(
            name:^=if ^(medium^='live'^) then
              concat^(
                titel^,
                replace^(
                  '%date%'^,
                  '.+?^(\d+^)-^(\d+^)-^(\d+^)'^,
                  ': Livestream ^($1$2$3^)'
                ^)
              ^)
            else
              replace^(
                concat^(
                  if ^(count^(.//naam^)^=1^) then
                    .//naam
                  else
                    join^(
                      .//naam^,
                      ' en '
                    ^)^,
                  ': '^,
                  if ^(ptype^='episode'^) then ^(
                    if ^(aflevering_titel^) then ^(
                      if ^(
                        contains^(
                          titel^,
                          aflevering_titel
                        ^)
                      ^) then
                        titel
                      else ^(
                        if ^(
                          contains^(
                            aflevering_titel^,
                            titel
                          ^)
                        ^) then
                          aflevering_titel
                        else
                          concat^(
                            titel^,
                            ' - '^,
                            aflevering_titel
                          ^)
                      ^)
                    ^) else
                      titel
                  ^) else
                    concat^(
                      .//serie_titel^,
                      ' - '^,
                      titel
                    ^)^,
                  if ^(
                    matches^(
                      '%date%'^,
                      '^^\d'
                    ^)
                  ^) then
                    ' ^(%date%^)'
                  else
                    replace^(
                      x:request^(
                        {
                          'data':'http://www.npo.nl/%prid%'^,
                          'method':'HEAD'
                        }
                      ^)/url^,
                      '.+?^(\d+^)-^(\d+^)-^(\d+^).+'^,
                      ' ^($1$2$3^)'
                    ^)
                ^)^,
                '[^&quot^;^&apos^;]'^,
                ''''''
              ^)^,
            if ^(tijdsduur^) then ^(
              duration:^=tijdsduur^,
              t:^=hours-from-time^(tijdsduur^)*3600+
                minutes-from-time^(tijdsduur^)*60+
                seconds-from-time^(tijdsduur^)^,
              if ^(start^) then ^(
                start:^=start^,
                ^(
                  hours-from-time^(start^)*3600+
                  minutes-from-time^(start^)*60+
                  seconds-from-time^(start^)
                ^) ! ^(
                  ss:^=.^,
                  if ^(. mod 30^=0^) then ^(
                    if ^(.^=30^) then
                      ^(^)
                    else
                      ss1:^=. - 30^,
                    ss2:^=30
                  ^) else ^(
                    if ^(.^<30^) then
                      ^(^)
                    else
                      ss1:^=. - ^(. mod 30^)^,
                    ss2:^=. mod 30
                  ^)
                ^)^,
                end:^=eind^,
                to:^=hours-from-time^(eind^)*3600+
                  minutes-from-time^(eind^)*60+
                  seconds-from-time^(eind^)
              ^) else
                ^(^)^,
              if ^(publicatie_eind^) then ^(
                let $a:^=dateTime^(publicatie_eind^) - current-dateTime^(^) return
                expire:^=concat^(
                  replace^(
                    publicatie_eind^,
                    '^(\d+^)-^(\d+^)-^(\d+^)T^(.+^)\+.+'^,
                    '$3-$2-$1 $4'
                  ^)^,
                  ' ^(nog '^,
                  days-from-duration^($a^) ! ^(
                    if ^(.^=0^) then
                      ^(^)
                    else if ^(.^=1^) then
                      .^|^|' dag en '
                    else
                      .^|^|' dagen en '
                  ^)^,
                  hours-from-duration^($a^) ! ^(
                    if ^(.^=0^) then
                      ^(^)
                    else
                      .^|^|'u'
                  ^)^,
                  minutes-from-duration^($a^) ! ^(
                    if ^(.^=0^) then
                      ^(^)
                    else
                      .^|^|'m'
                  ^)^,
                  round^(
                    seconds-from-duration^($a^)
                  ^)^,
                  's^)'
                ^)
              ^) else
                ^(^)
            ^) else
              ^(^)^,
            if ^(tt888^='ja'^) then
              s_url:^='http://tt888.omroep.nl/tt888/'^|^|prid
            else
              ^(^)
          ^)^,
          let $a:^=x:request^(
                {
                  'data':'http://ida.omroep.nl/app.php/%prid%?token^='^|^|json^(
                    'http://ida.omroep.nl/app.php/auth'
                  ^)/token^,
                  'error-handling':'4xx^=accept'
                }
              ^)[
                contains^(
                  headers[1]^,
                  '200'
                ^)
              ]/json/^(items^)^(^)^(^)^,
              $b:^=^(
                reverse^(
                  $a[contentType^='odi'][format^='mp4']
                ^)/x:request^(
                  {
                    'data':replace^(
                      url^,
                      'jsonp'^,
                      'json'
                    ^)^,
                    'error-handling':'4xx^=accept'
                  }
                ^)[
                  contains^(
                    headers[1]^,
                    '200'
                  ^)
                ]/json/substring-before^(
                  url^,
                  '?'
                ^) ! {
                  'format':'pg-'^|^|position^(^)^,
                  'extension':'m4v'^,
                  'url':.
                }^,
                let $b:^=$a[format^='hls']/x:request^(
                  {
                    'data':replace^(
                      url^,
                      'jsonp'^,
                      'json'
                    ^)^,
                    'error-handling':'4xx^=accept'
                  }
                ^)[
                  contains^(
                    headers[1]^,
                    '200'
                  ^)
                ]/^(
                  if ^(doc^) then
                    json^(doc^)
                  else
                    json/url
                ^) return ^(
                  {
                    'format':'hls-0'^,
                    'extension':'m3u8'^,
                    'resolution':'manifest'^,
                    'url':$b
                  }[url]^,
                  for $x at $i in tail^(
                    tokenize^(
                      extract^(
                        unparsed-text^($b^)^,
                        '^(#EXT-X-STREAM-INF.+m3u8$^)'^,
                        1^,'ms'
                      ^)^,
                      '#EXT-X-STREAM-INF:'
                    ^)
                  ^) order by extract^(
                    $x^,
                    'BANDWIDTH^=^(\d+^)'^,
                    1
                  ^) count $i return {
                    'format':'hls-'^|^|$i^,
                    'extension':'m3u8'^,
                    'resolution':extract^(
                      $x^,
                      'RESOLUTION^=^([\dx]+^)'^,
                      1
                    ^) ! ^(
                      if ^(.^) then
                        .
                      else
                        'audiospoor'
                    ^)^,
                    'vbitrate':extract^(
                      $x^,
                      'video^=^(\d+^)\d{3}'^,
                      1
                    ^) ! ^(
                      if ^(.^) then
                        concat^(
                          'v:'^,
                          .^,
                          'k'
                        ^)
                      else
                        ''
                    ^)^,
                    'abitrate':replace^(
                      $x^,
                      '.+audio.+?^(\d+^)\d{3}.+'^,
                      'a:$1k'^,
                      's'
                    ^)^,
                    'url':resolve-uri^(
                      '.'^,
                      $b
                    ^)^|^|extract^(
                      $x^,
                      '^(.+m3u8^)'^,
                      1
                    ^)
                  }
                ^)^,
                reverse^(
                  $a[contentType^='url'][format^='mp4']
                ^)/x:request^(
                  {
                    'data':url^,
                    'method':'HEAD'^,
                    'error-handling':'xxx^=accept'
                  }
                ^)[
                  some $x in ^('200'^,'302'^) satisfies contains^(
                    headers[1]^,
                    $x
                  ^)
                ]/^(
                  if ^(
                    contains^(
                      url^,
                      'content-ip'
                    ^)
                  ^) then
                    x:request^(
                      {
                        'data':'https://ipv4-api.nos.nl/resolve.php/video?url^='^|^|uri-encode^(url^)^,
                        'method':'HEAD'
                      }
                    ^)/url
                  else
                    url
                ^) ! {
                  'format':'mp4-'^|^|position^(^)^,
                  'extension':extract^(
                    .^,
                    '.+\.^(.+^)'^,
                    1
                  ^)^,
                  'url':.
                }
              ^)
          return
          if ^($b^) then
            formats:^=[$b]
          else
            ^(^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A

IF DEFINED formats (
	GOTO Formats
) ELSE (
	echo
	echo Video nog niet, of niet meer beschikbaar.
	echo
	echo
	GOTO Input
)

# ================================================================================================

:rtlXL
FOR /F "delims=" %%A IN ('^"%xidel% "http://www.rtl.nl/system/s4m/vfd/version=2/uuid=%prid%/fmt=adaptive/"
--xquery ^"$json[
            not^(
              meta/nr_of_videos_total^=0
            ^)
          ]/^(
            name:^=replace^(
              concat^(
                .//station^,
                ': '^,
                abstracts/name^,
                ' - '^,
                if ^(.//classname^='uitzending'^) then
                  episodes/name
                else
                  .//title^,
                replace^(
                  .//original_date * duration^('PT1S'^) + date^('1970-01-01'^)^,
                  '^(\d+^)-^(\d+^)-^(\d+^)'^,
                  ' ^($3$2$1^)'
                ^)
              ^)^,
              '[^&quot^;^&apos^;]'^,
              ''''''
            ^)^,
            ^(material^)^(^)/^(
              duration:^=format-time^(
                time^(duration^) + duration^('PT0.5S'^)^,
                '[H01]:[m01]:[s01]'
              ^)^,
              t:^=hours-from-time^($duration^)*3600+
                minutes-from-time^($duration^)*60+
                seconds-from-time^($duration^)^,
              if ^(^(.//ddr_timeframes^)^(^)[model^='AVOD']/stop^) then
                let $a:^=^(.//ddr_timeframes^)^(^)[model^='AVOD']/stop * duration^('PT1S'^) + dateTime^('1970-01-01T00:00:00'^)^,
                    $b:^=$a - current-dateTime^(^)
                return
                expire:^=concat^(
                  replace^(
                    $a^,
                    '^(\d+^)-^(\d+^)-^(\d+^)T^(.+^)'^,
                    '$3-$2-$1 $4'
                  ^)^,
                  ' ^(nog '^,
                  days-from-duration^($b^) ! ^(
                    if ^(.^=0^) then
                      ^(^)
                    else if ^(.^=1^) then
                      .^|^|' dag en '
                    else
                      .^|^|' dagen en '
                  ^)^,
                  hours-from-duration^($b^) ! ^(
                    if ^(.^=0^) then
                      ^(^)
                    else
                      .^|^|'u'
                  ^)^,
                  minutes-from-duration^($b^) ! ^(
                    if ^(.^=0^) then
                      ^(^)
                    else
                      .^|^|'m'
                  ^)^,
                  round^(
                    seconds-from-duration^($b^)
                  ^)^,
                  's^)'
                ^)
              else
                ^(^)
            ^)^,
            formats:^=x:request^(
              {
                'data':json^(
                  'https://tm-videourlfeed.rtl.nl/api/url/%prid%?device^=pc^&amp^;format^=hls'
                ^)/url^,
                'error-handling':'4xx^=accept'
              }
            ^)[
              contains^(
                headers[1]^,
                '200'
              ^)
            ]/[
              {
                'format':'hls-0'^,
                'extension':'m3u8'^,
                'resolution':'manifest'^,
                'url':url
              }^,
              for $x at $i in tail^(
                tokenize^(
                  raw^,
                  '#EXT-X-STREAM-INF:'
                ^)
              ^) order by extract^(
                $x^,
                'BANDWIDTH^=^(\d+^)'^,
                1
              ^) count $i return {
                'format':'hls-'^|^|$i^,
                'extension':'m3u8'^,
                'resolution':extract^(
                  $x^,
                  'RESOLUTION^=^([\dx]+^)'^,
                  1
                ^) ! ^(
                  if ^(.^) then
                    .
                  else
                    'audiospoor'
                ^)^,
                'vbitrate':extract^(
                  $x^,
                  'video^=^(\d+^)\d{3}'^,
                  1
                ^) ! ^(
                  if ^(.^) then
                    concat^(
                      'v:'^,
                      .^,
                      'k'
                    ^)
                  else
                    ''
                ^)^,
                'abitrate':replace^(
                  $x^,
                  '.+audio.+?^(\d+^)\d{3}.+'^,
                  'a:$1k'^,
                  's'
                ^)^,
                'url':let $a:^=extract^(
                  $x^,
                  '^(.+m3u8^)'^,
                  1
                ^) return
                if ^(
                  starts-with^(
                    $a^,
                    'http'
                  ^)
                ^) then
                  $a
                else
                  resolve-uri^(
                    '.'^,
                    url
                  ^)^|^|$a^,
                'ff_param':'-seekable 0'
              }
            ]
          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A

IF DEFINED formats (
	GOTO Formats
) ELSE (
	echo
	echo Video nog niet, of niet meer beschikbaar.
	echo
	echo
	GOTO Input
)

# ================================================================================================

:Kijk
FOR /F "delims=" %%A IN ('^"%xidel% "http://api.kijk.nl/v1/default/entitlement/%prid%"
--xquery ^"$json/playerInfo[not^(hasDRM^)]/^(
            if ^(.//enddate^) then
              dateTime^(
                replace^(
                  .//enddate/date^,
                  ' '^,
                  'T'
                ^)
              ^) ! ^(
                let $a:^=. - current-dateTime^(^) return
                expire:^=concat^(
                  replace^(
                    .^,
                    '^(\d+^)-^(\d+^)-^(\d+^)T^(.+^)'^,
                    '$3-$2-$1 $4'
                  ^)^,
                  ' ^(nog '^,
                  days-from-duration^($a^) ! ^(
                    if ^(.^=0^) then
                      ^(^)
                    else if ^(.^=1^) then
                      .^|^|' dag en '
                    else
                      .^|^|' dagen en '
                  ^)^,
                  hours-from-duration^($a^) ! ^(
                    if ^(.^=0^) then
                      ^(^)
                    else
                      .^|^|'u'
                  ^)^,
                  minutes-from-duration^($a^) ! ^(
                    if ^(.^=0^) then
                      ^(^)
                    else
                      .^|^|'m'
                  ^)^,
                  round^(
                    seconds-from-duration^($a^)
                  ^)^,
                  's^)'
                ^)
              ^)
            else
              ^(^)^,
            let $a:^=doc^(
                  'http:'^|^|embed_video_url
                ^)[//@data-video-id]/x:request^(
                  {
                    'headers':
                      'Accept: application/json^;pk^='^|^|
                      extract^(
                        unparsed-text^(
                          //script[
                            contains^(
                              @src^,
                              //@data-account
                            ^)
                          ]/@src
                        ^)^,
                        'policyKey:\^"^(.+?^)\^"'^,
                        1
                      ^)^,
                    'url':concat^(
                      'https://edge.api.brightcove.com/playback/v1/accounts/'^,
                      //@data-account^,
                      '/videos/'^,
                      //@data-video-id
                    ^)^,
                    'error-handling':'xxx^=accept'
                  }
                ^)/json[not^(.//error_code^)]^,
                $b:^=json^(embed_api_url^)[videoId]
            return ^(
              if ^($a^) then
                $a/^(
                  name:^=if ^(.//sbs_videotype^='vod'^) then
                    concat^(
                      if ^(.//sbs_station^='veronicatv'^) then
                        'Veronica'
                      else
                        upper-case^(.//sbs_station^)^,
                      ': '^,
                      name^,
                      if ^(
                        string-length^(
                          .//sbs_episode
                        ^)^<^=7
                      ^) then
                        ' '^|^|.//sbs_episode
                      else
                        ^(^)^,
                      replace^(
                        .//sko_dt^,
                        '^(\d{4}^)^(\d{2}^)^(\d{2}^)'^,
                        ' ^($3$2$1^)'
                      ^)
                    ^)
                  else
                    concat^(
                      .//sbs_program^,
                      ': '^,
                      name^,
                      replace^(
                        published_at^,
                        '^(\d+^)-^(\d+^)-^(\d+^).+'^,
                        ' ^($3$2$1^)'
                      ^)
                    ^)^,
                  t:^=round^(duration div 1000^)
                ^)
              else
                $b/^(
                  name:^=concat^(
                    if ^(.//sbs_videotype^='vod'^) then
                      if ^(.//sbs_station^='veronicatv'^) then
                        'Veronica'
                      else
                        upper-case^(.//sbs_station^)
                    else
                      .//sbs_program^,
                    ': '^,
                    .//title^,
                    replace^(
                      .//sko_dt^,
                      '^(\d{4}^)^(\d{2}^)^(\d{2}^)'^,
                      ' ^($3$2$1^)'
                    ^)
                  ^)^,
                  t:^=.//duration
                ^)^,
              duration:^=$t * dayTimeDuration^('PT1S'^) + time^('00:00:00'^)^,
              'https://empprdsubtitles.blob.core.windows.net/vtt/Sanoma/SBS/%prid%_dbzyr6/vtt/nl.vtt' ! ^(
                if ^(unparsed-text-available^(.^)^) then
                  s_url:^=.
                else
                  ^(^)
              ^)^,
              formats:^=[
                for $x at $i in $a/^(sources^)^(^)[stream_name] order by $x/size count $i return
                $x/{
                  'format':'pg-'^|^|$i^,
                  'extension':'mp4'^,
                  'resolution':concat^(
                    width^,
                    'x'^,
                    height
                  ^)^,
                  'vbitrate':round^(
                    avg_bitrate div 1000
                  ^)^|^|'k'^,
                  'url':replace^(
                    stream_name^,
                    'mp4:'^,
                    'http://stv.cdn.sbsnet.nl/'
                  ^)
                }^,
                let $c:^=$a/^(sources^)^(^)[size^=0]/src return ^(
                  {
                    'format':'hls-0'^,
                    'extension':'m3u8'^,
                    'resolution':'manifest'^,
                    'url':$c
                  }[url]^,
                  tail^(
                    tokenize^(
                      unparsed-text^($c^)^,
                      '#EXT-X-STREAM-INF:'
                    ^)
                  ^) ! {
                    'format':'hls-'^|^|position^(^)^,
                    'extension':'m3u8'^,
                    'resolution':extract^(
                      .^,
                      'RESOLUTION^=^([\dx]+^)'^,
                      1
                    ^)^,
                    'vbitrate':round^(
                      extract^(
                        .^,
                        'BANDWIDTH^=^(\d+^)'^,
                        1
                      ^) div 1000
                    ^)^|^|'k'^,
                    'url':resolve-uri^(
                      '.'^,
                      $c
                    ^)^|^|extract^(
                      .^,
                      '^(.+m3u8^)'^,
                      1
                    ^)
                  }
                ^)^,
                $b/^(
                  {
                    'format':'hls-0_hd'^,
                    'extension':'m3u8'^,
                    'resolution':'manifest'^,
                    'url':playlist
                  }^,
                  tail^(
                    tokenize^(
                      unparsed-text^(playlist^)^,
                      '#EXT-X-STREAM-INF:'
                    ^)
                  ^) ! {
                    'format':concat^(
                      'hls-'^,
                      position^(^)^,
                      '_hd'
                    ^)^,
                    'extension':'m3u8'^,
                    'resolution':extract^(
                      .^,
                      'RESOLUTION^=^([\dx]+^)'^,
                      1
                    ^)^,
                    'vbitrate':extract^(
                      .^,
                      'BANDWIDTH^=^(\d+^)\d{3}'^,
                      1
                    ^)^|^|'k'^,
                    'url':extract^(
                      .^,
                      '^(.+m3u8^)'^,
                      1
                    ^)
                  }
                ^)
              ]
            ^)
          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A

IF DEFINED formats (
	GOTO Formats
) ELSE (
	echo
	echo Video nog niet, of niet meer beschikbaar.
	echo
	echo
	GOTO Input
)

# ================================================================================================

:MTVapi
FOR /F "delims=" %%A IN ('^"%xidel% "http://api.mtvnn.com/v2/mrss.xml?uri=mgid:sensei:video:mtvnn.com:%prid%"
--xquery ^"name:^=replace^(
            '%name:^^^=%'^,
            '[^&quot^;^&apos^;]'^,
            ''''''
          ^)^|^|replace^(
            //pubDate^,
            '^(\d+^)-^(\d+^)-^(\d+^).+'^,
            ' ^($3$2$1^)'
          ^)^,
          t:^=//media:content/@duration^,
          duration:^=$t * dayTimeDuration^('PT1S'^) + time^('00:00:00'^)^"
-f ^"//media:content/@url^"
-e ^"formats:^=[
      //rendition/{
        'format':'flv-'^|^|position^(^)^,
        'extension':'mp4'^,
        'resolution':concat^(
          @width^,
          'x'^,
          @height
        ^)^,
        'vbitrate':@bitrate^|^|'k'^,
        'url':src
      }
    ]^" --output-encoding^=oem --output-format^=cmd^"') DO %%A

IF DEFINED formats (
	GOTO Formats
) ELSE (
	echo
	echo Video nog niet, of niet meer beschikbaar.
	echo
	echo
	GOTO Input
)

# ================================================================================================

:NPORadio
SETLOCAL
echo
echo Beschikbare radiozenders:
echo
%xidel% "http://radio-app.omroep.nl/player/script/player.js" ^
--xquery ^"for $x in json(^
             extract(^
               $raw,^
               'NPW.config.channels=(.+),NPW.config.comscore_configurations',^
               1^
             )^
           )()[name!='demo'] order by $x/id return^
           concat('  ',^
             $x/id,^
             '. ',^
             $x/name^
           )^"
echo
read /P "id=Voer nummer in van gewenste radiozender: "
IF NOT DEFINED id (
	echo
	ENDLOCAL
	GOTO Input
)
FOR /F "delims=" %%A IN ('^"%xidel% "http://radio-app.omroep.nl/player/script/player.js"
--xquery ^"json^(
            extract^(
              $raw^,
              'NPW.config.channels^=^(.+^)^,NPW.config.comscore_configurations'^,
              1
            ^)
          ^)^(^)[name!^='demo'][id^=%id%]/^(
            name:^=name^|^|replace^(
              '%date%'^,
              '.+?^(\d+^)-^(\d+^)-^(\d+^)'^,
              ': Livestream ^($1$2$3^)'
            ^)^,
            formats:^=[
              for $x at $i in ^(audiostreams^)^(^)[protocol^='http'] order by $x/bitrate count $i return
              $x/{
                'format':concat^(
                  audiocodec^,
                  '-'^,
                  $i
                ^)^,
                'abitrate':concat^(
                  'a:'^,
                  bitrate^,
                  'k'
                ^)^,
                'url':url
              }^,
              ^(videostreams^)^(^)[protocol^='prid']/^(
                let $a:^=json^(
                  concat^(
                    'http://ida.omroep.nl/app.php/'^,
                    url^,
                    '?token^='^,
                    json^(
                      'http://ida.omroep.nl/app.php/auth'
                    ^)/token
                  ^)
                ^)/json^(
                  replace^(
                    .//url^,
                    'jsonp'^,
                    'json'
                  ^)
                ^) return ^(
                  {
                    'format':'hls-0'^,
                    'extension':'m3u8'^,
                    'resolution':'manifest'^,
                    'url':$a
                  }^,
                  for $x at $i in tail^(
                    tokenize^(
                      extract^(
                        unparsed-text^($a^)^,
                        '^(#EXT-X-STREAM-INF.+m3u8$^)'^,
                        1^,'ms'
                      ^)^,
                      '#EXT-X-STREAM-INF:'
                    ^)
                  ^) order by extract^(
                    $x^,
                    'BANDWIDTH^=^(\d+^)'^,
                    1
                  ^) count $i return {
                    'format':'hls-'^|^|$i^,
                    'extension':'m3u8'^,
                    'resolution':extract^(
                      $x^,
                      'RESOLUTION^=^([\dx]+^)'^,
                      1
                    ^) ! ^(
                      if ^(.^) then
                        .
                      else
                        'audiospoor'
                    ^)^,
                    'vbitrate':extract^(
                      $x^,
                      'video^=^(\d+^)\d{3}'^,
                      1
                    ^) ! ^(
                      if ^(.^) then
                        concat^(
                          'v:'^,
                          .^,
                          'k'
                        ^)
                      else
                        ''
                    ^)^,
                    'abitrate':replace^(
                      $x^,
                      '.+audio.+?^(\d+^)\d{3}.+'^,
                      'a:$1k'^,
                      's'
                    ^)^,
                    'url':resolve-uri^(
                      '.'^,
                      $a
                    ^)^|^|extract^(
                      $x^,
                      '^(.+m3u8^)'^,
                      1
                    ^)
                  }
                ^)
              ^)
            ]
          ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A

IF DEFINED formats (
	GOTO Formats
) ELSE (
	echo
	echo Ongeldig nummer.
	echo
	ENDLOCAL
	GOTO NPORadio
)

# ================================================================================================

:NPOGids
SETLOCAL
echo
echo Voer datum in als dd-mm-jjjj:
FOR /F "delims=" %%A IN ('^"%xidel%
-e ^"let $a:^=replace^(
      read^(^)^,
      '^(\d+^)-^(\d+^)-^(\d+^)'^,
      '$3-$2-$1'
    ^) return
    if ^($a castable as date^) then
      date2:^=$a
    else
      ^(^)^" --output-format^=cmd^"') DO %%A
IF NOT DEFINED date2 (
	echo
	echo Ongeldige datum.
	echo
	ENDLOCAL
	GOTO NPOGids
)

echo
%xidel% "https://www.npo.nl/gids?date=%date2%&type=tv" ^
--xquery ^"let $json:=[^
                for $x in //div[^
                  @id=(^
                    'channel-NED1',^
                    'channel-NED2',^
                    'channel-NED3'^
                  )^
                ]//a[.//span[@class='npo-epg-play']]^
                group by $prid:=extract(^
                           $x/@href,^
                           '.+/(.+)',^
                           1^
                         )^
                order by extract(^
                           $x[1]/@href,^
                           '.+/(.+)/',^
                           1^
                         ),^
                         $x[1]//span[@class='npo-epg-time']^
                return^
                $x[1]/{^
                  'time':.//span[@class='npo-epg-time'],^
                  'channel':@data-channel,^
                  'title':.//span[@class='npo-epg-title'],^
                  'prid':@data-id^
                }^
              ],^
              $width:=string-length(^
                count($json())^
              )^
          for $x at $i in $json() return^
          '  '^|^|join(^
            (^
              substring(^
                concat(^
                  $i,^
                  '.',^
                  string-join(^
                    (1 to $width) ! ' '^
                  )^
                ),^
                1,^
                $width+1^
              ),^
              (^
                'time',^
                'channel',^
                'title'^
              ) ! $x(.)^
            ),^
            '  '^
          )^"
echo
read /P "id=Voer nummer in van gewenst programma: "
IF NOT DEFINED id (
	echo
	ENDLOCAL
	GOTO Input
)
FOR /F "delims=" %%A IN ('^"%xidel% "https://www.npo.nl/gids?date=%date2%&type=tv"
--xquery ^"let $json:^=[
            for $x in //div[
              @id^=^(
                'channel-NED1'^,
                'channel-NED2'^,
                'channel-NED3'
              ^)
            ]//a[.//span[@class^='npo-epg-play']]
            group by $prid:^=extract^(
                       $x/@href^,
                       '.+/^(.+^)'^,
                       1
                     ^)
            order by extract^(
                       $x[1]/@href^,
                       '.+/^(.+^)/'^,
                       1
                     ^)^,
                     $x[1]//span[@class^='npo-epg-time']
            return
            $x[1]/{
              'time':.//span[@class^='npo-epg-time']^,
              'channel':@data-channel^,
              'title':.//span[@class^='npo-epg-title']^,
              'prid':@data-id
            }
          ] return
          prid:^=$json^(%id%^)/prid^" --output-format^=cmd^"') DO %%A

IF DEFINED prid (
	GOTO NPO
) ELSE (
	echo
	echo Ongeldig nummer.
	echo
	ENDLOCAL
	GOTO NPOGids
)

# ================================================================================================

:ZoekProg
SETLOCAL
echo
echo Voer programma-titel in:
FOR /F "delims=" %%A IN ('^"%xidel%
-e ^"let $a:^=read^(^) return
    if ^($a^) then
      if ^('%url%'^='npo'^) then
        doc^(
          'https://www.npo.nl/zoeken?term^='^|^|$a
        ^)/^(
          if ^(//div[@class^='no-results']^) then
            no_res:^='1'
          else
            s_json:^=[
              //a[@class^='npo-ankeiler-tile']/{
                'title':@title^,
                'sid':extract^(
                  @href^,
                  '.+/^(.+^)'^,
                  1
                ^)
              }
            ]
        ^)
      else if ^('%url%'^='rtlxl'^) then
        json^(
          concat^(
            'https://search.rtl.nl/?search^='^,
            $a^,
            '^&page^=1^&pageSize^=20^&typeRestriction^=tvabstract'
          ^)
        ^)/^(
          if ^(AvailableResults^='0'^) then
            no_res:^='1'
          else
            s_json:^=[
              ^(Abstracts^)^(^)/{
                'title':Title^,
                'sid':Uuid
              }
            ]
        ^)
      else if ^('%url%'^='kijk'^) then
        json^(
          'https://api.kijk.nl/v1/default/searchresultsgrouped?search^='^|^|$a
        ^)/^(
          if ^(.^(^)^) then
            s_json:^=[
              .^(^)[type^='series']/{
                'title':title^,
                'sid':id
              }
            ]
          else
            no_res:^='1'
        ^)
      else
        ^(^)
    else
      ^(^)^" --output-format^=cmd^"') DO %%A
IF DEFINED no_res (
	echo
	echo Geen resultaten gevonden.
	echo
	ENDLOCAL
	GOTO ZoekProg
) ELSE IF NOT DEFINED s_json (
	echo
	ENDLOCAL
	GOTO Input
)

FOR /F "delims=" %%A IN ('echo %s_json% ^| %xidel% - -e "count($json())"') DO (
	IF "%%A"=="1" (
		read "id=1"
	) ELSE (
		echo
		echo %s_json% | %xidel% - ^
		--xquery ^"let $width:^=string-length^(^
		            count^($json^(^)^)^
		          ^)^
		          for $x at $i in $json^(^) return^
		          '  '^|^|join^(^
		            ^(^
		              substring^(^
		                concat^(^
		                  $i^,^
		                  '.'^,^
		                  string-join^(^
		                    ^(1 to $width^) ! ' '^
		                  ^)^
		                ^)^,^
		                1^,^
		                $width+1^
		              ^)^,^
		              $x/title^
		            ^)^,^
		            '  '^
		          ^)^"
		echo
		read /P "id=Voer nummer in van gewenst programma: "
		IF NOT DEFINED id (
			echo
			ENDLOCAL
			GOTO Input
		)
	)
)

FOR /F "delims=" %%A IN ('echo %s_json% ^| %xidel% -
-e ^"if ^($json^('%id%'^)^) then
      p_json:^=if ^('%url%'^='npo'^) then
        x:request^(
          {
            'data':concat^(
              'https://www.npo.nl/media/series/'^,
              $json^(%id%^)/sid^,
              '/episodes?page^=1^&tilemapping^=dedicated^&tiletype^=asset^&pageType^=franchise'
            ^)^,
            'header':'X-Requested-With: XMLHttpRequest'
          }
        ^)/json/[
          reverse^(
            parse-html^(tiles^)//a
          ^)/{
            'title':concat^(
              .//h2^,
              ': '^,
              .//p
            ^)^,
            'prid':@data-ts-destination
          }
        ]
      else if ^('%url%'^='rtlxl'^) then
        json^(
          concat^(
            'https://xlapi.rtl.nl/version^=1/fun^=progeps/model^=avod/ak^='^,
            $json^(1^)/sid^,
            '/sz^=20/pg^=1'
          ^)
        ^)/[
          reverse^(
            ^(material^)^(^)
          ^)/{
            'title':title^|^|replace^(
              dateTime^,
              '^(\d+^)-^(\d+^)-^(\d+^).+'^,
              ' ^($3$2$1^)'
            ^)^,
            'prid':uuid
          }
        ]
      else if ^('%url%'^='kijk'^) then
        json^(
          concat^(
            'https://api.kijk.nl/v1/default/seasons/'^,
            $json^(1^)/sid^,
            '/0/episodes?limit^=20'
          ^)
        ^)/[
          reverse^(
            ^(items^)^(^)
          ^)/{
            'title':title^|^|replace^(
              date^,
              '^(\d+^)-^(\d+^)-^(\d+^).+'^,
              ' ^($3$2$1^)'
            ^)^,
            'prid':id
          }
        ]
      else
        ^(^)
    else
      ^(^)^" --output-format^=cmd') DO %%A
IF NOT DEFINED p_json (
	echo
	echo Ongeldig nummer.
	echo
	ENDLOCAL
	GOTO ZoekProg
)

echo
echo %p_json% | %xidel% - ^
--xquery ^"let $width:^=string-length^(^
            count^($json^(^)^)^
          ^)^
          for $x at $i in $json^(^) return^
          '  '^|^|join^(^
            ^(^
              substring^(^
                concat^(^
                  $i^,^
                  '.'^,^
                  string-join^(^
                    ^(1 to $width^) ! ' '^
                  ^)^
                ^)^,^
                1^,^
                $width+1^
              ^)^,^
              $x/title^
            ^)^,^
            '  '^
          ^)^"
echo
read id=
read /P "id=Voer nummer in van gewenste aflevering: "
IF NOT DEFINED id (
	echo
	ENDLOCAL
	GOTO Input
)

FOR /F "delims=" %%A IN ('echo %p_json% ^| %xidel% -
-e ^"if ^($json^('%id%'^)^) then
      prid:^=$json^(%id%^)/prid
    else
      ^(^)^" --output-format^=cmd^"') DO %%A
IF DEFINED prid (
	GOTO %url%
) ELSE (
	echo
	echo Ongeldig nummer.
	echo
	ENDLOCAL
	GOTO ZoekProg
)

# ================================================================================================

:Videos
SETLOCAL
FOR /F "delims=" %%A IN ('echo %videos% ^| %xidel% - -e "count($json())"') DO (
	IF "%%A"=="1" (
		SET "video=1"
	) ELSE (
		echo
		echo Beschikbare video's:
		echo
		echo %videos% | %xidel% - ^
		-e ^"$json^(^)/concat^(^
		      '  '^,^
		      .^(^)^,^
		      '. '^,^
		      replace^(^
		        .//name^,^
		        ''''''^,^
		        ''''^
		      ^)^
		    ^)^"
		echo
		read /P "video=Kies gewenste video: [1] "
		IF NOT DEFINED video SET "video=1"
	)
)
FOR /F "delims=" %%A IN ('echo %videos% ^| %xidel% --extract-exclude^=obj -
--xquery ^"obj:^=$json^(^)^('%video%'^)^,
          $obj^(^) ! eval^(
            x'{.}:^=$obj/{.}'
          ^)^" --output-encoding^=oem --output-format^=cmd') DO %%A

IF DEFINED goto (
	GOTO %goto%
) ELSE IF DEFINED formats (
	GOTO Formats
) ELSE IF DEFINED v_url (
	GOTO Select
) ELSE (
	echo
	echo Ongeldige video.
	echo
	ENDLOCAL
	GOTO Videos
)

# ================================================================================================

:Formats
SETLOCAL
echo
IF EXIST %ffmpeg% (
	FOR /F "delims=" %%A IN ('echo %formats% ^| %xidel% -
	--xquery ^"formats:^=[
	            for $x in $json^(^)[
	              not^(extension^='m3u8'^)
	            ] return
	            system^(
	              x'cmd /c %ffmpeg% -i {$x/url} 2^>^&amp^;1'
	            ^) ! {
	              'format':$x/format^,
	              'extension':$x/extension^,
	              'duration':format-time^(
	                time^(
	                  extract^(
	                    .^,
	                    'Duration: ^(.+?^)^,'^,
	                    1
	                  ^)
	                ^) + duration^('PT0.5S'^)^,
	                '[H01]:[m01]:[s01]'
	              ^)^,
	              'resolution':extract^(
	                .^,
	                'Video:.+^, ^(\d+x\d+^)'^,
	                1
	              ^)^,
	              'vbitrate':replace^(
	                .^,
	                '.+Video:.+?^(\d+^) kb.+'^,
	                'v:$1k'^,
	                's'
	              ^)^,
	              'abitrate':extract^(
	                .^,
	                'Audio:.+?^(\d+^) kb'^,
	                1^,'s'
	              ^) ! ^(
	                if ^(.^) then
	                  concat^(
	                    'a:'^,
	                    .^,
	                    'k'
	                  ^)
	                else
	                  ''
	              ^)^,
	              'url':$x/url
	            }^,
	            $json^(^)[extension^='m3u8']
	          ]^" --output-format^=cmd') DO %%A
)
FOR /F "delims=" %%A IN ('echo %formats% ^| %xidel% - -e "count($json())"') DO (
	IF "%%A"=="1" (
		echo Beschikbaar formaat:
	) ELSE (
		echo Beschikbare formaten:
	)
	echo
	echo %formats% | %xidel% - ^
	--xquery ^"let $json:^=[^
	                {^
	                  'format':'formaat'^,^
	                  'extension':'extensie'^,^
	                  'resolution':'resolutie'^,^
	                  'vbitrate':'bitrate'^
	                }^,^
	                $json^(^)^
	              ]^,^
	              $a:^=^(^
	                'format'^,^
	                'extension'^,^
	                'resolution'^,^
	                'vbitrate'^,^
	                'abitrate'^
	              ^)^,^
	              $b:^=$a ! max^(^
	                $json^(^)^(.^) ! string-length^(.^)^
	              ^)^,^
	              $c:^=string-join^(^
	                ^(1 to sum^($b^)^) ! ' '^
	              ^)^
	          for $x in $json^(^) return^
	          '  '^|^|string-join^(^
	            for $y at $i in $a return^
	            substring^(^
	              $x^($y^)^|^|$c^,^
	              1^,^
	              $b[$i]+2^
	            ^)^
	          ^)^"
	IF "%%A"=="1" (
		FOR /F "delims=" %%A IN ('echo %formats% ^| %xidel% - -e "format:=$json()/format" --output-format^=cmd') DO %%A
	) ELSE (
		echo
		FOR /F "delims=" %%A IN ('echo %formats% ^| %xidel% - -e "$json()[last()]/format"') DO (
			read /P "format=Voer gewenst formaat in: [%%A] "
			IF NOT DEFINED format SET "format=%%A"
		)
	)
)
FOR /F "delims=" %%A IN ('echo %formats% ^| %xidel% -
-e ^"$json^(^)[format^='%format%']/^(
        v_url:^=url^,
        ff_param:^=ff_param^,
        if ^(
          not^(
            environment-variable^('duration'^)
          ^)
        ^) then ^(
          duration:^=duration^,
          t:^=hours-from-time^(duration^)*3600+
            minutes-from-time^(duration^)*60+
            seconds-from-time^(duration^)
        ^) else
          ^(^)
      ^)^" --output-format^=cmd') DO %%A

IF DEFINED v_url (
	GOTO Select
) ELSE (
	echo
	echo Ongeldig formaat.
	echo
	ENDLOCAL
	GOTO Formats
)

# ================================================================================================

:Select
SETLOCAL
echo
IF DEFINED duration (
	echo Naam:       %name:''='%
	echo Tijdsduur:  %duration% ^(%t%%duration:~8,4%s^)
	IF DEFINED ss (
		echo Begin:      %start% ^(%ss%s^)
		echo Einde:      %end% ^(%to%s^)
	)
	IF DEFINED expire echo Gratis tot: %expire%
) ELSE (
	echo Naam: %name:''='%
)

FOR /F "delims=" %%A IN ('^"%xidel%
-e ^"let $a:^=[
      {
        'text':'Audio/video-url weergeven.'^,
        'goto':'Render'
      }^,{
        'text':'Audio/video downloaden.'^,
        'goto':'Download'
      }^,{
        'text':'Audio/video openen met MPC-HC/BE.'^,
        'goto':'Play'
      }^,{
        'text':'Audio/video openen met FFmpeg en streamen naar MPC-HC/BE.'^,
        'goto':'PlayXP'
      }
    ] return
    select:^=if ^(
      file:exists^('%ffmpeg:^"^=%'^)
    ^) then
      if ^(
        file:exists^('%mpc:^"^=%'^)
      ^) then
        $a
      else [
        $a^(1^)^,
        $a^(2^)
      ]
    else if ^(
      file:exists^('%mpc:^"^=%'^)
    ^) then [
      $a^(1^)^,
      $a^(3^)
    ] else [
      $a^(1^)
    ]^" --output-format^=cmd^"') DO %%A
FOR /F "delims=" %%A IN ('echo %select% ^| %xidel% - -e "count($json())"') DO (
	IF "%%A"=="1" GOTO Render
)

echo
echo %select% | %xidel% -
--xquery ^"for $x at $i in $json^(^) return^
          concat^(^
            '  '^,^
            $i^,^
            '. '^,^
            $x/text^
          ^)^"
echo
SET id=
read /P "id=Voer keuze in: [1] "
IF NOT DEFINED id (
	GOTO Render
) ELSE IF "%id%"=="1" (
	GOTO Render
) ELSE (
	FOR /F "delims=" %%A IN ('echo %select% ^| %xidel% -
	-e ^"if ^($json^('%id%'^)^) then
	      $json^('%id%'^)/goto
	    else
	      'error'^"') DO (
		IF "%%A"=="error" (
			echo
			echo Ongeldige keuze.
			echo
			ENDLOCAL
			GOTO Select
		) ELSE (
			GOTO %%A
		)
	)
)

echo
echo
ENDLOCAL
ENDLOCAL
ENDLOCAL
GOTO Input

# ================================================================================================

:Render
IF DEFINED ss (
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"concat^(
	      '%v_url%?start^^^='^,
	      round^(%ss1%+%ss2%^)^,
	      '^^^&end^^^='^,
	      round^(%to%^)
	    ^)^"^"') DO SET "v_url=%%A"
)
echo
echo Audio- of video-url:
echo %v_url%
echo|SET /P ="%v_url:^=%"|clip.exe
IF DEFINED s_url (
	echo
	echo Ondertiteling-url:
	echo %s_url%
)
echo
echo Audio- of video-url gekopieerd naar het klembord.
echo
echo
ENDLOCAL
ENDLOCAL
ENDLOCAL
GOTO Input

# ================================================================================================

:Play
SETLOCAL ENABLEDELAYEDEXPANSION
SET "v_url=!v_url:^=!"
IF DEFINED ss (
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"concat^(
	      '?start^='^,
	      round^(%ss1%+%ss2%^)^,
	      '^&end^='^,
	      round^(%to%^)
	    ^)^"^"') DO %mpc% !v_url!%%A /close
) ELSE IF DEFINED s_url (
	echo
	read /P "subs=Inclusief ondertiteling? [j/N] "
	IF /I "!subs!"=="j" (
		%mpc% !v_url! /sub %s_url% /close
	) ELSE (
		%mpc% !v_url! /close
	)
) ELSE (
	%mpc% !v_url! /close
)
echo
echo
ENDLOCAL
ENDLOCAL
ENDLOCAL
ENDLOCAL
GOTO Input

# ================================================================================================

:PlayXP
SETLOCAL ENABLEDELAYEDEXPANSION
read "v_url=!v_url:^=!"
IF DEFINED ss (
	%ffmpeg% -v fatal -ss %ss1% -i !v_url! -ss %ss2% -t %t% -c copy -f nut - | %mpc% - /close
) ELSE IF DEFINED s_url (
	echo
	SET /P "subs=Inclusief ondertiteling? [j/N] "
	IF /I "!subs!"=="j" (
		%ffmpeg% -v fatal %ff_param% -i !v_url! -c copy -f nut - | %mpc% - /sub %s_url% /close
	) ELSE (
		%ffmpeg% -v fatal %ff_param% -i !v_url! -c copy -f nut - | %mpc% - /close
	)
) ELSE (
	%ffmpeg% -v fatal %ff_param% -i !v_url! -c copy -f nut - | %mpc% - /close
)
echo
echo
ENDLOCAL
ENDLOCAL
ENDLOCAL
ENDLOCAL
GOTO Input

# ================================================================================================

:Download
echo
echo Doelmap: %~dp0
read /P "remap=Wijzigen? [j/N] "
IF /I "%remap%"=="j" (
	echo Opslaan in:
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"let $a:^=read^(^) return
	    if ^($a^) then
	      let $b:^=extract^(
	            $a^,
	            '^([a-zA-Z]:\\^|\\\\^)?^(.+^)'^,
	            ^(1^,2^)
	          ^)^,
	          $c:^=concat^(
	            if ^($b[1]^) then
	              $b[1]
	            else
	              file:current-dir^(^)^,
	            replace^(
	              replace^(
	                if ^(ends-with^($b[2]^,'\'^)^) then
	                  $b[2]
	                else
	                  $b[2]^|^|'\'^,
	                ':'^,
	                '-'
	              ^)^,
	              '[^<^>/^|?*^^]'^,
	              ''
	            ^)
	          ^)
	      return ^(
	        $c^,
	        file:create-dir^($c^)
	      ^)
	    else
	      '%~dp0'^" --output-encoding^=oem^"') DO SET "map=%%A"
) ELSE (
	SET "map=%~dp0"
)

FOR /F "tokens=1 delims=?" %%A IN ("%v_url%") DO (
	IF /I "%%~xA"==".m4a"  SET ext=.m4a
	IF /I "%%~xA"==".m4v"  SET ext=.mp4
	IF /I "%%~xA"==".mp4"  SET ext=.mp4
	IF /I "%%~xA"==".m3u8" SET ext=.mp4
	IF /I "%%~xA"==".asf"  SET ext=.wmv
)

FOR /F "delims=" %%A IN ('^"%xidel%
-e ^"name:^=replace^(
      replace^(
        normalize-space^('%name%'^)^,
        ':'^,'-'
      ^)^,
      '[^<^>/\\^|?*]'^,
      ''
    ^)^" --output-encoding^=oem --output-format^=cmd^"') DO %%A
echo
echo Bestandsnaam: %name%%ext%
read /P "rename=Wijzigen? [j/N] "
IF /I "%rename%"=="j" (
	echo Nieuwe bestandsnaam ^(zonder extensie^):
	FOR /F "delims=" %%A IN ('^"%xidel%
	-e ^"let $a:^=read^(^) return
	    if ^($a^) then
	      replace^(
	        replace^(
	          read^(^)^,
	          ':'^,
	          '-'
	        ^)^
	        '[^<^>/\\^|?*^^]'^,
	        ''
	      ^)
	    else
	      '%name%'^" --output-encoding^=oem^"') DO read "name=%%A"
)

SETLOCAL ENABLEDELAYEDEXPANSION
IF DEFINED s_url (
	echo
	read /P "subs=Ondertiteling Downloaden? [j/N] "
	IF /I "!subs!"=="j" (
		echo
		read /P "mux=Ondertiteling Muxen? [j/N] "
		IF /I NOT "!mux!"=="j" SET mux=
	) ELSE (
		SET subs=
	)
)

echo
SET "v_url=!v_url:^=!"
IF DEFINED ss1 (
	IF DEFINED mux (
		%ffmpeg% -hide_banner -ss %ss1% -i !v_url! -ss %ss1% -i %s_url% -ss %ss2% -t %t% -c copy -bsf:a aac_adtstoasc -c:s srt -metadata:s:s language=dut "!map!%name%.mkv"
	) ELSE (
		%ffmpeg% -hide_banner -ss %ss1% -i !v_url! -ss %ss2% -t %t% -c copy -bsf:a aac_adtstoasc "!map!%name%%ext%"
		IF DEFINED subs echo & %ffmpeg% -hide_banner -ss %ss1% -i %s_url% -ss %ss2% -t %t% "!map!%name%.srt"
	)
) ELSE IF DEFINED ss2 (
	IF DEFINED mux (
		%ffmpeg% -hide_banner -i !v_url! -i %s_url% -ss %ss2% -t %t% -c copy -bsf:a aac_adtstoasc -c:s srt -metadata:s:s language=dut "!map!%name%.mkv"
	) ELSE (
		%ffmpeg% -hide_banner -i !v_url! -ss %ss2% -t %t% -c copy -bsf:a aac_adtstoasc "!map!%name%%ext%"
		IF DEFINED subs echo & %ffmpeg% -hide_banner -i %s_url% -ss %ss2% -t %t% "!map!%name%.srt"
	)
) ELSE (
	SET /P "part=Fragment downloaden? [j/N] "
	IF /I "!part!"=="j" (
		echo Voer begintijd in ^(in seconden, of als uu:mm:ss[.xxx]^):
		FOR /F "delims=" %%A IN ('^"%xidel%
		-e ^"let $a:^=read^(^) return
		    if ^($a^) then
		      let $a:^=if ^($a castable as time^) then
		        hours-from-time^($a^)*3600+
		        minutes-from-time^($a^)*60+
		        seconds-from-time^($a^)
		      else
		        $a
		      return
		      if ^($a^=0^) then
		        ^(^)
		      else
		        if ^($a mod 30^=0^) then ^(
		          if ^($a^=30^) then
		            ^(^)
		          else
		            ss1:^=$a - 30^,
		          ss2:^=30
		        ^) else ^(
		          if ^($a^<30^) then
		            ^(^)
		          else
		            ss1:^=$a - ^($a mod 30^)^,
		          ss2:^=$a mod 30
		        ^)
		    else
		      ^(^)^" --output-format^=cmd^"') DO %%A
		echo Voer tijdsduur in ^(in seconden, of als uu:mm:ss[.xxx]^):
		SET /P t=
		IF DEFINED mux (
			IF DEFINED ss1 (
				IF DEFINED t (
					%ffmpeg% -hide_banner %ff_param% -ss !ss1! -i !v_url! -ss !ss1! -i %s_url% -ss !ss2! -t !t! -c copy -bsf:a aac_adtstoasc -c:s srt -metadata:s:s language=dut "!map!%name%.mkv"
				) ELSE (
					%ffmpeg% -hide_banner %ff_param% -ss !ss1! -i !v_url! -ss !ss1! -i %s_url% -ss !ss2! -c copy -bsf:a aac_adtstoasc -c:s srt -metadata:s:s language=dut "!map!%name%.mkv"
				)
			) ELSE IF DEFINED ss2 (
				IF DEFINED t (
					%ffmpeg% -hide_banner %ff_param% -i !v_url! -i %s_url% -ss !ss2! -t !t! -c copy -bsf:a aac_adtstoasc -c:s srt -metadata:s:s language=dut "!map!%name%.mkv"
				) ELSE (
					%ffmpeg% -hide_banner %ff_param% -i !v_url! -i %s_url% -ss !ss2! -c copy -bsf:a aac_adtstoasc -c:s srt -metadata:s:s language=dut "!map!%name%.mkv"
				)
			) ELSE (
				%ffmpeg% -hide_banner %ff_param% -i !v_url! -i %s_url% -t !t! -c copy -bsf:a aac_adtstoasc -c:s srt -metadata:s:s language=dut "!map!%name%.mkv"
			)
		) ELSE (
			IF DEFINED ss1 (
				IF DEFINED t (
					%ffmpeg% -hide_banner %ff_param% -ss !ss1! -i !v_url! -ss !ss2! -t !t! -c copy -bsf:a aac_adtstoasc "!map!%name%%ext%"
					IF DEFINED subs echo & %ffmpeg% -hide_banner -ss !ss1! -i %s_url% -ss !ss2! -t !t! "!map!%name%.srt"
				) ELSE (
					%ffmpeg% -hide_banner %ff_param% -ss !ss1! -i !v_url! -ss !ss2! -c copy -bsf:a aac_adtstoasc "!map!%name%%ext%"
					IF DEFINED subs echo & %ffmpeg% -hide_banner -ss !ss1! -i %s_url% -ss !ss2! "!map!%name%.srt"
				)
			) ELSE IF DEFINED ss2 (
				IF DEFINED t (
					%ffmpeg% -hide_banner %ff_param% -i !v_url! -ss !ss2! -t !t! -c copy -bsf:a aac_adtstoasc "!map!%name%%ext%"
					IF DEFINED subs echo & %ffmpeg% -hide_banner -i %s_url% -ss !ss2! -t !t! "!map!%name%.srt"
				) ELSE (
					%ffmpeg% -hide_banner %ff_param% -i !v_url! -ss !ss2! -c copy -bsf:a aac_adtstoasc "!map!%name%%ext%"
					IF DEFINED subs echo & %ffmpeg% -hide_banner -i %s_url% -ss !ss2! "!map!%name%.srt"
				)
			) ELSE (
				%ffmpeg% -hide_banner %ff_param% -i !v_url! -t !t! -c copy -bsf:a aac_adtstoasc "!map!%name%%ext%"
				IF DEFINED subs echo & %ffmpeg% -hide_banner -i %s_url% -t !t! "!map!%name%.srt"
			)
		)
	) ELSE (
		echo
		IF DEFINED mux (
			%ffmpeg% -hide_banner %ff_param% -i !v_url! -i %s_url% -c copy -bsf:a aac_adtstoasc -c:s srt -metadata:s:s language=dut "!map!%name%.mkv"
		) ELSE (
			%ffmpeg% -hide_banner %ff_param% -i !v_url! -c copy -bsf:a aac_adtstoasc "!map!%name%%ext%"
			IF DEFINED subs echo & %ffmpeg% -hide_banner -i %s_url% "!map!%name%.srt"
		)
	)
)
echo
echo
ENDLOCAL
ENDLOCAL
ENDLOCAL
ENDLOCAL
GOTO Input

# ================================================================================================

:Versie
echo
echo BatchGemist %ver%
%xidel% -e ^"replace(^
              system('%xidel:"=% --version'),^
              '(.+)\r\n.+(\.\d{4}).+',^
              '$1$2',^
              's'^
            )^"
%xidel% -e ^"replace(^
              system('%ffmpeg:"=% -version'),^
              '(.+?) (?:version )?([\w.-]+).+',^
              '$1 $2',^
              's'^
            )^"
echo
echo
GOTO Input

# ================================================================================================

:Help
echo
echo   [Beschrijving]
echo     BatchGemist is een batchscript om video's van verscheidene websites te downloaden, of de
echo     video-url ervan te achterhalen.
echo
echo   [Benodigdheden]
echo     - xidel.exe (http://videlibri.sourceforge.net/xidel.html#downloads)
echo       Xidel is het hart van BatchGemist en is verantwoordelijk voor het ontleden van zo'n beetje
echo       alle gegevens.
echo       Download Xidel (versie 0.9.7.5651* of nieuwer) en plaats 'xidel.exe' in dezelfde map als dit
echo       batchscript, of wijzig de programma-map in dit script onder ":Check".
echo       * https://sourceforge.net/projects/videlibri/files/Xidel/Xidel development/
echo     - ffmpeg.exe (http://ffmpeg.zeranoe.com/builds)
echo       Met de gegenereerde video-url als invoer zorgt FFMpeg ervoor dat de video effici‰nt wordt
echo       gedownload.
echo       Download FFMpeg en plaats 'ffmpeg.exe' in dezelfde map als dit batchscript, of wijzig de
echo       programma-map in dit script onder ":Check".
echo     - clip.exe (http://www.c3scripts.com/tutorials/msdos/clip.zip) [Windows XP]
echo       Clip kopieert de video-url naar het klembord. Vanaf Windows Vista wordt 'clip.exe' standaard
echo       meegeleverd, dus dit is alleen voor Windows XP gebruikers.
echo       Download Clip en plaats 'clip.exe' in de C:\WINDOWS\system32 map.
echo     - mpc-hc.exe/mpc-be.exe (https://mpc-hc.org/downloads/, https://sourceforge.net/projects/mpcbe
echo       /files/MPC-BE/) (optioneel)
echo       Met Media Player Classic - Home Cinema / Black Edition kan een gegenereerde video-url
echo       rechtstreeks geopend worden.
echo       Download MPC-HC/BE, plaats 'mpc-hc.exe' of 'mpc-be.exe' in dezelfde map als dit batchscript
echo       en voeg de programma-map toe in dit script onder ":Check".
echo
echo   [Ondersteunde websites]
echo     npo.nl                eenvandaag.nl         omropfryslan.nl           rtvutrecht.nl
echo
sleep
echo
echo     gemi.st               rtlxl.nl              rtvnoord.nl               omroepgelderland.nl
echo     2doc.nl               rtl.nl                rtvdrenthe.nl             omroepwest.nl
echo     anderetijden.nl       rtlnieuws.nl          rtvnh.nl                  rijnmond.nl
echo     schooltv.nl           rtlz.nl               omroepflevoland.nl        omroepzeeland.nl
echo     willemwever.nl        kijk.nl               rtvoost.nl                omroepbrabant.nl
echo     nos.nl                sbs6.nl               at5.nl                    l1.nl
echo
echo     telegraaf.nl          dumpert.nl            autojunk.nl
echo     vtm.be                comedycentral.nl      tweakers.net
echo     nickelodeon.nl        nl.funnyclips.cc
echo     ketnet.be             mtv.nl
echo     disney.nl             foxtv.nl
echo     cartoonnetwork.nl     foxsports.nl
echo     24kitchen.nl          abhd.nl
echo
echo   [Gebruik]
echo     Surf naar ‚‚n van de ondersteunde websites en kopieer de programma-url van een gewenst
echo     programma. Start dit batch-script en plak deze url d.m.v. rechtermuis-knop + plakken (Ctrl+V
echo     werkt hier niet).
echo     Voer 'npo-radio' in voor een opsomming van alle NPO radiozenders.
echo     Voer 'npo-gids' in voor een opsomming van alle tv-programma's die op een bepaalde datum op
echo     NPO1, NPO2 en NPO3 zijn geweest.
echo     Voer 'zoek-npo', 'zoek-rtl', of 'zoek-kijk' in om te zoeken naar een tv-programma van
echo     desbetreffende website. Wat uiteindelijk volgt is een opsomming van de laatste 20
echo     afleveringen van het gekozen tv-programma.
echo
echo     Dan volgt een opsomming van beschikbare formaten en wordt er gevraagd een keuze te maken.
echo     E‚n formaat, tussen blokhaken, is altijd voorgeselecteerd om de hoogste resolutie/bitrate.
echo     Voor dit formaat kun je gewoon op ENTER drukken. Formaten die beginnen met 'hls' zijn
echo
sleep
echo
echo     dynamische videostreams en eindigen op 'm3u8'. Formaten die beginnen met 'pg' zijn
echo     progressieve videostreams en eindigen op 'mp4/m4v'.
echo     Deze stap wordt overgeslagen als er maar ‚‚n formaat beschikbaar is.
echo
echo     Vervolgens krijg je de keuze om de gegenereerde audio/video-url weer te geven, te downloaden,
echo     of te openen met MPC-HC/BE (als je die hebt toegevoegd onder ":Check"). Optie 1 tussen blok-
echo     haken is voorgeselecteerd. In dat geval kun je dan gewoon op ENTER drukken.
echo     Voor de ja/nee-vragen die dan volgen geldt dit ook. De keuze met hoofdletter is voor-
echo     geselecteerd. Voor 'ja' bij "[J/n]" kun je dan gewoon op ENTER drukken.
echo
echo     Voer 'v' in voor de versie nummers van BatchGemist, Xidel en FFMpeg.
echo     Druk op ENTER om BatchGemist af te sluiten.
echo
echo
IF DEFINED check (
	sleep & GOTO :EOF
) ELSE (
	GOTO Input
)