Code: Select all
program Hiding;
var t:Integer;
{$Include 'all.inc'}
Begin
SetARStatus(true);
Hungry(1,backpack);
while not dead do
begin
if connected then
begin
for t:= 0 to 30 do
begin
CheckSave;
UseSkill('Hiding');
Wait(11000);
end;
CheckSave;
Hungry(1,backpack);
end;
end;
End.