[Sherman]

Готовый скрипт.

var 
    CharId,UserID:Cardinal;

begin

if FromServer and (pck[1]=#$04)  then
begin
    UserID:=ReadD($12);        
end;


if FromServer and (pck[1]=#$06) and (UserID<>0) then
begin   
     CharId:=ReadD(2);
     if CharId=UserId then Exit;   
     if ReadD($16)=0 then
     begin           
        buf:=#$12;
        WriteD(CharId);
        WriteD(0);
        SendToClient;
     end;      
end;

end.

а пакетхак у меня при таком скрипте не тормозит трафик...