Pacman. Препятствия.

[Dmitry96]

Делаю Пакмена. Возникли проблемы с реализацией препятствия. Весь день лазаю по форуму, пробую разные решения, но не получается. Пожалуйста объясните по подробней, как с моим кодом сделать препятствия. Код во вложении.
PS: Я не хочу пользоваться своими классами.

[DenTiSt]

Ну это просто в данном случае. У тебя карта хранится и прорисовывается в виде двумерного массива. Пусть тогда "Пакмен" ходит "по клеткам", т.е. он не сможет пройти между двумя клетками и т.п. Как реализовать? Вот вариант:
1.) позиция Пакмена отмечается в массиве числом (например, 255);
2.) если игрок нажал кнопку (влево или вправо), ставим флаг поворота в нужную сторону;
3.) когда Пакмен доходит до очередной клетки карты (т.е. стоит точно в этой клетке), проверяется флаг, и если он есть, Пакмен проверяет, возможен ли поворот (т.е. если нажата кнопка влево - смотрим, если слева клетка с индексом 1 - стена, свернуть нельзя, идём дальше вперёд, если 0 - сворачиваем) и если да, поворачивает;
4.) если пользователь нажимает другую кнопку до того момента, когда Пакмен дошёл до следующей клетки, меняем флаг на другой;
5.) если дошли до следующей клетки, но клетка за ней имеет индекс 1 (стена) - останавливаем движение;
6.) если нажата кнопка "назад", меняем движение на обратное.
Вместо (1) можно запоминать в переменной типа TPoint координаты Пакмена в данный момент - как тебе больше понравится.
Монстров можно так же отмечать и также двигать, только вместо кнопок будет функция random(3).
Надеюсь, всё пояснил на этот счёт.
P.S. Классов, как видишь, нет. Не понимаю, что ты их так не любишь...

[phomm]

Блин )) только с бендером всё рассусолили , ан на тебе ) появилась новая тема аналогичная.
Сейчас закину в неё последний вариант, смотри туда, как организовано перемещение по клеткам и препятствия (код я доводил до работоспособности, после бендера, но сам так не писал бы ))), хотя всё в целом так, как описывает DenTiSt
http://programmersforum.ru/showthrea...=153883&page=4 тема

Классы это вещь, жалко , что ты не хочешь с ними связываться (как я понял)

[Dmitry96]

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

P.S. Классов, как видишь, нет. Не понимаю, что ты их так не любишь...

Классы это вещь, жалко , что ты не хочешь с ними связываться (как я понял)

Серьезно я начал заниматься программированием в начале этого месяца,
по этому хочу организовать все без классов ради интереса. Потом конечно же буду их использовать. За примеры спасибо, завтра буду разбираться. Если что то будет не понятно, то спрошу.

[Dmitry96]

Я решил сделать, как посоветовал DenTiSt. Но не получилось. Работает очень глючно. Вот код:

procedure Collision(); // Столкновение
begin

 if ((yPos mod KLsize)=0)and((xPos mod KLsize)=0) then //Если гг в "клетке"     
  begin

   if FLdown=true then                                              // Движение вниз
    if map[xPos div KLsize,(yPos+KLsize) div KLsize]='1' then
     go:=false
    else
     go:=true;

   if FLUp=true then                                                  // Движение вверх
    if map[xPos div KLsize,(yPos-KLsize) div KLsize]='1' then
     go:=false
    else
     go:=true;

   if FLleft=true then                                                 // Движение влево                                                
    if map[(xPos-KLsize) div KLsize,yPos div KLsize]='1' then
     go:=false
    else
     go:=true;

   if FLright=true then                                               // Движение вправо
    if map[(xPos+KLsize) div KLsize,yPos div KLsize]='1' then
     go:=false
    else
     go:=true;

   end;
end;

xPos : Координаты по X
yPos : Координаты по Y
KLsize : Размер клетки.

Если где то ошибся, покажите пожалуйста.

Вот полный код: