Stealth Client Forum

Code: Select all

Program pereplavka;
var stime : TDateTime; 
{$Include 'all.inc'}

BEGIN
While not Dead do  
begin 
stime := Now; 
FindDistance := 2; 
Findtype ($19B9,backpack); 
If (FindCount=0) then begin 
Findtype($19B9,ground); 
If (FindCount>0) then begin Grab(finditem,1);
wait(1000);
CheckSave;  
end;
end; 

if Weight >= 200 then begin
Stack($0F13,$0000); 
Stack($0F15,$0000); 
Stack($0F25,$0000); 
Stack($0F10,$0000); 
Stack($0F11,$0000); 
Stack($0F0F,$0000);
Stack($0F16,$0000);
Stack($0F30,$0000);
hungry(1, ground);
CheckSave;
end;
useobject(findtype($19B9,backpack)); 
waittargetobject(findtype($0FB1,ground)); 
repeat 
InJournalBetweenTimes('create|make|destroy', stime, Now); 
wait(500); 
until (LineCount >= 1) or (Now > stime + (0.4/1440));  
end; 
END.