Сделать непроходимые стены

[NIKOLAYY2]

На форме есть два прямоугольника Image.
Один большой- это карта
Второй маленький- это персонаж

Так же есть массив карты обозначенный значениями.
Я знаю верхний левый угол прямоугольника- карты и прямоугольника песонажа.

Есть кнопка загрузить карту (игру).
Программа считывает массив и подставляет соответствующие значения Bitmap- ок в большой прямоугольник, рисует канвой нужной канвой в нужном месте проще сказать. С этим проблем нет.

Что мне нужно- так это определить стены и сделать их непроходимыми!

На кнопку ВПРАВО я просто двигаю персонаж вправо, perschag- это константа = 8 пикселям у меня.

Персонаж.Left := Персонаж.Left + perschag;

Далее Такой код:

if mastile[masperson_y, masperson_x + 1] = 's' then

Он сделан проверить следующую справа клетку на значение s и если это s- то это стена

Персонаж.Left := Персонаж.Left - perschag; //столкнулись со стеной, и сразу отодвинули на место

Так вот что когда он пытается войти в узкий проем он либо не может войти в него, либо идет сквозь него как на картинке.

За 4 шага вправо (да и вверх или вниз так же) значения считывается только одно значение из массива, так как левый верхний угол персонажа находится все еще в одной ячейке.

Собирали ведь тут простейшие подобные игры и не раз наверно, каким алгоритмом поправить ошибку понятия не имею, кто что подскажет?

[NIKOLAYY2]

Вот исходик, может по нему проще будет, поправить код на кнопках- стрелках.
Добавил кнопку текущий массив можно канвой прямо на нарисованную картинку отобразить.
Все что мог сделал для удобной отладки.

Файлы карт там нарисовал несколько можно с папки проэкта открыть, можно создать самому карту там кнопка есть.

[Utkin]

Там где key=VK_RIGTH просто тупо нет отката персонажа:

if mastile[masperson_y, masperson_x +1] = 's' then
      if IntersectRect(DestRect, Image6.BoundsRect, Rect(Rx1, Ry1, Rx2, Ry2))
        then
      begin
        ListBox1.Items.Add('Rx1 = ' + IntToStr(Rx1) + ', Ry1 = ' + IntToStr(Ry1)
          +
          ', Rx2 = ' + IntToStr(Rx2) + ', Ry2 = ' + IntToStr(Ry2));

        Image6.Left := Image6.Left ; //столкн, шаг назад
      end;
  end;

То есть как был Image6.Left так и остался. Проведите полное тестирование персонажа для всех кнопок - вправо, влево, вверх, вниз.

[NIKOLAYY2]

Utkin Проведите полное тестирование персонажа для всех кнопок - вправо, влево, вверх, вниз.

Спс я это полностью переписал через функцию IntersectRect "стены" видит теперь в любом месте.

[FaTaL]

Как закончишь, выложи игру поиграть

[NIKOLAYY2]

Как боле-менее что-то играбельное будет покажу, хотя и сейчас уже бегает вправо, влево, прыгает, собирает монетки по полю где найдет, проигрывает музыку монет, пыжка, аннимацию некоторых обьектов и себя. Это уже хоть что-то, но слабовато как-то это для игры.

[NIKOLAYY2]

Редактор карт и игра в одном приложении. Код может не очень, но нужно что-то делать, главное уже работает, главное от чего-то отталкиваться и собирать боле-менее рабочее играбельное приложение