[sinles]

procedure UserInfo; //обновление данных о себе
begin
MyOID:=ReadD(18);
MyX:=ReadD(2);
MyY:=ReadD(6);
MyZ:=ReadD(10);
end;


begin
//серверные пакеты
if (ConnectName=MyName) and FromServer then
case pck[1] of
#$32: UserInfo;
end;

end.