I added --force-stripes to your script, Danne. For me it's mast have: my camera have strong stripes and black frames didn't help with that.
:: This program is free software; you can redistribute it and/or
:: modify it under the terms of the GNU General Public License
:: as published by the Free Software Foundation; either version 2
:: of the License, or (at your option) any later version.
:: This program is distributed in the hope that it will be useful,
:: but WITHOUT ANY WARRANTY; without even the implied warranty of
:: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
:: GNU General Public License for more details.
:: You should have received a copy of the GNU General Public License
:: along with this program; if not, write to the
:: Free Software Foundation, Inc.,
:: 51 Franklin Street, Fifth Floor,
:: Boston, MA 02110-1301, USA.
::Freely worked upon. First scripts here(Renatophoto)
::http://www.magiclantern.fm/forum/index.php?topic=10526.msg179631#msg179631
:: add any other additional mlv_dump setting by adding setting switches after --dng(e.g --dng -c for compressed dng output) Drag mlv_dump to cmd and hit enter to check parameters
:: HOWTO - Double click the batch_mlv file and see your MLV files process into folders with dng files. When done the original file will be moved to A_ORIGINALS folder
:: darkframe automation included. Put vanilla MLV darkframes into the darkframes folder and the regular MLV footage outside the darkframes folder and double click
:: the batch_mlv.cmd file. Darkframe MLV files will be averaged and renamed with matching info and the prefix avg_. If regular MLV footage and darkframe footage match
:: darkframe subtraction will take place, otherwise footage will be processed a usual. You can at any time erase or fill the darkframes folder with additional vanilla MLV files
:: to add to your darkframe storage. If no darkframes exists in the folder or if darkframes folder is erased batch_mlv will process with mlv_dump as usual.
::Thanks Bouncyball for mlv_dump(steroid version)
::Thanks to dfort for fpm pixel fixing lists in bin folder.
@Echo Off
::My selected input path
set /p path_in=<bin/mlv_dump_settings/path_in
set /p path_base=<bin/mlv_dump_settings/path_base
if exist bin/mlv_dump_settings/path_out set /p path_out=<bin/mlv_dump_settings/path_out
if exist bin/mlv_dump_settings/path_out if not exist "%path_out%" mkdir "%path_out%"
SETLOCAL EnableDelayedExpansion
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
set "DEL=%%a"
)
ECHO OFF
CLS
mode con: cols=100 lines=50
:MENU
cd /d "%path_base%"/
::bin path
set PATH=%PATH%;%cd%/bin
ECHO.
ECHO ..........
ECHO MLV_DUMP
ECHO ..........
ECHO.
if not exist "bin/mlv_dump_settings" mkdir "bin/mlv_dump_settings"
ECHO mlv_dump parameters. Reselect the same parameter to erase:
if exist bin/mlv_dump_settings/path_out set /p path_out=<bin/mlv_dump_settings/path_out
ECHO.
echo INPUT: "%path_in%"
if exist bin/mlv_dump_settings/path_out (echo OUTPUT: "%path_out%" ) else ( echo OUTPUT: "%path_in%")
ECHO.
if exist bin/mlv_dump_settings/CMPRS (call :colorEcho 0a "(1) -c"
ECHO.)
if exist bin/mlv_dump_settings/DECMPRS (call :colorEcho 0a "(2) -d"
ECHO.)
if exist bin/mlv_dump_settings/PASS (call :colorEcho 0a "(3) -p"
ECHO.)
if exist bin/mlv_dump_settings/BDEPTH set /p bits=< bin/mlv_dump_settings/BDEPTH
if exist bin/mlv_dump_settings/BDEPTH (call :colorEcho 0a "(4) %bits%"
ECHO.)
if exist bin/mlv_dump_settings/VS (call :colorEcho 0a "(5) --no-stripes"
ECHO.)
if exist bin/mlv_dump_settings/cs2 (call :colorEcho 0a "(6) --cs2x2"
ECHO.)
if exist bin/mlv_dump_settings/cs3 (call :colorEcho 0a "(7) --cs3x3"
ECHO.)
if exist bin/mlv_dump_settings/cs5 (call :colorEcho 0a "(8) --cs5x5"
ECHO.)
if exist bin/mlv_dump_settings/NOPIX (call :colorEcho 0a "(9) --no-fixcp"
ECHO.)
if exist bin/mlv_dump_settings/FIXSPIX (call :colorEcho 0a "(10) --fixcp2"
ECHO.)
if exist bin/mlv_dump_settings/UNPACK (call :colorEcho 0a "(11) --no-bitpack"
ECHO.)
if exist bin/mlv_dump_settings/PATNOISE (call :colorEcho 0a "(12) --fixpn"
ECHO.)
if exist bin/mlv_dump_settings/EXPCOMP set /p expcomp=< bin/mlv_dump_settings/EXPCOMP
if exist bin/mlv_dump_settings/EXPCOMP (call :colorEcho 0a "(13) %expcomp%"
ECHO.)
if exist bin/mlv_dump_settings/NOAUDIO (call :colorEcho 0a "(14) --no-audio"
ECHO.)
if exist bin/mlv_dump_settings/BLACK set /p black=< bin/mlv_dump_settings/BLACK
if exist bin/mlv_dump_settings/BLACK (call :colorEcho 0a "(15) %black%"
ECHO.)
if exist bin/mlv_dump_settings/WHITE set /p white=< bin/mlv_dump_settings/WHITE
if exist bin/mlv_dump_settings/WHITE (call :colorEcho 0a "(16) %white%"
ECHO.)
if exist bin/mlv_dump_settings/VS_F (call :colorEcho 0a "(17) --force-stripes"
ECHO.)
ECHO 1 - compress video and audio frames using LJ92.
ECHO 2 - decompress compressed video and audio frames using LZMA or LJ92
ECHO 3 - pass through original raw data without processing, it works for lossless or uncompressed raw
ECHO 4 - convert image data to given bit depth per channel (1-16)
ECHO 5 - disable vertical stripes fixing
ECHO 6 - Chroma smooth 2x2
ECHO 7 - Chroma smooth 3x3
ECHO 8 - Chroma smooth 5x5
ECHO 9 - do not fix cold pixels
ECHO 10 - fix non-static moving cold pixels slow
Echo 11 - write DNG files with unpacked to 16 bit raw data
Echo 12 - fix pattern noise
ECHO 13 - per-frame exposure compensation. value is target median in raw units ex: 3072 (default)
ECHO 14 - DNG output WAV not saved, MLV output WAVI/AUDF blocks are not included
ECHO 15 - set black level to value
ECHO 16 - set white level to value
ECHO 17 - compute stripe correction for every frame
call :colorEcho 0c "O - Select OUTPUT folder"
ECHO.
call :colorEcho 0c "E - Erase all parameters"
ECHO.
call :colorEcho 0c "Q - Quit"
ECHO.
call :colorEcho 0b "R - run batch_mlv"
ECHO.
ECHO.
SET /P M=Select mlv_dump parameter and press ENTER:
IF %M%==1 GOTO COMPRSS
IF %M%==2 GOTO DECMPRS
IF %M%==3 GOTO PASS
IF %M%==4 GOTO BDEPTH
IF %M%==5 GOTO VertS
IF %M%==6 GOTO CS2x2
IF %M%==7 GOTO CS3x3
IF %M%==8 GOTO CS5x5
IF %M%==9 GOTO NOCPIX
IF %M%==10 GOTO FIXSPIX
IF %M%==11 GOTO UNPACK
IF %M%==12 GOTO PATNOISE
IF %M%==13 GOTO EXPCOMP
IF %M%==14 GOTO NOAUDIO
IF %M%==15 GOTO BLACK
IF %M%==16 GOTO WHITE
IF %M%==17 GOTO VertS_F
IF %M%==O GOTO OUTPUT
IF %M%==o GOTO OUTPUT
IF %M%==E GOTO RESET
IF %M%==Q GOTO EOF
IF %M%==q GOTO EOF
IF %M%==R GOTO batch_mlv
IF %M%==r GOTO batch_mlv
:COMPRSS
if exist bin/mlv_dump_settings/CMPRS (
cd bin/mlv_dump_settings
del CMPRS
cd..
cd..
) else (
@echo -c> bin/mlv_dump_settings/CMPRS
)
cls
GOTO MENU
:DECMPRS
if exist bin/mlv_dump_settings/DECMPRS (
cd bin/mlv_dump_settings
del DECMPRS
cd..
cd..
) else (
@echo -d> bin/mlv_dump_settings/DECMPRS
)
cls
GOTO MENU
:PASS
if exist bin/mlv_dump_settings/PASS (
cd bin/mlv_dump_settings
del PASS
cd..
cd..
) else (
@echo -p> bin/mlv_dump_settings/PASS
)
cls
GOTO MENU
:BDEPTH
if exist bin/mlv_dump_settings/BDEPTH (
cd bin/mlv_dump_settings
del BDEPTH
cd..
cd..
cls
GOTO MENU)
cls
call :colorEcho 0a "specify bitdepth below(1-16)"
ECHO.
set /p bits=""
echo -b %bits% > bin/mlv_dump_settings/BDEPTH
cls
GOTO MENU
:VertS
if exist bin/mlv_dump_settings/VS (
cd bin/mlv_dump_settings
del VS
cd..
cd..
) else (
@echo --no-stripes> bin/mlv_dump_settings/VS
)
cls
GOTO MENU
:VertS_F
if exist bin/mlv_dump_settings/VS_F (
cd bin/mlv_dump_settings
del VS_F
cd..
cd..
) else (
@echo --force-stripes> bin/mlv_dump_settings/VS_F
)
cls
GOTO MENU
:CS2x2
if exist bin/mlv_dump_settings/cs2 (
cd bin/mlv_dump_settings
del cs2
cd..
cd..
) else (
@echo --cs2x2> bin/mlv_dump_settings/cs2
cd bin/mlv_dump_settings
del cs3
del cs5
cd..
cd..
)
cls
GOTO MENU
:CS3x3
if exist bin/mlv_dump_settings/cs3 (
cd bin/mlv_dump_settings
del cs3
cd..
cd..
) else (
@echo --cs3x3> bin/mlv_dump_settings/cs3
cd bin/mlv_dump_settings
del cs2
del cs5
cd..
cd..
)
cls
GOTO MENU
:CS5x5
if exist bin/mlv_dump_settings/cs5 (
cd bin/mlv_dump_settings
del cs5
cd..
cd..
) else (
@echo --cs5x5> bin/mlv_dump_settings/cs5
cd bin/mlv_dump_settings
del cs2
del cs3
cd..
cd..
)
cls
GOTO MENU
:NOCPIX
if exist bin/mlv_dump_settings/NOPIX (
cd bin/mlv_dump_settings
del NOPIX
cd..
cd..
) else (
@echo --no-fixcp> bin/mlv_dump_settings/NOPIX
cd bin/mlv_dump_settings
del FIXSPIX
cd..
cd..
)
cls
GOTO MENU
:FIXSPIX
if exist bin/mlv_dump_settings/FIXSPIX (
cd bin/mlv_dump_settings
del FIXSPIX
cd..
cd..
) else (
@echo --fixcp2> bin/mlv_dump_settings/FIXSPIX
cd bin/mlv_dump_settings
del NOPIX
cd..
cd..
)
cls
GOTO MENU
:UNPACK
if exist bin/mlv_dump_settings/UNPACK (
cd bin/mlv_dump_settings
del UNPACK
cd..
cd..
) else (
@echo --no-bitpack> bin/mlv_dump_settings/UNPACK
)
cls
GOTO MENU
:PATNOISE
if exist bin/mlv_dump_settings/PATNOISE (
cd bin/mlv_dump_settings
del PATNOISE
cd..
cd..
) else (
@echo --fixpn> bin/mlv_dump_settings/PATNOISE
)
cls
GOTO MENU
:EXPCOMP
if exist bin/mlv_dump_settings/EXPCOMP (
cd bin/mlv_dump_settings
del EXPCOMP
cd..
cd..
cls
GOTO MENU)
cls
call :colorEcho 0a "specify deflicker value below(3072 default)"
ECHO.
set /p expcomp=""
echo --deflicker=%expcomp% > bin/mlv_dump_settings/EXPCOMP
cls
GOTO MENU
:NOAUDIO
if exist bin/mlv_dump_settings/NOAUDIO (
cd bin/mlv_dump_settings
del NOAUDIO
cd..
cd..
) else (
@echo --no-audio> bin/mlv_dump_settings/NOAUDIO
)
cls
GOTO MENU
:BLACK
if exist bin/mlv_dump_settings/BLACK (
cd bin/mlv_dump_settings
del BLACK
cd..
cd..
cls
GOTO MENU)
cls
call :colorEcho 0a "specify black level below(e.g 2048)"
ECHO.
set /p black=""
echo --black-fix=%black% > bin/mlv_dump_settings/BLACK
cls
GOTO MENU
:WHITE
if exist bin/mlv_dump_settings/WHITE (
cd bin/mlv_dump_settings
del WHITE
cd..
cd..
cls
GOTO MENU)
cls
call :colorEcho 0a "specify white level below(e.g 15000)"
ECHO.
set /p white=""
echo --white-fix=%white% > bin/mlv_dump_settings/WHITE
cls
GOTO MENU
:OUTPUT
if exist bin/mlv_dump_settings/path_out (
cd bin/mlv_dump_settings
del path_out
cd..
cd..
cls
GOTO MENU)
batch_mlv_OUT.bat
:RESET
cd bin/mlv_dump_settings
del PASS
del BDEPTH
del DECMPRS
del cs2
del cs3
del cs5
del NOPIX
del FIXSPIX
del UNPACK
del PATNOISE
del EXPCOMP
del VS
del CMPRS
del NOAUDIO
del BLACK
del WHITE
del VS_F
cd..
cd..
cls
GOTO MENU
:batch_mlv
@echo off
::mlv_dump parameters
(for /f "delims== tokens=1" %%G in (bin/mlv_dump_settings/CMPRS) do set cmprs=%%G) 2>nul
(for /f "delims== tokens=1" %%H in (bin/mlv_dump_settings/VS) do set VS=%%H) 2>nul
(for /f "delims== tokens=1" %%W in (bin/mlv_dump_settings/VS_F) do set VS_F=%%W) 2>nul
(for /f "delims== tokens=1" %%Z in (bin/mlv_dump_settings/cs2) do set cs2=%%Z) 2>nul
(for /f "delims== tokens=1" %%J in (bin/mlv_dump_settings/cs3) do set cs3=%%J) 2>nul
(for /f "delims== tokens=1" %%K in (bin/mlv_dump_settings/cs5) do set cs5=%%K) 2>nul
(for /f "delims== tokens=1" %%L in (bin/mlv_dump_settings/NOPIX) do set NOPIX=%%L) 2>nul
(for /f "delims== tokens=1" %%M in (bin/mlv_dump_settings/FIXSPIX) do set FIXSPIX=%%M) 2>nul
(for /f "delims== tokens=3" %%N in (bin/mlv_dump_settings/BLACK) do set BLACK=%%N) 2>nul
(for /f "delims== tokens=3" %%Q in (bin/mlv_dump_settings/WHITE) do set WHITE=%%Q) 2>nul
(for /f "delims== tokens=1" %%R in (bin/mlv_dump_settings/DECMPRS) do set decmprs=%%R) 2>nul
(for /f "delims== tokens=1" %%S in (bin/mlv_dump_settings/PASS) do set pass=%%S) 2>nul
(for /f "delims== tokens=1" %%T in (bin/mlv_dump_settings/BDEPTH) do set bdepth=%%T) 2>nul
(for /f "delims== tokens=1" %%U in (bin/mlv_dump_settings/UNPACK) do set unpack=%%U) 2>nul
(for /f "delims== tokens=1" %%V in (bin/mlv_dump_settings/PATNOISE) do set patnoise=%%V) 2>nul
(for /f "delims== tokens=1" %%Y in (bin/mlv_dump_settings/EXPCOMP) do set expcomp=%%Y) 2>nul
(for /f "delims== tokens=1" %%E in (bin/mlv_dump_settings/NOAUDIO) do set noaudio=%%E) 2>nul
if exist darkframes (
cd darkframes
if not exist "darkf_ORIG" mkdir darkf_ORIG
::Will create averaged darkframes in created folder and move the originals into darkf_ORIG folder
for %%a in ( *.MLV ) do (
(Echo "%%a" | find /I "avg_" 1>NUL) || (
for /f "tokens=2 delims=;= " %%I in ('mlv_dump.exe -v %%~na.MLV ^| find "ISO:"') do (
for /f "tokens=2 delims=;= " %%B in ('mlv_dump.exe -v %%~na.MLV ^| find "bits_per_pixel"') do (
for /f "tokens=3 delims=;= " %%C in ('mlv_dump.exe -v %%~na.MLV ^| find "FPS "') do (
for /f "tokens=2 delims=;= " %%R in ('mlv_dump.exe -v %%~na.MLV ^| find "Res:"') do (
for /f "tokens=5 delims='= " %%N in ('mlv_dump.exe -v %%~na.MLV ^| find "Camera "') do (
mlv_dump.exe -o "darkf_ORIG/avg_%%Bbit_%%N_%%C_%%Rres_%%Iiso.MLV" -a %%~na.MLV
if not exist "darkf_ORIG/%%~na.MLV" move %%~na.MLV darkf_ORIG
) ) ) ) )
cd darkf_ORIG
del avg_*.wav
move avg_*.MLV ..\
cd..
) )
cd..
@echo off
::if matched with darkframes in darkframe folder
cd /d "%path_in%"
for %%a in ( *.MLV ) do (
for /f "tokens=2 delims=;= " %%I in ('mlv_dump.exe -v %%~na.MLV ^| find "ISO:"') do (
for /f "tokens=2 delims=;= " %%B in ('mlv_dump.exe -v %%~na.MLV ^| find "bits_per_pixel"') do (
for /f "tokens=3 delims=;= " %%C in ('mlv_dump.exe -v %%~na.MLV ^| find "FPS "') do (
for /f "tokens=2 delims=;= " %%R in ('mlv_dump.exe -v %%~na.MLV ^| find "Res:"') do (
for /f "tokens=5 delims='= " %%N in ('mlv_dump.exe -v %%~na.MLV ^| find "Camera "') do (
for /f "tokens=2 delims=;= " %%P in ('mlv_dump.exe -v %%~na.MLV ^| find "Date"') do (
if exist "%path_base%"/bin/mlv_dump_settings/path_out (
md "%path_out%/%%~na_1_%%P_0001_C0000" 2>nul )&(
if exist "%path_base%/darkframes/avg_%%Bbit_%%N_%%C_%%Rres_%%Iiso.MLV" (
cd /d "%path_base%"/bin
mlv_dump.exe -o "%path_out%/%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_" --dng --relaxed %cmprs% %VS% %VS_F% %cs2% %cs3% %cs5% %NOPIX% %FIXSPIX% %BLACK% %WHITE% %decmprs% %bdepth% %pass% %unpack% %patnoise% %expcomp% %noaudio% "%path_in%/%%~na.MLV" -s "%path_base%/darkframes/avg_%%Bbit_%%N_%%C_%%Rres_%%Iiso.MLV"
cd /d "%path_in%"
if not exist "ORIGINALS" mkdir ORIGINALS
if not exist "ORIGINALS/%%~na.MLV" move %%~na.MLV ORIGINALS
if not exist "ORIGINALS/%%~na.M*" move %path_in%/%%~na.M* ORIGINALS
) else (
cd /d "%path_base%"/bin
mlv_dump.exe -o "%path_out%/%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_" --dng --relaxed %cmprs% %VS% %VS_F% %cs2% %cs3% %cs5% %NOPIX% %FIXSPIX% %BLACK% %WHITE% %decmprs% %bdepth% %pass% %unpack% %patnoise% %expcomp% %noaudio% "%path_in%/%%~na.MLV"
if exist "%path_out%"/"%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_.wav" rename "%path_out%"/"%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_.wav" "%%~na_1_%%P_0001_C0000.wav"
cd /d %path_in%
if not exist "ORIGINALS" mkdir ORIGINALS
if not exist "ORIGINALS/%%~na.MLV" move %%~na.MLV ORIGINALS
if not exist "ORIGINALS/%%~na.M*" move %path_in%/%%~na.M* ORIGINALS
)
) else (
md "%%~na_1_%%P_0001_C0000" 2>nul )&(
if exist "%path_base%/darkframes/avg_%%Bbit_%%N_%%C_%%Rres_%%Iiso.MLV" (
cd /d "%path_base%"/bin
mlv_dump.exe -o "%path_in%/%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_" --dng --relaxed %cmprs% %VS% %VS_F% %cs2% %cs3% %cs5% %NOPIX% %FIXSPIX% %BLACK% %WHITE% %decmprs% %bdepth% %pass% %unpack% %patnoise% %expcomp% %noaudio% "%path_in%/%%~na.MLV" -s "%path_base%/darkframes/avg_%%Bbit_%%N_%%C_%%Rres_%%Iiso.MLV"
) else (
cd /d "%path_base%"/bin
mlv_dump.exe -o "%path_in%/%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_" --dng --relaxed %cmprs% %VS% %VS_F% %cs2% %cs3% %cs5% %NOPIX% %FIXSPIX% %BLACK% %WHITE% %decmprs% %bdepth% %pass% %unpack% %patnoise% %expcomp% %noaudio% "%path_in%/%%~na.MLV" ) )&(
if exist "%path_in%"/"%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_.wav" rename "%path_in%"/"%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_.wav" "%%~na_1_%%P_0001_C0000.wav" )&(
cd /d "%path_in%"
if not exist "ORIGINALS" mkdir ORIGINALS
if not exist "ORIGINALS/%%~na.MLV" move %%~na.MLV ORIGINALS )&(
if not exist "ORIGINALS/%%~na.M*" move %%~na.M* ORIGINALS ) )
) ) ) ) ) )
) else (
::regular processing no darkframes
@echo off
cd /d "%path_in%"/
for %%a in ( *.MLV ) do (
for /f "tokens=2 delims=;= " %%P in ('mlv_dump.exe -v %%~na.MLV ^| find "Date"') do (
md "%path_out%/%%~na_1_%%P_0001_C0000" 2>nul )&(
cd /d "%path_base%"/bin
if exist mlv_dump_settings/path_out (
mlv_dump.exe -o "%path_out%/%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_" --dng --relaxed %cmprs% %VS% %VS_F% %cs2% %cs3% %cs5% %NOPIX% %FIXSPIX% %BLACK% %WHITE% %decmprs% %bdepth% %pass% %unpack% %patnoise% %expcomp% %noaudio% "%path_in%/%%~na.MLV"
if exist "%path_out%"/"%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_.wav" rename "%path_out%"/"%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_.wav" "%%~na_1_%%P_0001_C0000.wav"
cd /d %path_in%/
if not exist "ORIGINALS" mkdir ORIGINALS
if not exist "ORIGINALS/%%~na.MLV" move %%~na.MLV ORIGINALS
if not exist "ORIGINALS/%%~na.M*" move %path_in%/%%~na.M* ORIGINALS
) else (
md "%path_in%/%%~na_1_%%P_0001_C0000"
mlv_dump.exe -o "%path_in%/%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_" --dng --relaxed %cmprs% %VS% %VS_F% %cs2% %cs3% %cs5% %NOPIX% %FIXSPIX% %BLACK% %WHITE% %decmprs% %bdepth% %pass% %unpack% %patnoise% %expcomp% %noaudio% "%path_in%/%%~na.MLV" )&(
if exist %path_in%/"%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_.wav" rename %path_in%/"%%~na_1_%%P_0001_C0000\%%~na_1_%%P_0001_C0000_.wav" "%%~na_1_%%P_0001_C0000.wav" )&(
cd /d %path_in%/
if not exist "ORIGINALS" mkdir ORIGINALS
if not exist "ORIGINALS/%%~na.MLV" move %%~na.MLV ORIGINALS )&(
if not exist "ORIGINALS/%%~na.M*" move %path_in%/%%~na.M* ORIGINALS ) )
) )
cls
GOTO MENU
:colorEcho
echo off
<nul set /p ".=%DEL%" > "%~2"
findstr /v /a:%1 /R "^$" "%~2" nul
del "%~2" > nul 2>&1i
:: Copyright (C) 2017 Danne
