PDA

Просмотр полной версии : [Пакеты] Фикс пакетов для l2walker


cavern
18.07.2014, 01:07
Сделал фикс пакетов для l2walker 10.9.3 ООГ и l2walker 2.19 free ИГ под пакетхак l2phx. Исправляет бег, отключает запрос гм листа, исправляет хп/мп/цп в пати. Сам скрипт для грации финал:


const
Name = 'nick';

var
MemberObjId, CurHP, CurCP, CurMP, MaxHP, MaxCP, MaxMP: integer;

begin

// MoveBackwardToLocation fix
if FromClient and (pck[1]=#$0F) then
begin
if Length(pck)=25 then
begin
buf := pck;
WriteD(1);
pck := buf;
end;
end;

// No RequestGmList
if FromClient and (pck[1]=#$8B) then pck := '';

// FixParty
if FromServer and (pck[1]=#$52) and (ConnectName=Name) then
begin
MemberObjId := ReadD(2);
CurCP := ReadD($18);
MaxCP := ReadD($1C);
CurHP := ReadD($20);
MaxHP := ReadD($24);
CurMP := ReadD($28);
MaxMP := ReadD($2C);
// Make StatusUpdate for client
buf := #$18;
WriteD(MemberObjId);
WriteD(6); // Number of attributes
WriteD($09);
WriteD(CurHP);
WriteD($0A);
WriteD(MaxHP);
WriteD($0B);
WriteD(CurMP);
WriteD($0C);
WriteD(MaxMP);
WriteD($21);
WriteD(CurCP);
WriteD($22);
WriteD(MaxCP);
SendToClientEx(Name);
end;

end.