sobapi, try this
delphi Код:
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.