спрайты на Image-ах - Pac Man код в теме Delphi7 / как сделать игровое поле так, чтобы не столкнуться с преградами. Делфи

[tonya3]

Как сделать стены, чтоб персонаж не проходил сквозь них? Использовала Image1(фон) и Image2 (персонаж). Помогите, пожалуйста.

[digitalis]

Да пусть попробует - расшибёт лоб и одумается
Кто же знает, что там намалёвано в Image1. Если стены фиксированной толщины по краям image1, то по x < Image1.left + d и х > (Image1.left+ Image1.width) -d. Если они - другого цвета, то по цвету пикселей.
Речь идёт, я так понимаю, о самой примитивной 2D игре ?

[tonya3]

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

[Alar]

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

как сделать игровое поле так

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

Персонаж в свою очередь перемещается по другой матрице, или хранит информацию о своём местоположении в другой матрице. и каждый раз идёт запрос к матрице - можно ли туда переместиться.

[digitalis]

Я не специалист по играм, но если бы мне пришлось прогить такую афигнею, у меня было бы 2 пути:
1. Кроме выведенного на экран Image, завёл бы в памяти массив запрещённых для персонажа позиций, где он стукался бы об стенки. Массив рассчитывается статически один раз при загрузке (стены ведь не двигаются?) . И при попытке войти на недопустимую точку она (попытка) бы игнорировалась. Возможно, с выдачей звукового сигнала "БУМ!"
2. Без дополнительного массива. Анализировать по цвету пикселей Bitmap этого Image, и если они отличаются от цвета фона (чёрный) - не пущать.
Первый способ вроде быстрее, но при интерактивной игре скорость не сильно и нужна, человек - медленный. Так что я выбрал бы второй.
Игрописатели, возможно, выдадут другие варианты.

[tonya3]

Alar, Это всё понятно. Но как именно это сделать?
Уже не первый день ищу информацию об этом. Находила похожие игры, но там либо код переписан на другом языке, либо нет того, что нужно мне.

digitalis, Хм...2 способ звучит круто, но как это сделать...
Спасибо огромное за Вашу помощь

[Arigato]

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

[Alar]

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

Но как именно это сделать?

If true then переместить

ВСЁ! )

[Kronos913]

У тебя картинка сохранена в файл как картинка, или рисуется их программы?

[Arigato]

Не самый лучший способ строить спрайты на Image-ах. Но набросал пример по вашему заданию, вот код с движением, управлением и обработкой препятствий:

procedure TFMain.FormCreate(Sender: TObject);
begin
  Direction.X := 1;
  Direction.Y := 0;
  Mouth := 0;
  MoveTimer.Enabled := True;
end;

procedure TFMain.MoveTimerTimer(Sender: TObject);
var
  x, y, p, img: Integer;
  isMove: Boolean;
begin
  img := 0;
  x := Image2.Left + Direction.X;
  y := Image2.Top + Direction.Y;
  isMove := True;
  if Direction.X = 1 then begin
    img := 0;
    if x + Image2.Width < Image1.Width then begin
      for p := y to y + Image2.Height do
        if Image1.Canvas.Pixels[x+Image2.Width,p] <> clBlack then begin
          isMove := False;
          Break;
        end;
    end;
  end;
  if Direction.Y = 1 then begin
    img := 1;
    if y + Image2.Height < Image1.Height then begin
      for p := x to x + Image2.Width do
        if Image1.Canvas.Pixels[p,y+Image2.Height] <> clBlack then begin
          isMove := False;
          Break;
        end;
    end;
  end;
  if Direction.X = -1 then begin
    img := 2;
    if x >= 0 then begin
      for p := y to y + Image2.Height do
        if Image1.Canvas.Pixels[x,p] <> clBlack then begin
          isMove := False;
          Break;
        end;
    end;
  end;
  if Direction.Y = -1 then begin
    img := 3;
    if y >= 0 then begin
      for p := x to x + Image2.Width do
        if Image1.Canvas.Pixels[p,y] <> clBlack then begin
          isMove := False;
          Break;
        end;
    end;
  end;
  if isMove then begin
    if x < -Image2.Width then x := Image1.Width;
    if x > Image1.Width + Image2.Width then x := -Image2.Width;
    if y < -Image2.Height then y := Image1.Height;
    if y > Image1.Height + Image2.Height then y := -Image2.Height;
    Image2.Left := x;
    Image2.Top := y;
  end;
  Inc(Mouth);
  if Mouth = 8 then begin
    Image2.Tag := 1 - Image2.Tag;
    Mouth := 0;
  end;
  with Image2.Canvas do begin
    Brush.Color := clBlack;
    Rectangle(0, 0, Image2.Width, Image2.Height);
  end;
  ImageList1.Draw(Image2.Canvas, 0, 0, img * 2 + Image2.Tag);
end;

procedure TFMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RIGHT: begin
      Direction.X := 1;
      Direction.Y := 0;
    end;
    VK_DOWN: begin
      Direction.X := 0;
      Direction.Y := 1;
    end;
    VK_LEFT: begin
      Direction.X := -1;
      Direction.Y := 0;
    end;
    VK_UP: begin
      Direction.X := 0;
      Direction.Y := -1;
    end;
  end;
end;

В архиве готовый проект под Делфи 7. Дальше можете дорабатывать в соответствии со своим заданием.