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

[Витя]

помогите переписать скрипт
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:я поправил изходя из представленных тобой пакетов.