@echo off
chcp 65001 >nul
setlocal EnableExtensions DisableDelayedExpansion

echo 動画ファイルのパートタイトルを日本語へ戻します。
echo.

call :rename 1 "1.ナギに夢精のシミを見抜かれる♡ 恥ずかしい夢精の申告タイム♪"
call :rename 2 "2.クリーニング屋さんの手で、泡まみれ♡ 手袋とタオルで前処理と泡洗浄♡"
call :rename 3 "3.ナギの体温でアイロンがけ♡ 吸水パッドに射精♡ ネルクロスで仕上げの亀頭磨き♡"
call :rename 4 "4.夢精して再来店♡ リピーター用の特別サービスで沼っちゃえ♡"

echo.
echo 完了しました。
pause
exit /b

:rename
set "part=%~1"
set "target=%~2"
for %%E in (.mp4 .mkv .mov .m4v .webm) do (
    if exist "%target%%%E" (
        echo [OK] %target%%%E
        goto :eof
    )
)
for %%E in (.mp4 .mkv .mov .m4v .webm) do (
    for %%F in ("%part%.*%%E") do (
        if exist "%%~fF" (
            ren "%%~fF" "%target%%%~xF"
            echo [変更] %%~nxF
            echo       → %target%%%~xF
            goto :eof
        )
    )
)
echo [注意] パート%part%の動画が見つかりません。
goto :eof
