//***************************************************************
//ОЖИДАНИЕ КОНЕКТА
//***************************************************************
procedure WaitConnection;
begin
if Connected then exit;
while not Connected do wait(100);
wait(3000);
end; //***************************************************************
// РЕСЕНД
//***************************************************************
procedure Resend;
begin
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
end;
//***************************************************************
//Herding
//***************************************************************
Procedure Herding;
begin
AddToSystemJournal('Запускаю макрос Herding...');
WaitConnection;
Resend;
while GetSkillValue('Herding') < 100.0 do begin
WaitConnection;
If FindType($0124, ground) = 0 then UOSay('ПАК ЛАМА НА ПОЛУ НЕ НАЙДЕНА');
Useobject(findType($0E81,backpack));
WaitForTarget(200);
TargetToObject(findType($0124,Ground));
wait(3100);
end;
end;
BEGIN
WaitConnection;
Herding;
wait(50);
end.
