Program snooping;
// v.2.01b (зделан (с)proZak- под шард AoP)

{$Include 'all.inc'}

var my_timer: Integer;
item_type : Word;
time_begin : TDateTime;
EnemyWarrior : Cardinal;

const
pack = $758E9271; // ID бекпака чара на котором мы будем качатсо
EnemyType1 = $0190; // типы чаров разных полов
EnemyType2 = $0191;

function AutoFindEnemy : Cardinal;
// функция поиска чаров рядом для определения жертви
// Возвращает сериал жертви.
begin
Finddistance := 1;
Ignore(self);
if FindType(EnemyType1, Ground) = 0 then FindType(EnemyType2, Ground);
if finditem = 0 then
begin
// не нашли врагов <img src="http://src.ucoz.net/sm/1/sad.gif" border="0" align="absmiddle" alt="sad">
AddToSystemJournal('Error: жертва не найдена!');
Result := $00000000;
Exit;
end
else
begin
// Ага! Вот он, гадина!
AddToSystemJournal('Enemy found: ' + GetName(finditem));
Result := finditem;
end;
end;

Begin

ClearJournal;
SetWarMode(false);
SetARStatus(true);
if not connected then connect;

repeat

while (dead = false) and (connected = true) do
begin
EnemyWarrior := AutoFindEnemy;
if EnemyWarrior = $00000000 then exit
UseObject(EnemyWarrior);
wait(1000);
checksave;
UseObject(pack);
wait(4000);
checksave;
end;
wait(500);
if dead then
begin
AddToSystemJournal('Умерли');
SetARStatus(false);
Disconnect;
Exit;
end;

until false;

End.