[HORSE]

юзай мой скрипт))) мб получиться....токо тссс)))

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.