@echo off
setlocal enabledelayedexpansion

for /f "tokens=*" %%i in (Chaturbate_Mirrors.txt) do (
    set "url=%%i"
    curl.exe --silent --insecure --head --fail --url !url! > nul
    if !errorlevel! equ 0 (
        echo !url! OK
        echo !url!>> Chaturbate_Mirrors_OK.txt
    ) else (
        echo !url! XXX
    )
    timeout /nobreak /t 1 >nul
)

pause

  $err = 0;
  
  LOOP:
  
  $start = 0;
  
  GET https://edge-hls.doppiocdn.live/hls/$mid/master/$mid.m3u8
  
  if('404'){
  
  $err++;
  
    if($err < 3){
    sleep 3;
    goto LOOP;
    }
  
  print "model offline";
  $err = 0;
  sleep 30;
  goto LOOP; 
  
  }
  
  // парсим CDN плейлиста
  
  $err = 0;
  $good = 0;
  $priv = 0;
  
  LOOP2:
  
  GET https://$cdn.doppiocdn.live/hls/$mid/$mid.m3u8
  
  if('200'){
  
  $good++;
  $priv = 0;
  $err = 0;
  
    if($good < 3){
    sleep 3;
    goto LOOP2;  
    }
  
  $start = 1;
  
  }
  else if('403'){
  
  $priv++;
  $good = 0;
  $err = 0;
  
    if($priv < 3){
    sleep 3;
    goto LOOP2;  
    }
  
  print "model private";
  //$priv = 0;
  //sleep 30;
  //goto LOOP2; 
  sleep 28;
  
  }
  else if('404'){
  
  $err++;
  $good = 0;
  $priv = 0;
  
    if($err < 3){
    sleep 3;
    goto LOOP2;  
    }
  
  print "wait connect";
  $err = 0;
  sleep 28;
  
  }
  
  if($start){
  // start streamlink
  }
  
  sleep 2;
  goto LOOP;

set "Cam_Available="

for /f "delims=" %%a in ('curl -ksS https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 2^>^&1 ^| findstr /c:"404 Not Found" 2^>nul') do set "Cam_Available=wait_connect"

if "%Cam_Available%"=="wait_connect" (
    title %name% - wait... 1st
    echo Model - wait... 1st
    timeout 3 >nul
    goto repeat_1
)

:repeat_1
set "Cam_Available="

for /f "delims=" %%a in ('curl -ksS https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 2^>^&1 ^| findstr /c:"404 Not Found" 2^>nul') do set "Cam_Available=wait_connect"

if "%Cam_Available%"=="wait_connect" (
    title %name% - wait... 2nd
    echo Model - wait... 2nd
    timeout 3 >nul
    goto repeat_2
)

:repeat_2
set "Cam_Available="

for /f "delims=" %%a in ('curl -ksS https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 2^>^&1 ^| findstr /c:"404 Not Found" 2^>nul') do set "Cam_Available=wait_connect"

if "%Cam_Available%"=="wait_connect" (
    title %name% - wait... 3rd
    echo Model - wait... 3rd
    timeout 3 >nul
    goto repeat_3
)

:repeat_3
set "Cam_Available="

for /f "delims=" %%a in ('curl -ksS https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 2^>^&1 ^| findstr /c:"404 Not Found" 2^>nul') do set "Cam_Available=offline"

if "%Cam_Available%"=="offline" (
    title %name% is offline
    echo Model is offline
    timeout %seconds%
    goto loop
)

@echo off
set /p name=name:
set dir=D:\Records
set seconds=30

for /f "delims=" %%a in ('curl -ksS https://de.stripchat.com/api/front/v2/users/username/%name%/ ^| jq -r .item.id') do set id=%%a

if "%id%"=="null" (
  title %name% - not found
  echo %name% - not found
  pause
  exit
)

if "%id%"=="" (
  title %name% - not found
  echo %name% - not found
  pause
  exit
)

set stream_url=https://b-hls-01.doppiocdn.live/hls/%id%/%id%.m3u8

:loop
cls

for /f "delims=" %%a in ('curl -ksS -L -I -w "%%{http_code};%%{url_effective}" -o NUL %stream_url%') do set status_code_location_url=%%a
for /f "tokens=1,2 delims=;" %%i in ("%status_code_location_url%") do (
  set status_code=%%i
  set location_url=%%j
)

if "%status_code%" == "000" (
  title %name%
  timeout %seconds%
  goto loop
)

if "%status_code%" == "404" (
  title %name% - offline
  echo %name% - offline
  timeout %seconds%
  goto loop
)

if "%status_code%" == "403" (
  title %name% - private
  echo %name% - private
  timeout %seconds%
  goto loop
)

set datetime=%date:~6,4%-%date:~3,2%-%date:~0,2%_%time:~0,2%-%time:~3,2%-%time:~6,2%
set datetime=%datetime: =0%
set output=%dir%\StripChat_%name%_%datetime%.ts

title %name% - recording
streamlink --stream-segment-threads 3 "%location_url%" best -o "%output%"
rem ffmpeg -i "%location_url%" -c copy "%output%"

timeout %seconds%
goto loop

@echo off

set /p name=name: 

set dir=D:\Records
set long=30
set short=5

:: if entered full url instead of nickname
echo %name% | findstr /R "https://[a-zA-Z][a-zA-Z]\.stripchat\.com/" > nul
if not errorlevel 1 (
    set name=%name:~25%
)

echo %name% | findstr /R "https://stripchat\.com/" > nul
if not errorlevel 1 (
    set name=%name:~22%
)

echo %name%
echo.

set "frame_resolution="

set /p "frame_resolution=Press Enter to select "best" quality or specify (720, 480, 240, 160): "

if "%frame_resolution%"=="" (
    set "quality=best"
)

if "%frame_resolution%" neq "" (
    set "lastChar=%frame_resolution:~-1%"
)

if "%lastChar%"=="p" (
    set "quality=%frame_resolution%"
)

if "%lastChar%" neq "" (
    if "%lastChar%" neq "p" (
        set "quality=%frame_resolution%p"
    )
)

if not "%quality%"=="best" (
    if not "%quality%"=="720p" (
        if not "%quality%"=="480p" (
            if not "%quality%"=="240p" (
                if not "%quality%"=="160p" (
                    cls
                    echo %name%
                    echo.
                    echo Error - entered value is not from range
                    echo Select "best" quality or 720, 480, 240, 160
                    echo.
                    pause
                    exit
                )
            )
        )
    )
)

for /f "delims=" %%a in ('curl -ksS https://de.stripchat.com/api/front/v2/users/username/%name%/ 2^>nul ^| jq -r .item.id') do set user_id=%%a

if "%user_id%"=="null" (
    echo ID - %user_id%
    title %name% - nickname incorrect or non-existent
    echo Nickname incorrect or non-existent
    echo.
    pause
    exit
)

if "%user_id%"=="" (
    echo ID - %user_id%
    title %name% - nickname incorrect or non-existent
    echo Nickname incorrect or non-existent
    echo.
    pause
    exit
)

sleep 0.5
for /f "delims=" %%a in ('curl -ksS https://de.stripchat.com/api/front/v2/models/username/%name%/cam ^| jq -r .user.isGeoBanned') do set is_GeoBanned=%%a

:loop
cls
title Request...

streamlink --version
echo %name% --- Stripchat
echo ===========================
echo ID - %user_id%
echo GeoBanned: %is_GeoBanned%

set "Cam_Available="

for /f "delims=" %%a in ('curl -ksS https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 2^>^&1 ^| findstr /c:"404 Not Found" 2^>nul') do set "Cam_Available=offline"

if "%Cam_Available%"=="offline" (
    title %name% is offline
    echo Model is offline
    timeout %long%
    goto loop
)

sleep 0.5
for /f "delims=" %%a in ('curl -ksS https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 2^>^&1 ^| findstr /c:"https://b-hls" 2^>nul') do set play_list=%%a
::echo %play_list%

sleep 0.5

setlocal enabledelayedexpansion
for /l %%i in (1,1,3) do (
    for /f "delims=" %%a in ('curl -ksS %play_list% 2^>^&1 ^| findstr /c:"403 Forbidden" 2^>nul') do set "Cam_Available=check_private"
    if "!Cam_Available!"=="check_private" (
        title %name% - wait... %%i check private
        echo Model - wait... %%i check private
        timeout 3 >nul
    ) else (
        goto online_stream
    )
    set "Cam_Available="
)
endlocal

for /f "delims=" %%a in ('curl -ksS %play_list% 2^>^&1 ^| findstr /c:"403 Forbidden" 2^>nul') do set "Cam_Available=private"

if "%Cam_Available%"=="private" (
    title %name% in private chat
    echo Model in private chat or away
    timeout %long%
    goto loop
)

:online_stream

sleep 0.5
for /f "delims=" %%a in ('curl -ksS %play_list% 2^>^&1 ^| findstr /c:".mp4" 2^>nul') do set "Cam_Available=online"

if not "%Cam_Available%"=="online" (
    title %name% - problem...
    echo Model - problem...
    timeout %short%
    goto loop
)

echo Model is %Cam_Available%

set datetime=%date:~6,4%-%date:~3,2%-%date:~0,2%_%time:~0,2%-%time:~3,2%-%time:~6,2%
set datetime=%datetime: =0%
set file=StripChat_%name%_%datetime%.ts
title Rec - %name%_%datetime%

setlocal enabledelayedexpansion
if "%quality%"=="720p" (
    for /f "tokens=*" %%a in ('streamlink https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%_auto.m3u8') do set out_line=%%a
    echo !out_line! | findstr "720p" >nul
    if not errorlevel 1 (
        goto work
    ) else (
        echo Error - selected value '720p' was not found
        echo.
        pause
        exit
    )
)
endlocal

:work

if "%quality%"=="best" (
    streamlink --stream-segment-threads 3 https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 %quality% -o "%dir%\%file%"
) else (
    streamlink --stream-segment-threads 3 https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%_auto.m3u8 %quality% -o "%dir%\%file%"
)

timeout %short%
goto loop

@echo off

set /p name=name: 

set dir=D:\Records
set long=30
set short=5

:: if entered full url instead of nickname
echo %name% | findstr /R "https://[a-zA-Z][a-zA-Z]\.stripchat\.com/" > nul
if not errorlevel 1 (
    set name=%name:~25%
)

echo %name% | findstr /R "https://stripchat\.com/" > nul
if not errorlevel 1 (
    set name=%name:~22%
)

echo %name%
echo.

set "frame_resolution="

set /p "frame_resolution=Press Enter to select "best" quality or specify (720, 480, 240, 160): "

if "%frame_resolution%"=="" (
    set "quality=best"
)

if "%frame_resolution%" neq "" (
    set "lastChar=%frame_resolution:~-1%"
)

if "%lastChar%"=="p" (
    set "quality=%frame_resolution%"
)

if "%lastChar%" neq "" (
    if "%lastChar%" neq "p" (
        set "quality=%frame_resolution%p"
    )
)

if not "%quality%"=="best" (
    if not "%quality%"=="720p" (
        if not "%quality%"=="480p" (
            if not "%quality%"=="240p" (
                if not "%quality%"=="160p" (
                    cls
                    echo %name%
                    echo.
                    echo Error - entered value is not from range
                    echo Select "best" quality or 720, 480, 240, 160
                    echo.
                    pause
                    exit
                )
            )
        )
    )
)

for /f "delims=" %%a in ('curl -ksS https://de.stripchat.com/api/front/v2/users/username/%name%/ 2^>nul ^| jq -r .item.id') do set user_id=%%a

if "%user_id%"=="null" (
    echo ID - %user_id%
    title %name% - nickname incorrect or non-existent
    echo Nickname incorrect or non-existent
    echo.
    pause
    exit
)

if "%user_id%"=="" (
    echo ID - %user_id%
    title %name% - nickname incorrect or non-existent
    echo Nickname incorrect or non-existent
    echo.
    pause
    exit
)

sleep 0.5
for /f "delims=" %%a in ('curl -ksS https://de.stripchat.com/api/front/v2/models/username/%name%/cam ^| jq -r .user.isGeoBanned') do set is_GeoBanned=%%a

:loop
cls
title Request...

streamlink --version
echo %name% --- Stripchat
echo ===========================
echo ID - %user_id%
echo GeoBanned: %is_GeoBanned%

set "Cam_Available="

setlocal enabledelayedexpansion
for /l %%i in (1,1,3) do (
    for /f "delims=" %%a in ('curl -ksS https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 2^>^&1 ^| findstr /c:"404 Not Found" 2^>nul') do set "Cam_Available=check_offline"
    if "!Cam_Available!"=="check_offline" (
        title %name% - wait... %%i check offline
        echo Model - wait... %%i check offline
        timeout 3 >nul
    ) else (
        goto search_list
    )
    set "Cam_Available="
)
endlocal

for /f "delims=" %%a in ('curl -ksS https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 2^>^&1 ^| findstr /c:"404 Not Found" 2^>nul') do set "Cam_Available=offline"

if "%Cam_Available%"=="offline" (
    title %name% is offline
    echo Model is offline
    timeout %long%
    goto loop
)

:search_list

sleep 0.5
for /f "delims=" %%a in ('curl -ksS https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 2^>^&1 ^| findstr /c:"https://b-hls" 2^>nul') do set play_list=%%a
::echo %play_list%

sleep 0.5

setlocal enabledelayedexpansion
for /l %%i in (1,1,3) do (
    for /f "delims=" %%a in ('curl -ksS %play_list% 2^>^&1 ^| findstr /c:"403 Forbidden" 2^>nul') do set "Cam_Available=check_private"
    if "!Cam_Available!"=="check_private" (
        title %name% - wait... %%i check private
        echo Model - wait... %%i check private
        timeout 3 >nul
    ) else (
        goto online_stream
    )
    set "Cam_Available="
)
endlocal

for /f "delims=" %%a in ('curl -ksS %play_list% 2^>^&1 ^| findstr /c:"403 Forbidden" 2^>nul') do set "Cam_Available=private"

if "%Cam_Available%"=="private" (
    title %name% in private chat
    echo Model in private chat or away
    timeout %long%
    goto loop
)

:online_stream

sleep 0.5
for /f "delims=" %%a in ('curl -ksS %play_list% 2^>^&1 ^| findstr /c:".mp4" 2^>nul') do set "Cam_Available=online"

if not "%Cam_Available%"=="online" (
    title %name% - problem...
    echo Model - problem...
    timeout %short%
    goto loop
)

echo Model is %Cam_Available%

set datetime=%date:~6,4%-%date:~3,2%-%date:~0,2%_%time:~0,2%-%time:~3,2%-%time:~6,2%
set datetime=%datetime: =0%
set file=StripChat_%name%_%datetime%.ts
title Rec - %name%_%datetime%

setlocal enabledelayedexpansion
if "%quality%"=="720p" (
    for /f "tokens=*" %%a in ('streamlink https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%_auto.m3u8') do set out_line=%%a
    echo !out_line! | findstr "720p" >nul
    if not errorlevel 1 (
        goto work
    ) else (
        echo Error - selected value '720p' was not found
        echo.
        pause
        exit
    )
)
endlocal

:work

if "%quality%"=="best" (
    streamlink --stream-segment-threads 3 --hls-segment-queue-threshold 0 https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%.m3u8 %quality% -o "%dir%\%file%"
) else (
    streamlink --stream-segment-threads 3 --hls-segment-queue-threshold 0 https://edge-hls.doppiocdn.com/hls/%user_id%/master/%user_id%_auto.m3u8 %quality% -o "%dir%\%file%"
)

timeout %short%
goto loop