Stealth Client Forum

Code: Select all

Program New;
const 
char=;// ид чара которого хилим
typebinti=$0E21;//тип бинтов 
colerbinti=$0000;// цвет бинтов
sunduk= ;// ид сундука где все лежит  
stamina= ;// тип стаминки
colerstamina= ; // цвет стаминки 
griazniebinti= ; //тип грязные быниты 
koli4stvo= ;// когда пьем стамину 

procedure xil_4ara;
begin
UseType($0E21,$0000);
WaitForTarget(5000);
if targetpresent then
   begin
   TargetToObject(char);
   wait(1500)
   end; 
end;

procedure dobor_bintov;
begin
FindType(typebinti,sunduk); 
if FindQuantity < 20 then
 begin
  UseType(sunduk);  
  wait(500);
  MoveItem(typebinti,1000,backpack,0,0,0);
  end;
FindType(stamina,sunduk); 
if FindQuantity < 2 then 
 begin
  MoveItem(stamina,5,backpack,0,0,0);
  end;
end;

begin
while not dead do
begin
FindType(griazniebinti,backpack);
if FindQuantity > 500 then
begin
MoveItem(griazniebinti,FindQuantity,sunduk,0,0,0);
end;
if (Dex < koli4stvo) then
begin
UseType(stamina,colerstamina);
end;
xil_4ara;
dobor_bintov;
end;
end.