Stealth Client Forum

Code: Select all

program gg;
var t: Integer;

{$Include 'all.inc'}

begin
 SetARStatus(true); {Включаем реконектор}
 Hungry(1,backpack);
 clearjournal;
 while not dead do
  begin
  if connected then
   begin
   for t := 0 to 30 do
   begin
    CheckSave;
    if not hidden then
    begin
     Useskill('Hiding');
     wait(11000);
    end;
    Useskill('Stealth');
    Wait(11000);
   end;
  hungry(1,backpack);
  end;
  wait(1000);
 end;
End.

Code: Select all

begin 
SetARStatus(true); {Включаем реконектор} 
while true do 
begin 
   for t := 0 to 30 do 
   begin 
   save(); 
   if not hidden then  Useskill('Hiding')
   else Useskill('Stealth'); 
   wait(11000); 
   end; 
  hungry(1); 
 end; 
End.