Автозаточка, просто и сердито!

[neonv1]

Помогите в грации финал. Активно использую скрипт на заточку.

 const nik='xxx';
   Enchant=27;

var
   UseItem, SelectItem, EnchantItem: string;
   CurrentEnch: integer;
   key: boolean;
   Timer01, Timer02: TTimer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=3370;

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
   case key of
      false: begin
         buf:=UseItem;
         SendToServerEx(nik);
         Timer02.enabled:=true;
         end;
      true: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         end;
   end;
         key:=not(key);
end;

procedure OnTimer02(Sender: TObject);
begin
         buf:=SelectItem;
         SendToServerEx(nik);
         Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
  CurrentEnch:=0;
  key:=false;
end;

begin
    if FromServer and (pck[1]=#$87) then case ReadD(2) of
       0: begin
          CurrentEnch:=CurrentEnch+1;
          if CurrentEnch=Enchant then Timer01.enabled:=false;
          end;
       3: CurrentEnch:=0;
       end;
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck[1]+pck[2]=#$56#$0C) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

Подправте пожалуйста. В игре появились изменения. Надо добавить, чтоб когда оружие сбрасывалось на 0 скрипт посылал мой пакет.

[neonv1]

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

neonv1,

Надо добавить, чтоб когда оружие сбрасывалось на 0 
скрипт посылал мой пакет

скрипт послал твой пакет
правильно заданый вопрос содержит ответ

Извиняюсь. За транслит.
Когда неудачная заточка блес скролом оружия, скрипт посылает пакет на диалог нпс, нпс мне точит оружие на 10 и.т.д. Диалог пакет найду а вот вписать в скрипт не получается.