Stealth Client Forum

Code: Select all

program hide_test;
{$Include 'all.inc'}

procedure check_war;
begin
if IsWarMode(self) then
 begin
  setWarMode(false);
 end;
end;

procedure check_hide;
var
 ctime: TDateTime;
begin
   check_war;
   UseSkill('hiding');
    check_war;
    checksave;
    wait(4000);
end;


begin
While Not dead do
begin
check_hide ;
Step(0,False);
check_hide ;
Step(0,False);
check_hide ;
Step(0,False);
check_hide ;
Step(4,False);
check_hide ;
Step(4,False);
check_hide 
Step(4,False);  
ClearBadObjectList;
ClearBadLocationList; 
end;
end.

Code: Select all

procedure check_hide;
var
 ctime: TDateTime;
begin
   SetWarMode(false); // В этой строке сразу задать WarMode
   UseSkill('hiding');
    check_war;
    checksave;
    wait(4000);
end;