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

TTList<TBullet*>*bullets;

class TTList;
class TForm1 : public TForm
{
...
public:
TTList<TBullet*>*bullets;
}

bullets->Get

if(bullets->Get(0)->X>Form1->Width)
{
//удалить пулю 0, так как она вылезла за экран.
}

TBullet*bul=new TBullet();
bul->X=Позиция Х нашего персонажа.
bul->Y=Позиция Y нашего персонажа.
 
bul->dx=cos(angle)*HodbaSpeed;
bul->dy=sin(angle)*HodbaSpeed;

for(int i=0;i<bullets->Count;i++)
{
//Перемещаем пули
bullets->Get(i)->X+=bullets->Get(i)->dX;
bullets->Get(i)->Y+=bullets->Get(i)->dY;
 
//Смотрим не вылезли ли они за экран
if((bullets->Get(i)->X>PoleWidth)||(bullets->Get(i)->X<0)||
(bullets->Get(i)->Y>PoleHeight)||(bullets->Get(i)->Y<0)||)//Например мы вылезли за экран
     {
     delete bullets->Get(i);//Очищаем память
     bullets->Delete(i);//Удаляем указатель из списка
     i--;
     }
}

[+]void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Блаблабла....
....
........
};

VOID Example_SetSetSmoothingMode(HDC hdc)
{
   Graphics graphics(hdc);
 
   // Set the smoothing mode to SmoothingModeHighSpeed, and fill an ellipse.
   graphics.SetSmoothingMode(SmoothingModeHighSpeed);
   graphics.FillEllipse(&SolidBrush(Color(255, 0, 0, 0)), 0, 0, 200, 100);
 
   // Set the smoothing mode to SmoothingModeHighQuality, and fill an ellipse.
   graphics.SetSmoothingMode(SmoothingModeHighQuality);
   graphics.FillEllipse(&SolidBrush(Color(255, 0, 0, 0)), 200, 0, 200, 100);
}

Example_SetSetSmoothingMode(ГГ)

void Move()
{
//Обозначим переменные ближайшего объекта
int Xd = 170;
int Yd = 180;
int Xm = 356;
int Ym = 375;
int Xsmesh = Stalker->Width/2;
//Проверяем не сталкнёться ли ГГ с объектом
if (IsRightDown == true){
if (StPosX+speed>Xd && StPosX<Xm && StPosY>Yd && StPosY<Ym){}
else{
//если нет двигаем его
   StPosX += speed;
   StPosMinusX+= speed;
    }
}
if (IsLeftDown == true){
   if (StPosX-speed<Xm && StPosX>Xd && StPosY>Yd && StPosY<Ym){}
   else{
   StPosX -= speed;
   StPosMinusX -= speed;
  }
}
if (IsDownDown == true){
   if (StPosX>Xd && StPosX<Xm && StPosY+speed>Yd && StPosY<Ym){}
   else{
   StPosY += speed;
   StPosMinusY   += speed;
   }
}
if (IsUpDown == true) {
   if (StPosX>Xd && StPosX<Xm && StPosY-speed<Ym && StPosY>Yd){}
   else{
   StPosY -= speed;
   StPosMinusY  -= speed;
   }
}
}

TRect tp(StalkerPosX-10,StalkerPosY-10,StalkerPosX+10,StalkerPosY+10);//Предполагаю, что перс - квадратик 20*20

int ndx=cos(StalkerAngle)*Stalker_Speed;
int ndy=sin(StalkerAngle)*Stalker_Speed;

tp.Left+=dx;
tp.Right+=dx;
tp.Top+=dy;
tp.Bottom+=dy;

TRect intRect;//Никому не надо, но функция пересечения требует.
bool Finded=false;//Мі еще ни с чем не столкнулись
for(int i=0;i<PrepCol;i++)
     {
     if(IntersectRect(&intRect,&tp,&Prep[i]))
            {
            Finded=true;//Нашли столкновение
            break;
            }
     }
if(Finded==false)
     {
     stalkerPosX=tp.Left+10;
     stalkerPosY=tp.Top+10;
     }