Ссылка битая

Не... Рыба меч - немного другая история... Её там кстати можно тоже ловить... А Марлин стоит особняком... У этой рыбы есть ещё 4 названия - она близкий родственник рыбы-меч (семейство парусниковых) но у неё спинной плавник намного больше, чем у рыбы-меч... А вообще даже в России рыбу иногда так и зовут - Синий марлин...

Отредактировано guyver (2005-11-29 01:25:09)

Возобновляем старые темы. В настоящее время формат упакованных данных известен досконально. Я бы мог привести код 6502 или объяснить словами, но, думаю, намного нагляднее будет привести код распаковщика на всеми любимом Delphi (кстати, общее описание можно найти на сайте ChiefNet):

program Unpacker;

{$APPTYPE CONSOLE}

uses
  SysUtils,classes;

const
InputFileName:string='Blue Marlin, The (U).nes';
OutputFileName:string='Output.bin';
StartOffs:integer=$8143;//адрес начала упакованной тайловой карты экрана битвы с рыбой - конец по смещению 0х8359

var
 msIN,msOut:tmemorystream;

 Carry:boolean;
 PreviousChar,DecompCounter,HighControlByte,LowControlByte:byte;
 NextChar,ZeroByte:byte;
 MainCounter:integer;
Lines, Columns:byte;


//---------------------------------------------------------------
Procedure Asl(var operand:byte);
begin
Carry:= Boolean(Operand shr 7);
Operand := Operand shl 1;
end;

//---------------------------------------------------------------

Procedure MainLoop ;
begin

if (boolean(HighControlByte shr 7))=false then
msIn.Read(NextChar,1)//highContByte=0

else begin //highContByte=1
 asl(LowControlByte);
 if Carry=true then   NextChar:=ZeroByte// LowContByte=1
 else                 msIn.Read(NextChar,1);// LowContByte=0
end;//highContByte=1



inc(decompCounter);
if (DecompCounter mod $40)=0 then begin //(decompcounter mod $40)=0

 msIn.Read(HighControlByte,1);
 if HighControlByte=0 then begin
  msIn.Read(ZeroByte,1);
  msIn.Read(HighControlByte,1);
 end;

 if (boolean(HighControlByte shr 7))=true then msIn.Read(LowControlByte,1);
end//(decompcounter mod $40)=0
else
begin //(decompcounter mod $40)<>0
 if (DecompCounter mod 8) =0 then
 begin
  HighControlbyte:=HighControlbyte shl 1;
  if (boolean(HighControlByte shr 7))=true then msIn.Read(LowControlByte,1);
 end;
end;//(decompcounter mod $40)<>0

end;


//---------------------------------------------------------------


begin
msIn:=tmemoryStream.Create;
msOut:=tmemoryStream.Create;


ZeroByte:=0;
msIn.LoadFromFile(InputFileName);
msIn.Position:=StartOffs;

msIn.Read(HighControlByte,1);
MsIn.Read(LowControlByte,1);


mainLoop;
PreviousChar :=NextChar xor PreviousChar;
Lines :=PreviousChar ;

mainLoop ;
PreviousChar :=NextChar xor PreviousChar;
Columns:=PreviousChar;



for MainCounter:=0 to (Lines*Columns-1) do
begin

mainLoop;
PreviousChar:=NextChar xor PreviousChar;
msOut.Write(PreviousChar,1);
end;



msOut.SaveToFile(OutputFileName);
msIn.Free;
msOut.Free;

end.

Распаковщик отличный =) Да и формат, как вы видите довольно прост (предназначен, в основном, для повторяющихся байт). НО, как всегда, есть загвоздка... Рассмотрим этот кусок кода распаковщика:

msIn.Read(HighControlByte,1);
if HighControlByte=0 then begin
 msIn.Read(ZeroByte,1);
 msIn.Read(HighControlByte,1);
end;

Теперь ZeroByte может быть любым: алгоритм становится эффективным для байт, XOR между которыми равен любому байту (0-255). Таким образом, одинаковые байты - лишь частный случай (в этом случае ZeroByte=0). Этот частный случай работает бОльшую часть времени: например на первом титульнике ZeroByte вообще всегда равен 0, но есть такие тайловые карты, в которых имеются примерно такие последовательности:
...5C 5D 5C... (это тайловая карта экрана битвы с рыбой) и тогда эффективным становится ситуация, когда ZeroByte=1.
Итак, распаковщик должен это уметь делать... В связи с этим две предпосылки:

-В любом случае, ZeroByte может изменяется всего один раз в $40 распакованных байт тайловой карты;
-По всей видимости, ZeroByte меняется только в случае, если в этом буфере из $40 распакованных байт не оказывается одинаковых (видимо, распаковщик должен совершить ещё один проход по буферу с поиском байт, XOR между которыми равен 1, в случае неудачи - 2 и т.д.)

Мой распаковщик довольно кривой, но хорошо упаковывал карты с одинаковыми байтами. К сожалению, он не может справиться с байтами, XOR между которыми равен разным числам - упакованные файлы больше оригинальных упакованных блоков.

Вот и всё. Как видите, проблема, скорее, в моих скромных умениях в кодинге. Возможно, кто-нибудь более опытный справится с этой задачей. Спасибо за внимание

PS: Упаковка вручную довольно трудоёмка: если вы успели заметить, здесь применён простейший крипт: элементарный XOR с предыдущим байтом приводит к тому, что изменение одного байта  приводит к запарыванию всей части карты, лежащей ниже этого байта.

Учи Дельфи и асм Ничего сложного Я тож когда-то шугался)