Игра Змейка, придумать функцию движения

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int r=0,x=0,y=0,h=0,b=0,k=0,l=0,g=0;
//---------------------------------------------------------------------------
class Base
{
protected:
int Width, Height;
int Left,Top;
TColor Color;
TCanvas* Canvas;
public:
Base();
Base(int w,int h, int l,int t);
void SetWidth(int w);
void SetHeight(int h);
void SetWH(int w, int h){SetWidth(w); SetHeight(h);}
void SetLeft(int l){Left=l;}
void SetTop(int t){Top=t;}
void SetLT(int l, int t){SetLeft(l); SetTop(t);}
void SetColor(TColor c){Color=c;}
void SetCanvas(TCanvas* cnv) {Canvas = cnv;}
int GetWidth()  {return Width; }
int GetHeight() {return Height;}
int GetLeft()   {return Left;}
int GetTop()    {return Top; }
TColor GetColor()  {return Color;}
TCanvas* GetCanvas() {return Canvas;}
virtual int CalcArea() = 0;
virtual void Draw(int i) = 0;
virtual void Draw1() = 0;
virtual int Dvig(int Len)=0;
virtual int Dvig1(int k,int Len, int i)=0;
};
//---------------------------------------------------------------------------
typedef unsigned int UINT;
class ArrShapes
{
private:  Base** Arr;
protected:
UINT Len;
public:  ArrShapes() {Arr = 0; Len = 0;}
ArrShapes(UINT l);
ArrShapes(const ArrShapes &A);
~ArrShapes() {Clear();}
 void SetSize(UINT l);
 UINT GetSize() {return Len;}
 void SetType(UINT i, UINT type);
 UINT GetType(UINT i);
 Base* operator[](UINT i);
 ArrShapes& operator=(const ArrShapes &A);
 void Clear();
 void Reset();
 void Draw(int i);
 };
//---------------------------------------------------------------------------
 class Square : public Base
{
private:
        Square* Arr1;
public:
Square () {};
Square (int w, int h, int l, int t) :  Base (w, h, l, t) {};
void SetWidth(int w);  void SetHeight(int h);
int CalcArea();
void Draw(int i);
void Draw1();
int Dvig(int Len);
int Dvig1(int k,int Len, int i);
};
 
 //---------------------------------------------------------------------------
 enum {SQR};
 //---------------------------------------------------------------------------
 UINT ArrShapes::GetType(UINT i)
 {
 Base* s;
 if (s = dynamic_cast<Square*>(Arr[i]))
 return SQR;
 throw 13;
 }
 
 //---------------------------------------------------------------------------
 void ArrShapes::SetSize(UINT l)
 {
 Clear();
 Len = l;
 Arr = new Base*[Len];
 for(UINT i=0; i<Len; i++)
 Arr[i] = 0;
 }
 //---------------------------------------------------------------------------
 void ArrShapes::Clear()
 {
 if (Arr)
 {
 for (UINT i = 0; i < Len; i++)
 if (Arr[i]) delete Arr[i];
 delete[] Arr;
 Arr = 0;   Len = 0;
 }
 }
 //---------------------------------------------------------------------------
 ArrShapes::ArrShapes(UINT l)
 {
 Arr = 0;
 Len = 0;
 SetSize(l);
 }
  //---------------------------------------------------------------------------
 ArrShapes::ArrShapes(const ArrShapes &A)
 {
 Arr = 0;
 Len = 0;
 operator=(A);
 }
 //---------------------------------------------------------------------------
 void ArrShapes::Reset()
 {
 if (Arr)
{
if (!Arr[0]) return;
TCanvas* tmp = Arr[0]->GetCanvas();
for (UINT i=0; i< Len; i++)
{
if (Arr[i]) delete Arr[i];
SetType(i, i%5);
Arr[i]->SetCanvas(tmp);
Arr[i]->SetLT(i % 5 * 30, i / 5 * 30); 
}
}
}
//---------------------------------------------------------------------------
void ArrShapes::Draw(int i)
{
for (UINT i=0; i<Len; i++)
if (Arr[i])
Arr[i]->Draw(i);
}
 //---------------------------------------------------------------------------
 Base* ArrShapes::operator[](UINT i)
 {
 if (i < Len)
 {
 if (Arr[i])
 return Arr[i];
 throw 12;
 }
 throw 10;
 }
 //---------------------------------------------------------------------------
 void ArrShapes::SetType(UINT i, UINT type)
{
if (type >= 2) throw 11;
if (i < Len)
{
if (Arr[i]) delete Arr[i];
switch(type)
{
case 1:
Arr[i] = new Square;
break;
}
}
else
throw 10;
}
 //---------------------------------------------------------------------------
 ArrShapes& ArrShapes::operator=(const ArrShapes &A)
 {
 if(this == &A) return *this;
 Clear();
 SetSize(A.Len);
 for(UINT i=0; i<Len; i++)
 {
 SetType(i, A.GetType(i));
 *(Arr[i]) = *(A.Arr[i]);
 }
 return *this;
 }
 //---------------------------------------------------------------------------
//---------------------------------------------------------------------------
Base::Base()
{
Width = 10;
Height = 10;
Top = 0;
Color = 0;
Canvas = 0;
}
//---------------------------------------------------------------------------
Base::Base(int w, int h, int l, int t)
{
Width = w;
Height = h;
Left = l;
Top = t;
Color = 0;
Canvas = 0;
}
//---------------------------------------------------------------------------
void Base::SetWidth(int w)
{
if (w > 0) Width = w;
}
//---------------------------------------------------------------------------
void Base::SetHeight(int h)
{
if (h > 0) Height = h;
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
int Square::CalcArea()
{
return Width * Height;
}
//---------------------------------------------------------------------------
int Square::Dvig(int Len)
{
        if (x<=100 && b==0)
        {
 
                Left=x+10;
                x=x+10;
                r++;
        }
        else
        {
                if(y<=100 && h==0 && b==0)
                {
                        y=y+10;
                        Top=y;
                        Left=x;
                        l++;
                }
                else
                {
                        h=x;
                        b=y;
                        if(h==0)
                        {
                                Top=y-10;
                                 y=y-10;
                                 Left=x;
                        }
                        else
                        {
                                Left=x-10;
                                x=x-10;
                                Top=110;
                        }
                }
        }
        if ((l+r)==(Len))
        {
                if(r!=0)
                {
                x=x-(r-1)*10;
                r=0;
                }
                if(l!=0)
                {
                y=y-(l-1)*10;
                l=0;
                }
        }
}
//---------------------------------------------------------------------------
 
int Square::Dvig1(int k,int Len, int i)
{
        Square *tmp;
        tmp=new Square[Len];
        switch(k)
        {
                case(0):
                tmp[i].SetLeft(x);
                x=x+10;
                r++;
                if (r==(Len))
                {
                        x=x-(Len-1)*10;
                        r=0;
                }
                break;
                case(1):
                tmp[i].SetTop(y);
                y=y+10;
                Left=x;
                r++;
                if (r==(Len))
                {
                        y=y-(Len-1)*10;
                        r=0;
                }
                break;
                case(2):
                Left=x-10;
                x=x-10;
                Top=y;
                break;
                case(3):
                Top=y-10;
                y=y-10;
                Left=x;
                break;
        }
        Arr1=tmp;
}
//---------------------------------------------------------------------------
void Square::Draw(int i)
{
if (!Canvas) return;
Canvas->FillRect(Rect(Arr1[i].GetLeft(), Arr1[i].GetTop(),Arr1[i].GetLeft() + Width, Arr1[i].GetTop() + Height));
TColor old = Canvas->Pen->Color;
Canvas->Pen->Color = Color;
Canvas->MoveTo(Arr1[i].GetLeft(), Arr1[i].GetTop());
Canvas->LineTo(Arr1[i].GetLeft() + Width, Arr1[i].GetTop());
Canvas->LineTo(Arr1[i].GetLeft() + Width, Arr1[i].GetTop() + Height);
Canvas->LineTo(Arr1[i].GetLeft(), Arr1[i].GetTop() + Height);
Canvas->LineTo(Arr1[i].GetLeft(), Arr1[i].GetTop());
Canvas->Pen->Color = old;
}
//---------------------------------------------------------------------------
void Square::Draw1()
{
if (!Canvas) return;
Canvas->FillRect(Rect(0,0,1000,1000));
}
//---------------------------------------------------------------------------
void Square::SetWidth(int w)
{
if (w > 0)
{
Width = w;
Height = w;
}
}
//---------------------------------------------------------------------------
void Square::SetHeight(int h)
{
if (h > 0)
{
Width = h;
Height = h;
}
}
//---------------------------------------------------------------------------
ArrShapes ArrA, ArrB;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
try
 /*       {
                int q=Edit1->Text.ToIntDef(1);
                for(int i=0;i<q;i++)
                {
                        ArrA.SetType(i,1);
                        ArrA[i]->SetCanvas(Image1->Canvas);
                        ArrA[i]->SetColor(255);
                        ArrA[i]->Dvig(q);
                        if(i==0)
                        {
                                ArrA[i]->Draw1();
                        }
                        ArrA[i]->Draw(i);
                }
        }
        catch(int e)
        {
                switch(e)
                {
                case 10:
                        ShowMessage("????? ?? ??????? ???????");
                        break;
                case 11:
                        ShowMessage("???????? ??? ??????");
                        break;
                case 12:
                        ShowMessage("?????? ?????? ??? ?? ???? ???????");
                        break;
                case 13:
                        ShowMessage("??????????? ??? ??????");
                break;
                }
        } */
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
 try
        {
                int q=Edit1->Text.ToIntDef(1);
                for(int i=0;i<q;i++)
                {
                        ArrA.SetType(i,1);
                        ArrA[i]->SetCanvas(Image1->Canvas);
                        ArrA[i]->SetColor(255);
                        ArrA[i]->Dvig1(3,q,i);
                        if(i==0)
                        {
                                ArrA[i]->Draw1();
                        }
                        ArrA[i]->Draw(i);
                }
        }
        catch(int e)
        {
                switch(e)
                {
                case 10:
                        ShowMessage("????? ?? ??????? ???????");
                        break;
                case 11:
                        ShowMessage("???????? ??? ??????");
                        break;
                case 12:
                        ShowMessage("?????? ?????? ??? ?? ???? ???????");
                        break;
                case 13:
                        ShowMessage("??????????? ??? ??????");
                break;
                }
        }
 
 
 
 
 
/* Base* Array[2];
for(int i=0;i<2;i++)
{
Array[i] = new Square;
Array[i]->SetCanvas(Image1->Canvas);
Array[i]->SetColor(255);
Array[i]->Dvig1(3);
if(i==0)
{
        Array[i]->Draw1();
}
Array[i]->Draw();
}*/
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button10Click(TObject *Sender)
{
try
        {
                int q=Edit1->Text.ToIntDef(1);
                for(int i=0;i<q;i++)
                {
                        ArrA.SetType(i,1);
                        ArrA[i]->SetCanvas(Image1->Canvas);
                        ArrA[i]->SetColor(255);
                        ArrA[i]->Dvig1(1,q,i);
                        if(i==0)
                        {
                                ArrA[i]->Draw1();
                        }
                        ArrA[i]->Draw(i);
                }
        }
        catch(int e)
        {
                switch(e)
                {
                case 10:
                        ShowMessage("????? ?? ??????? ???????");
                        break;
                case 11:
                        ShowMessage("???????? ??? ??????");
                        break;
                case 12:
                        ShowMessage("?????? ?????? ??? ?? ???? ???????");
                        break;
                case 13:
                        ShowMessage("??????????? ??? ??????");
                break;
                }
        }
 
/*  Base* Array[2];
for(int i=0;i<2;i++)
{
Array[i] = new Square;
Array[i]->SetCanvas(Image1->Canvas);
Array[i]->SetColor(255);
Array[i]->Dvig1(1);
if(i==0)
{
        Array[i]->Draw1();
}
Array[i]->Draw();
} */
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button12Click(TObject *Sender)
{
try
        {
                int q=Edit1->Text.ToIntDef(1);
                for(int i=0;i<q;i++)
                {
                        ArrA.SetType(i,1);
                        ArrA[i]->SetCanvas(Image1->Canvas);
                        ArrA[i]->SetColor(255);
                        ArrA[i]->Dvig1(0,q,i);
                        if(i==0)
                        {
                                ArrA[i]->Draw1();
                        }
                        ArrA[i]->Draw(i);
                }
        }
        catch(int e)
        {
                switch(e)
                {
                case 10:
                        ShowMessage("????? ?? ??????? ???????");
                        break;
                case 11:
                        ShowMessage("???????? ??? ??????");
                        break;
                case 12:
                        ShowMessage("?????? ?????? ??? ?? ???? ???????");
                        break;
                case 13:
                        ShowMessage("??????????? ??? ??????");
                break;
                }
        }
/*Base* Array[2];
for(int i=0;i<2;i++)
{
Array[i] = new Square;
Array[i]->SetCanvas(Image1->Canvas);
Array[i]->SetColor(255);
Array[i]->Dvig1(0);
if(i==0)
{
        Array[i]->Draw1();
}
Array[i]->Draw();
} */
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button11Click(TObject *Sender)
{
try
        {
                int q=Edit1->Text.ToIntDef(1);
                for(int i=0;i<q;i++)
                {
                        ArrA.SetType(i,1);
                        ArrA[i]->SetCanvas(Image1->Canvas);
                        ArrA[i]->SetColor(255);
                        ArrA[i]->Dvig1(2,q,i);
                        if(i==0)
                        {
                                ArrA[i]->Draw1();
                        }
                        ArrA[i]->Draw(i);
                }
        }
        catch(int e)
        {
                switch(e)
                {
                case 10:
                        ShowMessage("????? ?? ??????? ???????");
                        break;
                case 11:
                        ShowMessage("???????? ??? ??????");
                        break;
                case 12:
                        ShowMessage("?????? ?????? ??? ?? ???? ???????");
                        break;
                case 13:
                        ShowMessage("??????????? ??? ??????");
                break;
                }
        }
/*Base* Array[2];
for(int i=0;i<2;i++)
{
Array[i] = new Square;
Array[i]->SetCanvas(Image1->Canvas);
Array[i]->SetColor(255);
Array[i]->Dvig1(2);
if(i==0)
{
        Array[i]->Draw1();
}
Array[i]->Draw();
}*/
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ArrA.SetSize(Edit1->Text.ToIntDef(1));
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button13Click(TObject *Sender)
{
/*        try
        {
                int q=Edit1->Text.ToIntDef(1);
                for(int i=0;i<q;i++)
                {
                        ArrA.SetType(i,1);
                        ArrA[i]->SetCanvas(Image1->Canvas);
                        ArrA[i]->SetColor(255);
                        ArrA[i]->Dvig(q);
                        if(i==0)
                        {
                                ArrA[i]->Draw1();
                        }
                        ArrA[i]->Draw(i);
                }
        }
        catch(int e)
        {
                switch(e)
                {
                case 10:
                        ShowMessage("????? ?? ??????? ???????");
                        break;
                case 11:
                        ShowMessage("???????? ??? ??????");
                        break;
                case 12:
                        ShowMessage("?????? ?????? ??? ?? ???? ???????");
                        break;
                case 13:
                        ShowMessage("??????????? ??? ??????");
                break;
                }
        } */
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
ArrB = ArrA;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 ArrB.SetSize(Edit2->Text.ToIntDef(1));
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//ArrA.Draw(i);
}
//---------------------------------------------------------------------------