BomberMan на Delphi 7

[Odinok]

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

Поясню, почему в разы, а не половина. Если грамотно провести анализ сдвига карты, то можно заметить, что попиксельное смещение идет постоянно, но поклеточное только по прошествии некоторого времени, которое равно {Интервал таймера} * {Число пиксерей в клетке}. Т.е. обновление заднего фона требуется гораздо реже, чем кажется на первый взгляд. Мы просто делаем буфер больше чем вмещается на экране на 1 клетку, и двигаем вывод буфера по-пиксельно (выводить все равно каждый такт), а как только сдвиг насчитает размер клетки - перерисовывать буфер по данным массива, но уже применив сдвиг координат по карте, смещение заднего фона снова установить в 0 по нужной оси.

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

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

От Canvas нужно уходить, если дело касается масштабного сбора задника через малые промежутки времени, с учетом большого количества анимированных объектов.

А как можно избежать Canvas, точнее, какие еще функцию ввывода на экран бывают, я других не знаю


PS Огромное спасибо за ответы в теме

[Beermonza]

Читай в теме "Как Вы относитесь к созданию игр на Delphi?" с сообщения #442 и далее.

[Odinok]

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

procedure PlayerKeyLeft;     
begin
  if keyon=false then         
    begin
      keyon:=true;
      Player.TypeAnim:=Player.LeftAnim;
      If (Cell[Player.X-1,Player.Y].Move=1) or (Player.dX<>0) or (Player.dY<>0) then   
        If Player.dY=0 then
          begin 
            Player.dX:=Player.dX-Player.Speed;
            Player.TypeAnim:=Player.LeftAnim;
            If Player.dX=-Length_X then
              begin
                Player.dX:=0;
                Player.X:=Player.X-1;
              end;
          end else  
            If abs(Player.dY)<=(Length_Y div 2) then
              begin
                If Player.dY>0 then
                If Cell[Player.X-1,Player.Y].Move=1 then
                  begin
                    Player.dY:=Player.dY-Player.Speed;
                    Player.TypeAnim:=Player.UpAnim;
                  end;
                If Player.dY<0 then
                  If Cell[Player.X-1,Player.Y].Move=1 then
                    begin
                      Player.dY:=Player.dY+Player.Speed;
                      Player.TypeAnim:=Player.DownAnim;
                    end;
              end else
                If abs(Player.dY)>=(Length_Y div 2) then
                  begin
                    If Player.dY>0 then
                      begin
                        Player.dY:=Player.dY+Player.Speed;
                        Player.TypeAnim:=Player.DownAnim;
                        If Player.dY=Length_Y then
                          begin
                            Player.dY:=0;
                            Player.Y:=Player.Y+1;
                          end;
                      end;
                    If Player.dY<0 then
                      begin
                        Player.dY:=Player.dY-Player.Speed;
                        Player.TypeAnim:=Player.UpAnim;
                        If Player.dY=-Length_Y then
                          begin
                            Player.dY:=0;
                            Player.Y:=Player.Y-1;
                          end;
                      end;
                  end;
    end;
end;

procedure PlayerKeyUp;       
begin
  if keyon=false  then         
    begin
      keyon:=true;
      Player.TypeAnim:=Player.UpAnim;
      if (Cell[Player.X,Player.Y-1].Move=1) or (Player.dX<>0) or (Player.dY<>0) then    
        if Player.dX=0 then
          begin
            Player.dY:=Player.dY-Player.Speed;  
            Player.TypeAnim:=Player.UpAnim;
            If Player.dY=-Length_Y then
              begin
                Player.dY:=0;
                Player.Y:=Player.Y-1;
              end;
          end else
            if abs(Player.dX)<=(Length_X div 2) then
              begin
                If Player.dX>0 then
                  If Cell[Player.X,Player.Y-1].Move=1 then
                    begin
                      Player.dX:=Player.dX-Player.Speed;
                      Player.TypeAnim:=Player.LeftAnim;
                    end;
                If Player.dX<0 then
                  If Cell[Player.X,Player.Y-1].Move=1 then
                    begin
                      Player.dX:=Player.dX+Player.Speed;
                      Player.TypeAnim:=Player.RightAnim;
                    end;
              end else
                if abs(Player.dX)>=(Length_X div 2) then
                  begin
                    If Player.dX>0 then
                      begin
                        Player.dX:=Player.dX+Player.Speed;
                        Player.TypeAnim:=Player.RightAnim;
                        If Player.dX=Length_X then
                          begin
                            Player.dX:=0;
                            Player.X:=Player.X+1;
                          end;
                      end;
                    If Player.dX<0 then
                      begin
                        Player.dX:=Player.dX-Player.Speed;
                        Player.TypeAnim:=Player.LeftAnim;
                        If Player.dX=-Length_X then
                          begin
                            Player.dX:=0;
                            Player.X:=Player.X-1;
                          end;
                      end;
                  end;
    end;
end;

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

[Beermonza]

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

как сделать так, что бы эти 4 функции превратить в одну. Посоветуйте что-нибудь.

Смотри в суть процесса. Движение объекта - это изменение скорости по осям координат. Есть положительные скорости, есть отрицательные. При положительных скоростях объект перемещается слева направо, сверху вниз, а при отрицательных - справа налево, снизу вверх. При этом код функции проделывает операцию сложения текущих координат со скоростью (округляет, если надо) всегда, и в этом универсальность.

procedure PlayerMove(SpeedX, SpeedY: Integer);  // Лучше Real и округление

Если обе переменные равны нулю, объект будет стоять на месте. Обработка переменных по нажатию клавиш. Думай как выглядит код. Если что пиши сюда где застрял.

[Odinok]

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

Смотри в суть процесса. Движение объекта - это изменение скорости по осям координат. Есть положительные скорости, есть отрицательные. При положительных скоростях объект перемещается слева направо, сверху вниз, а при отрицательных - справа налево, снизу вверх. При этом код функции проделывает операцию сложения текущих координат со скоростью (округляет, если надо) всегда, и в этом универсальность.

procedure PlayerMove(SpeedX, SpeedY: Integer);  // Лучше Real и округление

Если обе переменные равны нулю, объект будет стоять на месте. Обработка переменных по нажатию клавиш. Думай как выглядит код. Если что пиши сюда где застрял.

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

procedure PlayerMove(SpeedX, SpeedY: Integer);  // Лучше Real и округление

изменять координаты по х или по у, if'ами что ли?


А и вы говорили, про более быстрый таймер, это как?

[Beermonza]

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

изменять координаты по х или по у, if'ами что ли?

Да, будет четыре условия. Процедура PlayerMove будет находиться в теле таймера. Она только размещает объекты в буфере. Обработка движения отправляется под контроль формы в событие OnKeyDown. В ней, в зависимости от нажатой клавиши и положения объекта, в Cell[].Move отслеживаются свободные клетки. Если при нажатой клавише "вниз" Cell[Player.X, Player.Y + 1].Move окажется проходной, то SpeedY станет положительной единицей заданной скорости. То же самое по всем кнопкам, со своими сдвигами.

В таймере, после процедуры PlayerMove, переменные скорости SpeedX и SpeedY обнуляются. В следующий такт, если клавиши по прежнему зажаты, PlayerMove снова подвинет объекты. Если к началу выполнения процедуры PlayerMove клавиши так и не были нажаты, то объекты будут стоять на местах, поскольку SpeedX и SpeedY по прежнему хранят нулевую скорость для осей координат.

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

А и вы говорили, про более быстрый таймер, это как?

Это конечный цикл в теле которого выполняется сложный код и подсчитывается процессорное время выполнения кода в последней строке. Все проходы сохраняются в массив. Затем, после окончания цикла, данные выводятся списком, так, что можно просмотреть время выполнения кода в каждом такте. Таким образом выбирается интервал для стандартного таймера. У меня код выполняется за 11-14 мс, вывод в форму за 16 мс, итого: 30 мс, ...интервал таймера TTimer я поставил 31 мс. Интервал 32 мс уже не котируется в TTimer, он выходит за замки двух оттяжек времени по 15-16 мс, и равен тем же 46 мс. Т.е. ты уже наверное понимаешь, что TTimer считает оттяжками по 15-16 мс, и нет смысла ставить разнообразные числа интервала, все равно таймер реагировать на них не будет. Учить создавать быстрый код и тебе 30 кадров в секунду хватить на всю жизнь, пока ты работаешь с 2D.