Тащить объект по маршруту

[CoolNickname]

Всем привет. Суть скрипта в том что бы протащить "ящик" по заданному маршруту. Сейчас написал скрипт который просто ведет чара по координатам, но теперь не знаю как прикрутить сюда саму "тащилку". Выглядеть это должно так: отбежали от ящика, нажали атаку-ящик подъехал к чару, и так далее к конечной точке. Может кто то уже делал нечто подобное, помогите плиз)

[Breadfan]

считывай текущие координаты ящика и перса (от сервера приходит), следом - Dist:=sqrt(deltaX^2+deltaY^2+deltaZ^2); - расстояние меж объектами. Расстояние больше положенного - то взять в таргет( если не взят) и жмякнуть атаку. Всё.

[CoolNickname]

Спасибо за ответ, но у меня проблема в другом, я не знаю как сделать, что бы чар одновременно бежал к нужным координатам и при этом тащил ящик. Если я даю команду MoveTo(x,y,z),а потом команду MoveBlock, то движение прекращается.

[Breadfan]

ну смотри. у тебя пусть будут distmin\distmax- максимальное\минимальное расстояние до ящика. Персонаж бежит. В процессе проверяешь текущую дистанцию до ящика. Как только она > distmax - "атакуеш" ящик до тех пор, пока она не станет < distmin. Как только стала - возобновил движение персонажа по контрольным точкам пути (ну или как ты там им бегаешь).

[CoolNickname]

Так в этом и проблема не выходит зациклить движение к точке, если я пишу например так:

while not PosInRange(x,y,z,100) do
begin
MoveTo(x,y,z);
end;

Тут PosInRange() возвратит true, если чар находится меньше чем за 100 пойнтов от точки и false, если дальше чем 100 пойнтов.
То клиент и пх зависают.

[kpa9pt]

Сообщение от CoolNickname

Так в этом и проблема не выходит зациклить движение к точке, если я пишу например так:

while not PosInRange(x,y,z,100) do
begin
MoveTo(x,y,z);
end;

Тут PosInRange() возвратит true, если чар находится меньше чем за 100 пойнтов от точки и false, если дальше чем 100 пойнтов.
То клиент и пх зависают.

Если у тебя это в теле begin end. то конечно, там милион раз отправляет команду на движение. Поставь в таймер и проверку раз в 500мс

[CoolNickname]

Сообщение от kpa9pt

Поставь в таймер и проверку раз в 500мс

Сори за тупой вопрос, а как правильно таймер сделать? а то у меня чет все равно зависает, когда делаю с таймером, может не правильно делаю просто)

[kpa9pt]

Сообщение от CoolNickname

Сори за тупой вопрос, а как правильно таймер сделать? а то у меня чет все равно зависает, когда делаю с таймером, может не правильно делаю просто)

Я в таких случаях иду от противного комментирую строки кода до тех пор пока не найду ту из-за которой всё виснет.

Ну ты выложи весь код то, или покажи как таймер создаёшь, очень трудно дальше что-то сказать.

[CoolNickname]

Таймер делаю так:

var
  timer:TTimer;
  TimerStep:byte;
procedure Init; //Вызывается при включении скрипта
begin
 TimerStep:=1;
 timer:=TTimer.Create(nil);
 timer.OnTimer:=@OnTimer;
 timer.enabled:=false;
 timer.interval:=1000;
end;

procedure Free; //Вызывается при выключении скрипта
begin
  timer.free;
end;

procedure OnTimer; //<<--- изменено
begin
    MoveTo(119670,-183560,-3313);
    if PosInRange(119670,-183560,-3313,100) then timer.enabled:=false;    
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//ParseXYZ;
if FromClient and (ConnectName=Name) 
  and (pck[1]= #$56) and (pck[2]= #$1E) then 
  begin  
  timer.enabled:=true;//<<--- изменено
  end;
end.

Вот, не понимаю, что не так Оо

//Breadfan: чуть подправил скрипт.

Добавлено через 14 часов 55 минут

Сообщение от CoolNickname

//Breadfan: чуть подправил скрипт.

Целый час не мог понять почему все равно не работает, потом на форуме нашел это:

Сообщение от kpa9pt

Такс, только что сделал у себя также, ммм таймер в порядке не работает отправка sendtoserver, я сделал sendtoserverex(name) где name имя персонажа тобишь героя на котором соединение, и заработало

И действительно, выходит таймер работает только через sendtoserverex(name)

[Breadfan]

ну функции

PHP код:

MoveTo(119670,-183560,-3313);
if PosInRange(119670,-183560,-3313,100) then timer.enabled:=false; 


ты ведь и не показал. Кто ж знал чего там внутрях у них.