Changeset 473 for tools/wow_patcher/wowpatcher.pas

Timestamp:

Apr 23, 2010, 8:45:12 PM (15 years ago)

Author:

george

Message:

• Přidáno: WowLua pro 3.3.3a.
• Opraveno: Nástroj pro generování WowLua byl zobecněn a ověřen vůči 3.3.0a, 3.3.2 a 3.3.3a.

File:

• tools/wow_patcher/wowpatcher.pas (modified) (5 diffs)

tools/wow_patcher/wowpatcher.pas

@@ -18 +18 @@
   TWoWPatcher = class(TCustomApplication)
   private
-    function FindSequence(Data, Sequence: array of Byte; Position: Integer = 0): Integer;
+    function FindSequence(Data: array of Byte; Sequence: array of Integer; Position: Integer = 0): Integer;
+    procedure WriteHexData(Data: array of Integer; From, Count: Integer);
     procedure WriteHexData(Data: array of Byte; From, Count: Integer);
   protected
@@ -74 +75 @@
 end;
 
-function TWoWPatcher.FindSequence(Data, Sequence: array of Byte; Position: Integer = 0): Integer;
+function TWoWPatcher.FindSequence(Data: array of Byte; Sequence: array of Integer; Position: Integer = 0): Integer;
 var
   I: Integer;
@@ -87 +88 @@
       Same := True;
       for II := 0 to High(Sequence) do begin
-        if Data[I + II] <> Sequence[II] then begin
+        if (Sequence[II] <> -1) and (Data[I + II] <> Sequence[II]) then begin
           Same := False;
           Break;
@@ -98 +99 @@
     end;
   end;
+end;
+
+procedure TWoWPatcher.WriteHexData(Data: array of Integer; From, Count: Integer);
+var
+  I: Integer;
+begin
+  for I := From to From + Count - 1 do
+    if Data[I] <> -1 then
+      Write(IntToHex(Data[I], 2) + ' ')
+      else Write('XX ');
 end;
 
@@ -116 +127 @@
   I: Integer;
 const
-  StartSequence: array[0..9] of Byte = ($FF, $FF, $5B, $8B, $E5, $5D, $C3, $8D, $49, $00);
-  StartSequence2: array[0..9] of Byte = ($E8, $71, $09, $FB, $FF, $5B, $8B, $E5, $5D, $C3);
+  StartSequence: array[0..15] of Integer = ($8D, $4D, $E8, $E8, -1, -1, -1, -1, $5B, $8B, $E5, $5D, $C3, $8D, $49, $00);
+  StartSequence2: array[0..15] of Integer = ($88, $1D, -1, -1, -1, -1, $E8, -1, -1, -1, -1, $5B, $8B, $E5, $5D, $C3);
 begin
   OriginalFile := TFileStream.Create(FileName, fmOpenRead);