Program camp;

BEGIN
AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
AddToSystemJournal('Макрос готов к работе.');
while true do
Begin
if FindType($0DE1, backpack) <> 0 then
begin
while FindType($0DE1, backpack) <> 0 do
begin
AddToSystemJournal('Розжыгаем огонь');
UseObject(Finditem);
Wait(3300);
end;
end;
End;
END.