L2PacketHack 3.5.x - Страница 40

NLObP · 01.08.2008, 06:48

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

Ниже данные устарели.
Репозиторий находится тут (открывать через 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 искать в файловом архиве.

Name4Me · 12.12.2008, 12:44

Предложение добавить кнопку или настройку чтоб не сбрасивался лог после вихода клиента... А то бивает нуна посмотреть что происходит перед виходом...

NLObP · 12.12.2008, 14:47

Цитата:

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

Предложение добавить кнопку или настройку чтоб не сбрасивался лог после вихода клиента... А то бивает нуна посмотреть что происходит перед виходом...

Если стоит "Запоминать пакеты", то при выходе чара из игры лог пакетов сохраняется в папке ".\logs\" с именем чара и временем выхода из игры. Надо этот лог просто загрузить и смотреть.

Витя · 13.12.2008, 10:07

возникла вот такая проблема в пакете itemList невидет ID пухи
вот сам пакет ( в инвентаре 3 вещи точи и пуха, и квест итем)
Оффтоп
и лог пакета
Оффтоп

Код:

Tип: 0x11 (ItemList)
Pазмер: 309+2
Время прихода: 12:02:27:437
0002 h ShowWindow: 1 (0x0001)
0004 h ListSize: 4 (0x0004)
[Начало повторяющегося блока 1/4]
0006 h ItemType1: 4
0008 d ObjectID: 269739825
0012 d ItemID: Blessed Scroll: Enchant Weapon (Grade B) ID:6571 (0x19AB)
0016 d LocationSlot: 0
0020 d Count: 529
0024 h ItemType2: 5
0026 h CustomType1: 0
0028 h isEquipped: 0
0030 d BodyPart: 0
0034 h EnchantLevel: 0
0036 h CustType2: 0
0038 d AugmentationID: 0
0042 d Mana: -1
0046 d AttackAttrElement: -2
0050 d AttackAttrElementVal: 0
0054 d DefAttrFire: 0
0058 d DefAttrWater: 0
0062 d DefAttrWind: 0
0066 d DefAttrEarth: 0
0070 d DefAttrHoly: 0
0074 d DefAttrUnholy: 0
[Конец повторяющегося блока  1/4]
[Начало повторяющегося блока 2/4]
0078 h ItemType1: 0
0080 d ObjectID: 262144
0084 d ItemID: Unknown Items ID:268815938(1005CE42)
0088 d LocationSlot: 7267
0092 d Count: 0
0096 h ItemType2: 10
0098 h CustomType1: 0
0100 h isEquipped: 3
0102 d BodyPart: 0
0106 h EnchantLevel: 0
0108 h CustType2: 0
0110 d AugmentationID: 0
0114 d Mana: 0
0118 d AttackAttrElement: -1
0122 d AttackAttrElementVal: -2
0126 d DefAttrFire: 0
0130 d DefAttrWater: 0
0134 d DefAttrWind: 0
0138 d DefAttrEarth: 0
0142 d DefAttrHoly: 0
0146 d DefAttrUnholy: 0
[Конец повторяющегося блока  2/4]
[Начало повторяющегося блока 3/4]
0150 h ItemType1: 0
0152 d ObjectID: 0
0156 d ItemID: 0
0160 d LocationSlot: 268805114
0164 d Count: 4782
0168 h ItemType2: 5
0170 h CustomType1: 0
0172 h isEquipped: 1
0174 d BodyPart: 0
0178 h EnchantLevel: 0
0180 h CustType2: 1
0182 d AugmentationID: 128
0186 d Mana: 5
0190 d AttackAttrElement: 0
0194 d AttackAttrElementVal: -1
0198 d DefAttrFire: -2
0202 d DefAttrWater: 0
0206 d DefAttrWind: 0
0210 d DefAttrEarth: 0
0214 d DefAttrHoly: 0
0218 d DefAttrUnholy: 0
[Конец повторяющегося блока  3/4]
[Начало повторяющегося блока 4/4]
0222 h ItemType1: 0
0224 d ObjectID: 0
0228 d ItemID: 0
0232 d LocationSlot: 262144
0236 d Count: 268784147
0240 h ItemType2: 57
0242 h CustomType1: 0
0244 h isEquipped: 2
0246 d BodyPart: -65536
0250 h EnchantLevel: 32767
0252 h CustType2: 4
0254 d AugmentationID: 0
0258 d Mana: 0
0262 d AttackAttrElement: 0
0266 d AttackAttrElementVal: 0
0270 d DefAttrFire: -1
0274 d DefAttrWater: -2
0278 d DefAttrWind: 0
0282 d DefAttrEarth: 0
0286 d DefAttrHoly: 0
0290 d DefAttrUnholy: 0
[Конец повторяющегося блока  4/4]

но в других пакетах прекрасно видет все вот пакет InventoryUpdate
Оффтоп
и лог
Оффтоп

NLObP · 13.12.2008, 10:12

Цитата:

Сообщение от Витя

возникла вот такая проблема в пакете itemList невидет ID пухи

Надо правильно настроить packetst1.ini (он для Камаеля-Грации). Тот который в комплекте, не совсем полный и правильный.

PS: Для 0x11 (ItemList) пакета я вчера на форуме выкладывал, как можно поправить.

ratvier · 13.12.2008, 12:43

Баг или фича? Шифрование пакетов начинает колбасить (грация)

Код:

if FromServer then begin
 if (pck[1]=#$2E) then begin
  buf:=#$2E;
  i:=2;
  WriteC(ReadC(i));
  WriteD(ReadD(i));
  WriteD(ReadD(i));
  WriteD(ReadD(i));
  WriteD(ReadD(i));
  WriteC(ReadC(i));
  WriteD(ReadD(i));
  SendToClient();
  pck:='';
  exit;
 end;
end;

wanick · 13.12.2008, 16:03

Зависает L2phx,
на при работе с плагинами тоесть при выключение зависает в 0 иногда вылетает с критом,

причем, если в плагине обрабатывать пакеты только входящие то ни каких проблемм
после вот такого пакета тоже не виснет

delphi Код:

buf:=ps.HexToString('56 00 00 00 00 00 00 00 00 00');
ps.SendPckStr(buf,ConnectId,true);

а если отправлять тако пакет

delphi Код:

buf := ps.HexToString('21 01 00 02 00 04 00');
        ps.WriteD (buf, RandomID);
        ps.WriteD (buf, QItemID);
        buf := buf + ps.HexToString('11 00 00 00 01 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF FE FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F1 D8 FF FF');
        ps.SendPckStr(buf,ConnectId,False);

при отключении плагина всё виснет

для тестов вот пример полностью

delphi Код:

procedure OnLoad; stdcall;
var
 i: integer;
 buf:string;
begin
  //menuID:= 'scr_'+ IntToStr(RandomID) +'?';
  for i:=0 to ps.ThreadsCount-1 do begin
    ConnectId:=i;
    Say('Для запуска плагина наберите в чате слово start и отправьте');

       buf:=ps.HexToString('56 00 00 00 00 00 00 00 00 00');
       ps.SendPckStr(buf,ConnectId,true);

        buf := ps.HexToString('21 01 00 02 00 04 00');
        ps.WriteD (buf, RandomID);
        ps.WriteD (buf, QItemID);
        buf := buf + ps.HexToString('11 00 00 00 01 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF FE FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F1 D8 FF FF');
        ps.SendPckStr(buf,ConnectId,False);

        buf := ps.HexToString('44 01 00 00 00 0C 00 00 00');
        ps.WriteD(buf, RandomID);
        buf := buf + ps.HexToString('01 00 00 00 FF FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00');
        ps.SendPckStr(buf,ConnectId,False);
  end;
end;

Grinch · 14.12.2008, 16:16

wanick, виснет я хз как у тебя но после 20 секунд шифрация пакетов сбивается на оффе. и клиент зависает

NLObP · 21.12.2008, 17:32

Revision: 69
Author: nlobp
Date: 16:30:00, 21 декабря 2008 г.
Message:
[*] подготовил и заюзал systemmsg.ini, itemname.ini, systemmsg.ini, npcname.ini от l2.ru;
[-] исправил ошибку показа имя NPC в расшифровке пакетов;
[-] исправил ошибку посылки скрипта на вкладку "Дополнительно";
[+] Ограничение максимального количества строк в логе пакетов, после чего скидываем в файл и очищаем лог. Настраивается в options.ini переменной MaxLinesInPktLog (по умолчанию 3000 пакетов);

marslem · 21.12.2008, 19:46

ты подружил пхк и л2ру?

ZliLO · 21.12.2008, 20:41

Тоже очень интересует этот вопрос...