[YssurTiger]

Сообщение от NLObP

Ошибка в том, что в этом пакете нет уровня заточки, там только результат: 0 -заточил/1-сломал/2-в 0 сбросил

ты не прав
вот мой конец скрипта

begin
  if FromServer and (ConnectName=Name) and (pck = HStr('87 19 00 00 00 00 00 00 00 00 00 00 00')) then begin
    timer.enabled:=false;
  end;

где 19 это уровень заточки .если перевести из байтов получается 25.
на 25 спокойно останавливается.
самое главное правильно все сделать

//Автоматизация заточки предметов до необходимого уровня.
//мини-скрипт идея, доработка Shizo.
//by Xelat
const
      Name='CJIADKA9'; //без этого не останавливал timer.enabled:=false;
var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=1000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('0C 02 30 03 10 00 00 00 00 ');скрол Ы виапон.если заточки остаются в котомке.то пакет не меняется
  SendToServer;
  buf:=hstr('43 4F 00 C9 A3 D2 10 ');вещь
  SendToServer;
  buf:=hstr('0C 02 30 03 10 00 00 00 00 ');
  SendToServer;
  buf:=hstr('43 4F 00 98 A4 D2 10 ');
  SendToServer;
  buf:=hstr('0C 02 30 03 10 00 00 00 00 ');
  SendToServer;
  buf:=hstr('43 4F 00 C9 A3 D2 10 ');
  SendToServer;
  buf:=hstr('0C 02 30 03 10 00 00 00 00 ');
  SendToServer;
  buf:=hstr('43 4F 00 98 A4 D2 10 ');
  SendToServer;
  buf:=hstr('0C 02 30 03 10 00 00 00 00 ');
  SendToServer;
  buf:=hstr('43 4F 00 15 A5 D2 10 ');
  SendToServer;
  buf:=hstr('68 A3 5F 01 00 16 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 FE FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ');покупка 5 заточек
  SendToServer;
end;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('87 19 00 00 00 00 00 00 00 00 00 00 00')) then begin
    timer.enabled:=false;
  end;
end.

в пм не писать,у кого не получается точите руками и не мучайте остальных.vlineage.ru очень баганный сервер.просто нужно правильно использовать баги.