Guild Allianse

Крафт Шафтов

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

Крафт Шафтов

Alien » 16-04, 08:47

Вроде должно работать, ложите в пак логи и катану и вперед-)

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

program KraftShaftov;
//***************************************************************
// v.1.00 © pr0Zak
// isq 584 901 583
// КИДАЕМ В ПАК ЛОГИ И КАТАНУ. БУДЕТ КРАФТИТЬ ШАФТЫ
// ПОКА НЕ ЗАКОНЧАТСЯ ЛОГИ
//***************************************************************
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
katana, Logi: Cardinal;
begin
AutoMenu ('Bowcraft', 'Shafts');
AutoMenu ('Shafts', '(1)');

if FindType($13FF, backpack) <> 0 then
begin
katana := finditem;
if FindType($1BE0, backpack) <> 0 then
begin
if TargetPresent then begin AddToSystemJournal('Отменяем курсор...'); CancelTarget; end;
Logi := finditem;
UseObject(katana);
Wait(1000);
If TargetPresent then begin TargetToObject(Logi); 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