Клан лист

[j091]

Подскажите оффсеты клан листа и если можно, для функции определения ника по id. Раньше она была такой:

unction 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;

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

[_DVD_]

если еще не нашел

  p1 := ReadInt32(base_addr);
  p1 := ReadInt32(p1 + $1C);
  p2 := ReadInt32(p1 + $4C);
  p1 := ReadInt32(p1 + $40);

[j091]

Уже нашёл. Но всё равно спасибо!

[flyland]

Как вывести кланлист?

[lilia1]

подскажите, пожалуйста, как снять клан лист, так что б было видно кх заслуги персонажей, а не только список персов находящихся в клане?

[j091]

base_addr + 248 + 48 /кол- во персов в клане/
base_addr +248 +8 +[i*4]
+0 /ID/
+8 /уровень/
+1C /заслуги/
+18 /титул/
+C / класс/
+15 /дата последнего входа/
+2С /реборн/
+28 /репа/

[flyland]

Какие щас акстуальные оффсеты?

[j091]

base_addr + 248 + 5C /кол- во персов в клане/
base_addr +248 +50 +[i*4]
+0 /ID/
+8 /уровень/
+1C /заслуги/
+18 /титул/
+C / класс/
+14 /дата последнего входа/
+2С /реборн/
+28 /репа/