Показать сообщение отдельно
Старый 07.12.2011, 00:12   #107
Местный
 
Аватар для Alexxxxx
 
Регистрация: 22.08.2011
Сообщений: 156
Сказал Спасибо: 20
Имеет 111 спасибок в 38 сообщенях
Alexxxxx пока неопределено
По умолчанию

if FromClient and (pck[1]=#$0F)then
beginx:=readD(2);y:=readD(6); z:=readD(10); x1:=readD(14); y1:=readD(18);z1:=readD(22);buf:=#$0F;WriteD(x);Wr iteD(y);WriteD(z); WriteD(x1);WriteD(y1);WriteD(z1);WriteD(1);
SendToServer.

по идее так должно работать.
Alexxxxx вне форума   Ответить с цитированием