21:04 | 22.11.2024
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Атаковать свою курицу
Sonik · Offline · Дата: Суббота, 05.12.2015, 12:26 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Атаковать свою курицу - нужен тем у ктого есть кура и нужно чтобы она лила ману, а для этого она должна находится в состоянии боя для этого нужго ее атаковать, и тогда она будет послушно лить ману своему владельцу.

Бить винд страйком.

Код
procedure CheckMp;
var MYPET: TL2NPC;
begin
    if (User.MP < 45) then begin //when less then 45% mp
    Print('We have low mana level. KOOKABURRA, I NEED YOUR HELP'); //notification, will appear in the bot's SYS tab
    PetList.ByID(16035, MYPET);
        if (User.DistTo(MYPET) < 700) and not MYPET.InCombat then begin
            if not Engine.SetTarget(MYPET) then Print('Something went wrong, cant target my pet.');
            Engine.UseSkill(1177,true); // USE ANY SKILL HERE YOU WANT TO ATTACK (1177 HERE IS WIND STRIKE)
            Delay(1500);
        end else Print('Pet out of range.');
    end;
end;
begin
    while true do begin
        delay(150);
        CheckMp;
    end;
end.


Бить с руки автоатакой

Код
procedure CheckMp;
var MYPET: TL2NPC;
begin
    if (User.MP < 45) then begin //when less then 45% mp
    Print('We have low mana level. KOOKABURRA, I NEED YOUR HELP'); //notification, will appear in the bot's SYS tab
    PetList.ByID(16035, MYPET);
        if (User.DistTo(MYPET) < 700) and not MYPET.InCombat then begin
            if not Engine.SetTarget(MYPET) then Print('Something went wrong, cant target my pet.');
            Engine.UseAttack(500, true);
            Delay(1500);
            Engine.CancelTarget;
            Engine.SetTarget(user);
            Engine.UseSkill(1177); //если ты воин, укажи любой скил

        end else Print('Pet out of range.');
    end;
end;
begin
    while true do begin
        delay(150);
        CheckMp;
    end;
end.

Если нужно увеличить время между ударами к примеру раз в 20 сек. то меняем в этой части кода

Код
begin
    while true do begin
        delay(20000);
        CheckMp;
    end;
end.

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