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

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

[mks]

Imperial2008, выкладывай лог пакетов при удачной заточке и сбросе на 0, например лог при заточке +2, +3, слетела на 0

[Dixson]

Сервер Интерлюд,использую скрипт "by NLObP version 0.6" всё нормально точит,но при неудачной заточке Блессом,шмотка сбрасывается на значение +10,а не на 0! И после этого пнх тупо виснет! Помогите,что делать?

[Imperial2008]

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

Imperial2008, выкладывай лог пакетов при удачной заточке и сбросе на 0, например лог при заточке +2, +3, слетела на 0

Ага, стоп, кажется немного начинаю понимать...дело в том, что уже останавливается скрипт (как бы это странно не звучало))) Но другая проблема, из-за того, что сервер подлагивает, бывает что скрипт на 1 - 2 перетачивает чем нужно...можно конечно поменять таймер, но тогда и точится будет намного дольше((( Все что я описал верно или хотя бы может такое быть?? Просто лог прийдется выдерать (ну чтоб вы не искали), а одновременных действий там столько (даже фильтр не помогает))

[mks]

Imperial2008, да лог получается не надо, раз он останавливается перетачивая на 1 или 2, лагает у тебя конкретно) таймер-то пашет независимо от лагов, и не смотрит на то, пришел ли пакет от сервера EnchantResult, посему либо точи быстро но с риском, либо замедляй таймер, либо точи быстро выставив на 2 ниже, потом вручную дотачивай)

[Hiton]

Играю на сервере Интерлюд,запускал скрипты выложены в этой теме большинство робочие ну а меньшенство как я поднял под грацию но во всех скриптах одна проблема,вижу у многих такая была,не останавливается скрипт после точения на заданое число.Юзаю l2phx 3.4.1.83 пакет с результатом точки не приходит.

[HORSE]

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

Играю на сервере Интерлюд,запускал скрипты выложены в этой теме большинство робочие ну а меньшенство как я поднял под грацию но во всех скриптах одна проблема,вижу у многих такая была,не останавливается скрипт после точения на заданое число.Юзаю l2phx 3.4.1.83 пакет с результатом точки не приходит.

Тогда скрипт нужно переписывать под твой сервер...а что приходит после того как заточил что то, какой пакет??

[Hiton]

Когда точу получаю 2 пакета Use Item и RequestEnchantItem после этого нечего нету.

[mks]

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

Когда точу получаю 2 пакета Use Item и RequestEnchantItem после этого нечего нету.

интересуют пакеты не только от клиента, но и от сервера

[Hiton]

Хм...тупонул с самого начала что выключил отображение пакетов сервера результат всётаки приходит вот такие пакеты приходят при точке:UseItem,SystemMessage,ChooselInventoryItem,R equestEnchantItem,SystemMessage,StatusUpdate,Encha ntResult,ItemListPacket,UserInfo.

[mks]

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

Хм...тупонул с самого начала что выключил отображение пакетов сервера результат всётаки приходит вот такие пакеты приходят при точке:UseItem,SystemMessage,ChooselInventoryItem,R equestEnchantItem,SystemMessage,StatusUpdate,Encha ntResult,ItemListPacket,UserInfo.

Ты пологаешь этого достаточно что б тебе помочь?
Лови пакеты и точи че-нидь пока на 0 не сбросится, потом в л2пх есть кнопка сохранить лог, сохрани в файл и выкладывай, я не экстасенс....