ИИ приведений. PacMan

[Spooner]

Impuls1989 раз хотите код так будет код.
Да имеется массив. Стандартного типа 9x9, где 0 − стена.

Существует у объекта «приведения» поле FStatus принимающие три четыре позиции.

Таймер двигает всех приведений. Вот и всё.

Пример кода, который заставляет передвигаться.

 
  Randomize;
  a := Random(1); //50 на 50%
  with MainForm do
  if a = 0 then
  begin
      if CanGoUp(GetDateX,GetDateY) then
      FStatus :=  stGoUp;

  if CanGoLeft(GetDateX,GetDateY) then
      FStatus :=  stGoDown;

  if CanGoDown(GetDateX,GetDateY) then
      FStatus :=  stGoLeft;

  if CanGoRight(GetDateX,GetDateY) then
      FStatus :=  stGoRight;
     
  end;

ну а само перемещение : case проверяем куда идти, и прибавляем/отнимаем от координат

[Ol'ga_new]

Если это приведения, то пусть они ходят сквозь стены!? Кроме ограничивающей сам лабиринт, тогда приведенный код будет работать ещё лучше(проверка границ лабиринта и всё)

[Spooner]

Сообщение от Ol'ga_new

Если это приведения, то пусть они ходят сквозь стены!? Кроме ограничивающей сам лабиринт, тогда приведенный код будет работать ещё лучше(проверка границ лабиринта и всё)

Вы не играли в PacMan'a а?)

[Ol'ga_new]

Нет!((( Если ходить сквозь стены они не могут, а ещё их несколько, то нужно предусмотреть чтобы они не сталкивались?

[Spooner]

Ol'ga_new, играйте на здоровье, а также помогайте http://www.google.com/pacman/

[Ol'ga_new]

Возможен такой алгоритм с проверкой движения игрока:
проверка положения игрока право-лево и при возможности движение в ту же сторону, если не возможно, то проверка вверх-вниз и движение к игроку... ???

[Utkin]

Сообщение от Ol'ga_new

Возможен такой алгоритм с проверкой движения игрока:
проверка положения игрока право-лево и при возможности движение в ту же сторону, если не возможно, то проверка вверх-вниз и движение к игроку... ???

Это некрасиво, я так пробовал (для других целей). Чудовища синхроны - быстро утомляет, надо имитировать зачатки самостоятельности.

[Spooner]

Есть другие идеи?)

[Utkin]

А пост #6?

[JTG]

Как насчёт этого?
http://ru.wikipedia.org/wiki/Алгоритм_поиска_A*
http://www.delphikingdom.com/asp/vie...catalogid=1127