Что не так)

[Roman32]

Const
NicK='Ник)';
var
Name:integer;
begin
if FromServer and (pck[1]=#$03) then Name:=ReadD(22) ;
begin
if (NicK<>Name) then pck:=''
end;
end.



Вот нубский скрипт что не так?Поидее должен приходить пакет CharInfo,если не сходится с ником то блочит.Подскажите плиз)

[Zergatul]

Жесть, гениальный код)

Сделай:
Name: string;
Name:=ReadS(22)

[wimax]

Const
NicK='Ник)';
var
Name:string;
begin
if FromServer and (pck[1]=#$03) then
begin
Name:=ReadS(22) ;
if (NicK<>Name) then pck:=''
end;
end.

[Roman32]

Спс,а то про стринг забыл:D