[QaK]

sobapi, try this

var BS:bolean;

procedure INIT;
begin bs:=false;//default - block charinfo is false;
end;

begin
if (fromclient) and (pck=Hstr('38 2D 00 69 00 6E 00 73 00 69 00 64 00 65 00 00 00 00 00 00 00') then bs:=true;

if (fromclient) and (pck=Hstr('38 2D 00 6F 00 75 00 74 00 73 00 69 00 64 00 65 00 00 00 00 00 00 00') then bs:=false;

if (FromServer) and (bs) and (pck[1]=#$03) then
                            pck:='';
                            end;
end.