Тема
:
Пакет от клиента или от сервера
Показать сообщение отдельно
04.02.2010, 12:37
#
16
sinles
Пользователь
Регистрация: 01.12.2009
Сообщений: 32
Сказал Спасибо: 0
Имеет 14 спасибок в 12 сообщенях
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.
Меню пользователя sinles
Посмотреть профиль
Отправить личное сообщение для sinles
Найти ещё сообщения от sinles