From 987ead98aca9e8b87343741980a30aeeb7f765f7 Mon Sep 17 00:00:00 2001
From: canni2007 <canni2007@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 3 Nov 2007 13:53:10 +0000
Subject: Added missing files :( sry

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1@569 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UCovers.pas | 226 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 226 insertions(+)
 create mode 100644 Game/Code/Classes/UCovers.pas

(limited to 'Game/Code/Classes/UCovers.pas')

diff --git a/Game/Code/Classes/UCovers.pas b/Game/Code/Classes/UCovers.pas
new file mode 100644
index 00000000..5b0a06d4
--- /dev/null
+++ b/Game/Code/Classes/UCovers.pas
@@ -0,0 +1,226 @@
+unit UCovers;
+
+interface
+uses OpenGL12, Windows, Math, Classes, SysUtils, Graphics, UThemes, UTexture;
+
+type
+  TCover = record
+    Name:       string;
+    W:          word;
+    H:          word;
+    Size:       integer;
+    Position:   integer; // position of picture in the cache file
+//    Data:       array of byte;
+  end;
+
+  TCovers = class
+    Cover:      array of TCover;
+    W:          word;
+    H:          word;
+    Size:       integer;
+    Data:       array of byte;
+    WritetoFile: Boolean;
+
+    constructor Create;
+    procedure Load;
+    procedure Save;
+    procedure AddCover(Name: string);
+    function CoverExists(Name: string): boolean;
+    function CoverNumber(Name: string): integer;
+    procedure PrepareData(Name: string);
+  end;
+
+var
+  Covers:     TCovers;
+
+implementation
+uses UFiles, ULog, DateUtils;
+
+constructor TCovers.Create;
+begin
+  W := 128;
+  H := 128;
+  Size := W*H*3;
+  Load;
+  WritetoFile := True;
+end;
+
+procedure TCovers.Load;
+var
+  F:      File;
+  C:      integer; // cover number
+  W:      word;
+  H:      word;
+  Bits:   byte;
+  NLen:   word;
+  Name:   string;
+//  Data:   array of byte;
+begin
+  if FileExists(GamePath + 'covers.cache') then begin
+  AssignFile(F, GamePath + 'covers.cache');
+  Reset(F, 1);
+
+  WritetoFile := not FileIsReadOnly(GamePath + 'covers.cache');
+
+  SetLength(Cover, 0);
+
+  while not EOF(F) do begin
+    SetLength(Cover, Length(Cover)+1);
+
+    BlockRead(F, W, 2);
+    Cover[High(Cover)].W := W;
+
+    BlockRead(F, H, 2);
+    Cover[High(Cover)].H := H;
+
+    BlockRead(F, Bits, 1);
+
+    Cover[High(Cover)].Size := W * H * (Bits div 8);
+
+    // test
+//    W := 128;
+//    H := 128;
+//    Bits := 24;
+//    Seek(F, FilePos(F) + 3);
+
+    BlockRead(F, NLen, 2);
+    SetLength(Name, NLen);
+
+    BlockRead(F, Name[1], NLen);
+    Cover[High(Cover)].Name := Name;
+
+    Cover[High(Cover)].Position := FilePos(F);
+    Seek(F, FilePos(F) + W*H*(Bits div 8));
+
+//    SetLength(Cover[High(Cover)].Data, W*H*(Bits div 8));
+//    BlockRead(F, Cover[High(Cover)].Data[0], W*H*(Bits div 8));
+
+  end;
+
+  CloseFile(F);
+  end; // fileexists
+end;
+
+procedure TCovers.Save;
+var
+  F:      File;
+  C:      integer; // cover number
+  W:      word;
+  H:      word;
+  NLen:   word;
+  Bits:   byte;
+begin
+{  AssignFile(F, GamePath + 'covers.cache');
+  Rewrite(F, 1);
+
+  Bits := 24;
+  for C := 0 to High(Cover) do begin
+    W := Cover[C].W;
+    H := Cover[C].H;
+
+    BlockWrite(F, W, 2);
+    BlockWrite(F, H, 2);
+    BlockWrite(F, Bits, 1);
+
+    NLen := Length(Cover[C].Name);
+    BlockWrite(F, NLen, 2);
+    BlockWrite(F, Cover[C].Name[1], NLen);
+    BlockWrite(F, Cover[C].Data[0], W*H*(Bits div 8));
+  end;
+
+  CloseFile(F);}
+end;
+
+procedure TCovers.AddCover(Name: string);
+var
+  B:      integer;
+  F:      File;
+  C:      integer; // cover number
+  NLen:   word;
+  Bits:   byte;
+begin
+  if not CoverExists(Name) then begin
+    SetLength(Cover, Length(Cover)+1);
+    Cover[High(Cover)].Name := Name;
+
+    Cover[High(Cover)].W := W;
+    Cover[High(Cover)].H := H;
+    Cover[High(Cover)].Size := Size;
+
+    // do not copy data. write them directly to file
+//    SetLength(Cover[High(Cover)].Data, Size);
+//    for B := 0 to Size-1 do
+//      Cover[High(Cover)].Data[B] := CacheMipmap[B];
+
+    if WritetoFile then
+    begin
+      AssignFile(F, GamePath + 'covers.cache');
+      if FileExists(GamePath + 'covers.cache') then begin
+        Reset(F, 1);
+        Seek(F, FileSize(F));
+      end else
+        Rewrite(F, 1);
+
+        Bits := 24;
+
+        BlockWrite(F, W, 2);
+        BlockWrite(F, H, 2);
+        BlockWrite(F, Bits, 1);
+
+        NLen := Length(Name);
+        BlockWrite(F, NLen, 2);
+        BlockWrite(F, Name[1], NLen);
+
+        Cover[High(Cover)].Position := FilePos(F);
+        BlockWrite(F, CacheMipmap[0], W*H*(Bits div 8));
+
+        CloseFile(F);
+      end;
+  end
+  else
+    Cover[High(Cover)].Position := 0;
+end;
+
+function TCovers.CoverExists(Name: string): boolean;
+var
+  C:    integer; // cover
+begin
+  Result := false;
+  C := 0;
+  while (C <= High(Cover)) and (Result = false) do begin
+    if Cover[C].Name = Name then Result := true;
+    Inc(C);
+  end;
+end;
+
+function TCovers.CoverNumber(Name: string): integer;
+var
+  C:    integer;
+begin
+  Result := -1;
+  C := 0;
+  while (C <= High(Cover)) and (Result = -1) do begin
+    if Cover[C].Name = Name then Result := C;
+    Inc(C);
+  end;
+end;
+
+procedure TCovers.PrepareData(Name: string);
+var
+  F:  File;
+  C:  integer;
+begin
+  if FileExists(GamePath + 'covers.cache') then begin
+    AssignFile(F, GamePath + 'covers.cache');
+    Reset(F, 1);
+
+    C := CoverNumber(Name);
+    SetLength(Data, Cover[C].Size);
+    if Length(Data) < 6 then beep;
+    Seek(F, Cover[C].Position);
+    BlockRead(F, Data[0], Cover[C].Size);
+    CloseFile(F);
+  end;
+end;
+
+end.
-- 
cgit v1.2.3