Куплю скрипт на поиск РБ

[Firstdamage]

Куплю скрипт на поиск РБ

 

[shayne]

Какой РБ? Больше подробностей, и цена?

 

[magogs]

uses
  Classes, SysUtils;

procedure waitRaid;
const
  queen = 30556; //Тут вводи ИД РБ
var
  i: integer;
  npc: TL2Live;
begin
  while true do
  begin
  delay(100);
  NpcList.ByID(queen, npc);
  if (Assigned(npc)) then
  begin 
    delay(1000);
  end;
  
  end;
end;

procedure waitRaidNotification;
const
  queen = 30556;//Тут вводи ИД РБ
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:\Users\ПК\Desktop\Новая папка (2)\Sounds\sirena.wav',  true); //Путь к файлу который будет орать!
    startTime := GetTickCount + 30 * 1000;
    isPlaying := true;
    delay(500);
  end;


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

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

 

[Krickt]

Есть скрипт хороший для этого. Могу продать.

Skype: krickt777
ICQ: 753-862

Скриншот настроек:

 

[Ivanius]

Тоже есть универсальный скрипт на поиск РБ

 

[Firstdamage]

скрипт купил спс всем