Ripped by Mwyann

mwyann@gmail.com
mwyann@hotmail.com

http://www.mwyann.com/


APOCALYPSE ABYSS (1994) by Software Visions


Total 11 tracks, from the registered version.


Explanation : the first 0x838 (2104) bytes are inverted 2 per 2, just got to intert them back and you get a beautoful and working MOD file.

Here is a Pascal function to decode them :

procedure decode_abyss_mods(infile,outfile:string);
var f,g:file;
    buf:array[0..2500] of byte;
    i,j:integer;
    b:byte;
begin
 assignfile(f,infile);   { Assignfile is Delphi. Assign is TP }
 assignfile(g,outfile);
 reset(f,1);
 rewrite(g,1);
 blockread(f,buf,$838,i);
 for j:=0 to i div 2 do begin
  b:=buf[j*2];
  buf[j*2]:=buf[j*2+1];
  buf[j*2+1]:=b;
 end;
 blockwrite(g,buf,i);
 i:=1;
 while i>0 do begin
  blockread(f,buf,2048,i);
  blockwrite(g,buf,i);
 end;
 closefile(f);		{ Closefile is Delphi. Close is TP }
 closefile(g);
end;



Thanks who ? :D