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.
по идее так должно работать.
|