Program Taste_ID;
Begin
UOSay('Макрос на Taste ID');
AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
AddToSystemJournal('Макрос готов к работе.'); while true do begin
useskill('Taste Identification');
WaitForTarget(200);
TargetToObject(findType($097B,backpack));
wait(3100);
end;
End.