скрипт мониторинга РБ

[mazx]

Я кажется знаю хрень....заметил однажды что трейд открывается когда мобу предлагаешь :)....вроде...помоему точно

[xkor]

тут друг попросил сделать так что выкладываю:

const
  RB_List = [10245];
  RB_Count = 1;
  TellTo = 'nik';

var
  i: integer;

begin
  if FromServer and (pck[1]=#$16) then
  for i:=0 to RB_Count-1 do
  if (RB_List[i]+1000000=ReadD(6)) then begin
    buf:=#$38;
    WriteS('RB detected!');
    WriteD(2);
    WriteS(TellTo);
    SendToServer;
  end;
end.

а о чом пакет? краткую инструкцию к применению можна?

[boyan]

тоже если честно не очень понял суть работы скрипта..

[boyan]

тоже если честно не очень понял суть работы скрипта..

[downtester]

это называется шуткО от админа)

[downtester]

это называется шуткО от админа)

[QaK]

const
  RB_List = [10245]; //ИД Рейда
  RB_Count = 1; //Количество Рейдов в нашей базе (одна штука)
  TellTo = 'nik'; // Ник, кому в Пм писать, что обнаружен РБ

var
  i: integer;

begin
  if FromServer and (pck[1]=#$16) then // Если от сервера приходит пакет с описанием моба\НПЦ
  for i:=0 to RB_Count-1 do                    // пробераем по  нашему списку ИД Рейдов
  if (RB_List[i]+1000000=ReadD(6)) then begin  // Если ИД Рейда который мы задали выше+1000000= ИД из пакета c описанием НПЦ
    buf:=#$38;                                //Пишем в приват персу, ник которого указали выше
    WriteS('RB detected!');              
    WriteD(2);
    WriteS(TellTo);
    SendToServer;
  end;
end.

2downtester, это называется скрипт нефиг тут выпендриваться.

[QaK]

const
  RB_List = [10245]; //ИД Рейда
  RB_Count = 1; //Количество Рейдов в нашей базе (одна штука)
  TellTo = 'nik'; // Ник, кому в Пм писать, что обнаружен РБ

var
  i: integer;

begin
  if FromServer and (pck[1]=#$16) then // Если от сервера приходит пакет с описанием моба\НПЦ
  for i:=0 to RB_Count-1 do                    // пробераем по  нашему списку ИД Рейдов
  if (RB_List[i]+1000000=ReadD(6)) then begin  // Если ИД Рейда который мы задали выше+1000000= ИД из пакета c описанием НПЦ
    buf:=#$38;                                //Пишем в приват персу, ник которого указали выше
    WriteS('RB detected!');              
    WriteD(2);
    WriteS(TellTo);
    SendToServer;
  end;
end.

2downtester, это называется скрипт нефиг тут выпендриваться.

[boyan]

Вот так стало понятнее =) спс