Скрипт на заточку

[Shizo]

Значит так я немного подкоректировал и уааля!

Заточка для грации 2

//Автоматизация заточки предметов до необходимого уровня.
//мини-скрипт идея, доработка Shizo.
//by Xelat
const
      Name='/свое имя/'; //без этого не останавливал timer.enabled:=false;
var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=2000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('/пакет открытия точки/');
  SendToServer;
  buf:=hstr('/пакет вещи в слот/');
  SendToServer;
  buf:=hstr('/пакет завершения точки (для ускорения процеса)/');
  SendToServer;
end;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('/Сюда пакет с нужной заточкой пухи!(это важно нада пральный пакет)/')) then begin
    timer.enabled:=false;
  end;
end.

спасибо за помощь все работает проверено на грации 2