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 искать в файловом архиве.

[Grinch]

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

Мне кажется я inject.dll кривой выложил, замените из 3.3.6

откуда ты их берёшь кривые?

[NLObP]

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

откуда ты их берёшь кривые?

компилю наверно Обыкновенная 20кб, а там 80кб. Может когда утечку фиксил и туда чего нибудь попало?

[Argot]

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

компилю наверно Обыкновенная 20кб, а там 80кб. Может когда утечку фиксил и туда чего нибудь попало?

угу это FastMM4 отлаживал l2.exe ))

[NLObP]

Утечки памяти всё ещё имеют место быть

[nezabudkin]

Попробовал 3.3.8
Вставил inject.dll из 3.3.6 все заработало нормально.
Не сразу разобрался с галочкой kamael, если ее выключить, то получаем дешифрацию пакетов камаель, а если включить то interlude. Так и задумано?
А так вроде пока все работает! Предыдущие версии подключивали в разных местах, а эта пока нет)

МОЛОДЕЦ NLObP

[NLObP]

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

Не сразу разобрался с галочкой kamael, если ее выключить, то получаем дешифрацию пакетов камаель, а если включить то interlude. Так и задумано?

Без галочки Kamael: C4 - Interlude
С галочкой Kamael: Kamael - Hellbound - Gracia

3.3.8 от 16.09.2008
[+] устранил утечки памяти (не все), спс. Argot;
[!] inject.dll by ratvier;

[wanick]

Немогу удержатся анонсирую
Сегодня после, после нескольких часов ломания головы реализована новая функция дает возможность взаимодействия между скриптами
что как я считаю переведет програмирование в l2phx на совершенно новый уровень
вот и новинка

function CallSF(ScriptName:String;FunctionName:String;Params:array of variant):variant;

принцип такой
1. есть скрипт "inventory" - стандартный обработчик инвенторя с ним уже все знакомы
расширяем скрипт inventory - чтобы он следил за инвентарем всех подключенных клиентов

далее есть функция

// cID - надо передать  ConectID
function GetInv(obj,up,down, cID:integer): integer; // up и down не проверяются
var
  i: integer;
begin
  for i:=0 to ItemMaxCount do
    if (Inventory[cID, i,up]=obj) then begin
      Result:=Inventory[cID, i,down];
      exit;
    end;
  Result:=-1;
end;

скрипт Inventory - включен постоянно (вами, галочкой около названия)

2. мы создаем новый скрипт в котором хотели бы узнать сколько у нашего чара в количестве к примеру аден ItemID =57
и получаем из второго скрипта обращаемся к скрипту Inventory

AdenaItemID :=57;
    AdenaCount := CallSF ('Inventory', 'GetInv', [AdenaItemID, 2, 3, ConnectIDByName('testChar')]);

результатом будет количество аден у вашего чара, если произойдет ошибка , результат будет '-1': variant

часто придется использовать щункцию

function VarToStr(v: Variant): String
Перевод variant в строку

Для не расхождения версий, и для повторных тестов исходники отправил NLObP, ка только все проверим выложим.

ждите новинку

[xkor]

wanick, на будущее - используй [ HIGHLIGHT="delphi" ] а не [ PHP ]

[NLObP]

Новая версия. Пробуйте.

3.3.9 от 23.09.2008
by wanick
[+] теперь включенный скрипт нельзя удалить;
[+] при удалении скрипта не вызывается процедура RefreshScripts (она полностью обновляет список скриптов при этом скидывает "галочки" остальных);
[+] процедура sendMSG(msg), для вывода сообщений в окно лога;
[+] новая функция CallSF, которая дает возможность взаимодействия между скриптами;

by NLObP
[+] заменил сообщения для вывода в окно лога на константы, спс. Argot;
[+] освобождаются хэндлы завершившихся потоков, спс. Argot;
[+] устранил несоответствие во всплывающих подсказках (Completion.Identifiers.Strings)
для вкладки "дополнительно" и "скрипты", спс wanick;
[+] устранил мелкие ошибки в коде;

[xkor]

хех, совместная разработка похоже рулит), надо будет замутить для новой версии пакетхака SVN или типа того)