*****************
*ripa as transmissões do vox-tv;
*Por Fabiano Ferreira;
*Em 30/07/2021;
****************

@inicia
seja $ondesalvar ""
seja $args params

seja p pos "-d=" $args
se p = 0 termina mudo
soma p 3
seja t pos "-l=" $args
se t = 0 termina mudo
subtrai t 1
copia $ondesalvar $args p t
seja $ondesalvar trim $ondesalvar

seja p t
soma p 4
seja t tamanho $args
copia $listadelinks $args p t

se $listadelinks = "" termina mudo
chama @ripa
termina mudo

@ripa
dir troca $ondesalvar
chama @obtemnomedirserie
dir cria $dirserie &
dir troca $dirserie &

abre #1 $listadelinks
le #1 $nomedoarquivo
le #1 $linkdedownload
checa $fimdalista
enquanto $fimdalista = 0
seja c $ondesalvar
concatena c "\"
concatena c $dirserie
dir cria c &
dir troca c &
toca "c:\vox-tv\som\baixar.wav"
escreve "Baixando "$nomedoarquivo
trazdarede $linkdedownload $nomedoarquivo 0 "dosvox" "" x
toca "c:\vox-tv\som\baixou.wav"

le #1 $nomedoarquivo
le #1 $linkdedownload
checa $fimdalista
fim enquanto
escreve "Pronto!"
retorna
*

@obtemnomedirserie
seja $dirserie $listadelinks
substitui $dirserie ".txt" ""
seja p pos "\" $dirserie
enquanto p > 0
seja t tamanho $dirserie
soma p 1
copia $dirserie $dirserie p t
seja p pos "\" $dirserie
fim enquanto
retorna
