Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Ваши программы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 10.12.2011, 00:40
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

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

А так в принципе мне и этого будет достаточно, чтобы чтобы полчища всяких тварей гонялось за тобой при этом проходя препятсвия не задевая их
к стати Спасибо!
Ответить с цитированием
  #17  
Старый 15.12.2011, 04:48
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

да, я когда-то что-то подобное тоже делал, но оно очень ресурсоемкое оказалось(нагрузка на проца сумасшедшая) , алгоритм рабочий, но никакая игра, к сожалению, на нем не пойдет.
Если хочете, посмотрите(где-то года 3 назад делал, принцип взял с какого-то примера поиска пути по графам)
Вложения
Тип файла: rar path-searsh1.rar (51.4 Кбайт, 28 просмотров)
Ответить с цитированием
  #18  
Старый 15.12.2011, 13:27
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

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

З.Ы. При каких-то обстоятельствах в Вашем приложении путь имеет форуму "вилки" то-есть показывается путь от точки Старт до точки начала, и от точки Старт до какой-то левой вершины.
Ответить с цитированием
  #19  
Старый 15.12.2011, 15:26
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Ето может быть проблема не алгоритма обхода препьятствий, а графической части(линии не меняют статуса), там снизу в статусбаре есть вывод пути по номерам вершин в текстовом виде, сам путь лучше брать оттуда.
В граф. части я и сам сейчас разобраться не могу
Ответить с цитированием
  #20  
Старый 14.02.2012, 21:49
RootDev RootDev вне форума
Прохожий
 
Регистрация: 12.12.2011
Сообщения: 7
Версия Delphi: 7
Репутация: 10
Радость Понравилось

А как бы исходники глянуть? Возможно?
Ответить с цитированием
  #21  
Старый 14.02.2012, 21:55
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Нус, это к автору в личку, я думаю. Если не захотел поделиться. значит есть причины. А жаль...
Ответить с цитированием
  #22  
Старый 14.02.2012, 23:53
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от RootDev
А как бы исходники глянуть? Возможно?
Сейчас сижу не дома, бухаю!
Как приду если буду в состоянии выложу!
Там как раз, я все это дело в класс запихал, ну и оптимизировал скорость, работает на ура!
Ответить с цитированием
  #23  
Старый 15.02.2012, 10:52
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

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

Последний раз редактировалось Pilot_Red, 29.06.2012 в 15:51.
Ответить с цитированием
  #24  
Старый 15.02.2012, 16:19
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

лабиринт для этой проги...
PHP код:
function rand(chancebyte 40): Boolean;
begin
  result 
:= random(100) < chance;
end;

procedure TForm1.Button2Click(SenderTObject);
var 
ijstepxyInteger;
begin
  Button4
.Click;
  
step := StrToInt(Edit1.Text)*4;
  for 
:= 0 to (ClientWidth 1div step do
  for 
:= 0 to (ClientHeight 1div step do
  
begin
    x 
:= i*step;
    
:= j*step;
    if 
rand then
    begin
      FormMouseDown
(nilmbLeft, [ssLeft], xy);
      
FormMouseUp(nilmbLeft, [ssLeft], x+stepy);
    
end;
    if 
rand then
    begin
      FormMouseDown
(nilmbLeft, [ssLeft], xy);
      
FormMouseUp(nilmbLeft, [ssLeft], xy+step);
    
end;
  
end;
  
Button4.Click;
  
Button6.Click;
  
GroupBox1.Hide;
end
Ответить с цитированием
  #25  
Старый 15.02.2012, 16:30
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от Pyro
лабиринт для этой проги...
PHP код:
function rand(chancebyte 40): Boolean;
begin
  result 
:= random(100) < chance;
end;

procedure TForm1.Button2Click(SenderTObject);
var 
ijstepxyInteger;
begin
  Button4
.Click;
  
step := StrToInt(Edit1.Text)*4;
  for 
:= 0 to (ClientWidth 1div step do
  for 
:= 0 to (ClientHeight 1div step do
  
begin
    x 
:= i*step;
    
:= j*step;
    if 
rand then
    begin
      FormMouseDown
(nilmbLeft, [ssLeft], xy);
      
FormMouseUp(nilmbLeft, [ssLeft], x+stepy);
    
end;
    if 
rand then
    begin
      FormMouseDown
(nilmbLeft, [ssLeft], xy);
      
FormMouseUp(nilmbLeft, [ssLeft], xy+step);
    
end;
  
end;
  
Button4.Click;
  
Button6.Click;
  
GroupBox1.Hide;
end

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:03.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter