%
@IF NOT DEFINED PERCENT (
@set /P PERCENT=<"%~fs0"
@goto :eof)
@IF DEFINED VAR (
@echo @set VAR=%PERCENT%%VAR%%PERCENT%>%TEMP%\VAR_.BAT
@call %TEMP%\VAR_.BAT
@del %TEMP%\VAR_.BAT
) ELSE (
@echo "VAR" not defined!)
@goto :eof

:## Превращение переменной, в которой содержится имя другой переменной, непосредственно в её значение.
:## Например, если v1=v2, а v3=v1 как строка (то есть «echo %v1%» выдаст «v2», а «echo %v3%» выдаст «v1»), но требуется получить значение переменной v1 (а именно строку «v2»), оперируя именем переменной v1 не как константой, а как строковым значением переменной v3.
:## Иными словами, попытка получить «%%v3%%» (что сначала бы раскрылось в «%v1%», а потом и в «v2»).
:## Реализуется этим скриптом с именем «VAR.BAT»; В первой строке обязательно должен находиться единственный символ процента «%»
:## Перед использованием необходимо выполнить один холостой вызов! (определение переменной PERCENT)
:## ИНСТРУКЦИЯ:
:## 1) Вызовите этот сценарий один раз перед любыми действиями.
:## 2) Приравняйте мою переменную «VAR» значению той вашей переменой, в которой хранится имя второй переменной (в примере это v3)
:## 3) Вызовите этот сценарий без параметров.
:## 4) Считайте значение вложенной переменной просто как результат %VAR%.
:## 5) Если нужно извлечь несколько именных ссылок, вызывайте скрипт несколько раз подряд.
:## Аналогичным образом можно работать с массивами (Array_%index%) или использовать любые расширения переменных, в частности, автозамену (str:1=2)

000000000011AA11111BBBBB11ССС100000000002DDDDDDDDD22EEEEE22200000000003333F33333GGGGGGG333
000000000011a!11111b!-!b11+c+100000000002d/\d\/d/\22eEeEe22200000000003333f33333g@@g@@g333
000000000011111111111111111111000000000022222222222222222222000000000033333333333333333333

             AA     BBBBB  ССС            DDDDDDDDD  EEEEE                 F     GGGGGGG    
             a!     b!-!b  +c+            d/\d\/d/\  eEeEe                 f     g@@g@@g    
           11111111111111111111          22222222222222222222          33333333333333333333

11AA11111BBBBB11ССС1
2DDDDDDDDD22EEEEE222
3333F33333GGGGGGG333

   AA     BBBBB       
  DDDDDDDDD  EEEEE    
     F     GGGGGGG    

Это схематическое изображение структуры WAD файла. Цифрами обозначены области субфайлов, нулями – промежуточные не интересующие части. Заглавными буквами – «оригиналы» данных в них; строчными и знаками – «изменённые» байты.

Первая строка представляет рабочую область, которая будет изменена.
Вторая строка – её изначальная копия для сравнения.
Третья строка – целевое состояние, которое должно быть достигнуто.
Четвёртая строка – отображение только областей без данных.
В следующих двух строках (после промежутка) показаны те же самые состояния, но без заполнения областей (всё залито пробелами); в следующей – нужные субфайлы без отображения промежутков.
Нижеследующий блок из трёх строк – схемы трёх субфайлов.
Ещё один такой же – без отображения областей.

Из всего этого изменятся и обрабатываться должна только первая строка, но передаётся в обработку весь файл.

ТОЧНЫЙ РАЗМЕР (в байтах): «1698»

:## Документ основной разметки содержимого WAD.

:## Общий размер файла в байтах:

set Size=1698

:## Промежуток извлекаемых табличек. Обычно от «1» до общего количества, но можно изменить, чтобы обработать только часть из них (корректно).
:## Если максимальное значение будет меньше минимального (например ноль), то извлеченной окажется единственная табличка.

set Min=1
set Max=7

:## Перечисление сдвигов субфайлов. Номера чисто условные, поэтому можно применить реальные непоследовательные числа или даже текстовые фразы.
:## После знака равенства укажите байт начала соответствующего субфайла по отношению к WAD.

set Sub_1=10
set Sub_2=40
set Sub_3=70

:## Описание сдвигов соответствующих табличек относительно СВОЕГО субфайла. Номера должны быть последовательные, однако допускается указывать не все таблички, а пропускать некоторые.
:## После знака равенства напишите байт начала таблички от своего субфайла. При этом, конечно, разные таблички могут иметь одинаковые (или пересекающиеся) значения сдвигов, но принадлежать различным субфайлам, что указывается ниже.

set Tab_1=2
set Tab_2=9
set Tab_3=16
set Tab_4=1
set Tab_5=12
set Tab_6=4
set Tab_7=10

:## Отношение каждой таблички к определённому субфайлу. Номера должны быть последовательные, НЕОБХОДИМО определить значение для каждой из вышеописанных табличек!
:## Однако возможно описать больше табличек, чем задано смещений.
:## Субфайлы задаются после знака равенства под теми номерами, по которым были описаны в начале этого документа. Если использовались строки, то они должны быть идентичны фразам из тех переменных (следите за пробелами на концах!)

set Num_1=1
set Num_2=1
set Num_3=1
set Num_4=2
set Num_5=2
set Num_6=3
set Num_7=3

@if not _%1_ == __ exit
cd %~dp0
prompt $n$g
mode con cols=120
setlocal

:## ==== Параметры: ====
set OUT=japanese.txt
set Pref=JAP_
set Suff=.txt
set Folder=Jap\
:## ====================

call "all.bat"
call "make.bat"
endlocal
goto :eof

:## Создаёт патчевый список. Параметры для него устанавливаются переменными в коде выше.
:## Суть списка строится на основании содержания «all.bat».
:## По умолчанию этот файл предназначен для извлечения оригинала.

@if not _%1_ == __ exit
cd %~dp0
prompt $n$g
mode con cols=120
setlocal

:## ==== Параметры: ====
set OUT=russian.txt
set Pref=RUS_
set Suff=.txt
set Folder=Rus\
:## ====================

call "all.bat"
call "make.bat"
endlocal
goto :eof

:## Создаёт патчевый список. Параметры для него устанавливаются переменными в коде выше.
:## Суть списка строится на основании содержания «all.bat».
:## По умолчанию этот файл предназначен для работы с модифицированным содержимым.

set val=0
set Tab_X=_
set Sub_X=_
set Num_X=_
set str=%Size%*
if %Max% LSS %Min% set Max=%Min%
set /A Max=Max+1
call VAR.BAT
if not exist %CD%\%Folder% md %CD%\%Folder%
cmd /V:ON /D /C " for /L %%I in (%Min%,1,%Max%) do (if %%I==%Max% (echo !str!*?>%OUT%) else (if DEFINED Tab_%%I (set VAR=Num_%%I&call VAR.BAT&set Num_X=!VAR!&set VAR=Sub_!VAR!&call VAR.BAT&set Sub_X=!VAR!&set VAR=Tab_%%I&call VAR.BAT&set Tab_X=!VAR!&echo %%I !Num_X! !Sub_X! !Tab_X!&set /A adr=Sub_X+Tab_X&set str=!str!*!adr!*%Folder%%Pref%%%I%Suff%&echo !str!))) "
set /P rest=<%OUT%
if not exist %OUT% (
echo BAD
goto :eof)
cmd /V:ON /D /C "echo off&FOR /L %%Z in (1,1,9999999) do (FOR /F "usebackq tokens=1* delims=*" %%i IN (`echo !rest!`) DO (set curr=%%i&set rest=%%j&if _%%i_==_?_ exit)&echo !curr!)">%OUT%
echo OK

:## Калькулятор. Обрабатывает данные, считанные из «all.bat» другими сценариями.
:## Создаёт данные патча. Сохраняет размер Size, просчитывает сдвиги табличек от Min до Max, суммируя Tab_ каждой с тем Sub_, на которые указывает её Num.
:## Остальные данные (папка, префикс, документ) принимаются от вызвавшего скрипта.

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

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

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

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

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

:## ==== Параметры: ====
set sym=#
:## ====================

echo Process folder "%1" with "%sym%";
echo Enter any size for all files:
set /P len="Bytes (3+): "
set /A len=len+0
if %len% LSS 3 exit
set str=
:loop
if %len% LSS 3 goto end
set /A len=len-1
set str=%str%%sym%
goto loop
:end
for %%I in (%1\*) do (echo %str%>%%I)
exit
:two
if not exist %1 exit
if not exist %2 exit
for %%I in (%1\*) do (erase /F /Q %%I© %2 "%%I")
goto :eof

:## Заполняет все файлы в одной папке одинаковыми данными, чтобы установить им равный размер.
:## Перетащите нужную папку на этот скрипт.
:## По умолчанию файлы заполняются символом «#» (настраивается в параметрах выше); два последних байта всегда CR-LF
:## Размер можно указать лишь от трёх байт и выше (текстом по запросу непосредственно в консольное окно)

:## Если требуется задать маленький или очень большой размер (а также заполнять не однородным содержимым), используйте другую структуру вызова, указав вторым аргументом отдельный файл, который будет скопирован в каждый файл назначения.
:## То есть, выделите в Проводнике как папку, так и результирующий файл, после чего перетащите их на скрипт, но держите именно каталог (выполните перетаскивание только за папку, но выделенный файл должен быть рядом).
:## По умолчанию файл «NULL» имеет нулевой размер и может пригодится, чтобы очистить содержимое всех файлов в одной папке: выделите папку и NULL; перетащите папку на этот сценарий)

@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»