Stealth Client Forum

Code: Select all

UseObject(FindType($тип_еды,backpack));

Code: Select all

program Hav4ik;
{$include 'all.inc'}
var
i:Integer;
begin
while not dead do begin
if Count($1CED)=0 then begin 
    //если хавчика нет в паке, выходим из цикла 
    AddToSystemJournal('*****Женема шпа сис жур.******');//сначала напишем в журнал вот это 
    break;//а потом выходим 
end;
UseObject(FindType($1CED,backpack));   //кушаем
   for i:=0 to 59 do begin              //ждем ~1 мин
        wait(1000);               
        CheckSave;                      //притормозить скрипт если начался ворлдсейв
   end;
end;
end.

Code: Select all

if Count($1CED)=0 then break;            //если хавчика нет в паке, выходим из цикла

Code: Select all

if Count($1CED)=0 then begin 
    //если хавчика нет в паке, выходим из цикла 
    AddToSystemJournal('*****Женема шпа сис жур.******');//сначала напишем в журнал вот это
    break;//а потом выходим 
end;