home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / TOYS / DB4K.ZIP / DB4K / SOURCE / APX2DAT.PAS next >
Encoding:
Pascal/Delphi Source File  |  1999-06-08  |  1.0 KB  |  42 lines
  1. program apx2dat; { APX till sprites.DAT konerterare }
  2. uses
  3.   dos;
  4.  
  5. var
  6.   SF,DF: file;
  7.   opal: packed array[0..767] of byte;
  8.   dpal: array[0..8] of word;
  9.   m,n: integer;
  10.   oblk: packed array[0..256] of byte;
  11.   dblk: packed array[0..128] of byte;
  12.   r,g,b: word;
  13.   dummy: integer;
  14.   x,y: integer;
  15.   
  16. begin
  17.   reset(SF,'sprites.apx');
  18.   rewrite(DF,'sprites.dat');
  19.   blockread(SF,oblk[0],20);
  20.   blockread(SF,opal[0],256*3);
  21.   for n:=0 to 8 do
  22.    begin
  23.      r:=(opal[n*3] and $F8); r:=r * 256;
  24.      g:=(opal[n*3+1] and $FC); g:=g * 8;
  25.      b:=(opal[n*3+2] and $F8); b:=b div 8;       
  26.      writeln(r,' ',g,' ',b);
  27.      dpal[n]:=r or g or b; 
  28.    end;
  29.   repeat until keypressed;
  30.   blockwrite(DF,dpal[0],18,n);
  31.   for n:=0 to 5 do
  32.    begin
  33.      blockread(SF,oblk[0],256);
  34.        for y:=0 to 15 do
  35.          for x:=0 to 7 do
  36.             dblk[y*8+x]:=oblk[y*16+x*2]*16+oblk[y*16+x*2+1];
  37.      blockwrite(DF,dblk[0],128,dummy);
  38.      {blockwrite(DF,oblk[0],256,dummy);}
  39.    end;
  40.   close(SF);
  41.   close(DF);
  42. end.