@echo off
if _%1_ == __ exit
if _%2_ == __ exit
cd %~dp0
if not exist %1 exit
if not exist %2 exit
call VAR.BAT
if _%4_ == __ goto manual
set one=%3
set two=%4
goto force
:manual
echo Copy from "%1" to "%2";
echo Enter first part of name:
set /P one="String (before): "
echo Enter second text to replace with:
set /P two="String (after) : "
:force
set rep=:%one%=%two%
cmd /V:ON /D /C "@for %%I in (%1\*) do (@set frs=%%~nxI&@set VAR=frs%rep%&@call VAR.BAT© /Y %%I %2\!VAR!) "
goto :eof

:## Копирует все файлы из одной папки в другую, переименовывая их по дороге.
:## Одна подстрока в имени заменяется другой подстрокой, все одни задаются прямо в консольное окно во время выполнения сценария.
:## Каталоги обработки – это первый и второй аргумент запуска (выделите оба и перетащите на скрипт тот, из которого следует брать файлы)
:## Альтернативный метод – передача исходной и новой подстроки как третий и четвёртый аргумент, что и делает «RENAME.CMD»

@echo off
cd %~dp0
if not _%1_ == __ exit

:## ==== Параметры: ====
set FROM=Jap\
set TO=Rus\
set OLD=Jap
set NEW=Rus
:## ====================

set FROM=%CD%\%FROM%
set TO=%CD%\%TO%
echo Copy from "%FROM%" to "%TO%";
echo Rename each "%OLD%" to "%NEW%";
:loop
set /P ansv="You sure? (y/n)"
if _%ansv%_==_n_ exit
if not _%ansv%_==_y_ goto loop
call "RENAME.bat" %FROM% %TO% %OLD% %NEW%
pause
goto :eof

:## Предназначен для быстрого запуска «RENAME.bat», с заранее определёнными параметрами, настраиваемыми в коде выше.
:## Копирует все файлы из подпапки FROM в подпапку TO, заменяя в их названии строку OLD строкой NEW.

a!
b!-!b
+c+
d/\d\/d/\
eEeEe
f
g@@g@@g

@echo off
if _%1_ == __ exit
if not exist %1 exit
cd %~dp0

:## ==== Параметры: ====
set EXE="game\tables.exe"
set TABLES="tables.txt"
set PATCH="tables.log"
set FILES="Rus\RUS_*.txt"
set LENGTH="200"
set SPACE=" "
:## ====================

%EXE% %1 %LENGTH% %SPACE% %FILES% %TABLES% %PATCH%

:## === Место для изменения кодировки: === ##:

:## ====================================== ##:

@echo on
@QuickPatcher.exe %TABLES% %PATCH% *
@pause>nul
goto :eof

:## Заносит данные из пользовательского текстового файла в разбивку для патча. При этом каждая строка определяет соответствующую часть патча, сохраняемую в нужный файл.
:## Обрабатываемый документ должен быть перетащен на этот скрипт. Параметры задаются в коде, а именно:
:## EXE – путь к программе-обработчику, которому передаются остальные параметры;
:## TABLES и PATCH – имена «исходного» файла для пропатчивания и его описательной структуры; используются внутренне, но сохраняются на случай, если пользователь захочет посмотреть на них;
:## FILES – строка, которая будет повторяться в файле PATCH и обозначать следующий файл данных для QuickPatcher. Звёздочка заменяется на номер строки, откуда взята информация.
:## LENGTH – максимально допустимая длина любой строки из документа. Строки длиннее будут обрезаны, а строки короче – дополнены символом SPACE (параметр, по умолчанию – пробел)
:## Программа «tables.exe» извлечёт каждую строку из документа, приведёт её к необходимой длине LENGTH символами SPACE и запишет в TABLES. Его размер сохраняется в первой строке PATCH, после чего построчно пишется число, равное (LENGTH+2)*(НомерСтроки-1), что обозначает точный байт начала очередной строки; за ним записывается строка FILES, в которой звёздочка заменяется на НомерСтроки.
:## Далее за дело берётся QuickPatcher, который инициализирует обратный патч, выгружая все строки из TABLES в отдельные файлы (линии маски FILES из списка PATCH), причём копируется столько, каков размер файла, в который производится запись (то есть необходимые файлы уже должны быть созданы, иначе появятся пустые, в которые не скопируется ничего)
:## После исполнения ожидает нажатия любой клавиши, отображая результаты.

#NoTrayIcon
if $CmdLine[0]<>6 then Exit ; PARAM: "source.txt" "MaxLen (number)" "SpaceChar (' ')" "OutMask (folder\file_*.txt)" "SaveTxt" "SavePatch"
$path=$Cmdline[4]
$len=$Cmdline[2]
$data=FileRead($Cmdline[1])
$data=StringStripCR($data)
$data=StringAddCR($data)
$arr=StringSplit($data,@CRLF,1)
$spc=""
$pad=StringLeft($Cmdline[3],1)
For $i = 1 To $len
$spc&=$pad
Next
Dim $size[$arr[0]+2]
$size[1]=0
$tab=FileOpen($Cmdline[5],2)
for $i = 1 to $arr[0]
$arr[$i]&=$spc
$arr[$i]=StringLeft($arr[$i],$len)
$size[$i+1]=$size[$i]+$len+2
FileWriteLine($tab,$arr[$i])
Next
FileClose($tab)
$fil=FileOpen($Cmdline[6],2)
FileWriteLine($fil,FileGetSize($Cmdline[5]))
for $i = 1 to $arr[0]
FileWriteLine($fil,$size[$i])
FileWriteLine($fil,StringReplace($path,"*",$i))
Next
FileClose($fil)

@cd %~dp0
@if _%1_ == __ exit

:## ==== Параметры: ====
set FILE=russian.txt
:## ====================

@QuickPatcher.exe %1 %FILE%
@pause>nul
goto :eof

:## Инициализирует патчер на файл по списку патча. Файл определяется простым перетаскиванием на этот скрипт.
:## Имя списка патча задаётся явно в параметрах в коде выше.
:## По умолчанию предназначено для работы с модифицированным содержимым.
:## После исполнения ожидает нажатия любой клавиши, отображая результаты.

@cd %~dp0
@if _%1_ == __ exit

:## ==== Параметры: ====
set FILE=japanese.txt
:## ====================

@QuickPatcher.exe %1 %FILE%
@pause>nul
goto :eof

:## Инициализирует патчер на файл по списку патча. Файл определяется простым перетаскиванием на этот скрипт.
:## Имя списка патча задаётся явно в параметрах в коде выше.
:## По умолчанию предназначено для работы с оригиналом текста.
:## После исполнения ожидает нажатия любой клавиши, отображая результаты.

@echo off
if not _%1_ == __ exit
cd %~dp0
call "bin.bat"
set RUN=%~dp0run.cmd
if not exist %CDGEN% (
echo %CDGEN% not found!
pause
exit)
if not exist %BURN% (
echo %BURN% not found!
pause
exit)
if not exist %PS2% (
echo %PS2% not found!
pause
exit)
if not exist %RUN% (
echo %RUN% not found!
pause
exit)
call :lab %PS2%
exit
:lab
start "" %BURN% %CDGEN% %PS2% %~nx1 %GAME% %RUN%
goto :eof

:## Прожигает образ диска, используя настройки путей из «bin.bat».
:## В случае успешного создания образа исполняется скрипт «RUN.CMD»

@echo off
if not _%1_ == __ exit
cd %~dp0

:## ==== Параметры: ====
set switches=-nogui -loadbin
:## ====================

call "bin.bat"
if not exist %ePSXe% (
echo %ePSXe% not found!
pause
exit)
if not exist %GAME% (
echo %GAME% not found!
pause
exit)
start "" %ePSXe% %switches% %GAME%
goto :eof

:## Запускает эмулятор, открывая ранее созданный образ игры.
:## Настройки путей расположены в «bin.bat».
:## В коде выше можно изменить аргументы запуска, в частности, убрать «-nogui», чтобы оставить интерфейс эмулятора.

@set GAME="%~dp0game\Spyro.bin"
@set ePSXe="%~dp0epsxe\ePSXe.exe"
@set BURN="%~dp0game\AutoBurn.exe"
@set CDGEN="%~dp0game\cdgenPS2.exe"
@set PS2="%~dp0game\spyro.ps2"
@goto :eof

@set GAME="C:\folder\name.iso"
@set ePSXe="C:\folder\ePSXe.exe.lnk"
@goto :eof

:## Настройка путей к различным программам, которые используются другими скриптами.
:## Можно задать любые, но имеет смысл лишь изменить путь к эмулятору и к создаваемому образу, поэтому просто удалите строку «@goto :eof» в начале и переопределите эти пути ниже.

#NoTrayIcon
if $CmdLine[0]<>5 then Exit ; PARAM: "cdgenPS2.exe" "project.ps2 (full path)" "project.ps2 (filename)" "SaveImageFile" "Succes.exe"
opt("WinTitleMatchMode",2)
$tim=3
$pid=Run($CmdLine[1]&" "&$CmdLine[2])
$err=WinWaitActive ($CmdLine[3]&" - cdgenPS2","",$tim)
if $err=0 then Exit
$gui=WinGetHandle ($CmdLine[3]&" - cdgenPS2")
WinSetTitle($gui,"","AutoBurn - "&$CmdLine[4])
Send("{F12}")
opt("WinTitleMatchMode",4)
$err=WinWaitActive ("[CLASS:#32770]","imagen",$tim)
if $err=0 then Exit
$han=WinGetHandle ("[CLASS:#32770]","imagen")
ControlSetText ($han,"",1152,$CmdLine[4])
ControlClick($han,"","[CLASS:Button;INSTANCE:2]","left",2)
opt("WinTitleMatchMode",2)
While 1
$err=WinWait("WRITE IMAGE-PROC","",$tim)
if $err=1 then ExitLoop
if not ProcessExists ($pid) then Exit
WEnd
$han=WinGetHandle ("WRITE IMAGE-PROC","")
WinActivate($han)
$str=ControlGetText($han,"","[CLASS:Static;INSTANCE:1]")
$good=0
if $str=="THE BOAT ARRIVED AT PORT :-) !!!" then $good=1
WinClose($han)
WinKill($han)
WinClose($gui)
WinKill($gui)
ProcessClose($pid)
if $good=0 Then
MsgBox(16,"AutoBurn Error:",$str)
exit
EndIf
ShellExecute($CmdLine[5])
MsgBox(48,"AutoBurn Success:","THE BOAT ARRIVED AT PORT :-) !!!",7)
exit

@if not _%1_==__ exit
@cd %~dp0
@set out=%CD%\backup\
@if not exist %out% md %out%
@for %%I in (*.txt;*.log) do copy /Y %%I %out%%%~nxI
@for /D %%I in (*) do (
@if exist %%I\ (
@if not %%I==game (
@if not %%I==epsxe (
@if not %%I==backup (
xcopy /E /C /R /Y %%I %out%%%~nI\
)))))

:## Создаёт архивную копию рабочих файлов и папок. Всё сохраняется в каталог «backup\».
:## Обрабатываются только файлы «*.txt» и «*.log»
:## Копируются все директории, кроме «backup», «game» и «epsxe»