[alexteam]

must look like

procedure init;
begin
end;

procedure free;
begin
end;

begin
if FromServer and (pck[1] = #$27) then
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('inv updated');
SendToClient;
end;
end.

version of l2ph ?