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

[mks]

Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт,
включаем скрипт << СМОТРЕТЬ
забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку.
1е соц действие << СМОТРЕТЬ
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...

>>>1-й скрипт от mks

const
   nik='xxxx';
   Enchant=13;

var
   UseItem, EnchantItem: string;
   Count, CurrentEnch: integer;
   Timer01: TTimer;

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

procedure OnTimer01(Sender: TObject);
begin
   buf:=UseItem;
   SendToServerEx(nik);
   buf:=EnchantItem;
   SendToServerEx(nik);
end;

procedure Free;
begin
  Timer01.free;
  count:=0;
  CurrentEnch:=0;
end;

begin
    if FromServer and (pck[1]=#$87) then
       begin
          CurrentEnch:=ReadD(2);
          if CurrentEnch=Enchant then Timer01.enabled:=false;
       end;
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck=#$34#$02#$00#$00#$00) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

<<<

Переделал для тех у кого 1й скрипт работает, но не останавливается заточив до указанного уровня:

>>>2-й скрипт от mks

const
   nik='xxxx';
   Enchant=30;

var
   UseItem, EnchantItem: string;
   Count, CurrentEnch: integer;
   Timer01: TTimer;

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

procedure OnTimer01(Sender: TObject);
begin
   buf:=UseItem;
   SendToServerEx(nik);
   buf:=EnchantItem;
   SendToServerEx(nik);
end;

procedure Free;
begin
  Timer01.free;
  count:=0;
  CurrentEnch:=0;
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;
       2: CurrentEnch:=0;
       end;
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck=#$34#$02#$00#$00#$00) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

<<<


Переделал слегка для Грации Файнал.
Холява закончилась, если выставляешь интервал заточки меньше чем 2100мс получаешь авто-бан(возможно не везде так)

>>>3-й скрипт от mks

const
   nik='xxxx';
   Enchant=16;

var
   UseItem, SelectItem, EnchantItem: string;
   Count, CurrentEnch, key, ItemID: integer;
   Timer01: TTimer;


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

procedure OnTimer01(Sender: TObject);
begin
   case key of
      1: begin
         buf:=UseItem;
         SendToServerEx(nik);
         buf:=SelectItem;
         SendToServerEx(nik);
         end;
      2: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         end;
   end;
end;

procedure Free;
begin
  Timer01.free;
  count:=0;
  CurrentEnch:=0;
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 FromServer and (pck[1]=#$FE) then
       if ReadD(4)=ItemID then key:=2 else key:=1;

    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$D0) then
       begin
       ItemID:=ReadD(4);
       SelectItem:=pck;
       end;
    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.

<<<

для Грации Файнал.
4-й скрипт от mks
добавлен 2й таймер

[Hiton]

http://depositfiles.com/files/ub5mqftgw вот

[mks]

Ну жди, дома буду посмотрю, это какие хроники?

[Hiton]

Интерлюд.И ище такой вопрос правда не по этой теме нашел в другой теме скрипт под названием "Автоматизация заточки предметов до необходимого уровня by NLObP" запустил нормально пашет но как увидел при заточке прога попросту начала зависать но потом оказалось что она начала зависать как только ломала обе пушки какие точила...Я так думаю это из за того что на том сервере где я играю после поломки пушки блесс точкой пушка спадает до 10 и прога попросту непонимает этого...

[mks]

если это интерлюд не пойму как скрипты из этой темы у тебя могут работать вообще

[Hiton]

Не знаю...както работают,но не совсем корректно.

Добавлено через 2 минуты
Я так понимаю все вопросы по поводу программы "Автоматизация заточки предметов до необходимого уровня by NLObP" нада ждать непосредственно NLObP ?????

[mks]

да, тот ведь его скрипт, и желательно ждать в соответствующей теме

[Hiton]

Ок,а NLObP есть или он уехал отдыхать кудато ???

[Алексей]

Хотелося чтобы ети скрипты работали на интерлюде, TAMBIK попытался ето зделать, и его скрипт на етой странице http://coderx.ru/showthread.php?t=1684&page=3
В отличии от остальных, при соц действии 1 начинает открывать окно заточки, после чего в чате постоянно выскакивает надпись "выберите предмет для заточки"
Может ктонибудь возьметься доделать етот скрипт чтобы он работал так же как финальный HOURSа dev'a & NLObP'a только на интерлюд?

[Hiton]

Алексей заходи сюда http://coderx.ru/showthread.php?t=476&page=16 там будет "Скрипт на заточку" смотри пост от 3xdimon у него полностью робочий скрипт для серверов где вещь после точки блессом спадает на 10 или на иную цифру.Но если нада скрипт для точа обычными точками бери скрипт от NLObP у него тоже рабочий.

[QaK]

Алексей, переносим обсуждение сюда:http://coderx.ru/showthread.php?t=1909 з.ы. поправил тот скрипт. Дальше давай сам подумай. Почистил темку от флуда.