procedure KookaburraThread(mp: byte);
begin
while delay(555) do begin // запускаем бесконечный цикл
if (Engine.Status = lsOnline) then begin // если мы в игре, то
if (not User.InCombat) and (User.MP < mp) then begin // если мы не в боевом режиме и у нас мало МП, то
if (PetList.Count > 0) and (User.DistTo(PetList(0)) < 500) then begin // если у нас призван пет и дистанция до него < 500, то
Engine.FaceControl(0, false); // выключаем интерфейс (чтобы не конфликтовало)
if Engine.SetTarget(PetList(0)) then delay(111); // берем в таргет нашего пета
if Engine.UseSkill(1177, true) then // используем на него атакующий скил: Удар ветра [id: 1177]
while (User.Cast.EndTime <> 0) do delay(111); // и ждем окончания его каста
Engine.FaceControl(0, true); // включаем обратно интерфейс
end;
end;
end;
end;
end;
begin
Script.NewThread(@KookaburraThread, Pointer(50)); // аргументом подаем % MP, на котором нужно бить курицу
// code
end.
