@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.ミレイちゃんの本格支配♡　ディープキス手コキと貞操帯射精管理メニュー♡"
call :rename 5 "5.射精禁止ボイスメモ♡　帰り道で聞いちゃってる？♡ｗ"
call :rename 6 "6.射精許可決済♡　亀頭責めで負け犬潮吹き♡"
call :rename 7 "7.財布管理ボイスメモ♡　ぜーんぶミレイちゃんが支配♡"
call :rename 8 "8.エピローグ ミレイに沼って出られなくなった負け犬くん♡"

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
