Суббота, 25.01.2025, 02:19 Приветствую Вас Гость


Ultima-Online (AoP)

Главная | Регистрация | Вход | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Herding
imbaqДата: Четверг, 23.10.2008, 01:02 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 52
Репутация: 1
Статус: Offline
В доме ставите тварь на которой будете качать етот скил берете в руки посох и заменяете в макросе айди жывотного и посоха

Program Herding;
var
t : Integer;
AnimalID : cardinal;
CrookID : cardinal;

{$Include 'all.inc'}

Begin
{-----------------------------------------}
AnimalID := $39CA349; {Указать ID животного}
CrookID := $69B1CD91; {Указать ID палки}
{-----------------------------------------}
SetARStatus(true);
clearjournal;
while not Dead do
begin
if Connected then
begin
for t := 0 to 10 do
begin
if TargetPresent then CancelTarget;
CheckTargetError(5,2);
CheckSave;
useobject(CrookID);
WaitTargetObject(AnimalID);
Wait(3200); {Указать задержку}
end;
end;
end;
End.

 
  • Страница 1 из 1
  • 1
Поиск: