@Echo OFF
Title Film Organizer v2.0
REM   by Elektro H@cker
Mode con cols=90 lines=50
chcp 1252 >NUL
color 07


::   ###########################
::  ### Film Organizer v2.0 ###
:: ###########################
::
:: FASES:
::
:: 1. Elimina los atributos de los archivos.
::    (oculto, sistema, solo lectura, indizado, almacenamiento)
::
:: 2. Genera listas de reproducción.
::
:: 3. Busca pistas de audio AC-3, DTS, y WAV.
::
:: 4. Busca videos con multipistas de audio.
::
:: 5. Elimina los metadatos de los videos.


SET "VIDEOS=F:\Videos"
SET "DOCUMENTALES=F:\Videos\Documentales"
SET "PELIS_REAL=F:\Videos\Películas\Acción real"
SET "PELIS_ANIM=F:\Videos\Películas\Animación"
SET "SERIES=F:\Videos\Series"
SET "SERIES_REAL=F:\Videos\Series\Acción real"
SET "SERIES_ANIM=F:\Videos\Series\Animación"

Set "FORMATS=*.avi;*.divx;*.flv;*.mkv;*.mp4;*.mpg;*.mpeg;*.ogm;*.wmv"

Set "APPS=Colous.exe DetectDuplicates.exe MediaInfo.exe NirCMD.exe"


::::::::::::::::::::::
::                  ::
::      FASE 0      ::
::                  ::
::  COMPROBACIONES  ::
::::::::::::::::::::::


:COMPROBACIONES
:::::::::::::::

CALL :LOGO "0" "COMPROBACIONES"

Echo+
Echo+
Echo: [+] Comprobando carpetas ... | MORE | MORE

(For /R %%a in (*) do (call set /A "FILM_FILES_TOTAL+=1"))

PUSHD "%DOCUMENTALES%" || (Call :ERROR_FOLDER "%DOCUMENTALES%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %DOCUMENTALES%"

PUSHD "%PELIS_REAL%" || (Call :ERROR_FOLDER "%PELIS_REAL%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %PELIS_REAL%"

PUSHD "%PELIS_ANIM%" || (Call :ERROR_FOLDER "%PELIS_ANIM%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %PELIS_ANIM%"

PUSHD "%SERIES%" || (Call :ERROR_FOLDER "%SERIES%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_SERIES_TOTAL+=1")
Colous writesec "[10]OK[7] %SERIES%"

PUSHD "%SERIES_REAL%" || (Call :ERROR_FOLDER "%SERIES_REAL%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %SERIES_REAL%"

PUSHD "%SERIES_ANIM%" || (Call :ERROR_FOLDER "%SERIES_ANIM%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %SERIES_ANIM%"

Echo+
Echo+
Echo: [+] Comprobando aplicaciones ... | MORE | MORE
FOR %%A IN (%APPS%) DO (
	If not exist "%WINDIR%\System32\%%A" (
		Colous writesec "[12] ERROR CRITICO"
		Echo.
		Colous writesec "[7] No se encuentra la aplicacion: [14]%*"
		Echo. | MORE
		Colous writesec "[8] Presione una tecla para salir del programa..."
		Pause >nul
		Exit
	) ELSE (
		Colous writesec "[10]OK[7] %%A"
	)
)
CALL :OK


::::::::::::::::::::::
::                  ::
::      FASE 1      ::
::                  ::
::    ATRIBUTOS     ::
::::::::::::::::::::::


:ATRIBUTOS
::::::::::

CALL :LOGO "1" "ATRIBUTOS"
Echo: [+] Eliminando los atributos de los archivos ... | MORE | MORE
Echo:     Porfavor, espere... | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
For /D %%a in (*) do (
	Call Colous Writesec "[7][10]OK[7] %%a"
	Echo+
	attrib -A -R -S -H -I /S "%%a\*.*" >nul
)
attrib +H /S "*.ico" >nul
attrib +H -R /S "*.ini" >nul
CALL :OK


::::::::::::::::
::            ::
::   FASE 2   ::
::            ::
::::::::::::::::


:Playlist
:::::::::

CALL :LOGO "2" "PLAYLISTS"
Set /A "FOLDER_COUNT=0"
Echo: [+] Generando listas de reproduccion ... | MORE | MORE

PUSHD "%SERIES%" || (Call :ERROR_FOLDER "%SERIES%")

For /D %%a in (*) do (
	Call Set /A "FOLDER_COUNT+=1"
	Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%SUBFOLDER_FILM_SERIES_TOTAL%%): [7]%%a"
	PUSHD "%%a"
	Echo+
	For /F "Tokens=*" %%a in ('Dir /B /AD') Do (
	Call Colous Writesec "[6]           %%a"
	PUSHD "%%a"
		if /I exist "*Temporada" (
			For /F "Tokens=*" %%z in ('Dir /B /AD') Do (
				Echo #EXTM3U>".\%%z\_%%a %%z.m3u"
				For /F "Tokens=*" %%j in ('dir /B /A-D-H ".\%%z\" ^| find /V /i ".m3u"') Do (Echo .\%%j>> ".\%%z\_%%a %%z.m3u")
				REM Start /B cmd /C "".\%%z\_%%a %%z.m3u""
			)
		) ELSE (
				Echo #EXTM3U>"_%%a TODO.m3u"
				For /F "Tokens=*" %%x in ('dir /B /A-D-H ^| find /V /i ".m3u"') Do (Echo .\%%x>>"_%%a TODO.m3u")
				REM Start /B cmd /C ""_%%a TODO.m3u""
		)
	POPD
	)
	POPD
	Echo+

)
CALL :OK


::::::::::::::::
::            ::
::   FASE 3   ::
::            ::
::::::::::::::::


:AC3
::::

CALL :LOGO "3" "AC-3, DTS, WAV"
Set /A "FOLDER_COUNT=0"
Echo: [+] Buscando pistas AC-3, DTS y WAV ... | MORE | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
DEL /Q "%TEMP%\pista_ac3_dts_wav.txt" >NUL 2>&1

For /R %%_ in (%FORMATS%) do (
	Call Set /A "FOLDER_COUNT+=1"
	Mediainfo "%%_" | FIND /I /V "Movie name" | FINDSTR /I "AC-3 DTS WAV" >NUL && Mediainfo "%%_" >> "%TEMP%\pista_ac3_dts_wav.txt" && (
		Call Colous Writesec "[12] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [6] %%~nx_"
	) || (Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [7]%%~nx_")
)

If exist "%TEMP%\pista_ac3_dts_wav.txt" (start /B notepad "%TEMP%\pista_ac3_dts_wav.txt")
CALL :OK


::::::::::::::::
::            ::
::   FASE 4   ::
::            ::
::::::::::::::::


:MULTIPISTA
:::::::::::

CALL :LOGO "4" "BUSCANDO MULTIPISTAS"
Set /A "FOLDER_COUNT=0"
Echo: [+] Buscando multipistas ... | MORE | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
Del /Q "%TEMP%\multipista.txt" 2>NUL

For /R %%_ in (%FORMATS%) do (
	Call Set /A "FOLDER_COUNT+=1"
	For /F "tokens=*" %%@ in ('mediainfo "%%_" ^| findstr /I "^Audio$" ^| FIND /C /V ""') DO (
		IF NOT "%%@" EQU "1" (
			Call Colous Writesec "[12] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [6] %%~nx_"
			Mediainfo "%%_" >> "%TEMP%\multipista.txt"
		) ELSE (
			Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [7]%%~nx_"
		)
	) 
)

If exist "%TEMP%\multipista.txt" (start /B notepad "%TEMP%\multipista.txt")
CALL :OK


::::::::::::::::
::            ::
::   FASE 5   ::
::            ::
::::::::::::::::


:METADATOS
::::::::::

CALL :LOGO "5" "BUSCANDO METADATOS"
Set /A "FOLDER_COUNT=0"
Echo: [+] Buscando metadatos ... | MORE
Echo     (INAM^) (title^) | MORE | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
RD /Q "%TEMP%\Converted FILMS" >NUL 2>&1

For /R %%# in (%FORMATS%) do (
	Call Set /A "FOLDER_COUNT+=1"
	ffmpeg -y -i "%%#" -f ffmetadata "%TEMP%\%%~nx#_metadata.txt" >NUL 2>&1
	Type "%TEMP%\%%~nx#_metadata.txt" | FINDSTR /I "^INAM ^title" >NUL && (
	Call Colous Writesec "[12] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [6]%%~nx#"
	Echo                 TAGS encontrados...
	Echo                 Convirtiendo el archivo... | MORE
	MKDIR "%TEMP%\Converted FILMS\%%~p#" >NUL 2>&1
	start /W CMD /K "ffmpeg -y -i "%%#" -c copy -map_metadata -1 "%TEMP%\%%~nx#" && EXIT || (Echo ERROR CONVIRTIENDO EL ARCHIVO! & PAUSE&EXIT)"
	MOVE /Y "%TEMP%\%%~nx#" "%TEMP%\Converted FILMS\%%~p#" >NUL
	) || (Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [7]%%~nx#")
	Del /Q "%TEMP%\%%~nx#_metadata.txt" >NUL 2>&1
)

IF exist "%TEMP%\Converted FILMS" (start /B explorer "%TEMP%\Converted FILMS")
CALL :OK


::::::::::::::::
::            ::
::    FIN     ::
::            ::
::::::::::::::::


:FIN
::::

TITLE Film Organizer v2.0     [FINAL]
CLS
Echo+ | MORE
Colous writesec "[8]      ###########################"
Colous writesec "[8]     ##                       ##"
Colous writesec "[8]    ## [14] Film Organizer v2.0  [8]##"
Colous writesec "[8]   ##                       ##"
Colous writesec "[8]  ###########################"
Echo+ | MORE
Colous writesec "[7] Organizacion completada."
Echo+ | MORE
Colous writesec "[8] Presione una tecla para salir del programa..."
pause >nul
exit


:LOGO
CLS
TITLE Film Organizer v2.0     [FASE %~1 de 5]     [%~2]
Echo+ | MORE
Colous writesec "[8]      ###########################              ##############"
Colous writesec "[8]     ##                       ##              ##          ##"
Colous writesec "[8]    ## [14] Film Organizer v2.0  [8]##                  FASE %~1    "
Colous writesec "[8]   ##                       ##              ##          ##"
Colous writesec "[8]  ###########################              ##############"
Colous writesec "[8]                                           %~2"
Echo+ | MORE
nircmd wait 1000
GOTO:EOF


:OK
Echo+ | MORE
Colous writesec "[10] OK !!"
Echo+ 
TIMEOUT /T 3
GOTO:EOF

tar -c -M --tape-length=2048 archivo.tar file.dll