Ник по ID

[j091]

Подскажите, что поменялось в этой функции:

function GetClanPersName(PersID: DWORD): WideString;
var
  p1,p2,p3,dwReaded: dword;
  str: array [0..32] of widechar;
begin
  p1 := ReadInt32(base_addr);
  p1 := ReadInt32(p1 + $1C);
  p2 := ReadInt32(p1 + $4C);
  p1 := ReadInt32(p1 + $44);
  p3 := PersID mod p2;
  p1 := ReadInt32(p1 + p3*$4);
  while (p1 <> 0) do
  begin
     p3 := ReadInt32(p1 + $8);
     if p3 = PersID then
     begin
       p1 := ReadInt32(p1 + $4);
       p1 := ReadInt32(p1 + $0);
       Result := ReadString(p1);
       p1 := 0;
     end
     else
       p1 := ReadInt32(p1);
  end;
end;

Заранее благодарен.

[doqsoftware]

Как не странно - офсеты.

[_DVD_]

Цитата: p2 := ReadInt32(p1 + $4C); p1 := ReadInt32(p1 + $44);

не знаю насколько верно

p2 := ReadInt32(p1 + $44);
p1 := ReadInt32(p1 + $38);

[j091]

Цитата: Как не странно - офсеты.

Остроумно

Цитата: не знаю насколько верно Код: p2 := ReadInt32(p1 + $44); p1 := ReadInt32(p1 + $38);

Всё верно, спасибо огромное!