[SyMaSvoD]

и вот еще один скрипт тоже где используються пакеты.

const
Name='SyMaSvoD'; //сюда свой ник
var
timer:TTimer;
x:byte;

procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=120; //скорость точки
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
x:=1;
end;

procedure Free;
begin
timer.Free;
end;

procedure fireTimer(Sender: TObject);
begin
case x of
1:begin
buf:=hstr('14 5F E5 15 10 00 00 00 00'); //пакет активации точки
SendToServerEx(Name);
inc(x);
end;
2:begin
buf:=hstr('58 D1 59 27 10'); //пакет заточки вещи
SendToServerEx(Name);
x:=1;
end;
end;{case}
end;

begin
if FromServer then
begin
case pck[1] of
#$21: begin //InventoryUpdate
if (ReadD(12)=889)// ID вещи
and (ReadD(34)=10)// предел заточки
then timer.enabled:=false;;
end;
end;
end;
end.

Первый от части работает, а вот второй скрипт вообще не пашет. Если что сервер Интерлюдия