[Скрипт] Автоматизация дюпа в 2 окна

[c-lavr]

Решил избавится от друга и дюпать в 2 окна быстрым релогом
Это автоматизация вот этого дюпа ссылка

Распишу немного чтобы не запутались

Последовательность

1. Запускаем 2 окна сразу.
2. В скрипте меняем имена соединений на свои:

nametv = 'clavr';  - логин акк твинка
nameosn = 'clavrik' - логин акк основы, которым будете делать быстрый релог

3. включаем скрипт и основной делаем обычный релог на на выбор перса (чтобы записать пакеты в скрипт на быстрый релог)
4. Берём стопковую вещь (100 шт пример) и кидаем ее твинку, а потом забираем обратно
5. Кидаем на склад основы 99 шт.

Вот дальше я уже вставил автоматизацию

6. Кидаем твинку торг (твинк автоматически его принимает и нажимает "подтвердить")
7. В окно торга кидаем 1 шт и нажимаем на основе "подтвердить" и "принять".
8. В чат также на основе пишем команду go
Твинк автоматически нажимает "принять" а основа делает быстрый релог.
Дальше уже по образцу как в выше указанной теме

Скрипт

//Script by CLAVR
const
nametv = 'clavr';       //логин акк твинка
nameosn = 'clavrik';   //логин акк основы

var
i:integer;
quickrelog: array[1..6] of string;

begin
  
   if FromClient and (ConnectName=nameosn) then
      case ReadC(1) of      
        $6A: quickrelog[1]:=pck;
        $A4: quickrelog[2]:=pck;
        $3D: quickrelog[3]:=pck;
        $67: quickrelog[4]:=pck;
        $35: quickrelog[5]:=pck;
        $68: quickrelog[6]:=pck;
      end; 
   
   if  FromClient and (ConnectName=nameosn) and (ReadC(1)=$AE) then
       begin
           buf:=HStr('A1 00 57 5E FF 91 5F 01 00 01 00 00 01 00 00 00 00 06 00 00 00 00 00 ');
           SendtoServerEx (nametv);
           buf:=HStr('AA 02 57 49 FD');
           SendtoServerEx (nametv);
       end;
   
   if (ConnectName=nameosn) and FromClient and (ReadC(1)=$B2) and (ReadS(7)='go')  then   
      begin
         pck:='';
         buf:=HStr('AB 02 57 48 FD ');
         SendtoServerEx (nametv);
         for i:=1 to 6 do
             begin
                buf:=quickrelog[i];
                SendtoServerEx(nameosn);
             end;
      end;
end.

P.S. Кто говорил, что L2px не работает сразу с несколькими окнами?

[Bruniq]

Блин, когда поиграю 3 минутки в 2 окна, всегда пишет соеденение с игровым сервером прервано

[c-lavr]

Цитата: Сообщение от Bruniq Блин, когда поиграю 3 минутки в 2 окна, всегда пишет соеденение с игровым сервером прервано

попробуй вот тут галку поставить в пакетхаке:

[Ссылки могут видеть только зарегистрированные пользователи. ]

[c-lavr]

На NewAion не работает!!! - в пм не флудить

[celsi]

Цитата: Сообщение от c-lavr Решил избавится от друга и дюпать в 2 окна быстрым релогом Это автоматизация вот этого дюпа ссылка Распишу немного чтобы не запутались Последовательность 1. Запускаем 2 окна сразу. 2. В скрипте меняем имена соединений на свои: nametv = 'clavr'; - логин акк твинка nameosn = 'clavrik' - логин акк основы, которым будете делать быстрый релог 3. включаем скрипт и основной делаем обычный релог на на выбор перса (чтобы записать пакеты в скрипт на быстрый релог) 4. Берём стопковую вещь (100 шт пример) и кидаем ее твинку, а потом забираем обратно 5. Кидаем на склад основы 99 шт. Вот дальше я уже вставил автоматизацию 6. Кидаем твинку торг (твинк автоматически его принимает и нажимает "подтвердить") 7. В окно торга кидаем 1 шт и нажимаем на основе "подтвердить" и "принять". 8. В чат также на основе пишем команду go Твинк автоматически нажимает "принять" а основа делает быстрый релог. Дальше уже по образцу как в выше указанной теме Скрипт //Script by CLAVR const nametv = 'clavr'; //логин акк твинка nameosn = 'clavrik'; //логин акк основы var i:integer; quickrelog: array[1..6] of string; begin if FromClient and (ConnectName=nameosn) then case ReadC(1) of $6A: quickrelog[1]:=pck; $A4: quickrelog[2]:=pck; $3D: quickrelog[3]:=pck; $67: quickrelog[4]:=pck; $35: quickrelog[5]:=pck; $68: quickrelog[6]:=pck; end; if FromClient and (ConnectName=nameosn) and (ReadC(1)=$AE) then begin buf:=HStr('A1 00 57 5E FF 91 5F 01 00 01 00 00 01 00 00 00 00 06 00 00 00 00 00 '); SendtoServerEx (nametv); buf:=HStr('AA 02 57 49 FD'); SendtoServerEx (nametv); end; if (ConnectName=nameosn) and FromClient and (ReadC(1)=$B2) and (ReadS(7)='go') then begin pck:=''; buf:=HStr('AB 02 57 48 FD '); SendtoServerEx (nametv); for i:=1 to 6 do begin buf:=quickrelog[i]; SendtoServerEx(nameosn); end; end; end. P.S. Кто говорил, что L2px не работает сразу с несколькими окнами?

там где есть зашита секунды, не робит быстрый релог !

[gear47]

Не работает написал имена с большой буквы как и в игре.. быстрый релог работает а дюп нет.. команду go ничего не делает тупо в чате отображается .. что я сделал не так Aion FreeX70

[tyrto]

celsi, робит все !
иногда релогает иногда нет.. чаще нет. клаврик думай )

[c-lavr]

дык что тут думать-то. Имена не персов вводите а логин акк
И время от времени делайте обычный релог - чтоб обновить пакетики на релог - они меняются. Это уже от меня не зависит)

[tyrto]

Цитата: Сообщение от c-lavr дык что тут думать-то. Имена не персов вводите а логин акк И время от времени делайте обычный релог - чтоб обновить пакетики на релог - они меняются. Это уже от меня не зависит)

все так и делаю....

[c-lavr]

Цитата: Сообщение от tyrto все так и делаю....

попробуй ручками отправить только 3 пакета

6A
67
68

Если прокатит, то скрипт переделаю для тебя)

[tyrto]

улетел ) да ладно придется смериться

Добавлено через 1 час 40 минут
а гм может делать фаст релог ?

[tyrto]

клавр!!!!1 я придумал как дюпать !!!.и у меня выходит !!! смотри берем 2е окно. покупаем осла (любого пета с паком) идем к даэву смены внешности. разговариваем с ним жмем изм. внешность ловим пакет
9D
далее жмем отмена ловим пакеты:
67
35
теперь делаем все по инструкции дюпа. только место склада юзаем пак осла. а ты клавр автоматизуй))))
жду спасибок я старался )))

[aga-aga]

Цитата: Сообщение от tyrto клавр!!!!1 я придумал как дюпать !!!.и у меня выходит !!! смотри берем 2е окно. покупаем осла (любого пета с паком) идем к даэву смены внешности. разговариваем с ним жмем изм. внешность ловим пакет 9D далее жмем отмена ловим пакеты: 67 35 теперь делаем все по инструкции дюпа. только место склада юзаем пак осла. а ты клавр автоматизуй)))) жду спасибок я старался )))

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

[DreiUnikl]

Цитата: Сообщение от tyrto клавр!!!!1 я придумал как дюпать !!!.и у меня выходит !!! смотри берем 2е окно. покупаем осла (любого пета с паком) идем к даэву смены внешности. разговариваем с ним жмем изм. внешность ловим пакет 9D далее жмем отмена ловим пакеты: 67 35 теперь делаем все по инструкции дюпа. только место склада юзаем пак осла. а ты клавр автоматизуй)))) жду спасибок я старался )))

Да и вправду поподробней не объяснишь ?
ПОшагово если можно

[tyrto]

Смотрите. берем друга (твинка) идем покупаем пета осла(ну или любого с паком) идем к мастеру внешности. разговариваем с ним жмем изменить внешность ловим пакет типа
9D
тут у нас висит смена внешности.
жмем отмена и ловим два пакета.
67
35
все ставим их в отправку. далее
берем стопку кидаем твинку твинк вам обратно. вы призываете осла открываете его пак и кидаете туда все кроме 1 берете кидаете эту 1штучку твину он жмет только подтвердить. а вы жмете подтвердить и принять и дружно по счету друг жмет принять а вы реалогаетесь. вроде все расписал.
З.ы. чтоб реалогнуло нажимайте два раза отправить пакеты. и еще стоять нужно рядом с даэвом смены облика для этого и нужен осел.