source: trunk/UCore.pas

unit UCore;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, UPakFile, UFindFile, UGame;

type

  { TCore }

  TCore = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    procedure ExtractPakFiles;
  public
    Game: TGame;
    procedure Init;
  end;

var
  Core: TCore;

implementation

{$R *.lfm}

uses
  UFormMain;

{ TCore }

procedure TCore.DataModuleCreate(Sender: TObject);
begin
  Game := TGame.Create;
end;

procedure TCore.DataModuleDestroy(Sender: TObject);
begin
  FreeAndNil(Game);
end;

procedure TCore.ExtractPakFiles;
var
  PakFile: TPakFile;
  FindFile: TFindFile;
  FoundFiles: TStrings;
  I: Integer;
begin
  PakFile := TPakFile.Create;
  FindFile := TFindFile.Create(nil);
  FindFile.Path := '../original';
  FindFile.FileAttr := [ffaAnyFile];
  FindFile.FileMask := '*.PAK';
  FoundFiles := FindFile.SearchForFiles;
  for I := 0 to FoundFiles.Count - 1 do begin
    PakFile.Open(FoundFiles[I]);
    PakFile.ExtractTo('extracted');
  end;
  FormMain.Caption := IntToStr(PakFile.Files.Count);
end;

procedure TCore.Init;
begin
  // ExtractPakFiles
  Game.IW := $20;
  Game.LoadData;
end;

end.