Stealth Client Forum

Code: Select all

procedure chekves;
var
oldx,oldy: integer;
begin
    if Weight > tonaz then
      Addtosystemjournal('Реколюсь домой.');  
      oldx:=GetX(self); 
      oldy:=GetY(self);
      repeat 
      cast('Recall');
      WaitForTarget(5000);
      if targetpresent then
      begin
      TargetToObject(RunHome);
      wait(5000);
      end;
      CheckLag(40000);
       until (InJournal('fizzle')<>-1)
       Addtosystemjournal('Прилител домой.');
       newMoveXY(1542,1102,true,0,true);
       Check_Hidden;
       Drop;
       Reags;
       Shahta;
       newMoveXY(oldx,oldy,true,0,true);
       Addtosystemjournal('Начинаю копать.');
end;

Code: Select all

 if Weight > tonaz then
      Addtosystemjournal('Реколюсь домой.'); 

Code: Select all

если вес больше чем переменная, то писать в сис журнал.

Code: Select all

      repeat 
      cast('Recall');
      WaitForTarget(5000);
      if targetpresent then
      begin
      TargetToObject(RunHome);
      wait(5000);
      end;
      CheckLag(40000);
       until (InJournal('fizzle')<>-1)

Code: Select all

повторять каст, пока не появится надпись про физл каста