[guplen]

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. Может и на шоке заработает этот способ. Скорей всего скрипт надо переписывать, формат пакетов мог поменяться.