rem Radio music changer for fallout 3

@echo off
cls
setlocal
color 0a
cd /d %~dp0
if "%1"=="" goto nofile
if /i not "%~x1"==".mp3" goto wrongfile
:poh
rem Path to dBpoweramp Music Converter
set convpath=convert
if not exist %convpath%\coreconverter.exe goto noconverter
rem Path for output files. (must be Fallout3_folder\Data\sound\songs\radio\licensed)
set dest=ready
if not exist %dest% mkdir %dest%
:menu
echo ==========================================
echo Select destination name:
echo 01. mus_billieholiday_crazy
echo 02. mus_billieholiday_easy
echo 03. mus_bobcrosby_happy
echo 04. mus_bobcrosby_way
echo 05. mus_coleporter_anything
echo 06. mus_dannykaye_civilization
echo 07. mus_ellafitzgerald_into
echo 08. mus_generic_boogie
echo 09. mus_generic_fox
echo 10. mus_generic_jazzy
echo 11. mus_generic_jolly
echo 12. mus_generic_pink
echo 13. mus_generic_rhythm(foryou)
echo 14. mus_generic_sunning
echo 15. mus_generic_swing
echo 16. mus_inkspots_idont
echo 17. mus_inkspots_maybe
echo 18. mus_roybrown_butcher
echo 19. mus_roybrown_mighty
echo 20. mus_texbeneke_guy
echo OR press Q to quit.
echo ==========================================
set /p num=Enter file number:
if "%num%"=="01" goto 01
if "%num%"=="02" goto 02
if "%num%"=="03" goto 03
if "%num%"=="04" goto 04
if "%num%"=="05" goto 05
if "%num%"=="06" goto 06
if "%num%"=="07" goto 07
if "%num%"=="08" goto 08
if "%num%"=="09" goto 09
if "%num%"=="10" goto 10
if "%num%"=="11" goto 11
if "%num%"=="12" goto 12
if "%num%"=="13" goto 13
if "%num%"=="14" goto 14
if "%num%"=="15" goto 15
if "%num%"=="16" goto 16
if "%num%"=="17" goto 17
if "%num%"=="18" goto 18
if "%num%"=="19" goto 19
if "%num%"=="20" goto 20
if /I "%num%"=="q" goto eof
cls
echo Wrong input

goto menu
:01
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_billieholiday_crazy.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_billieholiday_crazy_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_billieholiday_crazy_mono.wav"
goto done
:02
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_billieholiday_easy.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_billieholiday_easy_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_billieholiday_easy_mono.wav"
goto done
:03
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_bobcrosby_happy.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_bobcrosby_happy_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_bobcrosby_happy_mono.wav"
goto done
:04
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_bobcrosby_way.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_bobcrosby_way_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_bobcrosby_way_mono.wav"
goto done
:05
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_coleporter_anything.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_coleporter_anything_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_coleporter_anything_mono.wav"
goto done
:06
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_dannykaye_civilization.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_dannykaye_civilization.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_dannykaye_civilization.wav"
goto done
:07
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_ellafitzgerald_into.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_ellafitzgerald_into_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_ellafitzgerald_into_mono.wav"
goto done
:08
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_generic_boogie.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_generic_boogie_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_generic_boogie_mono.wav"
goto done
:09
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_generic_fox.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_generic_fox_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_generic_fox_mono.wav"
goto done
:10
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_generic_jazzy.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_generic_jazzy_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_generic_jazzy_mono.wav"
goto done
:11
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_generic_jolly.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_generic_jolly_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_generic_jolly_mono.wav"
goto done
:12
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_generic_pink.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_generic_pink_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_generic_pink_mono.wav"
goto done
:13
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_generic_rhythmforyou.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_generic_rhythm_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_generic_rhythm_mono.wav"
goto done
:14
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_generic_sunning.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_generic_sunning_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_generic_sunning_mono.wav"
goto done
:15
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_generic_swing.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_generic_swing_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_generic_swing_mono.wav"
goto done
:16
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_inkspots_idont.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_inkspots_idont_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_inkspots_idont_mono.wav"
goto done
:17
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_inkspots_maybe.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_inkspots_maybe_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_inkspots_maybe_mono.wav"
goto done
:18
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_roybrown_butcher.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_roybrown_butcher_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_roybrown_butcher_mono.wav"
goto done
:19
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_roybrown_mighty.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_roybrown_mighty_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_roybrown_mighty_mono.wav"
goto done
:20
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_texbeneke_guy.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_texbeneke_guy_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_texbeneke_guy_mono.wav"
goto done
:01
call :convert %1
move /y "%tmp%\%~n1%~x1.mp3" "%dest%\mus_billieholiday_crazy.mp3"
move /y "%tmp%\%~n1%~x1_mono.mp3" "%dest%\mus_billieholiday_crazy_mono.mp3"
move /y "%tmp%\%~n1%~x1_mono.wav" "%dest%\mus_billieholiday_crazy_mono.wav"
goto done
:wrongfile
echo.
echo ================================================
echo.
echo Emm.. Wtf?! .mp3 extension not found.
echo Wrong file maybe? Tested only with mp3.
echo.
echo ================================================
echo.
set /p poh=Override this warning and try to continue? Y\N [N]:
if /i "%poh%"="Y" goto poh
goto eof
:noconverter
echo.
echo ======================================
echo.
echo Converter not found. Check patch.
echo.
echo ======================================
pause
goto eof
:nofile
echo.
echo ======================================
echo.
echo No file specified. Nothing to do =\
echo.
echo ======================================
pause
goto eof
:done
echo.
echo DONE!
echo.
pause
goto eof
:convert
%convpath%\coreconverter -infile="%1" -outfile=""%tmp%\%~n1%~x1.mp3"" -convert_to="mp3 (Lame)" -b 160 -encoding="SLOW" -noidtag
%convpath%\coreconverter -infile="%1" -outfile="%tmp%\%~n1%~x1_mono.mp3" -convert_to="mp3 (Lame)" -b 96 -encoding="SLOW" -noidtag -dspeffect1="Channel Count=-channels={qt}1{qt}"
%convpath%\coreconverter -infile="%1" -outfile="%tmp%\%~n1%~x1_mono.wav" -convert_to="Wave" -dspeffect1="Channel Count=-channels={qt}1{qt}" -compression="PCM" -bits="16" -freq="22050" -noidtag
exit /b
:eof