Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90784 Thu, 26 Jun 2003 09:05:18 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90784 была так устроена что если задаваемое параметром
направление не совпадает с текущим
то текущее заменяеться на задаваемое
а движения непроисходит.
т.е.
    <br>move(np:napr)<br>begin<br>....<br>if polozh<>np then <br> begin<br>   polozh:=np<br>   exit;<br> end;<br>....<br>end;

Правда это был небаг это было так задумано,
но темнемение после того как я это исправил
всё заработало.
Огромное спасибо тебе ,Vesper1, за помощ.]]> Mixxx Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90783 Thu, 26 Jun 2003 04:52:45 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90783
    (MOZNO(levo) and MOZNO(pravo) and MOZNO(verh) and MOZNO(niz))=false

В тот момент, когда "заканчивается верх", проверь на MOZNO(levo) и MOZNO(verh), а вдруг туда нельзя, да еще и вправо нельзя. Или поставь брыкпойнт :) в точке функции kuda, там где уже никуда нельзя, есть вариант, что оно там циклит. Еще вариант: в процедуре MOVE может быть ляп, то есть говоришь MOVE(pravo) а она только двигает объект, а polozh не меняет, тогда получается, что объект смотрит на стену, а слева есть свободное пространство, в результате чего объект начинает вращаться вокруг пустого места.]]> vesper1 Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90782 Wed, 25 Jun 2003 15:41:06 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90782 танк нормально едет по границам экрана  но вот со
внутреними препятствиями сложно - танчик доезжает до угла объекта
и тутже начинает вращаться вокруг своей оси с большой скоростью.
Тоесть траектория право-верх-право почамуто неподсилу и трагически обрываеться после того как
заканчиваеться "верх". Буду разбираться.

Да и почему ты говоришь вызывать токо после
    <br>MOZNO(levo) and MOZNO(pravo) and MOZNO(verh) and MOZNO(niz)=false <br>

Почаму имменно niz?
Я вызываю сразу после того как юнит упреться фейсом в стену.]]> Mixxx Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90780 Wed, 25 Jun 2003 13:45:34 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90780
    MOZNO(levo) and MOZNO(pravo) and MOZNO(verh) and MOZNO(niz)=false

Да и твои направления надо бы переупорядочить (для оптимизации), вот так:
    type NAPR=(levo,verh,pravo,niz);
чтобы succ(a_napr) выдавал следующее по часовой стрелке направление, ну не совсем succ а конструкция типа
    if a_napr=niz then a_succ:=levo else a_succ:=succ(a_napr);

Да и аналогично a_pred реализовать. Тогда получится
    function kuda(var t:TANK):NAPR;<br>var a_kuda:NAPR;<br>begin<br>  a_kuda:=a_pred(t.cur_dir);<br>  repeat<br>    if MOZNO(a_kuda) then begin<br>      kuda:=a_kuda;<br>      exit end;<br>    a_kuda:=a_succ(a_kuda);<br>  until a_kuda=a_pred(t.cur_dir);<br>  {а вот если мы здесь, то ниkuda нельзя :)}<br>  kuda:=t.cur_dir;<br>end;<br>

других вариантов не придумал.
Ну и собсно все, дальше в цикле хватаешь kuda(T) и проверяешь MOZNO ли, и если да то двигаешь.

ЗЫ: Только щас заметил POLOZH:napr в 0м посте, переправь cur_dir тады ;)]]> vesper1 Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90779 Wed, 25 Jun 2003 10:44:58 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90779 Да ладно я не обиделся.
Посмотрю там где ты велел.
2 All
Но я не совсем ето просил.
Идею алгоритма обхода я вроде-бы как-бы уловил.
Проблема с его реализацией в тех безобразных условиях которые я сам себе создал :'(
И ещё я не просил  помоч мне реализовать весь алгоритм обхода.
Мне нужна токо реализация кружения юнита вокруг горки,
да-да именно кружение по круговой траектории в цикле (остальное (обход) я сам доделаю),это как алгоритм поиска выхода из лабиринта - алгоритм левой руки
держися левой рукой за стенку и идёшь а если вдруг стена посередине лабиринта
и не соприкосаеться с другими его стенами то суждено путнику навеки ходить в лаберинте кругами. Вот именно реализацию этого я и хочу от вас добиться.]]> Mixxx Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90778 Wed, 25 Jun 2003 09:43:03 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90778 Цитата Mixxx, 25.06.03, 13:23:22
2 Ozzя Ну, хорошо допустим я Mixx  :-/

Извини  ;)

Цитата

Я сразу скачал эту книженицию как-тока увидел линк
(в одном из ныне закрытых паскальных топиков)
И какой индивидуум догадался запечатать стоко метров в одном doc файле,
у он меня он грузиться 20 минут (к томуже у меня ворда нет).
Кроме-того меня никто не спрашивал знаю ли я Си
(кстати  юзать прогу переводчик ctop я так и не научился)
И наконец там про мой случай ничего не сказано.

Прошу ещё учесть что я задал не общий вопрос,
а конкретный (я вообще думаю что форум как раз для таких случаев и создан, разве нет)

Посмотри на delphimaster.ru раздел DElphiGX, там среди алогоритмов и статей вроде и обход препятствий был]]> Булат Шакиров Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90777 Wed, 25 Jun 2003 09:23:22 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90777 Я сразу скачал эту книженицию как-тока увидел линк
(в одном из ныне закрытых паскальных топиков)
И какой индивидуум догадался запечатать стоко метров в одном doc файле,
у он меня он грузиться 20 минут (к томуже у меня ворда нет).
Кроме-того меня никто не спрашивал знаю ли я Си
(кстати  юзать прогу переводчик ctop я так и не научился)
И наконец там про мой случай ничего не сказано.

Прошу ещё учесть что я задал не общий вопрос,
а конкретный (я вообще думаю что форум как раз для таких случаев и создан, разве нет)]]> Mixxx Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90776 Wed, 25 Jun 2003 08:18:31 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90776 Секреты программирования игр
http://pmg-ru.narod.ru/download/proggame.part1.rar
http://pmg-ru.narod.ru/download/proggame.part2.rar
и многие вопросы у Вас просто не будут возникать.]]> Булат Шакиров Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90775 Wed, 25 Jun 2003 07:44:30 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90775 Цитата
Танчики пишешь?

Просто поразительно как ты догадался? ;D
Цитата
А координаты в процедуре MOVE меняешь? А нигде вовне старые не восстанавливаешь?

Координаты меняю только в процедуре move
Цитата
А объект свой в каком месте рисуешь?

S:record{спрайт}
 x,y,{координаты левого верхнего угла спрайта}
 Xsize,Ysize:integer;{ширина и высота спрайта}
end;
Цитата
И вообще ЗЫ: Ошибка в 94й строке.

Неправда, я считал - в этой моей мессаге всего 22-строки. :D]]> Mixxx Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90774 Wed, 25 Jun 2003 05:14:24 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90774 И вообще ЗЫ: Ошибка в 94й строке. (с) Song]]> vesper1 Алгоритмы https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90773 Tue, 24 Jun 2003 21:17:15 +0000 Движение вокруг препятствия https://forum.sources.ru/index.php?showtopic=9262&view=findpost&p=90773 переменые и методы
    <br>type NAPR=( levo,pravo,niz,verh)-тип обозначающий движение<br>POLOZH:napr{текущее направление юнита}<br>в лево,право,низ или вверх;<br>MOZNO(NP:NAPR):boolean;-функция которая говорит можно ли двинуться(на один пиксель) в этом<br>направлении(true если можно)<br>MOVE(NP:NAPR) процедура которая двигает юнит (на один пиксель)<br>в том направлении куда укажет параметр np ;<br>

все направления АБСОЛЮТНЫ и НЕ относительны юнита
т.е. К примеру если юнит движеться в niz то рано или поздно он
упрется в низ экрана.
У меня получилось только чтобы юнит дергался в разные стороны
но в итоге оставался на одном месте( низнаю может я просто не
выспался :) )
Главные проблемы я считаю это
абсолютные направления
и движения на расстояние в один пиксель
(хотя сам юнит и препятствие разумееться больше одного пиxеля)

Пожалуйста помогите кто чем может (идеями, реализацией...).
Буду примного благодарен.

]]> Mixxx Алгоритмы