[Pilot_Red]

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

Это только в этой программе, чтобы не говорили про непрохождение.
Лучше разберись с изменением размера.
P.S. А в играх я и сквозь стенку пройти могу.

Ставь размер еденицу, и ты сможешь пройти сквозь любую щель)))

А так в принципе мне и этого будет достаточно, чтобы чтобы полчища всяких тварей гонялось за тобой при этом проходя препятсвия не задевая их
к стати Спасибо!

[YVitaliy]

да, я когда-то что-то подобное тоже делал, но оно очень ресурсоемкое оказалось(нагрузка на проца сумасшедшая) , алгоритм рабочий, но никакая игра, к сожалению, на нем не пойдет.
Если хочете, посмотрите(где-то года 3 назад делал, принцип взял с какого-то примера поиска пути по графам)

[Pilot_Red]

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

да, я когда-то что-то подобное тоже делал, но оно очень ресурсоемкое оказалось(нагрузка на проца сумасшедшая) , алгоритм рабочий, но никакая игра, к сожалению, на нем не пойдет.
Если хочете, посмотрите(где-то года 3 назад делал, принцип взял с какого-то примера поиска пути по графам)

Изначально, при загрузке у Вас создается граф с большим кол-вом связей, если грамотно расставить много вершин, и при этом грамотно их соединить, то в принципе можно использовать данный механизм для разработок игр.
В играх не обязательно рассчитывать все игровое пространство. Его, например, можно разбить на блоки и искать путь в пределах своего блока.
Например заходишь в какую-нибудь комнату тут же активируется у ботов поиск при этом рассчитываются препятствия, находящиеся только в этой комнате.

З.Ы. При каких-то обстоятельствах в Вашем приложении путь имеет форуму "вилки" то-есть показывается путь от точки Старт до точки начала, и от точки Старт до какой-то левой вершины.

[YVitaliy]

Ето может быть проблема не алгоритма обхода препьятствий, а графической части(линии не меняют статуса), там снизу в статусбаре есть вывод пути по номерам вершин в текстовом виде, сам путь лучше брать оттуда.
В граф. части я и сам сейчас разобраться не могу

[RootDev]

А как бы исходники глянуть? Возможно?

[YVitaliy]

Нус, это к автору в личку, я думаю. Если не захотел поделиться. значит есть причины. А жаль...

[Pilot_Red]

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

А как бы исходники глянуть? Возможно?

Сейчас сижу не дома, бухаю!
Как приду если буду в состоянии выложу!
Там как раз, я все это дело в класс запихал, ну и оптимизировал скорость, работает на ура!

[Pilot_Red]

Небольшой мануал

1. Рисуем линии
2. Указываем размер объекта
3. Нажимаем на здоровую кнопку
4. Нажимаем на старт
5. водим курсором по форме и смотрим!

[Pyro]

лабиринт для этой проги...

PHP код:

function rand(chance: byte = 40): Boolean;
begin
  result := random(100) < chance;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j, step, x, y: Integer;
begin
  Button4.Click;
  step := StrToInt(Edit1.Text)*4;
  for i := 0 to (ClientWidth - 1) div step do
  for j := 0 to (ClientHeight - 1) div step do
  begin
    x := i*step;
    y := j*step;
    if rand then
    begin
      FormMouseDown(nil, mbLeft, [ssLeft], x, y);
      FormMouseUp(nil, mbLeft, [ssLeft], x+step, y);
    end;
    if rand then
    begin
      FormMouseDown(nil, mbLeft, [ssLeft], x, y);
      FormMouseUp(nil, mbLeft, [ssLeft], x, y+step);
    end;
  end;
  Button4.Click;
  Button6.Click;
  GroupBox1.Hide;
end; 


[Pilot_Red]

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

лабиринт для этой проги...

PHP код:

function rand(chance: byte = 40): Boolean;
begin
  result := random(100) < chance;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j, step, x, y: Integer;
begin
  Button4.Click;
  step := StrToInt(Edit1.Text)*4;
  for i := 0 to (ClientWidth - 1) div step do
  for j := 0 to (ClientHeight - 1) div step do
  begin
    x := i*step;
    y := j*step;
    if rand then
    begin
      FormMouseDown(nil, mbLeft, [ssLeft], x, y);
      FormMouseUp(nil, mbLeft, [ssLeft], x+step, y);
    end;
    if rand then
    begin
      FormMouseDown(nil, mbLeft, [ssLeft], x, y);
      FormMouseUp(nil, mbLeft, [ssLeft], x, y+step);
    end;
  end;
  Button4.Click;
  Button6.Click;
  GroupBox1.Hide;
end; 


Лабиринты это хорошо, но ИМХО для лабиринтов лучше использовать алгоритмы работающие в дискретном пространстве, например волновой! В дискретном тормозов таких не будет