!!!опять я нуб=)))прошу помошь у Батек=)

[ivano]

я бы давно так зделал но немагу на серве очень трудно точнуть на 10.....ишю другой способ

[HORSE]

а что за сервак??

[ivano]

megal2.ru

Добавлено через 1 минуту
ктсати видел там такой ник как у тя=))))

[Stasrus]

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

на серве очень трудно точнуть на 10

и

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

ТОЧКА НЕПРЕКРАШАЕТЬСЯ..как зделать чтобы она прекрашалась при заточен итеме допустим на 10

както оно невяжется

Лень ручками точить - точни скриптом она ведь не "НЕПРЕКРАШАЕТЬСЯ"

[HORSE]

ухаха....
тестируй...ставь меньше интервал....
У меня на моем скрипте ставлю 50-100 перетачивает, ставлю 150 ОСТАНАВЛИВАЕТЬСЯ....ну ещё лаги влияют...

[ivano]

нече неполучаеццО(((

[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.

[ivano]

Спасибо конечно но есть проблемка...

[8tomat8]

нехватаетгдето begin ))))
//alexteam: точнее.. их слишком много
Оффтоп

[ivano]

и что на что менять???