Вернуться   CoderX :: Forums > Lineage II > L2PacketHack
Войти через OpenID

L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Обсуждение багов Lineage ЗАПРЕЩЕНО!

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 05.10.2007, 22:00   #1
Новичок
 
Регистрация: 05.10.2007
Адрес: Украина
Сообщений: 19
Сказал Спасибо: 0
Имеет 23 спасибок в 13 сообщенях
DeVolf пока неопределено
По умолчанию Кружок нубов(Вопрос-Ответ)

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.


Код:
const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.
где я ошибся?

Последний раз редактировалось QaK, 30.08.2010 в 18:56.
DeVolf вне форума   Ответить с цитированием
За это сообщение DeVolf нажился 6 спасибками от:
Старый 16.06.2008, 11:06   #131
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от -=Ma}{imuS=- Посмотреть сообщение
с делаями просто все замирает, но это вроде проблем не доставляет. а так вобще посмотрю, нет предела совершенству
Именно, что всё замирает! Вроде что-то не так в пакетхаке - даже пакеты перестают передаваться. Поэтому надо воздерживаться от использования delay(). Проблем не возникнет, если задержка достаточно маленькая, порядка 1 сек и редко.
NLObP вне форума   Ответить с цитированием
Старый 16.06.2008, 18:44   #132
Новичок
 
Аватар для pps
 
Регистрация: 01.05.2008
Сообщений: 5
Сказал Спасибо: 1
Имеет 1 спасибку в 1 сообщении
pps пока неопределено
По умолчанию

Цитата:
Сообщение от -=Ma}{imuS=- Посмотреть сообщение
выкладываю свой первый нубо-скрипт чтоб вы видели что ваши старания и мои консультации не прошли напрасно
скрипт для бота-бафера или бд, прошу строго не судить:
Ты же этот скрипт делал на основе скрипта на БД? Если да, то там используется 2 таймера, delay лучше убрать. С 2 таймерами всё работает прекрасно и ничего не замирает.
(Скрипт на БД можно посмотреть тут http://coderx.ru/showpost.php?p=1284&postcount=127 )
1 таймер - отсчет времени для ребаффа.
2 таймер - для паузы между баффами.

Цитата:
Сообщение от -=Ma}{imuS=- Посмотреть сообщение
Timer1.Interval := 1200000; // задержка таймера (для танцев бд 125000)
лучше писать так
Timer1.Interval := 20*60*1000; или Timer1.Interval := 2*60*1000; для БД
более читаемо

Последний раз редактировалось pps, 16.06.2008 в 19:09.
pps вне форума   Ответить с цитированием
Старый 17.06.2008, 15:02   #133
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Как запустить скрипт на определённом соединениии? Именно соединение а не имя персонажа...

Допустим "Скрипт 122" работает на 1 соединении
А "Скрипт 112" работает на втором...
И как их можно синхронизировать?Есть ли такая возможность?
Byrger вне форума   Ответить с цитированием
Старый 17.06.2008, 15:11   #134
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от Byrger Посмотреть сообщение
Именно соединение а не имя персонажа...
имя соединения это и есть имя персонажа, только вроде если релог на одном акке сделать то исмя соединения останется именем первого чара

Цитата:
Сообщение от Byrger Посмотреть сообщение
Допустим "Скрипт 122" работает на 1 соединении
А "Скрипт 112" работает на втором...
И как их можно синхронизировать?Есть ли такая возможность?
я вижу только 1 способ - объединить эти 2 скрипта в один
в ПНХ есть условие if ConnectName='что-нибудь' вот отсюда и надо танцевать.
QaK вне форума   Ответить с цитированием
Старый 17.06.2008, 19:30   #135
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

QaK, понимаешь, мне нужно чтоб соединения в скрипте назывались 1,2,3.... а не по никам...

Добавлено через 3 часа 26 минут
Почему не хочет отправлять 3 пакета с промежутком 200мс между каждым...и задержкой в 5минут в конце цикла?

(Скрипт любезно предоставлен NLObP)

Код:
const
packet1='CF 66 33 31 57 89 A1 3E 40 A0 86 01 00';
packet2='FF 35 57 A0 C1 7B CE 1B 40 A0 86 01 00';


var
status:boolean;
timer1: TTimer;
timer2: TTimer;
x: integer;

procedure UseBuff(buffID:string; id:integer);
begin
  buf:=HStr(buffID);
  SendToServerEX(ConnectNameByID(id)); //переходим от ID к Name
end;

procedure OnTimer;
begin
  case x of
    0: begin
     usebuff(packet1,1);
     inc(x);
    end;
    1: begin
     usebuff(packet2,0);
     inc(x);
    end;
    2: begin
     usebuff(packet1,1);
     inc(x);
     status:=true;
     timer1.interval:=300000; //5 минут
    end;
  end;
end;
procedure OnTimer2;
begin
end;

procedure Init;
begin
  timer1:=TTimer.Create(nil);
  timer1.OnTimer:=@OnTimer;
  timer1.enabled:=false;
  timer1.interval:=200; //200 миллисекунд
  x:=0;
  status:=false;

  timer2:=TTimer.Create(nil);
  timer2.OnTimer:=@OnTimer2;
  timer2.enabled:=false;
  timer2.interval:=300000; //5 минут
  x:=0;
  status:=false;
end;

procedure Free; //Вызывается при выключении скрипта
begin
  timer1.free;
  timer2.free;
end;

begin
end.

Последний раз редактировалось Byrger, 17.06.2008 в 19:32. Причина: Добавлено сообщение
Byrger вне форума   Ответить с цитированием
Старый 17.06.2008, 21:41   #136
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

На работе кончился инет, поэтому не договорил, как лучше сделать.
Попробуй так:
delphi Код:
{ Социальное действие YES - включить Социальное действие NO - выключить } const packet1='CF 66 33 31 57 89 A1 3E 40 A0 86 01 00'; packet2='FF 35 57 A0 C1 7B CE 1B 40 A0 86 01 00'; var timer1 : TTimer; x : integer; procedure UseBuff(buffID:string; id:integer); begin   buf:=HStr(buffID);   SendToServerEX(ConnectNameByID(id)); //переходим от ID к Name end; procedure OnTimer; begin   case x of     0: begin      usebuff(packet1,1);      inc(x);     end;     1: begin      usebuff(packet2,0);      inc(x);     end;     2: begin      usebuff(packet1,1);      inc(x); //     timer1.interval:=300000; //5 минут      //откл.      timer1.enabled:=false;     end;   end; end; procedure Init; begin   timer1:=TTimer.Create(nil);   timer1.OnTimer:=@OnTimer;   timer1.enabled:=false;   timer1.interval:=200; //200 миллисекунд   x:=0; end; procedure Free; //Вызывается при выключении скрипта begin   timer1.free; end; begin   if pck='' then exit;   if FromClient then begin     case pck[1] of       #$1B: begin         case ReadD(2) of           //социальное действие Yes для начала           $06: begin             //не передаем серверу             pck:='';             x:=0;             //вкл.             timer1.enabled:=true;           end;           //социальное действие No для окончания           $05: begin             //не передаем серверу             pck:='';             //откл.             timer1.enabled:=false;           end;         end;       end;     end;   end; end.

Добавлено через 1 минуту
Цитата:
Сообщение от Byrger Посмотреть сообщение
Почему не хочет отправлять 3 пакета с промежутком 200мс между каждым...и задержкой в 5минут в конце цикла?
Потому что таймер выключен и нигде не включается.

Последний раз редактировалось NLObP, 17.06.2008 в 21:41. Причина: Добавлено сообщение
NLObP вне форума   Ответить с цитированием
Старый 17.06.2008, 22:23   #137
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Цитата:
Сообщение от NLObP Посмотреть сообщение
На работе кончился инет, поэтому не договорил, как лучше сделать.
Попробуй так:
delphi Код:
{ Социальное действие YES - включить Социальное действие NO - выключить } const packet1='CF 66 33 31 57 89 A1 3E 40 A0 86 01 00'; packet2='FF 35 57 A0 C1 7B CE 1B 40 A0 86 01 00'; var timer1 : TTimer; x : integer; procedure UseBuff(buffID:string; id:integer); begin   buf:=HStr(buffID);   SendToServerEX(ConnectNameByID(id)); //переходим от ID к Name end; procedure OnTimer; begin   case x of     0: begin      usebuff(packet1,1);      inc(x);     end;     1: begin      usebuff(packet2,0);      inc(x);     end;     2: begin      usebuff(packet1,1);      inc(x); //     timer1.interval:=300000; //5 минут      //откл.      timer1.enabled:=false;     end;   end; end; procedure Init; begin   timer1:=TTimer.Create(nil);   timer1.OnTimer:=@OnTimer;   timer1.enabled:=false;   timer1.interval:=200; //200 миллисекунд   x:=0; end; procedure Free; //Вызывается при выключении скрипта begin   timer1.free; end; begin   if pck='' then exit;   if FromClient then begin     case pck[1] of       #$1B: begin         case ReadD(2) of           //социальное действие Yes для начала           $06: begin             //не передаем серверу             pck:='';             x:=0;             //вкл.             timer1.enabled:=true;           end;           //социальное действие No для окончания           $05: begin             //не передаем серверу             pck:='';             //откл.             timer1.enabled:=false;           end;         end;       end;     end;   end; end.

Добавлено через 1 минуту


Потому что таймер выключен и нигде не включается.

Хм... А как убрать, что не запускалось по социальным действиям?
А то с этим шифрованием... Просто надо чтоб галочку поставил и всё...

Добавлено через 16 минут
Так попробовал... не работает похоже...
Переделал скрипт под "зашифрованные" действия
После выполнения действия YES ничего не происходит...

Добавлено через 14 минут
Социальное действие YES у меня DC 5D E8 09 CF
NO DC 5E E8 09 CF

Два пакета которые нужно отправлять..
1-0A 23 3A FB 40 76 12 DC 40 A0 86 01 00
2-D1 5A E8 09 CF 85 F4 AC 40 A0 86 01 00

Код:
{
Социальное действие YES - включить
Социальное действие NO - выключить
}
const
packet1='0A 23 3A FB 40 76 12 DC 40 A0 86 01 00';
packet2='D1 5A E8 09 CF 85 F4 AC 40 A0 86 01 00';

var
timer1 : TTimer;
x : integer;

procedure UseBuff(buffID:string; id:integer);
begin
  buf:=HStr(buffID);
  SendToServerEX(ConnectNameByID(id)); //переходим от ID к Name
end;

procedure OnTimer;
begin
  case x of
    0: begin
     usebuff(packet1,1);
     inc(x);
    end;
    1: begin
     usebuff(packet2,0);
     inc(x);
    end;
    2: begin
     usebuff(packet1,1);
     inc(x);
//     timer1.interval:=300000; //5 минут
     //откл.
     timer1.enabled:=false;
    end;
  end;
end;

procedure Init;
begin
  timer1:=TTimer.Create(nil);
  timer1.OnTimer:=@OnTimer;
  timer1.enabled:=false;
  timer1.interval:=200; //200 миллисекунд
  x:=0;
end;

procedure Free; //Вызывается при выключении скрипта
begin
  timer1.free;
end;

begin
  if pck='' then exit;
  if FromClient then begin
    case pck[1] of
      #$ВС: begin
        case ReadD(2) of
          //социальное действие Yes для начала
          $5D: begin
            //не передаем серверу
            pck:='';
            x:=0;
            //вкл.
            timer1.enabled:=true;
          end;
          //социальное действие No для окончания
          $5E: begin
            //не передаем серверу
            pck:='';
            //откл.
            timer1.enabled:=false;
          end;
        end;
      end;
    end;
  end;
end.

Всё вроде правильно поставил, что не так то?

Последний раз редактировалось Byrger, 17.06.2008 в 22:23. Причина: Добавлено сообщение
Byrger вне форума   Ответить с цитированием
Старый 18.06.2008, 00:06   #138
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Byrger Посмотреть сообщение
case pck[1] of
#$ВС: begin
Пишешь #$DC, а проверяешь #$BC

Можешь сразу стартовать свою отсылку пакетов, исправив
delphi Код:
procedure Init; begin   timer1:=TTimer.Create(nil);   timer1.OnTimer:=@OnTimer;   timer1.enabled:=true;   timer1.interval:=10000; //10 секунд   x:=0; end;
посылка пакетов начнется через 10 сек после запуска скрипта,
а здесь сделай так
delphi Код:
procedure OnTimer; begin   case x of     0: begin      usebuff(packet1,1);      inc(x);      timer1.interval:=200; //изменяем время на 200 мс     end;     1: begin      usebuff(packet2,0);      inc(x);     end;     2: begin      usebuff(packet1,1);      inc(x);      //откл.      timer1.enabled:=false;     end;   end; end;

Последний раз редактировалось NLObP, 18.06.2008 в 00:14.
NLObP вне форума   Ответить с цитированием
Старый 18.06.2008, 08:04   #139
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Не я всё правильно заменил, просто на форуме забыл раскладку поменять и всместа DC получилось ВС

И он всё равно не работает...
Byrger вне форума   Ответить с цитированием
Старый 18.06.2008, 11:49   #140
Пользователь
 
Регистрация: 09.05.2008
Сообщений: 6
Сказал Спасибо: 5
Имеет 4 спасибок в 4 сообщенях
KeL пока неопределено
По умолчанию

Вопрос следуещий, тока что начал разбиратся понемногу в ПНХ, кароче вижу чтобы бот-афер следовал за хозяеном используют выдиления таргета и эмуляциу щелчков мыши по нем, а МОЖНО ли юзать бег по кординатам хазяина, тоесть отсеиваим пакеты МУВ ТУ хозяина и бегаим по ним, если да то сразу 2 вопрос - как зделать чтобы он не "вбегал" в хозяина (тоесть держался на определенном растоянии), возможно - кордината Х=кордината Х+10, например, и Y также???
KeL вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:34.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!