library Zelda_OOT;   
uses
ShareMem,
Needs;

{$E .kpl}

resourcestring
SKPLDescription = 'The Legend of Zelda: Ocarina of Time';

Var
ROM: PBytes = NIL;
RomSize: Integer = 0;
EndsRoot: PTableItem = NIL;
MaxCodes: Integer = 0;
Align: Integer = 2;

Function Description: String; stdcall;
begin
Result := SKPLDescription;
end;

Function NeedEnd: Boolean; stdcall;
begin
Result := True;
end;

Function GetMethod: TMethod; stdcall;
begin
Result := tmNone;
end;

Procedure SetVariables(X: PBytes; Sz: Integer; ER: PTableItem; MC, AL: Integer); stdcall;
begin
ROM := X;
RomSize := Sz;
EndsRoot := ER;
MaxCodes := MC;
Align := AL;
end;

Function GetData(TextStrings: PTextStrings): String; stdcall;
Var
R: PTextString;
begin
Result := '';
If TextStrings = NIL then Exit;
With TextStrings^ do
begin
R := Root;
While R <> NIL do
begin
Result := Result + R^.Str;
R := R^.Next;
end;
end;
end;

Function GetStrings(X, Sz: Integer): PTextStrings; stdcall;
Const
ArrayNumber = 14;// Количество массивов
MatchingArray: array[0..ArrayNumber-1, 0..3] of byte = ((3, $01, $14, $02),

(3, $04, $14, $02),

(3, $1A, $14, $02),

(3, $20, $14, $02),

(3, $2E, $14, $02),

(3, $14, $02, $54), {потому что Y в рус таблице Т, строка 1903}

(3, $14, $02, $58), {потому что Z в рус таблице Х, строки 1011 и 1014}

(3, $14, $02, $59),  {строка 1903 в проекте}

(3, $14, $02, $5A), {строки 1011 и 1014 в проекте}

(3, $14, $02, $2E),

(2, $06, $02,0),

(3, $20, $1E, $02),

(3, $13, $02, $08),

(3, $04, $13, $02));

//Нулевой элемент последовательности содержит ее длину.  В каждой последовательности три знака, хотя в кодах по два.

Var
B, i, j: byte;
Identity: boolean;
ControlArray: array[0..3] of byte;// Точно
begin
Result := NIL;
If (X >= RomSize) or (X < 0) then Exit;
New(Result, Init);
With Result^.Add^ do
begin
Str:='';
Repeat
B := ROM^[X];
For j := 0 to ArrayNumber-1 do
Begin
Identity:= true;
For i := 0 to MatchingArray[j, 0]-1{-1, потому что длина задана от единицы} do
Begin
ControlArray [i]:= ROM^[X + i];
If ControlArray <> MatchingArray[j, i+1]{+1 потому что нулевой - длина} then Identity := false;
End;
If Identity = true then break; // Если хоть одна последовательность совпала, дальше не ищем
End;
If B = $02 then
Begin
Str := Str + Char(B);// Сохраняем ноль в скрипт и выходим
Break;
End;
If Identity = true then
begin
For i := 0 to MatchingArray[j, 0]-1 do  Str := Str + Char(ControlArray); //В j сохранился номер совпавшей последовательности
X := X + MatchingArray[j, 0]-1;
end
Else Str := Str + Char(B);
Inc(X);
Until False;
end;
end;

exports
GetMethod,
SetVariables,
GetData,
GetStrings,
DisposeStrings,
NeedEnd,
Description;

end.