//***************************************************************
//ОЖИДАНИЕ КОНЕКТА
//***************************************************************
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;

//***************************************************************
// ПРОЦЕДУРА КРАФТА БУТЫЛОК
//***************************************************************
Procedure Craft;
var
TinkerTools, Ingi: Cardinal;
begin
AutoMenu ('Tinkering', 'Bottles');
AutoMenu ('Bottles', '(1)');

if FindType($1EBC, backpack) <> 0 then
begin
TinkerTools := finditem;
if FindType($1BF2, backpack) <> 0 then
begin
if TargetPresent then begin AddToSystemJournal('Отменяем курсор...'); CancelTarget; end;
Ingi := finditem;
UseObject(TinkerTools);
Wait(1000);
If TargetPresent then begin TargetToObject(Ingi); end;
Wait(8600);
end;
end;
end;

//***************************************************************
// ЛОВИТ В ЖУРНАЛЕ СООБЩЕНИЕ
//***************************************************************
Procedure Scan;
begin
AddToSystemJournal('Скан');
if InJournal('Вы изготавливаете предмет и кладете его в сумку.') <> -1 then
begin
ClearJournal;
wait(1000);
PcCraft;
end;
if InJournal('У Вас не получилось изготовить предмет') <> -1 then
begin
AddToSystemJournal('Не получилось');
Craft;
end;
end;

BEGIN

WaitConnection;
Resend;
while true do
begin
WaitConnection;
Craft;
Scan;
wait(50);
end;
END.