Игра змейка

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <cstdlib>
#include <vector>
#pragma hdrstop
 
#include "Mains.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
using namespace std;
 
TMain *Main;
const Size=16;
vector<int> BodyX(0), BodyY(0);
int x=6, y=2, AppleX=0, AppleY=0;
WORD k;
int score = 0;
//---------------------------------------------------------------------------
__fastcall TMain::TMain(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMain::FormShow(TObject *Sender)
{
randomize();
Main->DoubleBuffered=true;
//Создаем яблоко
CreateApple();
}
 
void __fastcall TMain::AddBody(int x, int y)
{
 BodyX.push_back(x);
 BodyY.push_back(y);
 PaintGame(clBlue,x, y);
}
 
//Перерисовывем тело
void __fastcall TMain::PaintBody(int x, int y)
{
int oldx, oldy;
  for (unsigned i=0; i<BodyX.size(); i++){
    oldx=BodyX[i];
    oldy=BodyY[i];
    BodyX[i] = x;
    BodyY[i] = y;
    PaintGame(clBlue,x, y);
    x=oldx;
    y=oldy;
  }
 PaintGame(clLime,x, y);
}
 
//Генерируем координаты яблока
void __fastcall TMain::CreateApple()
{
 do{
     AppleX = rand()%Main->ClientWidth/Size;
     AppleY = rand()%Main->ClientHeight/Size;
     //Проверяем что яблоко не сгенерировалось на теле или голове змейки
     if (AppleX!=x&&AppleY!=y) true;
    for (unsigned i = 0; i<BodyX.size(); i++)
    {
        if (AppleX!=BodyX[i]||AppleY!=BodyY[i]) true;
    }
 
}
    while (false);
}
 
//Перерисовываем змейку
void __fastcall TMain::PaintGame(TColor c, int x, int y)
{
  Main->Canvas->Brush->Color=c;
  Main->Canvas->Pen->Color=c;
  Main->Canvas->RoundRect(Size*x,Size*y,Size*(x+1),Size*(y+1),8,8);
}
 
//Начальное положение змейки и яблока-------------------------------------------
void __fastcall TMain::FormPaint(TObject *Sender)
{
 randomize();
 PaintGame(clBlue, x, y);
 PaintGame(clRed, AppleX, AppleY);
 //Создаем тело
for (int i = 1; i < 4; i++) {
    AddBody(x-i,y);
}
}
//ловим события нажатия клавиш, запускаем таймер-------------------------------
void __fastcall TMain::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
 k = Key;
if (Timer1->Enabled!=true)
 Timer1->Enabled=true;
}
 
//Очистка игрового поля
void __fastcall TMain::GameClear(int x, int y)
{
PaintGame(clLime, x, y);
 for (unsigned i = 0; i<BodyX.size(); i++)
    {
        PaintGame(clLime, BodyX[i], BodyY[i]);
    }
  BodyX.clear();
  BodyY.clear();
}
 
//------------------------------------------------------------------------------
void __fastcall TMain::Timer1Timer(TObject *Sender)
{
int oldx=x, oldy=y;
Boolean finish=false;
if (k==VK_LEFT) x--;
if (k==VK_RIGHT) x++;
if (k==VK_UP) y--;
if (k==VK_DOWN) y++;
//Проверяем что координаты головы и тела не соприкоснулись
for (unsigned i = 0; i<BodyX.size(); i++)
{
 if (x==BodyX[i] && y==BodyY[i]) {
  finish=true;
  break;
 }
}
 
//Если голова змейки задела тело или вышла за границы игрового поля то завершаем игру
if ((BodyX.size()+BodyY.size())-1>=(Main->ClientHeight+Main->ClientWidth)/Size || finish==true || x*Size==Main->ClientWidth || x*Size<0 || y*Size==Main->ClientHeight || y*Size<0) {
 Timer1->Enabled=false;
 int userRosponse = MessageDlg("Игра окончена. Ваш результат "+ IntToStr(score) + ". Хотите повторить?", mtInformation,
                 TMsgDlgButtons() << mbYes << mbNo, 0);
 if (userRosponse == mrNo)
 {
  Application->Terminate();
 }
if (userRosponse == mrYes)
    {
      //Очищаем игровое поле
      GameClear(oldx,oldy);
      x=6;
      y=2;
      Main->FormPaint(0);
    }
}
else
{
  PaintGame(clLime, oldx, oldy);
  PaintGame(clBlue, x, y);
  //Рисуем тело
  PaintBody(oldx, oldy);
 if(x==AppleX&&y==AppleY) {
    for (unsigned i = 0; i<BodyX.size(); i++)
    {
        oldx=BodyX[i];
        oldy=BodyY[i];
    }
   AddBody(oldx,oldy);
   CreateApple();
   PaintGame(clRed, AppleX, AppleY);
  score++;
 }
}
}
//---------------------------------------------------------------------------