L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
Обсуждение багов Lineage ЗАПРЕЩЕНО!
16.06.2009, 03:09
#1
Пользователь
Регистрация: 20.05.2008
Адрес: Arg.
Сообщений: 35
Сказал Спасибо: 2
Имеет 3 спасибок в 2 сообщенях
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.
16.06.2009, 09:06
#2
Рыцарь
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
alexteam ,у него в описании OnPAcket правильно параметры вбиты? А то я не помню как в последних версиях выглядит.
16.06.2009, 11:48
#3
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
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.
16.06.2009, 12:38
#4
Новичок
Регистрация: 08.01.2009
Сообщений: 10
Сказал Спасибо: 12
Имеет 0 спасибок в 0 сообщенях
а где взять эту версию 3.6.0.120 или 133 как на SVNе, или это тестовые версии пока в Архив
http://l2phx.pp.ru/arhive/ не выкладываются?
16.06.2009, 19:45
#5
Пользователь
Регистрация: 20.05.2008
Адрес: Arg.
Сообщений: 35
Сказал Спасибо: 2
Имеет 3 спасибок в 2 сообщенях
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.
16.06.2009, 12:43
#6
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
с свн.
__________________
L2Ext - project closed.
16.06.2009, 15:54
#7
Новичок
Регистрация: 08.01.2009
Сообщений: 10
Сказал Спасибо: 12
Имеет 0 спасибок в 0 сообщенях
брать исходники и компилировать? а собраНных версий уже не будет?
16.06.2009, 17:10
#8
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
имхо не имеет смысла. ибо реализация скриптового движка получилась не очень.
__________________
L2Ext - project closed.
16.06.2009, 20:05
#9
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
3.6 got not really good implementation of script engine.
__________________
L2Ext - project closed.
16.06.2009, 23:38
#10
Пользователь
Регистрация: 20.05.2008
Адрес: Arg.
Сообщений: 35
Сказал Спасибо: 2
Имеет 3 спасибок в 2 сообщенях
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.
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
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
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!