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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 16.06.2009, 03:09   #1
Пользователь
 
Аватар для charly911
 
Регистрация: 20.05.2008
Адрес: Arg.
Сообщений: 35
Сказал Спасибо: 2
Имеет 3 спасибок в 2 сообщенях
charly911 пока неопределено
Печаль L2ph v 3.6.0.120 crash!

Hi! im trying to work with plugins, but when i use the OnPacket procedure the application crashes

If i don use that procedure everyting goes ok.

Does anyone knows if this is a bug, or if im doing it wrong?

Here is the code:

delphi Код:
library plugin_demoC; {$define RELEASE} // äëÿ ñîâìåñòèìîñòè ñ ðåëèçîì ïàêåòõàêà, ïðè äåáóãå ìîæíî çàêîìåíòèðîâàòü uses   FastMM4 in '..\fastmm\FastMM4.pas',   FastMM4Messages in '..\fastmm\FastMM4Messages.pas',   SysUtils,   Windows,   dialogs,   Classes,   usharedstructs in '..\units\usharedstructs.pas'; var                                {version} {revision}   min_ver_a: array[0..3] of Byte = ( 3,5,1,      98   );   min_ver: Integer absolute min_ver_a; // ìèíèìàëüíàÿ ïîääåðæèâàåìàÿ âåðñèÿ ïðîãðàììû   ps: TPluginStruct;   ppck: PPacket; const   pause=15000; var   ColvoHP, CharObjID, ItemObjHP: integer;   CurHP, MaxHP, lastHP, cntHP:integer;   TimerHP: Boolean;   StatusHP: Boolean; function GetPluginInfo(const ver: Integer): PChar; stdcall; begin   if ver<min_ver then     Result:='Äåìîíñòðàöèîííûé Plugin ê ïðîãðàììå l2phx'+sLineBreak+             'Äëÿ âåðñèé 3.5.1.98+'+sLineBreak+             'Ó âàñ ñòàðàÿ âåðñèÿ ïðîãðàììû! Ïëàãèí íå ñìîæåò êîððåêòíî ñ íåé ðàáîòàòü!'   else     Result:='Äåìîíñòðàöèîííûé Plugin ê ïðîãðàììå l2phx'+sLineBreak+             'Äëÿ âåðñèé 3.5.1.98+'+sLineBreak+             'Àâòîâûïèâàëêà ÍÐ áóòûëîê'; end; procedure Say(msg:string); var   buf: string; begin   with ps do begin     buf:=HexToString('4A 00 00 00 00');     WriteD(buf,2);     WriteS(buf,'AutoHP');     WriteS(buf,msg);     SendPacketStr(buf,cntHP,False);   end; end; function SetStruct(const struct: PPluginStruct): Boolean; stdcall; begin   ps := TPluginStruct(struct^);   Result:=True; end; procedure OnLoad; stdcall; begin   statusHP:=false;   CharObjID:=0;   ItemObjHP:=0;   TimerHP:=false;   lastHP:=0;   cntHP := 0;   with ps do     begin     if GoFirstConnection then       //repeat       cntHP := ConnectInfo.ConnectID;       Say(' Opa!');       //until GoNextConnection;           end; end; procedure OnPacket(const cnt: Cardinal; const fromServer: Boolean; var pck: Tpacket); stdcall; var   buf,s: string; begin end; exports   GetPluginInfo,   OnPacket,   OnLoad,   SetStruct; begin end.

Charly.
charly911 вне форума   Ответить с цитированием
Старый 16.06.2009, 09:06   #2
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

alexteam,у него в описании OnPAcket правильно параметры вбиты? А то я не помню как в последних версиях выглядит.
QaK вне форума   Ответить с цитированием
Старый 16.06.2009, 11:48   #3
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

3.5
TOnPacket = procedure(const cnt: Cardinal; const fromServer: Boolean; var packet : tpacket); stdcall;
3.6
TOnPacket = procedure(const cnt: Cardinal; const fromServer: Boolean; const connectionname:string; var packet : tpacket); stdcall;
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 16.06.2009, 12:38   #4
Новичок
 
Регистрация: 08.01.2009
Сообщений: 10
Сказал Спасибо: 12
Имеет 0 спасибок в 0 сообщенях
victor_rvm пока неопределено
По умолчанию

а где взять эту версию 3.6.0.120 или 133 как на SVNе, или это тестовые версии пока в Архив http://l2phx.pp.ru/arhive/ не выкладываются?
victor_rvm вне форума   Ответить с цитированием
Старый 16.06.2009, 19:45   #5
Пользователь
 
Аватар для charly911
 
Регистрация: 20.05.2008
Адрес: Arg.
Сообщений: 35
Сказал Спасибо: 2
Имеет 3 спасибок в 2 сообщенях
charly911 пока неопределено
По умолчанию

Worked!
Ty.

I use that version because y had to modify the timer in Packets Sender for longer times (more than 10 seconds). Also i wanted to translate it to Spanish...

Charly.
charly911 вне форума   Ответить с цитированием
Старый 16.06.2009, 12:43   #6
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

с свн.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 16.06.2009, 15:54   #7
Новичок
 
Регистрация: 08.01.2009
Сообщений: 10
Сказал Спасибо: 12
Имеет 0 спасибок в 0 сообщенях
victor_rvm пока неопределено
По умолчанию

брать исходники и компилировать? а собраНных версий уже не будет?
victor_rvm вне форума   Ответить с цитированием
Старый 16.06.2009, 17:10   #8
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

имхо не имеет смысла. ибо реализация скриптового движка получилась не очень.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 16.06.2009, 20:05   #9
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

3.6 got not really good implementation of script engine.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 16.06.2009, 23:38   #10
Пользователь
 
Аватар для charly911
 
Регистрация: 20.05.2008
Адрес: Arg.
Сообщений: 35
Сказал Спасибо: 2
Имеет 3 спасибок в 2 сообщенях
charly911 пока неопределено
По умолчанию

I know they have some differences. One i have noticed is that scripts are in Units, and i can not make them work. Where should i save the Unit file so the uses statements can be recocnized???
I will take a look to both of then 3.5 and 3.6...
But i think both can be used without problem...

Charly.
charly911 вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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