помогите написать "автобаф от NPC"

[HooleeCheeter]

на ПВП серверах часто стоят NPC Buffer'ы , вот хотелось бы скрипт который по истечению баффов мониторил это, и посылал НПЦ серию пакетов на разные баффы...
с утра сижу, ниче не получается )

Добавлено через 19 часов 18 минут
в каком пакете приходит инфа о буффах? в StatusUpdate?

[QaK]

HooleeCheeter, инфа о буфах приходит в пакете Абнормат статус апдейт.Хотя нафига тебе? просто каждые 20/30/60 минут запускаешь бафаться и усе. Или тебе надо прочерить лег ли бафф. или кто-то рядом стоит и нпц на него переключился?

[HooleeCheeter]

Сообщение от QaK

HooleeCheeter, инфа о буфах приходит в пакете Абнормат статус апдейт.Хотя нафига тебе? просто каждые 20/30/60 минут запускаешь бафаться и усе. Или тебе надо прочерить лег ли бафф. или кто-то рядом стоит и нпц на него переключился?

угу, именно надо проверять, прошёл или нет.

Добавлено через 10 минут

Сообщение от QaK

HooleeCheeter, инфа о буфах приходит в пакете Абнормат статус апдейт.

какой номер пакета? в T0 файле с пакетхаком который идёт, его нет.

[AD!]

HooleeCheeter, Пакет 85 от сервера

[HooleeCheeter]

Сообщение от AD!

HooleeCheeter, Пакет 85 от сервера

спасибо, но это не он.
в Interlude это "Surrender Personally".

[Stasrus]

В Interlude 7F

[HooleeCheeter]

ппц )

т.е. скрипт должен выглядеть примерно так :

если приходит от сервера 7F пакет
то идёт проверка поочерёдно всех баффов на присутствие их в этом пакете
если нет то отсылается пакет на бафф.

может ктонить накидать такое? :E

[Stasrus]

Вот накатал, проверки на наличие отдельных бафов нету, есть проверка на есть баф или нет

//name-ник пп, name2=ник цель бафа, для роботоспособности взять цель в таргет
const
name='';
name2='';
b1='39 15 04 00 00 00 00 00 00 00 '; 
b2='39 18 04 00 00 00 00 00 00 00 '; 
b3='39 26 04 00 00 00 00 00 00 00 ';
b4='39 B4 04 00 00 00 00 00 00 00 '; 
b5='39 3E 04 00 00 00 00 00 00 00 '; 
b6='39 35 04 00 00 00 00 00 00 00 '; 
b7='39 DA 04 00 00 00 00 00 00 00 '; 
b8='39 D8 04 00 00 00 00 00 00 00 '; 
b9='39 0C 04 00 00 00 00 00 00 00 ';
b10='39 10 04 00 00 00 00 00 00 00 ';
b11='39 2C 04 00 00 00 00 00 00 00 ';
b12='39 71 05 00 00 00 00 00 00 00 '; 
b13='39 48 05 00 00 00 00 00 00 00 '; 
b14='39 9E 04 00 00 00 00 00 00 00 '; 
b15='39 A5 04 00 00 00 00 00 00 00 ';
b16='39 6D 05 00 00 00 00 00 00 00 '; 
b17='39 0B 04 00 00 00 00 00 00 00 '; 
var
  x: integer;
  PauseTimer: Ttimer;     


procedure Init; 
begin
  PauseTimer:=TTimer.Create(nil);
  PauseTimer.Enabled:=true;
  PauseTimer.Interval:=3000; 
  PauseTimer.OnTimer:=@OnPause;
  x:=1;
end;

procedure Free; 
begin
  PauseTimer.Enabled:=false;
  PauseTimer.free;
end;


procedure  OnPause(Sender: TObject);
var
  s, cmd, param : string;
begin
  case x of
    1: begin
      buf:=hstr(b1);
      SendToServerEx(name);
      inc(x);
    end;
    2: begin
      buf:=hstr(b2);
      SendToServerEx(name);
      inc(x);
    end;
    3: begin
      buf:=hstr(b3);
      SendToServerEx(name);
      inc(x);
    end;
     4: begin
      buf:=hstr(b4);
      SendToServerEx(name);
      inc(x);
    end;
     5: begin
      buf:=hstr(b5);
      SendToServerEx(name);
      inc(x);
    end;
     6: begin
      buf:=hstr(b6);
      SendToServerEx(name);
      inc(x);
    end;
     7: begin
      buf:=hstr(b7);
      SendToServerEx(name);
      inc(x);
    end;
     8: begin
      buf:=hstr(b8);
      SendToServerEx(name);
      inc(x);
    end;
     9: begin
      buf:=hstr(b9);
      SendToServerEx(name);
      inc(x);
    end;
     10: begin
      buf:=hstr(b10);
      SendToServerEx(name);
      inc(x);
    end;
     11: begin
      buf:=hstr(b11);
      SendToServerEx(name);
      inc(x);
    end;
     12: begin
      buf:=hstr(b12);
      SendToServerEx(name);
      inc(x);
    end;
     13: begin
      buf:=hstr(b13);
      SendToServerEx(name);
      inc(x);
    end;
     14: begin
      buf:=hstr(b14);
      SendToServerEx(name);
      inc(x);
    end;
     15: begin
      buf:=hstr(b15);
      SendToServerEx(name);
      inc(x);
    end;
     16: begin
      buf:=hstr(b16);
      SendToServerEx(name);
      inc(x);
    end;
     17: begin
      buf:=hstr(b17);
      SendToServerEx(name);
      inc(x);
    end;
    18: begin
      x:=1;
      PauseTimer.Enabled:=false; 
    end;
  end;
end;


begin
if Fromserver and (ConnectName=(name2)) and (pck=hstr('7F 00 00')) then begin
PauseTimer.Enabled:=true;
end;
end.

[HooleeCheeter]

спасибо, шяс буду этот срипт курить )