Guild Allianse

Provacation

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

Provacation

Alien » 16-04, 09:11

Провокация на пак ламе. Заставить зверюшку сундуками и поехали

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

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

//***************************************************************
//Provocation
//***************************************************************
Procedure Provocation;
begin
AddToSystemJournal('Запускаю макрос Provocation...');
WaitConnection;
Resend;
while GetSkillValue('Provocation') < 100.0 do
begin
WaitConnection;
If FindType($0124, ground) = 0 then UOSay('ПАК ЛАМА НА ПОЛУ НЕ НАЙДЕНА');
if targetPresent then canceltarget;
UseSkill('Provocation');
wait(500);
WaitTargetObject(FindType($0124, ground));
wait(500);
WaitTargetObject(self);
wait (2500);
end;
end;

BEGIN
WaitConnection;
Provocation;
wait(500);
END.

Alien

-=Blonde Team=-

 

Сообщения: 2286

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

Откуда: Thieves of a Shadow

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

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

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

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