Разработка "игры" для зачета

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include "myclasses.cpp"
#pragma hdrstop
 
#include "mmsystem.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//DWORD fdwSound = SND_ASYNC | SND_FILENAME;
//HWND cur;
TForm1 *Form1;
 
Graphics::TBitmap*back;//Задний буффер
Graphics::TBitmap*bus;//Задний буффер
float X,Y,start=0,angle,speed=0,RotSpeed=2;
const float M_RAD_CONV=M_PI/180.0;//Для преобразований градусов и радианов
bool flag[4];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
//PlaySound("con_attack3.wav",NULL, fdwSound);
 
/*cur=LoadImage(0,"arrow.cur",IMAGE_CURSOR,0,0,LR_LOADFROMFILE);
if (cur==0)
    ShowMessage("Ошибка загрузки курсора!");
else
{
  Screen->Cursors[1]=cur;
  Form1->Cursor=1;
} */
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
back=new Graphics::TBitmap();
back->Width=Form1->Width;
back->Height=Form1->Height;
bus=new Graphics::TBitmap();
bus->LoadFromFile("bus.bmp");
X=100;
Y=100;
angle=10;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
back->Canvas->FillRect(Rect(0,0,back->Width,back->Height));//Очищаем задний буффер
RotateDC(back->Canvas->Handle,angle);
SetViewportOrgEx(back->Canvas->Handle,X,Y,NULL);//Смещаем нашу точку
back->Canvas->Draw(-33,-31,bus);
 
SetViewportOrgEx(back->Canvas->Handle,0,0,NULL);//Смещаем нашу точку назад
RotateDC(back->Canvas->Handle,0);
Form1->Canvas->Draw(0,0,back);//И рисуем все на экран - "обновление экрана"
 
X+=cos(M_RAD_CONV*angle)*speed;
Y+=sin(M_RAD_CONV*angle)*speed;
if(X<-50)X=Form1->Width+50;
if(Y<-50)Y=Form1->Height+50;
if(X>Form1->Width+50)X=-50;
if(Y>Form1->Height+50)Y=-50;
 
if (flag[1]==1 && start<10){
    start=start+0.1;
}
if (flag[1]==0 && start>0){
    start=start-0.05;
    if (start<0){
    start=0;
    }
}
if (flag[3]==0 && start<0){
    start=start+0.05;
    if (start>0){
    start=0;
    }
}
if (flag[3]==1 && start>-3){
    start=start-0.1;
}
if (flag[1]==1 || flag[1]==0){
    speed=start;
}
if (flag[3]==1 && flag[0]==0 && flag[2]==0){
    speed=start;
}
if (flag[0]==1 && flag[3]==0 && flag[2]==0 && start!=0){
    angle-=RotSpeed;
}
if (flag[2]==1 && flag[0]==0 && flag[3]==0 && start!=0){
    angle+=RotSpeed;
}
if (flag[3]==1 && flag[0]==1){
    speed=start;
    angle+=RotSpeed;
}
if (flag[3]==1 && flag[2]==1){
    speed=start;
    angle-=RotSpeed;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if (Key==37){
    flag[0]=1;
}
if (Key==38){
    flag[1]=1;
}
if (Key==39){
    flag[2]=1;
}
if (Key==40){
    flag[3]=1;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
if (Key==37){
    flag[0]=0;
}
if (Key==38){
    flag[1]=0;
}
if (Key==39){
    flag[2]=0;
}
if (Key==40){
    flag[3]=0;
}
}
//---------------------------------------------------------------------------