:Configuración por defecto:
:::::::::::::::::::::::::::
Set Timecode_Start=00:01:47
Set Timecode_End=00:22:35
Set Audio=-a 1
Set Subtitles=--no-subtitles
:::::::::::::::::::::::::::

Del /Q "%%_"

@Echo Off
Color 07
Mode con cols=70 lines=30
Title MKVMerge Split Helper v0.1
 
REM By EleKtro H@cker
REM Visita Foro.ElHacker.Net
 
REM Este código sirve para cortar videos MKV desde un punto (A) hasta un punto (B), Muy útil para eliminar el Opening y Ending de videos Anime.
REM El código trabaja sobre los archivos MKV que estén en el mismo directorio que esté el script.
REM
REM El script utiliza el programa MKVMERGE, Que se puede descargar desde aquí:
REM www.bunkus.org/videotools/mkvtoolnix/win32/mkvtoolnix-unicode-5.2.1.7z
 
 
 
 
 
:Configuración por defecto:
:::::::::::::::::::::::::::
Set Timecode_Start=
Set Timecode_End=
Set Audio=
Set Subtitles=
:::::::::::::::::::::::::::
 
 
 
 
 
:CHECK
::::::
 
If not exist "%~dp0\*.MKV" (
	Echo.
	Echo. No se ha encontrado ningun video en el directorio:
	Echo. "%~dp0"
	Echo.
	Pause
	Exit
)
 
If not exist "mkvmerge.exe" (
	Echo.
	Echo. No se ha encontrado el programa "MKVMERGE.EXE"
	Echo.
	Pause
	Exit
)
 
If defined Timecode_Start (Set /A Num+=1)
If defined Timecode_End (Set /A Num+=1)
If defined Audio (Set /A Num+=1)
If defined Subtitles (Set /A Num+=1)
If %num% EQU 4 (Goto :Split:)
 
 
 
 
 
:MENU:
::::::
 
:Timecode_A_SubMenu
:::::::::::::::::::
Cls
Echo.
Echo. Timecode A: Esperando...
Echo ______________________________________________________________________
Echo. Escriba el codigo de tiempo para el punto A...
Echo.
Echo. Ejemplo: "01:20:59"    (Hora:Minuto:Segundo)
Echo.
Set /P Timecode_Start=^>^> 
 
If NOT defined Timecode_Start (Goto :Timecode_A_SubMenu)
 
Echo %Timecode_Start%| Findstr /I ^..:..:..$ >Nul
If %ErrorLevel% NEQ 0 (
	Cls
	Echo.
	Echo. Ha introducido un valor incorrecto.
	Ping -n 3 LocalHost >Nul
	Set Timecode_Start=
	Goto :Timecode_A_SubMenu
)
 
 
:Timecode_B_SubMenu
:::::::::::::::::::
Cls
Echo.
Echo. Timecode A: %Timecode_Start%
Echo. Timecode B: Esperando...
Echo ______________________________________________________________________
Echo. Escriba el codigo de tiempo para el punto B...
Echo.
Echo. Ejemplo: "01:20:59"    (Hora:Minuto:Segundo)
Echo.
Set /P Timecode_End=^>^> 
 
If NOT defined Timecode_Start (Goto :Timecode_B_SubMenu)
 
Echo %Timecode_Start%| Findstr /I ^..:..:..$ >Nul
If %ErrorLevel% NEQ 0 (
	Cls
	Echo.
	Echo. Ha introducido un valor incorrecto.
	Ping -n 3 LocalHost >Nul
	Set Timecode_End=
	Goto :Timecode_B_SubMenu
)
 
 
:Audio_SubMenu
::::::::::::::
Cls
Echo.
Echo. Timecode A: %Timecode_Start%
Echo. Timecode B: %Timecode_End%
Echo. Audio: Esperando...
Echo ______________________________________________________________________
Choice /M "Quiere copiar solamente la pista de audio principal?... "
 
If %ErrorLevel% EQU 1 (Set Audio=-a 1)
 
 
:Subtitles_SubMenu
::::::::::::::::::
Cls
Echo.
Echo. Timecode A: %Timecode_Start%
Echo. Timecode B: %Timecode_End%
If not defined audio (Echo. Audio: Todas las pistas) ELSE (Echo. Audio: Solamente la pista principal)
Echo. Subtitulos: Esperando...
Echo ______________________________________________________________________
Choice /M "Quiere copiar los subtitulos del video de origen?... "
 
If %ErrorLevel% EQU 2 (Set Subtitles=--no-subtitles)
 
 
 
 
 
:Split:
:::::::
 
Cls
Echo.
Echo. Timecode A: %Timecode_Start%
Echo. Timecode B: %Timecode_End%
If not defined audio (Echo. Audio: Todas las pistas) ELSE (Echo. Audio: Solamente la pista principal)
If not defined subtitles (Echo. Subtitulos: SI) ELSE (Echo. Subtitulos: NO)
Echo ______________________________________________________________________
 
For /F "Tokens=*" %%_ in ('Dir /B "%~dp0\*.mkv"') do (
	Echo+
	Echo. Procesando: %%_
	mkvmerge.exe %Subtitles% %audio% "%%_" --split timecodes:%Timecode_Start%,%Timecode_End% -o "%%_.ren" >NUL
	Del /Q "%%_"
	Del /Q "%%_-001.ren"
	Del /Q "%%_-003.ren"
	Ren "%%_-002.ren" "%%_"
)
 
 
 
 
 
:END:
:::::
 
Cls
Echo.
Echo. Todos los videos se han cortado.
Echo.
Echo. Pulse una tecla para salir...
Pause >Nul
Exit
 

@Echo Off
 
REM Visita Foro.ElHacker.Net
REM Un gran foro !
 
For /F "Tokens=1,2,3 delims=: " %%A in ('netstat ^| find /V "127.0.0.1" ^| Find /V "activas" ^| Findstr /v "Direcci.n"') Do (
	Echo Tu IP publica es: %%B
	Pause >Nul
	Exit
)

wget -qO- whatismyip.org