- Хроники
- Scions of Destiny
- Исходники
- Присутствуют
- Сборка
- L2JLisvus Rev 742
Подняв ява сборку от Лисвуса и подключив дома через некоторое время обнаружил, что L2walker не хочет хилить сопартийцев. Без пати по нику хилит,в пати никак не хилит. Откапал несколько фиксов для WPF, не помогают. В интернете связывают проблему с пакетом StatusUpdate и PartySmallWindowUpdate.
Может кто знает/догадывается в чём проблема? Или посоветует сборку, где такой проблемы нет?
Может кто знает/догадывается в чём проблема? Или посоветует сборку, где такой проблемы нет?
var
IDpck : integer;
procedure PartySmallWindowUpdate;
var
memberOID,curCP,maxCP,curHP,maxHP,curMP,maxMP,i : integer;
memberName,pck : string;
begin
i:=ScanPck5(_gBuff,4,'dsddd',memberOID,memberName,curCP,maxCP,curHP);
ScanPck5(_gBuff,i,'ddd',maxHP,curMP,maxMP,null,null);
pck:=FormatPck('%cdddddddddddddd',[$0E,memberOID,6,$21,curCP,$22,maxCP,$09,curHP,$0A,maxHP,$0B,curMP,$0C,maxMP]);
gSys.EnSendC(pck);
end;
begin
if _gFromServ then begin
if length(_gBuff)<3 then begin
gBlockPacket;
exit;
end;
IDpck := ord(_gBuff[3]);
case IDpck of
$52 : PartySmallWindowUpdate;
end;
end;
end.
IDpck : integer;
procedure PartySmallWindowUpdate;
var
memberOID,curCP,maxCP,curHP,maxHP,curMP,maxMP,i : integer;
memberName,pck : string;
begin
i:=ScanPck5(_gBuff,4,'dsddd',memberOID,memberName,curCP,maxCP,curHP);
ScanPck5(_gBuff,i,'ddd',maxHP,curMP,maxMP,null,null);
pck:=FormatPck('%cdddddddddddddd',[$0E,memberOID,6,$21,curCP,$22,maxCP,$09,curHP,$0A,maxHP,$0B,curMP,$0C,maxMP]);
gSys.EnSendC(pck);
end;
begin
if _gFromServ then begin
if length(_gBuff)<3 then begin
gBlockPacket;
exit;
end;
IDpck := ord(_gBuff[3]);
case IDpck of
$52 : PartySmallWindowUpdate;
end;
end;
end.
var
PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurCP : Integer;
PName,StatusPacket : String;
BEGIN
if _gFromServ then
begin
if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate
begin
ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectID,PName,PCurCP,PMaxCP,PCurHP),'ddd',PMaxHP,PCurMP, PMaxMP,null,null);
StatusPacket := FormatPck('%cdddddddddddddd',[$18,PObjectID,6,$09,PCurHP,$0A,PMaxHP,$0B,PCurMP,$0C,PMaxMP,$21,PCurCP,$22,PMaxCP]);
gSys.EnSendC(StatusPacket);
end;
end;
END.
PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurCP : Integer;
PName,StatusPacket : String;
BEGIN
if _gFromServ then
begin
if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate
begin
ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectID,PName,PCurCP,PMaxCP,PCurHP),'ddd',PMaxHP,PCurMP, PMaxMP,null,null);
StatusPacket := FormatPck('%cdddddddddddddd',[$18,PObjectID,6,$09,PCurHP,$0A,PMaxHP,$0B,PCurMP,$0C,PMaxMP,$21,PCurCP,$22,PMaxCP]);
gSys.EnSendC(StatusPacket);
end;
end;
END.