L2PacketHack 3.5.x

[NLObP]

Исходники здесь
Вот такие скомпилированные версии есть у меня.

Ниже данные устарели.
Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут Пароль к архиву: coderx.ru

Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?

Программа пишется в среде Delphi 2007 и Delphi 7 с использованием следующих дополнительных библиотек компонентов:
- FastScript (http://fast-report.com/ru/products/fast-script.html)
- JCL (http://sourceforge.net/projects/jcl/)
- JVCL (http://sourceforge.net/projects/jvcl/)

Дополнительные компоненты брать тут. (<-- TPerlRegEx есть только там)

/upd:
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (letitbit / upload.com.ua)
Немного подправленный FastScript искать в файловом архиве.

[nezabudkin]

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

nezabudkin, а ты пробовал отправить пакет?

Да, отправлял Say2 и серверу и клиенту, все работает, бана пока нету...

[NLObP]

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

Да, отправлял Say2 и серверу и клиенту, все работает, бана пока нету...

Подтверждаю. Раньше скрипт "радар" подвешивал клиента, теперь работает.

//**********************************************
//for Gracia
//Установка стрелки (радара) над чаром к цели, при использовании таргета
//Чтобы включить скрипт используйте в игре социальное действие - Yes
//Чтобы выключить скрипт используйте в игре социальное действие - No
//**********************************************
var
Attacker, SocialID, CorX, CorY, CorZ, Status: Integer;

procedure SendMs(msg:string);
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;

procedure TargetRadar(CorX, CorY, CorZ: Integer);
  begin
    buf:=#$F1;
    WriteD(0);
    WriteD(1);
    WriteD(CorX);
    WriteD(CorY);
    WriteD(CorZ);
    SendToClient;
  end;

procedure TargetRadarDrop;
  begin
    buf:=#$F1;
    WriteD(1);
    WriteD(1);
    WriteD(0);
    WriteD(0);
    WriteD(0);
    SendToClient;
  end;

begin
  if FromClient and (pck[1]=#$34) then
    begin
      SocialID:=ReadD(2);
      case ord(pck[2]) of
      $06:begin
        Status:=1;
        SendMs('Радар включен');
        pck:='';
      end;
      $05:begin
        Status:=0;
        TargetRadarDrop;
        SendMs('Радар выключен');
        pck:='';
      end;
      end;
    end;
  if Status=1 then
    begin
      if FromServer and (pck[1]=#$79) then
        begin
          CorX:=ReadD(6);
          CorY:=ReadD(10);
          CorZ:=ReadD(14);
          TargetRadar(CorX, CorY, CorZ);
        end;
    end;
end.

PS: с первого раза не заходит на сервер - это наверное с пакетхаком не связано.

[Xelat]

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

PS: с первого раза не заходит на сервер - это наверное с пакетхаком не связано.

У меня с первого раза зашло! Спасибо огромнейшее! ))
Кстати, а ты ещё не пробовал отвязать клиента? Всмысле послать клиенту логаут, а пнх оставить за главного?

[xkor]

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

Кстати, а ты ещё не пробовал отвязать клиента? Всмысле послать клиенту логаут, а пнх оставить за главного?

а вот этого на оффе точно не советую, на пакеты геймгварда пока умеет отвечать только геймгвард...

[Xelat]

Сделайте пожалуйста, чтобы при снятой галочке на плагине - файл плагина можно было перезаписать.

[xkor]

Xelat, вообщето так и сделано изначально)
пока галочка плагина снята с ним можно делать что угодно...

[Xelat]

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

Xelat, вообщето так и сделано изначально)
пока галочка плагина снята с ним можно делать что угодно...

ппц... полчаса назад не работало! Сейчас после твоей мессаги решил перепроверить - и заработало! я в шоке!
PS. есть подозрение что тогда не работало, т.к. в процессе выполнения плагина возникала ошибка, которая не убивала плагин, он работал дальше, но видимо уже нормально не отвязывался.

[Grinch]

через час работы клиент подвисает хз бывает что и без пакт хака виснет. посадил еще раз на тест.

[nezabudkin]

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

через час работы клиент подвисает хз бывает что и без пакт хака виснет. посадил еще раз на тест.

Это Иннова логает. Вчера вечером у меня тоже логало, а ночью я 5 часов был в онлайне и не одного лага!
Вчера вечером переписал свой скрипт Бота-локомотива под Грацию. Если бан не схвачу, в понедельник вечером выложу на всеобщее обозрение!!!

[Гость1]

Что такое бот локомотив?