Stealth Client Forum

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.