помогите в написании скрипта

[Витя]

помогите переписать скрипт
Оффтоп

const
   nik='xxxx';
   Enchant=13;

var
   UseItem, EnchantItem: string;
   Count, CurrentEnch: integer;
   Timer01: TTimer;

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

procedure OnTimer01(Sender: TObject);
begin
   buf:=UseItem;
   SendToServerEx(nik);
   buf:=EnchantItem;
   SendToServerEx(nik);
   if CurrentEnch=Enchant-1 then Timer01.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  count:=0;
  CurrentEnch:=0;
end;

begin
    if FromServer and (pck[1]=#$87) then CurrentEnch:=ReadD(2);
    if FromClient and (pck[1]=#$0C) then UseItem:=pck;
    if FromClient and (pck[1]=#$65{<-насчет этого не уверен}) then EnchantItem:=pck;
    if FromClient and (pck=#$5A#$02#$00#$00#$00) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

вот пакеты приходящии во время точения

0C 42 F7 D3 10 00 00 00 00 нажал на свиток точения

65 FD 61 5B 10 00 00 00 00 начало заточки

87 01 00 00 00 01 00 00 00 01 00 00 00 насколько за точилось

5A 02 00 00 00 первое социальное дейсвие

какие еще понадобится пакеты для настройки данного срипта?

[QaK]

поправил скрипт, насчет одной из ИД не уверен.

[Витя]

Спасибо, буду знать какие теперь пакеты использовать
//QaK:я поправил изходя из представленных тобой пакетов.