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

[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й таймер

[emrik]

у меня вообще такая ситуация, как только ставлю галочку на скрипт чтобы он работал, вылетает клиент и хлапекс закрывается(

[RedSkyShamrik]

3.4.1.61 там работает без проблем, ставиш галочку в настройках на против Kamael и фсё.
По теме, чтобы клиент не вылетал есть 1 решение - после открытия скрола, пушка должна выбиратся спустя 2 секунды, это жалкая попытка фикса со стороны администрации сервера. Я бы сделал, но в скриптах под l2ph noop =(

[mks]

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

День добрый. Решил вот юзануть срипт на автозаточку с 2мя таймерами, в итоге через 5,10,15 мин кикает уведомляя что я кабы пользуюсь нелегальной программой, увеличение тамера 1 и 2 ни к чему не приводитк кроме как, еще быстрее выскакивает ошибка. в чем трабла и как решить ее? http://tbs.org.ru/ вот серв

Бывает такая маза, но чет я не вкурю пока из-за чего....

[XotuTo4utc9I]

Проблема с http://tbs.org.ru/ запустил скрипт скорость поставил 3100 вроде нормально точилось, ....минут через 5 бан...что делать? если ставил скорость 4000 то через пару минут скрипт переставал точить...

[mks]

XotuTo4utc9I, пользуйся скриптом с двумя таймерами

[XotuTo4utc9I]

эм....я новичек в этом...не подскажите как...2ой таймер поставить?....

[Grafin]

Парни объясните новичку где конкретно прописывать первое соц.действие"hello"? Как правильно запускать скрипт? Что нужно изменить кроме ника и уровня точки? Вроде все делаю как пишут кроме сой действа
P.S. НЕ СОЧТИТЕ ЗА ФЛУД!!!

[TAMBIK]

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

Парни объясните новичку где конкретно прописывать первое соц.действие"hello"? Как правильно запускать скрипт? Что нужно изменить кроме ника и уровня точки? Вроде все делаю как пишут кроме сой действа
P.S. НЕ СОЧТИТЕ ЗА ФЛУД!!!

Окошко с действиями действо-hello где ручкой машиш привет

[AlekseiNik]

Ребята!Помогите написать скрипт на авто заточку на пвп сервер!Там скорее всего изменены ID скролов.Сервер la2.kgts.ru

[Botovod1236]

народ кому не сложно обьясните в асю что делать с этими скриптами 86266600