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

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

[motograd]

Подскажите у меня не то4иться.
Всё сделал правильно вписал ник,3ато4ку,поставил галочку развернул l2 заточил на +1 и эфекта никакова!
Др скрипты ра6отают
серв gracia p2
Подскажите что я не так делаю?

[Grinch]

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

Подскажите что я не так делаю?

1-е соц действие видимо не делашь раз не описал это

[mks]

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

Подскажите у меня не то4иться.
Всё сделал правильно вписал ник,3ато4ку,поставил галочку развернул l2 заточил на +1 и эфекта никакова!
Др скрипты ра6отают
серв gracia p2
Подскажите что я не так делаю?

а 1е соцдействие нажал? оно включает и выключает автозаточку

[Devik]

Cпасибо за скриптик, но есть одна загвоздка,столкнулся с такой же проблемой как некий "motograd", ответа на его вопрос не нашел, решил ещё раз спросить. Поставил енчат на "7", но он продолжает точить дальше, попробовал так же подставить числа переведеные в байты,но уже другой эффект, допустим ставлю енчат "5", тогда он точит не до посинения, а просто 5 раз. Использую LSP перехват. Не подскажите в чем тут проблемка?

[Ga6pueL]

Подскажите пожулуйста что над делать если скрипт на точку на грации не видет моего персонажа...что надо делать??????

[mks]

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

Cпасибо за скриптик, но есть одна загвоздка,столкнулся с такой же проблемой как некий "motograd", ответа на его вопрос не нашел, решил ещё раз спросить. Поставил енчат на "7", но он продолжает точить дальше, попробовал так же подставить числа переведеные в байты,но уже другой эффект, допустим ставлю енчат "5", тогда он точит не до посинения, а просто 5 раз. Использую LSP перехват. Не подскажите в чем тут проблемка?

эт надо смотреть че от сервера идет после заточки, уже не раз попадал на серваки где тупо не приходит пакет EnchantResult, а если нет этого пакета, то текущая заточка в скрипте всегда будет равна 0, что не позволит выполницо условию выключения таймера заточки

[motograd]

Я ставлю енчянт например 20 а пуха всё равно точится после 20 почемуто
Подскажите почему?

[Grinch]

ты какой способ перехвата юзаешь?

[motograd]

Обычный перехват тк LSP перехват почемуто не включяется