Анимал Лоре

Предыдущая тема Следующая тема Перейти вниз

Анимал Лоре

Сообщение  Mazunchik в Сб Май 15, 2010 2:04 am

Развернули пакламу. Положили под нее еду и запустили макру.

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

//***************************************************************
//Animal_Lore
//***************************************************************
Procedure Animal_Lore;
begin
AddToSystemJournal('Запускаю макрос Animal_Lore...');
WaitConnection;
Resend;
while GetSkillValue('Animal Lore') < 100.0 do begin
WaitConnection;
If FindType($0124, ground) = 0 then UOSay('ПАК ЛАМА НА ПОЛУ НЕ НАЙДЕНА');
useskill('Animal Lore');
WaitForTarget(200);
TargetToObject(findType($0124,Ground));
wait(3100);
end;
end;

BEGIN
WaitConnection;
Resend;
Animal_Lore;
wait(50);
End.
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения