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.