Program Arms;
Begin
UOSay('Макрос на Армслор от SaNeK ©');
AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
AddToSystemJournal('Макрос готов к работе.');
while true do begin
useskill('Arms Lore');
WaitForTarget(200);
TargetToObject(findType($13FF,backpack));
wait(3100);
end;
End.