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 + $40); 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;
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;