Скрипт на заточку эвентовых предметов

[Kirson]

помогите со скриптом

вообщем у нас на сервере эвент по заточке эвентовых пух
я сам начинаю только изучать L2PacketHack, так что надеюсь на вашу помощь
условия эвента:
эвент предмет только точится когда одет, вот и решил написать скрипт
эвент точек не меренно, если не удачная заточка - предмет снимается
я так думаю что если предмет снялся, покупаем новый и точим, если заточилась на +23 то снимаем
надеюсь на вашу помощь

const
zakup='23 30 00 30 00 00 00';// пакет на закупку эвентового предмета
zatocsh='19 4C 9D 2D 10 00 00 00 00';//пакет на заточку предмета
var
i:integer;
Timer01: TTimer;
UseItem: string;

procedure Init;
begin
   Timer01:=TTimer.Create(nil); 
   Timer01.OnTimer:=@OnTimer01; 
   Timer01.enabled:=true; 
   Timer01.interval:=2000;
end;

procedure OnTimer01(Sender: TObject);
begin
        buf:=HStr(zatocsh);        //заточка
        SendToServer;
end;
begin
if FromServer and (pck[1]+pck[2]=#$62#$28) then // если предмет снялся(сломался) покупаем новый
       begin
        buf:=HStr(zakup);
        SendToServer;
        i:=0;//обнуляем точку
       end;
    if FromServer and (pck[1]=#$21) and (pck[4]=#$01) then  begin
       UseItem:='19 '+pck[8]+' '+pck[9]+' '+pck[10]+' '+pck[11]+' 00 00 00 00';
       buf:=HStr(UseItem);//это создаем пакет чтобы одеть эвент предмет
       SendToServer;
       end;
    if FromServer and (pck[1]+pck[2]=#$62#$26) then  i:=i+1;//если заточилась увеличиваем на +1
    if i=23 then begin// если заточилась на +23 снимаем эвент предмет
       buf:=HStr(UseItem);
       SendToServer;
       end;
pck:='';
Timer01.enabled:=not(Timer01.enabled);


end.