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

[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-чет ваще ничего не работает
А как-то еще химичил чето первый пакет отсылался и то без команды запускалось все. в итоге кик с серва гм информед часто так, норм с ГМ познакомился. Сказал что на заточку много нажымал. Типа так быстрее.

[neonv1]

В общим заточился на полуавтомате, пришлось ручками по нпс щелкать, да ну и пофиг. И так делать нечего, боты, скрипты, . Но всеже добить надо скрипт.

const nik='xxx';
   Enchant=15;

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:begin
            Timer01.enabled:=false;
             buf:=hstr('1F 87 04 01 10 2C 41 02 00 A2 23 FF FF 24 F5 FF FF 00');
             SendToServerEx(nik);
             end;
      end;
  if FromServer and (pck[1]=#$23) then  begin
        Timer01.enabled:=true;
            CurrentEnch:=10;// уровень до какого точит нпс
                  end;
end.

Тут замысел работал, покет посылался после неудачной заточки на общение с нпс. Я в скриптах не очень методом тыка пытался что-то добавить, застрял на том что скрип работает сразу без каманды т.е он еще ничего не запомнил что я буду точить и меня кикало с серва - чуть бан не хватанул отмазался. Этого мало-то одного пакета, 4 надо послать только потом шмотка на 10 затачивается. Да а как еще команду теперь впихнуть чтоб запускалось. Жду помощи..

[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, так что же мне делать... куда какой пакет?

[Alexhdg]

Народ а на серваке vlineage.ru ваще етот скрипт работает? Я все вродь сделал, нажимаю на скрипт а у меня критует и реконект с сервом, и сам l2phx вылетает с неизвестной ошибкой.

[kosyar]

помогите как прекрутить пакеты чисто покетами простомушто на сервере в тарфике какаята каша.
немного по ковырявшись я нашол нужные пакеты но не знаю как их подкрутить к скрипту.(сервер грация финал)

0C 8A 53 17 10 00 00 00 00 - нажимает на заточку
43 4C 00 64 48 17 10 - вставляет оружие в окно заточки
65 64 48 17 10 00 00 00 00  - затачивает

както страно но пакет itemlist оставили не тронутым и уровень заточки показываетца там в статусе EnchantLevel
пробывал под писать вот так не помогает

      1: begin
         buf:=HStr ('0C 8A 53 17 10 00 00 00 00');
         SendToServerEx(nik);
         buf:= HStr ('43 4C 00 64 48 17 10');
         SendToServerEx(nik);
         end;
      2: begin
         buf:=HStr ('65 64 48 17 10 00 00 00 00');
         SendToServerEx(nik);
         end;

[TAMBIK]

kosyar
вот у тебя какие пакеты. выделено номера пакетов

0C 8A 53 17 10 00 00 00 00 - нажимает на заточку
43 4C 00 64 48 17 10 - вставляет оружие в окно заточки
65 64 48 17 10 00 00 00 00 - затачивает

меняй выделеное в скрипте на номера своих пакетов

 
 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;//затачивает