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

Разработка Раздел для совместной разработки/доработки программы

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 01.08.2008, 06:48   #1
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию L2PacketHack 3.5.x

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

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

Последний раз редактировалось NLObP, 17.10.2016 в 00:02.
NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился 111 спасибками от:
-=Ma}{imuS=-, 4erteg, Agat, ak47, Alan, alexsl, alexteam, AoWpwnz, APXAHGEJI, Asmalaa Asrety, Benefit, BISMARCK_555, boy200007, boypush, Breadfan, BuKbI4, CCCP, Crypto, Curious, cutter, DashKAaa, Denis63RUS, dyh9l, Elecktron, Emocean, Evgeniy, FatalHistori, Fer123, Ferrari3200, FFALL777, Fim, freeworld, GameCoder, gavr1l0, gexiss, goodvin1709, Green, Grinch, HacPaTyc, INFERION, isya, Johnson, Keeper, Keisei, Kotyara2014, lomoWAR, lordka), LostQ, Lotar, Ma3aXakA, march, marslem, mat1s, MHz, micoach, MiRoN, mirt, MoD_Hanes, MrIICUX, Mulder, Murdoc, neonv1, nezabudkin, Nigga, Niros, NoFear, OleSha, OMOH8787, PanAm, pascalpwnz, PerioH, PIONER, QaK, rastaman_228, ratvier, RockTeam, RoZ, Rubicosha, Rysis, Ryth, saxa24111, shunder, skaner, skiner4119, Snowbars, StekloReZ, stopicot, TAMBIK, Tchep, Therapyst, TryLaw, vahes, Velizarx, victor_rvm, Vilson, Vklu4atel^^, vlad00777, vovanchik, vul-test, wanick, wasabi_100, WhiteDevil, Xelat, xkor, Yegor, Yellowboy, zDiablik, АлисаХочетСекс, Арти, женька
Старый 29.06.2009, 01:13   #931
Новичок
 
Регистрация: 25.06.2009
Сообщений: 6
Сказал Спасибо: 1
Имеет 3 спасибок в 1 сообщении
la2elpy пока неопределено
По умолчанию

Нашел баг в uPluginData.pas
dmData.SendPacket(packet, tid, False); <--- почему false а не ToServer

и еще
вот здесь
procedure TdmData.SendPacket

есть 2 строчки TlspConnection(LSPConnections.Items[i]).Visual.processpacketfromacum;
они избыточные, т.к. потом в TlspConnection(LSPConnections.Items[i]).encryptAndSend(Packet, toserver);
итак это дело вызывается, поэтому дублируется лог
la2elpy вне форума   Ответить с цитированием
За это сообщение la2elpy нажился 3 спасибками от:
Старый 29.06.2009, 12:44   #932
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

спасибо. поправил.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 30.06.2009, 20:45   #933
Пользователь
 
Аватар для Name4Me
 
Регистрация: 17.06.2008
Сообщений: 44
Сказал Спасибо: 7
Имеет 19 спасибок в 9 сообщенях
Name4Me пока неопределено
По умолчанию

ММ я так понял пока в 122 ошибку в плагинах со труктурой ps не исправили?
Name4Me вне форума   Ответить с цитированием
Старый 30.06.2009, 21:34   #934
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

Name4Me, а какая ошибка была со структурой???
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 02.07.2009, 03:19   #935
Местный
 
Аватар для Yegor
 
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Yegor пока неопределено
По умолчанию

Разобрался наконецто в пакете от сервера SystemMessage. Нашел как подставить правильные числовые параметры. Если это вам нужно напишите.
Yegor вне форума   Ответить с цитированием
За это сообщение Yegor нажился спасибкой от:
Старый 02.07.2009, 08:55   #936
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

xkor, при обращении к ReadX/WriteX вылетало что-то типа EInvalidPointer
QaK вне форума   Ответить с цитированием
Старый 02.07.2009, 14:59   #937
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Yegor Посмотреть сообщение
Разобрался наконецто в пакете от сервера SystemMessage. Нашел как подставить правильные числовые параметры. Если это вам нужно напишите.
Нужно, расскажи.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
Старый 02.07.2009, 22:01   #938
Местный
 
Аватар для Yegor
 
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Yegor пока неопределено
По умолчанию

Tип: 0x62 (SystemMessage)
Pазмер: 43+2
Время прихода: 22:28:29:140
0002 d MsgID: $c1 получает от цели $c2 $s3 урона. ID:2262 (0x08D6)
0006 d typesCount: 3 (0x00000003)
0008 d typePar: тип параметра, может принимать значения:

0 - значит это строка (подставляеться вместо $cx)
1 - просто числовое значение (integer 4 байта) (подставляеться вместо $sx)
2 - id NPC (integer 4 байта) (подставляеться вместо $cx)
3 - id предмета (integer 4 байта) (подставляеться вместо $sx)
4 - id скила (integer 4 байта + ещё 4 байта которые я игнорирую) (подставляеться вместо $sx)
7 - где то видел но не нашел этого пакета в логах (12 байт)

могут быть и другие значения типов параметров, но мне пока не попадались.

x - это порядковый номер параметра, все значения в пакете идут по порядку как в строке.

Ну а потом идет собственно само значение и так по кругу typesCount раз.

Теперь мой вариант как прочитать этот пакет:

delphi Код:
var   lastSystemMessage: record     msgID: integer;     msgUnformatedString: string;     msgText: string;   end; function TL2WorldData.GetL2SystemMessage(const pck: string): boolean; var   i, j: integer;   typesCount: integer;   parType: integer;   st: string;   objSt: string;   sPar: string;   iPar: integer; begin   Result:= false;   if pck[1] <> #$62 then exit;   i:= 2;   lastSystemMessage.msgID := ReadD(pck, i);   typesCount:= ReadD(pck, i);   lastSystemMessage.msgUnformatedString:= sysMsgIdList.Values[IntToStr(lastSystemMessage.msgID)];   st:= lastSystemMessage.msgUnformatedString;   for j:= 0 to typesCount - 1 do   begin     parType:= ReadD(pck, i);     case parType of       0: begin         sPar:= ReadS(pck, i);         st:= AnsiReplaceStr(st, '$c' + IntToStr(j + 1), sPar);       end;       1: begin         iPar:= ReadD(pck, i);         st:= AnsiReplaceStr(st, '$s' + IntToStr(j + 1), IntToStr(iPar));       end;       2: begin         iPar:= ReadD(pck, i);         objSt:= NpcIdList.Values[IntToStr(iPar - 1000000)];         st:= AnsiReplaceStr(st, '$c' + IntToStr(j + 1), objSt);       end;       3: begin         iPar:= ReadD(pck, i);         objSt:= ItemIdList.Values[IntToStr(iPar)];         st:= AnsiReplaceStr(st, '$s' + IntToStr(j + 1), objSt);       end;       4: begin         iPar:= ReadD(pck, i);         objSt:= SkillIDList.Values[IntToStr(iPar)];         st:= AnsiReplaceStr(st, '$s' + IntToStr(j + 1), objSt);         inc(i, 4);       end;       7: begin         inc(i, 12);       end;       else       begin         SendMSG('Неизвестный идентефикатор параметра в пакета SystemMesage (ID: '           + IntToStr(lastSystemMessage.msgID) + ') '  + IntToStr(parType));         Exit;// выходим дабы не наделать горя, так как неизвестно сколько байт считывать       end;     end;   end;   lastSystemMessage.msgText:= st;   Result:= true; end;

Последний раз редактировалось Yegor, 02.07.2009 в 22:07.
Yegor вне форума   Ответить с цитированием
За это сообщение Yegor нажился спасибкой от:
Старый 06.07.2009, 13:52   #939
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

alexteam, xkor или кто-нибудь еще профиксите работу плугинов. Плз.
З.Ы. Я не могу в связи с временным отсутствием среды разработки.
QaK вне форума   Ответить с цитированием
Старый 06.07.2009, 20:25   #940
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

а я в связи с присутствием работы %)

зы.
по хорошему там либо все надо назад возвращать, либо одно из двух.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Разработка



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

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


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

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

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