Помогите зделать плз...

pr0Zak · Post by **pr0Zak** » 29.09.2010 22:23

толковую процедуру на обнаружения моба и убийство.
Суть процедуры, если обнаружили моба бежим к ниму в упор и атакуем, следует учесть что моб не стоит на месте и убегает, по сему на да чтобы чар % догнал моба. А то Я перепробывал много всякого и ничего не получаеться толкового сообразить.

Vizit0r · Post by **Vizit0r** » 30.09.2010 6:53

нашли моба
пока расстояние больше 1 - догоняем.

что сложного-то?

pr0Zak · Post by **pr0Zak** » 30.09.2010 9:14

Vizit0r wrote: пока расстояние больше 1 - догоняем.

ВОт этот кусок и есть сложность, как его реализировать::?

Macks · Post by **Macks** » 30.09.2010 9:19

Vizit0r wrote:нашли моба
пока расстояние больше 1 - догоняем.

что сложного-то?

Сложно то что догонять ты будешь в точку где он стоял, после того остановишься, а он то же бежит. То есть нужно предугадывать точку в которую бежит НПЦ или бежать с корректировкой движения.

MuDaCk · Post by **MuDaCk** » 30.09.2010 9:27

сложно написать скрипт, наверное

Vizit0r · Post by **Vizit0r** » 30.09.2010 9:32

while GetDistance(NPC_ID) > 1 do
NewMoveXY(GetX(NPC_ID), GetY(NPC_ID)....)

чот я сложности не вижу.

если можно ставать на вендора - то вообще ноль.

Macks · Post by **Macks** » 30.09.2010 9:33

pr0Zak wrote:
Vizit0r wrote: пока расстояние больше 1 - догоняем.
ВОт этот кусок и есть сложность, как его реализировать::?

if (ABS(X2 - X1) +ABS(Y2-Y1)) > 1 then NewMoveXY(X2,Y2);

Vizit0r · Post by **Vizit0r** » 30.09.2010 9:49

GetDistance в результате сводится к

Code: Select all

dx := ABS(SelfX - ObjX);
dy := ABS(SelfY - ObjY);
r := Sqrt(dx*dx + dy*dy);
Result := Round(r);

так что пользуйтесь готовым, не изобретайте велосипед

Macks · Post by **Macks** » 30.09.2010 16:50

Vizit0r wrote:GetDistance в результате сводится к
Code: Select all
dx := ABS(SelfX - ObjX);
dy := ABS(SelfY - ObjY);
r := Sqrt(dx*dx + dy*dy);
Result := Round(r);
так что пользуйтесь готовым, не изобретайте велосипед

Та да, если нужна точность и не жаль процессора.

Macks · Post by **Macks** » 30.09.2010 16:52

Можно без всяких проверок бежать к НПЦ указав степень добегания в 1.

Внутри функции проверит дистанцию.

RaTaMaHaTTa · Post by **RaTaMaHaTTa** » 01.10.2010 16:38

У меня сделана через NewMoveXY
Догоняет отлично и с препятствиями проблем нету, все красиво обходит.

pr0Zak · Post by **pr0Zak** » 01.10.2010 18:21

RaTaMaHaTTa wrote:У меня сделана через NewMoveXY
Догоняет отлично и с препятствиями проблем нету, все красиво обходит.

Выложи свою процедуру или функцию для примера посмотреть)

grundick · Post by **grundick** » 01.10.2010 19:21

Если не напрягать мозги, не пробовал так реализовать:

Code: Select all

findtype(...); 
attack(finditem);
  while ( НПЦ не мёртв ) do 
      begin      
      newMoveXY(getX(finditem),getY(finditem),false,1,true);
      wait(100);
      end;

pr0Zak · Post by **pr0Zak** » 01.10.2010 20:50

Всем спс разобрался наконецто