Попробуйте тогда пока без задеожек...
Ники - Регистрозависимие.
delphi Код:
const
PLName = 'НикНейм';
Name = 'НикНейм';
begin
if (ConnectName=Name) and FromServer and (pck[1]=#$39) then begin //от сервера получен пакет $39 AskJoinParty
if ReadS(2) = PLName then
buf:=hstr('2A 01 00 00 00')
else
buf:=hstr('2A 00 00 00 00');
pck :=''; //убиваем "Окно приглашения"
SendToServerEx(Name);
end;
end.