Code: Select all
Program stealing;
const
ENEMYPACK = $43CA7D15; // ID бекпака чара у которого воруем
ENEMYID = $059F4988; // ID чара у которого воруем
TARGETTYPE = $0F51; // тайп воруемого предмета
SKILLDELAY = 5100; // задержка для стилинга
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(3100);
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.
