Results 1 to 1 of 1
  1. #1
    babaloveyou
    babaloveyou is offline
    Guest
    Join Date
    2013 Aug
    Posts
    3
    Thanks Thanks Given 
    0
    Thanks Thanks Received 
    1
    Thanked in
    1 Post
    Rep Power
    0

    Update Files into Angelica pck

    The first step,"packdll.dll" must be Exist in PWI client
    Code:
    "packdll.dll"  8 Export Functions
    PackInitialize  //Initialize all of pcks
    IsFileInPack   // is file in pck?
      GetFileFromPack  //get file from pck
     ReleasePackBuf   //release memery
      AddFileToPack  // add file to pck
      PackFinalize    //Finalize  pcks
      GetPackVersion  
      SetPackVersion
    
        unit Unit1;
    
        interface
    
        uses
          Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
          Dialogs, StdCtrls;
          function PackInitialize:Integer;cdecl;external 'packdll.dll';  
          function IsFileInPack(filename:PWideChar):Integer;cdecl;external 'packdll.dll'; 
          function GetFileFromPack(filename:PWideChar;
                                    var ssize:integer;
                                    var ppoo:integer):Integer;
                                    cdecl;external 'packdll.dll';
                                    
    
          function ReleasePackBuf(ppoo:integer):Integer;cdecl;external 'packdll.dll';       
          function AddFileToPack(configs:PWideChar;filename:PWideChar):Integer;cdecl;external 'packdll.dll';   
          function PackFinalize:Integer;cdecl;external 'packdll.dll';  
          function GetPackVersion:Integer;cdecl;external 'packdll.dll';
          function SetPackVersion(a:integer):Integer;cdecl;external 'packdll.dll';
    
          type
          TForm1 = class(TForm)
            Button1: TButton;
            Button2: TButton;
            procedure Button1Click(Sender: TObject);
            procedure Button2Click(Sender: TObject);
          private
            { Private declarations }
          public
            { Public declarations }
          end;
    
        var
          Form1: TForm1;
    
        implementation
    
        {$R *.dfm}
    
        procedure TForm1.Button1Click(Sender: TObject);
        var
        conf,temp,ttemp:WideString;
        a,aa,bb,i:Integer;
        begin
    
          PackInitialize;
          conf:='configs\badwords.txt';
          temp:= '../config/element/tempfile.dat';
          for i:=0 to 100 do begin
           ttemp:=conf;
           ttemp:=ttemp+inttostr(i);
          AddFileToPack(PWideChar(ttemp),PWideChar(temp));
          //getfilefrompack(PWideChar(conf),aa,bb) ;
          //ReleasePackBuf(bb);
           end;
           PackFinalize ;
           ShowMessage('OK');
        end;
    
        procedure TForm1.Button2Click(Sender: TObject);
        var
        a:Integer;
        aa,bb:integer;
        conf:WideString;
        begin
        a:=PackInitialize;
        conf:='configs\item_order.txt';
        getfilefrompack(PWideChar(conf),aa,bb) ;
    
        ShowMessage(IntToHex(bb,8));
        end;
    
        end.

Similar Threads

  1. [Request] more update from SSO
    By MeoMeoMo in forum Soul Saver
    Replies: 1
    Last Post: 2013-07-31, 05:05 PM
  2. [Soft] Angelica pck utilities
    By Dwar in forum Perfect World
    Replies: 18
    Last Post: 2013-06-23, 05:34 PM
  3. Update
    By LrdEtrius in forum Requiem Bots, Hacks, Cheats
    Replies: 2
    Last Post: 2013-01-04, 10:44 AM
  4. [Help] How to extract .big files? | Sleeping Dogs Files
    By HaLiL21 in forum Game Files
    Replies: 0
    Last Post: 2012-12-10, 08:37 AM
  5. [Guide] New BOI offset after update !
    By erwannludovic in forum Battle of the Immortals
    Replies: 2
    Last Post: 2011-05-13, 05:27 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •