Code: Select all
begin
// Ищем и срезаем реги
FindDistance := 0;
FindType(Reg[3], ground);
AddtoSystemJournal('Начинаем сбор урожая...');
while FindType(Reg[3], ground) <> 0 do
begin
Check;
CutID := FindType(Reg[3], ground);
Conn;
UseObject(ObjAtLayerEx(RHandLayer,self));
Wait(3500);
WaitTargetObject(CutID);
Conn;
end;