Нужно проводить поиск максимально длинного идентичного отрезка, если таковой не найден или найден, но длина его меньше 3-х, то записать 1 байт в незапакованном виде. И дальше проводить поиск для другого байта. Ты не на делфях, случаем, программиш? Могу дать код похожей функции.

Ну, хз, по-моему ничего проще делфей нету

Вот так выглядит моя функция запаковки GBAшного LZ77:

Function BINtoLZ(Src,Res: PArr; Size: Longword; Mode:byte):LongWord;
Var
  ResP,SrcP,Back,MaskP,MaskN: Longword;
  Max,Cur,MaxB:Word;
Begin
  SetLength(Res^,6);
  Res^[0]:=$10;
  Res^[1]:=Size and $FF;
  Res^[2]:=(Size shr 8) and $FF;
  Res^[3]:=(Size shr 16) and $FF;
  Res^[4]:=0;
  Res^[5]:=SRC^[0];
  MaskP:=4; //Позиция маски
  ResP:=6;  //Позиция в результирующем массиве
  SrcP:=1;  //Позиция в исходном массиве
  MaskN:=7; //Позиция в маске
  Repeat
    If MaskN=0 then begin  //Смена маски
      MaskP:=ResP;
      Inc(ResP);
      SetLength(Res^,ResP);
      MaskN:=8;
    End;
    Back:=Mode+1;
    Max:=0; //Максимальный размер копируемых данных
    MaxB:=0;
    While (Back<=$1000) and (Back<=SrcP) and (Max < $F+3) and (SrcP+Max<Size) do Begin //Поиск самого длинного повторяющегося отрезка
      Cur:=0; //Текущий размер
      While (Src^[SrcP+Cur]=Src^[SrcP-Back+Cur]) and (SrcP+Cur<Size) and (Cur<$F+3) do Inc(Cur);
      If (Cur>=3) and (Cur>Max) then begin
        Max:=Cur;
        MaxB:=Back;
      End;
      Inc(Back);
    End;
    If Max=0 then begin //Если подходящий отрезок не найден
      SetLength(Res^,ResP+1);
      Res^[ResP]:=Src^[SrcP];
      Dec(MaskN);
      Inc(ResP);
      Inc(SrcP);
    End
      Else begin //Если найден
        SetLength(Res^,ResP+2);
        Res^[ResP]:=((Max-3) shl 4)+((MaxB-1) shr 8);
        Res^[ResP+1]:=(MaxB-1) and $FF;
        Inc(ResP,2);
        Inc(SrcP,Max);
        Dec(MaskN);
        Inc(Res^[MaskP],1 shl MaskN);
      end;
  Until SrcP>=Size;
  Result:=ResP;
End;

Src - это исходный (не пожатый) массив байтов, Res - массив, в который вносятся сжимаемые данные. А сама функция возвращает размер пожатых данных.

Отредактировано TrickZter (2011-05-21 10:58:03)

Разумеется похож, Делфи - это прямой потомок паскаля Самой популярной версией делфи до сих пор является Borland Delphi 7. Сам я сижу под Windows 7 x64, проблем с делфями нет.

LZ разный бывает, а LZ77 - одна из его разновидностей. Почитать подробнее можно в википедии:
http://ru.wikipedia.org/wiki/LZ77
Но даже тот же самый LZ77 в разных играх и на разных платформах может реализовываться по-разному. Например, у тебя тоже LZ77, только организован он немного иначе: другой порядок бит во флаговом байте, другие биты используется для смещения и длины, смещение считается иначе.

Джин подсказывает, что правильно этот алгоритм называется LZSS, хотя в документации по тем же GBA и NDS этот алгоритм ошибочно обзывают LZ77 (это другой тип LZ).

Добавлено:

Отредактировано TrickZter (2011-05-22 09:17:34)

А как ты конец нашёл? Проще всего реализовать программу, если в качестве входных данных дать: 1) имя файла, 2) координату начала запакованных данных, 3) размер данных, которые хотим получить на выходе.
Если не задать размер, то алгоритм позволяет "распаковывать" всё подряд - хоть до конца рома, и на выходе ты получишь распакованную картинку плюс СОТНИ хлама, следующие за ней.

С точки зрения реализации гораздо проще указать программе все данные самому. Хотя используя различные методы программу можно научить находить что-то похожее на пожатые ресурсы, но гарантий никаких нет, ведь практически любую последовательность байтов можно попытаться так или иначе "распаковать" и получить на выходе бесполезный мусор.

Если ошибиться с началом картинки, то даже запакованная картинка может превратиться во что-то мусоро-подобное. Представь, например, что за флаговый байт мы взяли не первый байт пожатой картинки, а байт перед ней или второй байт пожатой картинки. Даже из-за такой небольшой ошибки программа будет воспринимать данные совсем иначе: то, что должно быть не пожатым байтом, может восприниматься программой как часть пары сжатия, а то, что было частью пары сжатия, будет восприниматься как не пожатый байт. В итоге "распакованная" картинка превратится в месево, в котором, если повезёт, где-нибудь под конец и появится что-то похожее на конец картинки (если на каком-то этапе программа верно попадёт во флаговый байт).

Отредактировано TrickZter (2011-05-23 04:25:36)

Умножить количество тайлов на размер тайла в байтах. Если графика в формате 8BPP (на один пиксель приходится 8 бит или 1 байт), то размер одного тайла будет 8x8=64 байта, если 4BPP (на один пиксель приходится 4 бита или половина байта), то размер тайла будет 8x8/2=32 байта. 2BPP и 1BPP в ГБА играх встречаются крайне редко, но посчитать, думаю, будет несложно

Отредактировано TrickZter (2011-05-23 10:53:48)