Код проверки столкновений не работает.

[Манжосов Денис :)]

Имеется код:

var
  GameForm: TGameForm; 
  Map: array [0..31, 0..23] of byte; // Массив объектов на карте
  GameMap: TBitmap; // Bitmap карты игры
  //
  Tree, Box, Road, Start, Finish: TBitmap; // Bitmapы объектов на форме
  //
  Car: TBitmap; // Bitmap машины
  XPos, YPos: integer;

// Координаты машины по X и по Y
Это глобальные переменные.

const
  CTREE = 1;
  CROAD = 2;
  CBOX = 3;
  CSTART = 4;
  CFINISH = 5;

Константы, которые обозначают на массиве Map объекты.
Загружаю карту:

procedure TGameForm.LoadMap;
var i,j: integer;
begin
  AssignFile(Input, 'GameEdit\DemoMap.txt');
  Reset(Input);
   for i:=0 to 31 do
    for j:=0 to 23 do
     Read(Map[i,j]);
   CloseFile(Input);
   for i:=0 to 31 do
    for j:=0 to 23 do
     case Map[i,j] of
      CTREE: GameMap.Canvas.Draw(i*25, j*25, Tree);
      CROAD: GameMap.Canvas.Draw(i*25, j*25, Road);
      CBOX:  GameMap.Canvas.Draw(i*25, j*25, Box);
      CSTART: begin
               GameMap.Canvas.Draw(i*25, j*25, Start);
               XPos := i*25;
               YPos := j*25;
              end;
      CFINISH: GameMap.Canvas.Draw(i*25, j*25, Finish);
     end;
end;

Думаю, что здесь всё понятно.
Отрисовка содержимого:

procedure TGameForm.FormPaint(Sender: TObject);
begin
  Canvas.Draw(0,0,GameMap);
  Canvas.Draw(XPos, YPos, Car);
end;

Далее идёт процедура таймера, который проевряет нажата ли клавиша, и, если нажата, надо двигать машину.

procedure TGameForm.TimerCarTimer(Sender: TObject);
begin
  if GetKeyState(VK_UP) shr 31  = 1 then MoveUp;
  if GetKeyState(VK_DOWN) shr 31  = 1 then MoveDown;
  if GetKeyState(VK_RIGHT) shr 31  = 1 then MoveRight;
  if GetKeyState(VK_LEFT) shr 31  = 1 then MoveLeft;
  ObjectsWithCar;
end;

MoveUp, MoveDown, MoveRight, MoveLeft - процедуры, которые отвечают за движения в разные стороны.
ObjectsWithCar - процедура, которая проверяет столкновения машины с объектами. Вот код:

procedure TGameForm.ObjectsWithCar;
var i,j: integer;
begin
  for i:=0 to 31 do
   for j:=0 to 23 do
    begin
      if Map[i,j] = CROAD then exit;
         if (XPos and YPos >= Map[i,j]) and (XPos and YPos <= Map[i,j])
          then
           begin
            ShowMessage('Столконовение');
            XPos := XPos - 2;
            YPos := YPos - 2;
            Repaint;
           end;
    end;
end;

if Map[i,j] = CROAD then exit;

Здесь проверка: если объект равен CROAD(2), то выйти и процедура, так как машина не должна сталкиваться с дорогой. В - общем столкновения не работают совершенно. Помогите, пожалуйста. Никак не пойму в чём проблема.

[Stilet]

Ну ты даеш - налил воды а сомого главного не описал
Прикрепил бы сюда архив с прогой, ато непонятно что делает твой CROAD

[Манжосов Денис :)]

Я вроде бы как всё описал, что можно. А CROAD - это константа.
Вот исходный код:

[Stilet]

Я вроде бы как всё описал

Упс, неувидел.

Ты бы проверил чему равны значения в Map, в отладчике

НАсчет прикрепления - весь проект а не только код, ибо его запустить без твоих файлов никто не смогет быстро

[Манжосов Денис :)]

Полный проект выложить не могу. Создал отдельный проект. Код тот же самый.
В Архиве имеется:

1. Файлы проекта.
2. Изображенрия объектов в игре.
3. Одна демо-карта.

[Stilet]

Ты знаеш я пока наверное еще не проснулся но у меня в коде:

 for i:=0 to 31 do
   for j:=0 to 23 do
    begin
      if Map[i,j] = 2 then exit;

Изначально i,J равны запредельным числам.

Мож тебе поменять стратегию?...

[Манжосов Денис :)]

Мож тебе поменять стратегию?...

Если не сложно, объясните пожалуйста - как?
()()()()()()()()()()()()()()()()()( )()()()()()()()()()()()
Кстати говоря. Я изменил код проверки на такой:

  for i:=0 to 31 do
   for j:=0 to 23 do
    begin
      if (Map[i,j] = CROAD) or (Map[i,j] = CSTART) or (Map[i,j] = 0)  then exit;
         if ((XPos and YPos) >= Map[i*25,j*25]) and ((XPos and YPos) <= Map[i*25,j*25])
          then
           begin
            XPos := XPos - 2;
            YPos := YPos - 2;
            Repaint;
           end;
    end;

Теперь машина едет нормально, но всё равно, не хочет врезаться с ящиками и деревьями.

[Stilet]

Во-первых: Избавимся от таймера:

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case key of
  VK_up:MoveUp;
  VK_DOWN:MoveDown ;
  VK_LEFT:MoveLeft;
  VK_RIGHT:MoveRight;
 end;
 ObjectsWithCar;
end;

Во-вторых: Я правильно понял что эта Map у тебя содержит 0 там где нет дороги? Вот и проверяй сразу после нажатия клавиши но до пердвижения есть ли в новых координатах 0 и если нет то можно двигать

И еще: совет убери StayOnTop - это не самая хорошая идея в твоем случае - отлаживать неудобно.

[Манжосов Денис :)]

Ещё поменял код:

function TMainForm.ObjectsWithCar: boolean;
var i,j: byte;
begin
  for i:=0 to 31 do
   for j:=0 to 23 do
    begin
      if (Map[i,j] = CTREE) or (Map[i,j] = CBOX)
       then
          begin
             if
             ((XPos+25 and YPos+25) >= Map[i*25,j*25])
             and
             ((XPos and YPos) <= Map[i*25,j*25])
              then
               begin
                ObjectsWithCar := true; 
                XPos := XPos - 25;
                YPos := YPos - 25;
                Label1.Caption := 'Test complete!';
                Repaint;
                Exit;
               end
           end
    end;
   result := false;
end;

И здесь, в таймере:

if ObjectsWithCar = true then exit;
  if GetKeyState(VK_UP) shr 31  = 1 then MoveUp;
  if GetKeyState(VK_DOWN) shr 31  = 1 then MoveDown;
  if GetKeyState(VK_RIGHT) shr 31  = 1 then MoveRight;
  if GetKeyState(VK_LEFT) shr 31  = 1 then MoveLeft;

Теперь он непонятно как, но сталкивается. Опять не найду ошибку.