Имя клана по его ID

[pw.assistant]

Доброе время суток.

Не подскажете, как по ID клана найти его имя?

Раньше была функция

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

теперь понятно смещения другие и она не работает

Добавлено через 8 минут
Сорри, вру, работает

[Siroko]

Здравствуйте. Не подскажете, что изменилось в этой функции с последней обновой "Замерзшие земли"?

[_DVD_]

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

[fds255]

Точнее:
p2 := ReadInt32(p1 + $28);