Создание игры(2d)

int x1=100;
int y1=100;
int x2=500;
int y2=700;

Canvas->MoveTo(x1,y1);
Canvas->LineTo(x2,y2);

#include<myclasses.cpp>
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
FPoint p1(100,100);
FPoint p2(400,300);
Canvas->Pen->Width=1;
Canvas->Ellipse(p1.x-5,p1.y-5,p1.x+5,p1.y+5);
Canvas->Ellipse(p2.x-5,p2.y-5,p2.x+5,p2.y+5);
float angle=p1.Polar(&p2);
Canvas->Pen->Width=3;
int X=cos(angle)*500+p2.x;
int Y=sin(angle)*500+p2.y;
Canvas->Ellipse(X-5,Y-5,X+5,Y+5);
Canvas->MoveTo(p2.x,p2.y);
Canvas->LineTo(X,Y);
}

#include <complex.h>
typedef complex<double>Complex;
int x1=100;
        int y1=100;
        int x2=200;
        int y2=300;
    Complex point1(x1,y1);
        Complex point2(x2,y2);
        Complex Vector=(point2-point1);
        Complex point3=Complex(real(Vector)*100,imag(Vector)*100);
        Image1->Canvas->Pen->Color=clBlue;
        Image1->Canvas->MoveTo(real(point1),imag(point1));
        Image1->Canvas->LineTo(real(point2),imag(point2));
        Image1->Canvas->Pen->Color=clRed;
        Image1->Canvas->LineTo(real(point3),imag(point3));

#include <complex.h>
typedef complex<double>Complex;
int x1=100;
        int y1=100;
        int x2=200;
        int y2=300;
        Complex point1(x1,y1);
        Complex point2(x2,y2);
        Complex Vector=(point2-point1);
        Complex point3=point2+Complex(real(Vector)*100,imag(Vector)*100);
        Image1->Canvas->Pen->Color=clBlue;
        Image1->Canvas->MoveTo(real(point1),imag(point1));
        Image1->Canvas->LineTo(real(point2),imag(point2));
        Image1->Canvas->Pen->Color=clRed;
        Image1->Canvas->LineTo(real(point3),imag(point3));

Complex Normalize(Complex Vector)
{
    double x=real(Vector);
    double y=imag(Vector);
    double length=sqrt(x * x + y * y);
    x = x/length;
    y = y/length;
    return Complex(x,y);
}

int x1=0,y1=0;
int x2=10,y2=200;
int x3=200,y3=150;
int x4=100,y4=50;
int x5=100,y5=0;

Create(AnsiString NameOfMemory,int type,AnsiString file_name,int x,int y)
/*
NameOfMemory - Имя в памяти(любое). Регистр влияет на имя!!!
file_name - Моделька(формат *.bmp).
x и y - координаты создания(можно указать по 0 и 0).
*/
PutAt(AnsiString NameOfMemory,int x,int y)
/*
NameOfMemory - Имя модели в памяти. Повторяю - Регистр влияет на имя!!!
x и y - координаты
*/
Move(AnsiString NameOfMemory,int enable_move_left,int enable_move_top,int move_speed,int client_width,int client_height)
/*
NameOfMemory - Имя модели в памяти.
enable_move_left и enable_move_top - разрешение на передвижение. enable_move_left: -1 на передвижение влево и 1 на передвижение вправо. enable_move_top: -1 на передвижение вверх и 1 на передвижение вниз. Можно использовать enable_move_left и enable_move_top одновременно.
move_speed - скорость.
client_width и client_height - длина и ширина клиентской части. (Не всей ФОРМЫ!!!).
*/
loaded(AnsiString NameOfMemory) //Загружен ли NameOfMemory в память.
Rotate(AnsiString NameOfMemory, int gpoint_x,int gpoint_y,Graphics::TBitmap *Backbuffer)
/*
Здесь происходит и поворот NameOfMemory и сразу же его прорисовка.
gpoint_x и gpoint_y - координаты. Не знаю как объяснить. Экспериментируйте :D
Backbuffer - это Задний буфер. (Я лично рисую в задний буфер. Если хотите можете поменять на TCanvas)
*/
AttackAcotr(AnsiString NameOfMemory_Attacker, AnsiString NameOfMemory_Defender)
/*
Только сегодня доработал эту функцию. Была путаница с памятью. Немножко подглючивает.
NameOfMemory_Attacker - имя в памяти атакующего.
NameOfMemory_Defender - имя в памяти обороняющего.
*/

// расчет координат по углу
// X,Y - текущие координаты, RAD = 0.01745333 или ПИ/180
// speed - индекс скорости, angle - угол движения
 
X+=cos(RAD*angle)*speed; 
Y+=sin(RAD*angle)*speed;
 
// угол между двумя точками, GR = 57.29564553 или 180/ПИ
 
float rx = x1 - x2;
float ry = y1 - y2;
if (rx != 0 && ry != 0) angle = atan2 (ry, rx) * GR;

//--------------------MoonClasses.cpp--------------------------
 
class TText
{
 public:
 int x,y,time,indx; String str;
 int Destruct(int indx);
 int Lua_Load(lua_State*st)
 {
    TLua lua(st);
    int top = lua.GetTop();
    if(top>0)
    {
        x = lua.ToNumber(top-3);
        y = lua.ToNumber(top-2);
        time = lua.ToNumber(top-1);
        str = lua.ToString(top);
        return 1;
    }
    return 0;
 }
 void Render(TCanvas* Canvas)
    {
     Canvas->TextOutA(x,y,str);
     Canvas->TextOutA(x,y+10,IntToStr(time));
     time--;
     if(time==0)Destruct(indx);
    }
};
 
//---------------------------Engine.cpp-------------------------------------
 
int TText::Destruct(int indx)
{
    Txt->Delete(indx);
    //Смещение всех индексов на одну единицу влево.
    for(int i=indx;i<Txt->Count;i++)Txt->Get(i)->indx--;
}

int Lua_Message(lua_State*st)
{
 TText *Txt0 = new TText;
 Txt0->Lua_Load(st);
 Txt0->indx = Txt->Count;
 Txt->Add(Txt0);
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "lua.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TLua Lua;
 
int Lua_ShowMessage(lua_State*st)
{
TLua lua(st);
int top=lua.GetTop();
if(top>0) ShowMessage(lua.ToString(top));
return 0;
}
 
int Lua_Return(lua_State*st)
{
TLua lua(st);
lua.Push(1);
return 1;
}
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Lua.RegFunction("ShowMessage",Lua_ShowMessage);
Lua.RegFunction("Return",Lua_Return);
Lua.DoFile("test.lua");
}
//---------------------------------------------------------------------------