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

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

[Yeap]

Вот так ща выглядит скрипт и все равно кикает!

const
   nik='Reconnect';
   Enchant=20;

var
   UseItem, SelectItem, EnchantItem: string;
   CurrentEnch: integer;
   key: boolean;
   Timer01, Timer02: TTimer;

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

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=3000;
end;

procedure OnTimer01(Sender: TObject);
begin
   case key of
      false: begin
         buf:=UseItem;
         SendToServerEx(nik);
         Timer02.enabled:=true;
         end;
      true: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         end;
   end;
         key:=not(key);
end;

procedure OnTimer02(Sender: TObject);
begin
         buf:=SelectItem;
         SendToServerEx(nik);
         Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
  CurrentEnch:=0;
  key:=false;
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 FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
    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.

Добавлено через 35 минут
Лог пнх

26.09.2009 21:04:45 Стартует L2ph v3.5.24.142
26.09.2009 21:04:45 На 7788 зарегистрирован локальный сервер
26.09.2009 21:05:10 Надёжно пропатчен новый клиент l2.exe (3900)
26.09.2009 21:05:22 (Inject.dll) Коннект на 79.174.64.104:2106 проигнорирован
26.09.2009 21:05:24 (Inject.dll) Перехвачен коннект на 79.174.64.104:7777
26.09.2009 21:05:24 ServerListen: Обнаружено новое соединение.
26.09.2009 21:05:24 Тунель ($16840160) создан
26.09.2009 21:05:24 Тунель ($16840160) запущен для чтения с сокета № 228
26.09.2009 21:05:24 Тунель ($16840160), Серверный сокет № 228 / Клиентский сокет № 312, Соединение с 79.174.64.104:7777 .....
26.09.2009 21:05:24 Тунель ($16840160), Серверный сокет № 228 / Клиентский сокет № 312, Соединение установлено с 79.174.64.104:7777
26.09.2009 21:05:27 Имя соединения для тунеля ($16840160): Reconnect
26.09.2009 21:06:10 Тунель ($16840160) Отвалились от клиента
26.09.2009 21:06:10 Тунель ($16840160) Отвалились от сервера
26.09.2009 21:06:10 Тунель ($16840160) уничтожен

[Elzas]

Извиняюсь , вот нашел интересный скрипт, на вашем форуме. Играю на Interlude - Funsworld.ru . Оружие затачивается только блессами , поскольку они только ипродаются . Смысл заточки таков : Заточка при ломании скидывается не на 0 , а на 10 . Пробывал много скриптов на блесс ниодин не работал . Вот взял скрипт для Interlude от TRAMBIK (а) . Заработало ! Это очень обрадовало . Но теперь поевилась проблемка . Я так смотрю которая в хорошом репертуаре . Заточка не останавливается. Очень прошу помочь , вас ( людей которые действительно хорошо в этом розбераються ) сам не смог ничего изменить и задать нормального вида . Зарание огромное спасибо.
Пользуюсь : l2phx.3.4.1.83 .

Сам скрипт , "код" :

  const
   nik='pixel';
   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:=800;
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]=#$81) 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]=#$14) then UseItem:=pck;
    if FromClient and (pck[1]=#$58) then EnchantItem:=pck;
    if FromClient and (pck=#$1B#$02#$00#$00#$00) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

EnchantResult (результаты с пакетов ) +10 , +11 , +12

81 0A 00 00 00

Tип: 0x81 (EnchantResult)
Pазмер: 5+2
Время прихода: 00:08:29:906
0002 d result: 10 (0x0000000A)

81 0B 00 00 00

Tип: 0x81 (EnchantResult)
Pазмер: 5+2
Время прихода: 00:08:58:171
0002 d result: 11 (0x0000000B)

81 0C 00 00 00

Tип: 0x81 (EnchantResult)
Pазмер: 5+2
Время прихода: 00:09:40:015
0002 d result: 12 (0x0000000C)

P.S хоть подскажите в каком направление двигатся что бы исправить ошибку . Зарание огромное спасибо .! )

[TAMBIK]

Вот взял скрипт для Interlude от TRAMBIK (а)

это не мой скрипт
попробуй вот так

if FromServer and (pck[1]=#$81) then case ReadD(2) of
       0: begin
          CurrentEnch:=CurrentEnch+1;
           end;
  Enchant:begin
              Timer01.enabled:=false; 
            end;
          end;

[neonv1]

Помогите в грации финал. Активно использую скрипт на заточку.

 const nik='xxx';
   Enchant=27;

var
   UseItem, SelectItem, EnchantItem: string;
   CurrentEnch: integer;
   key: boolean;
   Timer01, Timer02: TTimer;

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

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
   case key of
      false: begin
         buf:=UseItem;
         SendToServerEx(nik);
         Timer02.enabled:=true;
         end;
      true: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         end;
   end;
         key:=not(key);
end;

procedure OnTimer02(Sender: TObject);
begin
         buf:=SelectItem;
         SendToServerEx(nik);
         Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
  CurrentEnch:=0;
  key:=false;
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 FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
    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.

Подправте пожалуйста. В игре появились изменения. Надо добавить, чтоб когда оружие сбрасывалось на 0 скрипт посылал мой пакет.

[neonv1]

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

neonv1,

Надо добавить, чтоб когда оружие сбрасывалось на 0 
скрипт посылал мой пакет

скрипт послал твой пакет
правильно заданый вопрос содержит ответ

Извиняюсь. За транслит.
Когда неудачная заточка блес скролом оружия, скрипт посылает пакет на диалог нпс, нпс мне точит оружие на 10 и.т.д. Диалог пакет найду а вот вписать в скрипт не получается.

[TAMBIK]

Когда неудачная заточка блес скролом оружия, скрипт посылает пакет на диалог нпс, нпс мне точит оружие на 10 и.т.д. Диалог пакет найду а вот вписать в скрипт не получается.

те надо два пакета
1 пакет-от клиента диалог с нпс,
2 пакет-от сервера что те заточили на 10
здесь

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;

делаем так

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:begin
            Timer01.enabled:=false;
             buf:=hstr(' 1 пакет ');
             SendToServerEx(nik);
             end;
      end;
  if FromServer and (pck[1]=#$ПЕРВЫЕ ДВЕ ЦИФРЫ 2 пакета) then  begin
        Timer01.enabled:=true;
            CurrentEnch:=10;// уровень до какого точит нпс
                  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;

не известен 2 пакет так что пока совет такой

[TAMBIK]

neonv1,
куча пакетов
а ты сказал один
те дано направление
лучше всего посылать как и в игре чаром

в скрипте пакет зпомнить так
if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
по аналогие делать свои

[neonv1]

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

neonv1,
куча пакетов
а ты сказал один
те дано направление
лучше всего посылать как и в игре чаром

в скрипте пакет зпомнить так
if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
по аналогие делать свои

const nik='neonv1';
   Enchant=20;

var
   UseItem, SelectItem, EnchantItem: string;
   CurrentEnch: integer;
   key: boolean;
   Timer01, Timer02: TTimer;

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

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
   case key of
      false: begin
         buf:=UseItem;
         SendToServerEx(nik);
         Timer02.enabled:=true;
         end;
      true: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         end;
   end;
         key:=not(key);
end;

procedure OnTimer02(Sender: TObject);
begin
         buf:=SelectItem;
         SendToServerEx(nik);
         Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
  CurrentEnch:=0;
  key:=false;
end;

begin
    if FromServer and (pck[1]=#$87) then case ReadD(5) of //(5) зачем вставил хз интуиция правельно?
       0: begin
          CurrentEnch:=CurrentEnch+1;
          if CurrentEnch=Enchant then Timer01.enabled:=false;
          end;
     3:begin
            Timer01.enabled:=false;
             buf:=hstr('1F 87 04 01 10 2C 41 02 00 A2 23 FF FF 24 F5 FF FF 00'); // Action
             SendToServerEx(nik);
             end;  
        4:  begin   
                Timer01.enabled:=false;
             buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 35 00 30 00 32 00 31 00 35 00 31 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 39 00 39 00 39 00 5F 00 4E 00 50 00 43 00 45 00 6E 00 63 00 68 00 61 00 6E 00 74 00 00 00'); // болтаем с нпс
             SendToServerEx(nik);
             end;
        5: begin
                 Timer01.enabled:=false;
             buf:=hstr('23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 39 00 39 00 39 00 5F 00 4E 00 50 00 43 00 45 00 6E 00 63 00 68 00 61 00 6E 00 74 00 20 00 63 00 68 00 6F 00 6F 00 73 00 65 00 5F 00 69 00 74 00 65 00 6D 00 00 00'); // далее ботлтаем
             SendToServerEx(nik);
             end;
        6: begin
                 Timer01.enabled:=false;
             buf:=hstr('23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 39 00 39 00 39 00 5F 00 4E 00 50 00 43 00 45 00 6E 00 63 00 68 00 61 00 6E 00 74 00 20 00 65 00 6E 00 63 00 68 00 61 00 6E 00 74 00 49 00 74 00 65 00 6D 00 5F 00 32 00 36 00 38 00 35 00 32 00 36 00 30 00 39 00 35 00 00 00'); // диалог выбора какой шмот заточить
             SendToServerEx(nik);
             end;
      end;
         if FromServer and (pck[1]=#$23) then  begin
        Timer01.enabled:=true;
            CurrentEnch:=10;// уровень до какого точит нпс
                  end;
                   
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
    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.

1-это правлино ли я вставил эти пакеты?
2-чет ваще ничего не работает
А как-то еще химичил чето первый пакет отсылался и то без команды запускалось все. в итоге кик с серва гм информед часто так, норм с ГМ познакомился. Сказал что на заточку много нажымал. Типа так быстрее.

[jpg]

Пробывал все 3 скрипта что лежат на форуме, от Хорс, Мкс и Нлубп.
при скрипте от Мкс не происходит ничего, поменял в нем немного пакет 1соц действия... теперь у меня отсылается в огромном колличестве пакеты логаута, причем я не могу открыть и посмотреть сам пакет.
скрипт от Нлубп
Проблема в айтимайди листе, он не видит его вообще.
Скрипт от Хорс
нее понял как он работает...
Сервер Глация Финал. походу ява.
Вот пакеты точки Д пушки (денег не хватило на Ы xD)

серверу отправляем при нажатии точки 
0C 2F 4E 08 10 00 00 00 00 
сервер отвечает
7C AF 19 00 00 
ставим пушку в окно точки
43 4C 00 DD 4D 08 10 
сервер отвечает
FE 81 00 DD 4D 08 10 
нажимаем кнопку точки
65 DD 4D 08 10 00 00 00 00 
сервер отвечает
87 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
18 70 49 08 10 01 00 00 00 0E 00 00 00 ED 3B 00 00

[jpg]

TAMBIK, так что же мне делать... куда какой пакет?