151
FF8 Tools / New FF8 Tools: Archiver and TEX Converter
« on: 2004-09-13 05:16:18 »
It does handle 16-bit files by now
.

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
texfs.Read(kolor, sizeof(kolor));
r := (kolor and $7C00) shr 10;
g := (kolor and $3E0) shr 5;
b := (kolor and $1F);
r := Round(r * (255 / 31));
g := Round(g * (255 / 31));
b := Round(b * (255 / 31));
destfs.Write(r, sizeof(r));
destfs.Write(g, sizeof(g));
destfs.Write(b, sizeof(b));
procedure TForm1.Button1Click(Sender: TObject);
var rgb: word;
r,g,b: byte;
fs: tfilestream;
begin
rgb := $6339;
r := (rgb and $7C00) shr 10;
g := (rgb and $3E0) shr 5;
b := (rgb and $1F);
r := Round(r * (255 / 31));
g := Round(g * (255 / 31));
b := Round(b * (255 / 31));
fs := tfilestream.Create('test', fmCreate);
fs.Write(b, sizeof(b));
fs.Write(g, sizeof(g));
fs.Write(r, sizeof(r));
end;
Disc1.pak
Disc2.pak
Disk1
Disk2
Disc3.pak
Disc4.pak
Disk3
Disk4
DISK1 DISK2 DISK3 DISK4