[dyh9l]

го лучше новый состряпаем) я вот тут чото начал, ну и конечно же запинки, над узнать как то ObjectID всех скролов которые в сумке и которые будут в дальнейшем покупатся)

const
    name = 'secret' ; 
    rbID = 858 ; 
    enchlvl = 7;   
var
    EnchantTimer:TTimer;
    a,ObjectIDrb:integer;       
procedure Init;
    begin  
        a:=1;
        EnchantTimer:=TTimer.Create(nil);
        EnchantTimer.Ontimer:=@Enchant;
        EnchantTimer.Interval:=1100; 
        EnchantTimer.Enabled:=false;  
    end; 
procedure Free;
    begin
        EnchantTimer.free;
    end;     
procedure Enchant;
    begin
        case a of
            1: begin     // первые 2 действия заточка простым скролом
                    buf:=#$14;
                    //   WriteD(тут объект ид у скрола);
                    WriteD(0);
                    SendToServerEx(name); 
                    a:=2;
               end; 
               
            2: begin
                    buf:=#$58;
                    WriteD(ObjectIDrb);
                    WriteD(0);
                    SendToServerEx(name); 
                    EnchantTimer.Enabled:=false;                 
               end; 
               
            3: begin    //Заточка блесс скролом
                    buf:=#$14;
                    //   WriteD(тут объект ид у скрола);
                    WriteD(0);
                    SendToServerEx(name);
                    a:=4;
               end;
            
            4: begin
                    buf:=#$58;
                    WriteD(ObjectIDrb);
                    WriteD(0);
                    SendToServerEx(name); 
                    EnchantTimer.Enabled:=false;             
               end;
                    
        end;
    end;         
procedure InvertoryUpdate;
    begin
        if (ReadD(12)=rbID) then 
            begin
                ObjectIDrb:=ReadD(8); 
                case ReadH(30) of
                    0..5:  begin a:=1; EnchantTimer.Enabled:=true; end;
                    5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;
                end;
            end;
        if (ReadD(42)=rbID) then 
            begin
                case ReadH(60) of
                    0..5:  begin a:=1; EnchantTimer.Enabled:=true; end;
                    5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;
                end;             
            end;  
    end;
begin
    if (connectname=name) and (fromserver) then
        case pck[1] of
            #$27: InvertoryUpdate;
        end;
end.