юзай мой скрипт))) мб получиться....токо тссс)))
delphi Код:
const
Name='HORSE'; //сюда свой ник
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('19 38 97 03 10 00 00 00 00'); //пакет активации точки
SendToServerEx(Name);
inc(x);
end;
2:begin
buf:=hstr('5F C7 99 01 10 00 00 00 00'); //пакет заточки вещи
SendToServerEx(Name);
x:=1;
end;
end;{case}
end;
begin
if FromServer then
case pck[1] of
#$21: //InventoryUpdate
if (ReadD(12)=9426)// ID вещи
and (ReadD(34)=9)// предел заточки
then timer.enabled:=false;;
end;
end.