Delphi Код:
var
ID,selfOID,ToX,ToY,ToZ,oX,oY,oZ:integer;
begin
if not (gSys.isGS>0) or (length(_gBuff)<3) then
begin
gBlockPacket;
exit;
end
else ID := gInt(_gBuff[3]);
if (_gFromServ) and (ID=$32) then
begin
ScanPck5(_gBuff,20,'d',selfOID,null,null,null,null);
end;
//берем необходимое для MoveToLocation из MoveBackwardToLocation
if (not _gFromServ) and (ID=$0F) then
begin
ScanPck5(_gBuff,4,'ddd',ToX,ToY,ToZ,null,null);
ScanPck5(_gBuff,16,'ddd',oX,oY,oZ,null,null);
//Формируем пакет MoveToLocation и отправляем его клиенту
gSys.EnSendC(FormatPck('%cddddddd',[$2F,SelfOID,ToX,ToY,ToZ,oX,oY,oZ]));
end;
end.
Таким скриптом на WP я исправлял дергание привязанных ботов в сторону на фаняге во времена грации парт 2. Может и на шоке заработает этот способ. Скорей всего скрипт надо переписывать, формат пакетов мог поменяться.