Guild Allianse

Крафт пустых бутылок.

Модераторы: Britney, Alien, Alizee, MarkeR, Slade

Крафт пустых бутылок.

Alien » 16-04, 09:18

Код: Выделить всё

program KraftButilok;
//***************************************************************
// v.1.00 © SaNeK
// isq 340 022 777
// КИДАЕМ В ПАК ИНГОТЫ И ТИНКЕР ТУЛС. БУДЕТ КРАФТИТЬ ПУСТЫЕ БУТЫЛКИ
// ПОКА НЕ ЗАКОНЧАТСЯ ИНГОТЫ
//***************************************************************
Procedure PcCraft;
begin
UOSay(Chr(39)+'pc craft 100');
wait(100*3500);
end;

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

Alien

-=Blonde Team=-

 

Сообщения: 2286

Зарегистрирован: 06-05, 19:00

Откуда: Thieves of a Shadow

Вернуться к началу

Вернуться в Макросы под Stealth

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0