[NLObP]

Deffol, вот для примера

//by 6yDDucT, modified NLObP
//автоматическое использование НР пробирок
// 1-Изменяем Leader='NLObP';
// 2-в конце скрипта изменить кол-во ХП при котором начнется пьянка.
// 3-бросаем и подбираем Heal Potion или выпиваем

const
    Leader='NLObP';
var MyID:Word;
    OID:String;
    timerHP: TTimer;

//все сообщения ботов в чате патилидера
//видны только нам
procedure Say(msg:string);
begin
  //buf:=#$4A#0#0#0#0;
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(ConnectName);
  WriteS(msg);
  SendToClientEx(Leader);
end;

procedure OnTimerHP(Sender: TObject);
begin
     buf:=#$14+OID+#$00#$00#$00#$00;
     SendToServerEx(Leader);
end;
//******************************************************************************
//                 Вызывается при включении скрипта
//******************************************************************************
procedure Init;
begin
    timerHP:=TTimer.Create(nil);
    timerHP.OnTimer:=@OnTimerHP; //
    timerHP.enabled:=false; //
    timerHP.interval:=15000; //время отката лечения
end;

//******************************************************************************
//                 Вызывается при выключении скрипта
//******************************************************************************
procedure Free;
begin
     timerHP.Free;
end;

//******************************************************************************
//       Вызывается при приходе каждого пакета, если скрипт включен
//******************************************************************************
begin
 if FromServer and (pck[1]=#$27) and (ReadD(12)=1061) then begin //1061 - idItem'a который мы хотим юзать, в данном случае Healing Potion
   OID:=pck[8]+pck[9]+pck[10]+pck[11];
   //Say('Ok');
 end;
 if FromServer and (pck[1]=#$27) and (ReadD(12)=1060) then begin //1061 - idItem'a который мы хотим юзать, в данном случае Lesser Healing Potion
   OID:=pck[8]+pck[9]+pck[10]+pck[11];
   //Say('Ok');
 end;

 if FromServer and (pck[1]=#$04) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$0e) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=1600) then begin  //400 - кол-во ХП при котором начнется пьянка.
      TimerHP.enabled:=true;
//      buf:=#$14+OID+#$00#$00#$00#$00;
//      SendToServerEx(Leader);
      end
      else TimerHP.enabled:=false;
end.