Автозаточка, просто и сердито!

[Doberman]

Grinch, стопка - это когда точки лежат в 1 ячейке типа как на руоффе хз с каких хроник это пошло, пример стопки - адена ресурсы куски рецепты точки
и соответсвенно методом скрипта ты стопку не сделаешь за это сервер отвечает.

Да это я прекрастно понимаю ))),стопка с пошла с ХБ,т.к на камаэлях я неиграл =),мож и с них.

v0ltag3, что за сервер?

Сервер Интерлюдия.
Я вот что хочю то,чтобы скриптом можно было точить точами не из "стопки",он точит,ток постоян приходится юзать точку.
Посоветуете скрипт от "NLObP,без вопросов отличный скрипт,работает.
Просто он неудобен тем что на серверах с высокой мин заточкой,точить два предмета оч медленно.
А так бы идеально,1 предмет и погнал точить),ток вот где подправить его я незнаю(

[v0ltag3]

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

А так бы идеально,1 предмет и погнал точить),ток вот где подправить его я незнаю(

if (sumitem(ItemID)<=1) then begin

найди в скрипте эту строчку и поменяй 1 на 0

[Nikit0s]

Юзаю 3 скрипт
Скрипт останавливается через определенное время
Нужно опять нажать "Начать" на окне точки

Добавлено через 19 минут
Упс, ошибон допустил исправил тот пост
P.S. время в скрипте изменил до 3100, ибо на 2100 - тюрьма

Добавлено через 1 минуту
И в 3 скрипте кстати вкл и выкл скрипта делает ТОЛЬКО 1 соц действие

[mks]

const
   nik='xxxx';
   Enchant=16;

var
   UseItem, SelectItem, EnchantItem: string;
   CurrentEnch: integer;
   key: boolean;
   Timer01, Timer02: TTimer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=3000;

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
   case key of
      false: begin
         buf:=UseItem;
         SendToServerEx(nik);
         Timer02.enabled:=true;
         end;
      true: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         end;
   end;
         key:=not(key);
end;

procedure OnTimer02(Sender: TObject);
begin
         buf:=SelectItem;
         SendToServerEx(nik);
         Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
  CurrentEnch:=0;
  key:=false;
end;

begin
    if FromServer and (pck[1]=#$87) then case ReadD(2) of
       0: begin
          CurrentEnch:=CurrentEnch+1;
          if CurrentEnch=Enchant then Timer01.enabled:=false;
          end;
       3: CurrentEnch:=0;
       end;
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck[1]+pck[2]=#$56#$0C) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

[Imperial2008]

Юзаю скрипт на грация финал..
Вроде все нормально, но когда скрипт точит вещь +2, то он сам останавливается. Смотрю на пакеты - скрипт не отсылает пакет на енханс. Что делать?

[mks]

Imperial2008, если честно я ниче не понял

[Imperial2008]

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

Imperial2008, если честно я ниче не понял

Сорри только щас заметил ошибку. Дело в том, что скрипт делает только одну заточку (то есть +1) и все, останавливается. Потом открывается сново окно, вставляются предметы, но заточить не нажимается (не отправляется пакет енханс). На форуме я смотрел что вроде это сервер выдерживает 5000 мск, я поднял таймер до этого времени но ничего не происходит. Пакеты верны.

[AlekseiNik]

Выражаю большое спасибо!За скрипты теперь у меня у меня первые 2 скрипта точат и оба не останавливаются на указанном уровне заточки!Подскажите что делать!?Перепробовал все скрипты с изменениями, положительного результата так и не увидел!

[Doberman]

Вопрос : Де взять Itemsid.ini для финала?
А то не видит скрипт вещи S80 S84,мож есть у кого?

[NLObP]

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

Вопрос : Де взять Itemsid.ini для финала?
А то не видит скрипт вещи S80 S84,мож есть у кого?

Дописать недостающие итемы самостоятельно.