Program stealingvv;

const
ENEMYPACK = $5BD51DF6; // ID бекпака чара у которого воруем
ENEMYID = $4811a83; // ID чара у которого воруем
TARGETTYPE = $13FF; // тайп воруемого предмета
SKILLDELAY = 6000; // задержка для стилинга
STEALINGMODE = true; // true - для того кто качает; false - для бинтореза
SHORTDELAY = 200;

procedure resend;
begin
wait(5000);
uosay('''' + 'resend');
wait(5000);
end;

procedure stealing;
begin
if findtype(TARGETTYPE,ENEMYPACK) > 0 then
begin
waittargetobject(finditem);
useskill('Stealing');
wait(SKILLDELAY);
end;
end;

procedure OpenPack;
begin
resend;
useobject(ENEMYID);
wait(SHORTDELAY);
useobject(ENEMYPACK);
wait(6000);
end;

procedure checkreconnect;
begin
if InJournal('Добро пожаловать на Age Of Power !') <> -1 then
begin
resend;
OpenPack;
useobject(backpack);
wait(SHORTDELAY);
ClearJournal;
end;
end;

procedure checkhide;
begin
if not hidden then
begin
useskill('hiding');
wait(3200);
end;
end;

procedure Circle;
begin
clearjournal;
resend;
OpenPack;
if STEALINGMODE then
while getskillvalue('Stealing') < 100.0 do
begin
if findtype(TARGETTYPE,backpack) > 0 then
drophere(finditem);
checkreconnect;
checkhide;
stealing;
end else
begin
FindDistance := 2;
while true do
begin
checkreconnect;
if findtype(TARGETTYPE,ground) > 0 then
begin
grab(finditem,0);
wait(500);
end;
end;
end;
end;

BEGIN
Circle;
END.