Догонялки

Tiger89 · Post by **Tiger89** » 13.05.2011 20:16

Собственно, выкладываем сюда ссылки на догонялки различные.
Хотелось бы увидеть быструю догонялку с бегом.
Заранее спасибо

Vizit0r · Post by **Vizit0r** » 13.05.2011 21:23

напиши сам.

в цикле берешь координаты цели, GetDir на него, и вперед через (New)MoveXY.

Оптимальная догонялка - всего одна, и занимает она АЖ строк десять.
весь остальной бред - от лукавого.

Tiger89 · Post by **Tiger89** » 14.05.2011 0:24

да это классно но обход препятствий и поиск оптимального пути мне не смочь)) и ваще я бы хотел чтобы чар который преследует ходил по тем же тайлам что и тот кого преследует это будет четко вообще кто бы мог написать было бы классно для пвп

Vizit0r · Post by **Vizit0r** » 14.05.2011 7:20

обход препятствий встроен в (New)MoveXY

а по тем же тайлам - это бред, увеличивает скрипт в разы.
вобщем-то тоже ничего страшного, брать координаты чара почаще, закидывать их в массив, а потом ходить по ним.
но имхо это адский изврат.

grundick · Post by **grundick** » 14.05.2011 7:31

Vizit0r wrote: но имхо это адский изврат.

К тому же при одинаковой скорости движения врядли догонит )

MuDaCk · Post by **MuDaCk** » 14.05.2011 9:32

При одинаковой скорости одеваешь фк/фкр и доняешь за нефик телепортами

.

Tiger89 · Post by **Tiger89** » 14.05.2011 19:09

Вот вот =) ну я так понял ещё не кто не написал такой скрипт, ну ладно попробую сам, будет сложно но попробую =)

Vizit0r · Post by **Vizit0r** » 14.05.2011 21:08

писали когда-то, за 5 минут.
потому-то я и говорю что размер там мизерный.

Beren · Post by **Beren** » 14.05.2011 21:44

Code: Select all

 Attack(dummy);
 while GetHP(dummy)>0 do
    MoveXY(GetX(dummy),GetY(dummy),true,1,true);

Vizit0r · Post by **Vizit0r** » 14.05.2011 21:58

ну, это уж совсем примитивно - но вобщем-то работать будет.

только обязательно добавить задержку в цикл:

Code: Select all

Attack(dummy); 
 while GetHP(dummy)>0 do 
    begin
      MoveXY(GetX(dummy),GetY(dummy),true,1,true);
      wait(50);
    end;

и это, где условие выхода с цикла-то?

Beren · Post by **Beren** » 14.05.2011 22:33

вот условие, что с ним не так?

Code: Select all

while GetHP(dummy)>0

просто это кусок из скрипта, там несколько сложнее)

Vizit0r · Post by **Vizit0r** » 14.05.2011 22:46

*задумчиво*
старею, на глаза уже не вижу ничего

Tiger89 · Post by **Tiger89** » 15.05.2011 10:39

блин жаль только то что чар медленно бежит по этой команде, за ранее говорю что SetRunMountTimer равен 95

Vizit0r · Post by **Vizit0r** » 15.05.2011 10:49

mount - это верхом.

бежит с той же скоростью, что и клиент.

Tiger89 · Post by **Tiger89** » 15.05.2011 12:06

Да я это понимаю, но почему то чар совсем медленно бежит по сравнению с клиентом, ну вот скрипт может тут яснее станет

Code: Select all

program test;
const
chaser=$000F8A9C;
begin
SetWalkUnmountTimer(370);
SetRunMountTimer(95);
repeat
NewMoveXY(GetX(chaser),GetY(chaser),true,1,true);
wait(100)
until false;
end.