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

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

[se321]

пробую этот скрипт через l2PacketHack v3.5.13.122, в первых строчках вписываю ник и требуемую заточку, ставлю галочку около скрипта, кидаю точку на пуху и хлопаю в ладоши (в игре) и ничего не происходит, что я делаю не так? сервак интерлюд.

[Doberman]

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

пробую этот скрипт через l2PacketHack v3.5.13.122, в первых строчках вписываю ник и требуемую заточку, ставлю галочку около скрипта, кидаю точку на пуху и хлопаю в ладоши (в игре) и ничего не происходит, что я делаю не так? сервак интерлюд.

Эти скрипты под хб,грацию

[mks]

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

пробую этот скрипт через l2PacketHack v3.5.13.122, в первых строчках вписываю ник и требуемую заточку, ставлю галочку около скрипта, кидаю точку на пуху и хлопаю в ладоши (в игре) и ничего не происходит, что я делаю не так? сервак интерлюд.

громче хлопать просто надо!

[TAMBIK]

mks,
да напиши в начале большими буквами
Эти скрипты под хб,грацию
на интерлюде и с4 неробит

[xaBik]

Вопрос такой, у меня всё отлично пашет, но ID у всех заточек разный. Вставляю в отправку вот это:
14 61 72 0E 10 00 00 00 00 (Открытие самой заточки) второе число (61) это число меняется у заточек, всё остальное постоянно. Есть ли возможность сделать так, чтобы прога сама меняла это значение от 01-99. потому что если я вручную вставляю туда число, скажем 36, то пушка точится ... а так ничего не происходит.
58 55 86 0E 10 (непосредственно заточка итема)

[drovishki]

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

громче хлопать просто надо!

:

[ake1a]

Уважамые скриптописальщики и так даее возникла пороблема... надеюсь поможете чу чуть... использую пакетхак l2phx.3.5.15.126.... сервер грация финал(ява) скрипт на автозаточку от "MKS" (спасибо Аффффтору)работает... как прерываеться не знаю не замечал.... ставлю на точ... все точит норм... выключаю манитор иди гулять ...прихожу с улицы... и вижу просто ТУПО рабочий стол компа и все... тоесть ла2 сама каким то макаром закрываеться или хрен пойми что с ней происходит.... ни крит ошибки ничего просто рабочий стол и все ((... помигите плз... Может кто и сталкивался с такой ошибкой....???
P.S. Постоянно ла2 закрываеться автоматом... или кикает или хз что происходит... так пробывал более 5 раз

[Grinch]

ake1a, из-за лага сети мог возникнуть спам пакета за который можно получить автокик с сервера или сама программка у тя не стабильно работает, в принципе я раньше считал что понимаю как железки работают, но с недавнего времени понял что на стабильность приложений так же влияет блок питание, точней пыль в нём ) и в целом чистота внутрях блока.

//alexteam: Пропадающее соединение более вероятно.

[Acdsee]

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

Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт, забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку.
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...
[/highlight]

Пробовал на Абисе Тестовом, что-то не работает, открываю скрипт, точу пушку на +1 жму 1 соц действие и ноль реакции =/

[mks]

Acdsee, на сколько я помню после интерлюда абис не менял хроники, а скрипты для ХБ и выше