@Echo off setlocal ENABLEDELAYEDEXPANSION Echo Please Select Porn Style Echo Note: None of the styles have full set of 200 pages of movies. Echo So some dead links may show up in finished file. File By: Ozzy_98 Echo. Echo Select Porn Style: Call :Choice spanking babysitter bigtits voyeur uniform midget teen bbw cumshots amateur anal black lesbian asian old blonde milf panties Set File=%Choice.String%.html Goto Main :FormatString Set ZeroStr=000000%1 Set Output=%ZeroStr:~-4% goto :eof :Choice If "%~1"=="" goto :EOF Set Choice.InnerCounter=0 Set Choice.List=%~1 :Choice.InnerLoop Set /a Choice.InnerCounter += 1 Echo %Choice.InnerCounter%. %~1 shift If not "%~1"=="" ( Set Choice.List=%Choice.List%,%~1 Goto Choice.InnerLoop ) :Choice.AnswerLoop Set /p Choice=Please Select A Choice: If %Choice% LSS 1 ( Echo Choice must be greater then 0 Goto Choice.AnswerLoop ) If %Choice% GTR %Choice.InnerCounter% ( Echo Choice must be less then %Choice.InnerCounter% Goto Choice.AnswerLoop ) For /f "Tokens=%Choice% Delims=," %%a in ("%Choice.List%") do Set Choice.String=%%a Goto :Eof :Main Cls Echo ^ >%File% for /l %%l in (1,1,199) do ( Cls Echo Writing Site %%l out of 200 Call :FormatString %%l Echo ^ Site %%l ^ >>%File% Echo ^>>%File% for /l %%a in (1,1,5) do ( for /l %%b in (1,1,2) do ( Echo ^^

^>>%File% ) ) Echo ^>>%File% ) start %Choice.String%.html