Shnaider
Код:
//-------------------------------------------------------------------------------------------
//ловим пакет от клиента отправленный коммандиром при перемещении
if FromClient and (ConnectName=MasterName) and (pck[1]=#$01) then
begin
x:=ReadD(2);
y:=ReadD(6);
z:=ReadD(10); //координаты точки куда пошел коммандир
ox:=ReadD(14);
oy:=ReadD(18);
oz:=ReadD(22);//координаты точки откуда шел коммандир
//-------------------------------------------------------------------------------------------
//имеем координаты точек откуда и куда шел коммандир
//делаем с координатами все что душе угодно
//строим аналогичный пакет
buf:=#$01;
WriteD(x);
WriteD(y);
WriteD(z);
WriteD(ox);
WriteD(oy);
WriteD(oz);
SendToServerEx(BotName); //отправляем его серверу ботом
end;
вот и все