Получаем Список Ближайших Мобов И Npc [delphi 7]

[Lomanu4]

for i:=0 to 768 do begin
MobWID:=0;
ReadProcessMemory (hProcess, Pointer(GameAdress), @Mob, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$1C), @Mob, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$20), @Mob, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$1C), @Mob, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+i*$4), @Mob, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$4), @Mob, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$120), @MobWId, 4, NoB);
if Integer(MobWId) <> 0 then begin
ReadProcessMemory (hProcess, Pointer(Mob+$B4), @MobType, 4, NoB);
if Integer(MobType) = 6 then begin
ReadProcessMemory (hProcess, Pointer(Mob+$29C), @MobDis, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$124), @MobId, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$128), @MobLVL, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$278), @MobN, 4, NoB);
ReadProcessMemory (hProcess, Pointer(MobN+$0), @MobName, 255, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$3C), @MobLocX, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$44), @MobLocY, 4, NoB);
ReadProcessMemory (hProcess, Pointer(Mob+$40), @MobLocZ, 4, NoB);
end;
end;
end;