22:23 | 21.11.2017
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Палилка для РБ
Палилка для РБ
Sonik · Offline · Дата: Пятница, 04.12.2015, 22:37 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Скрипт проверяет указанного в скрипте id босса, которого надо палить и дает об этом знать. Сейчас прописан ID антквина.

Код
uses
  Classes, SysUtils;

procedure waitRaid;
const
  queen = 29001;
var
  i: integer;
  npc: TL2Live;
begin
  while true do
  begin
  delay(100);
  NpcList.ByID(queen, npc);
  if (Assigned(npc)) then
  begin
    Engine.ConfirmDialog(true);
    Engine.MoveTo(-22529, 183517, -5741);
    Engine.UseItem(20393);
    Engine.UseSkill(628);
    Engine.UseSkill(479);
    Engine.SetTarget(npc);
    Engine.UseSkill(507);  
    delay(10000);
  end;
  
  end;
end;

procedure waitRaidNotification;
const
  queen = 29001;
var
  npc: TL2Live;
  isPlaying: boolean;
  startTime: cardinal;
begin
  isPlaying := false;
  while true do
  begin
  delay(100);
  NpcList.ByID(queen, npc);
  if (Assigned(npc)) and not isPlaying then
  begin
    PlaySound('C:\refresh.wav',  true);
    startTime := GetTickCount + 30 * 1000;
    isPlaying := true;
    delay(5000);
  end;

  if (GetTickCount > startTime) then
  begin
    StopSound;
    isPlaying := false;
    delay(1000);
  end;
  
  end;
end;

begin
   StopSound;
   script.newThread(@waitRaidNotification);
   script.newThread(@waitRaid);
end.

Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Палилка для РБ
Страница 1 из 11
Поиск: