Алгоритм движения объекта в 2D игре

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <conio.h> //Библиотека содержит функцию getch
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
// Описываем области в которые будем помещать картинки.
Graphics::TBitmap*Buf;        // Buffer - Окно в котором будут отображаться все картинки.
                             // В Буфер никаких картинок грузить не нужно.
 
Graphics::TBitmap*BackGround;// BackGround (Фон)  - Загружаем картинку с фоном.
 
Graphics::TBitmap*Cross;     // Cross (Перекрестие) - Загружаем любу
                             // картинку карторая будет перекрестием.
 
int Cells[10][10]={
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{1, 1, 0, 1, 1, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 1, 0, 1, 0, 0, 0, 1},
{1, 0, 1, 0, 0, 0, 1, 0, 0, 1},
{1, 0, 0, 0, 0, 1, 0, 0, 0, 1},
{1, 0, 1, 1, 1, 1, 0, 0, 0, 1},
{1, 1, 1, 0, 0, 0, 1, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
};
 
enum Direction {LEFT, UP, RIGHT, DOWN};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
class PlayerClass //Клас персонажу
{
int x, y;
public:
PlayerClass();
void DrawPlayer();
void CleanPlayer();
void MovePlayer(int Cells[10][10], Direction dir,TLabel *Label);
};
//---------------------------------------------------------------------------
PlayerClass::PlayerClass()
{
x=2;
y=1;
}
//---------------------------------------------------------------------------
void PlayerClass::DrawPlayer()
{
Buf->Canvas->Brush->Color=clBlack;
Buf->Canvas->Rectangle(x*20,y*20,x*20+20,y*20+20);
}
//---------------------------------------------------------------------------
void PlayerClass::CleanPlayer()
{
Buf->Canvas->Brush->Color=clWhite;
Buf->Canvas->Rectangle(x*20,y*20,x*20+20,y*20+20);
}
//---------------------------------------------------------------------------
void PlayerClass::MovePlayer(int Cells[10][10], Direction dir, TLabel *Label)
{
CleanPlayer();
switch(dir)
        {
        case LEFT: if ((x > 0) && Cells[x - 1][y] != 1) x--; break;
        case UP: if (y > 0 && Cells[x][y - 1] != 1) y--; break;
        case RIGHT: if (x < 20 && Cells[x + 1][y] != 1) x++; break;
        case DOWN: if (y < 20 && Cells[x][y + 1] != 1) y++; break;
        }
DrawPlayer();
Label->Caption=x;
}
//---------------------------------------------------------------------------
void __fastcall DrawField()
{
Form1->Canvas->Draw(0,0,Buf);
Buf->Canvas->Brush->Color=clSkyBlue;
for (int i=0;i<10;i++) //Проектування лабіринту
        {
        for (int j=0;j<10;j++)
                {
                if (Cells[i][j]==1)
                        {
                        Buf->Canvas->Rectangle(j*20,i*20,j*20+20,i*20+20);
                        }
                }
        }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//ShowCursor (Показать курсор) (False (Лож)) (True (Истина)).
//ShowCursor(false); // Скрываем курсор.
 
BackGround = new Graphics::TBitmap(); // Объявляем новую картинку.
//BackGround->LoadFromFile(".\\BackGround\\BackGround1.bmp"); // Загружаем картинку в область BackGround.
 
Cross = new Graphics::TBitmap(); // Объявляем новую картинку
//Cross->LoadFromFile(".\\Cross\\RedCross.bmp"); // Загрузить картику в область Cross.
//Cross->Transparent = 1;
 
//Width (Ширина).
//Height (Высота).
Buf = new Graphics::TBitmap();  // Объявляем новую область.
Buf->Width=Form1->Width;        // Выравниваем окно области картинки по ширине формы.
Buf->Height=Form1->Height;      // Выравниваем окно области картинки по высоте формы
//
//
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
// Enabled (Включено) (false или true) - включаем на всякий случай.
// Interval (Интервал в миллисекундах ) - выставляем 10.
Timer1->Enabled = true;
Timer1->Interval = 10;
 
 
// TPoint (Точка) - позиция.
// mp (MapPoint (Точка на карте)) - позиция на форме.
// ScreenToClient (Экран клиента).
// Mouse (Мышка).
// CursorPos (Cursor Position (Позиция курсора)).
 
TPoint mp=Form1->ScreenToClient(Mouse->CursorPos);
 
// int (Integer (Целое число))
// MouseX - Движение мыши по координате X = Позиции на форме координаты X = 0.
// MouseY - Движение мыши по координате Y = Позиции на форме координаты Y = 0.
int MouseX=mp.x;
int MouseY=mp.y;
 
//Теперь переходим к рисованию на форме.
// Canvas (Холст).
// Draw (Рисовать) - Начинает рисовать по координатам X, Y. в данном случае равные 0.
 
//Buf->Canvas->Draw(0,0,BackGround);
//Buf->Canvas->Draw(MouseX,MouseY,Cross);
 
//Buf->Canvas->Brush->Style=bsCross;
//Buf->Canvas->Rectangle(0,0,Form1->Width-16,Form1->Height-39);
 
DrawField();
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DrawField();
}
//---------------------------------------------------------------------------
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
PlayerClass Player;
Player.MovePlayer(Cells, UP, Label1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
PlayerClass Player;
Player.MovePlayer(Cells, LEFT, Label1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
PlayerClass Player;
Player.MovePlayer(Cells, DOWN, Label1);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
PlayerClass Player;
Player.MovePlayer(Cells, RIGHT, Label1);
}
//---------------------------------------------------------------------------