Скачиваний:
1
Добавлен:
30.05.2020
Размер:
11.76 Кб
Скачать
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 int t=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void Die() {
if (Form1->Canvas->Pixels[Form1->BitBtn1->Left][Form1->BitBtn1->Top+10]==clBlack
|| Form1->Canvas->Pixels[Form1->BitBtn1->Left+10][Form1->BitBtn1->Top]==clBlack
|| Form1->Canvas->Pixels[Form1->BitBtn1->Left][Form1->BitBtn1->Top-10]==clBlack
|| Form1->Canvas->Pixels[Form1->BitBtn1->Left-10][Form1->BitBtn1->Top]==clBlack)   {
t==0;
 ShowMessage("Game over");   Form1->BitBtn1->Left=660;
 Form1->BitBtn1->Top=360;}

}
void Win() {
if( Form1->BitBtn1->Left==40 &&
 Form1->BitBtn1->Top==30)
 ShowMessage("You win");
 }
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Canvas->Pen->Color=clFuchsia;
Canvas->Brush->Color=clFuchsia;
Canvas->Rectangle(660,20,670,360);//1
Canvas->Rectangle(660,370,670,570);//2
Canvas->Rectangle(40,40,50,570); //3
Canvas->Rectangle(40,570,670,580); //4
Canvas->Rectangle(40,20,660,30);  //5
Canvas->Rectangle(610,40,620,200);//6
Canvas->Rectangle(610,190,660,200);//7
Canvas->Rectangle(610,210,620,540);//8
Canvas->Rectangle(610,550,620,570);//9
Canvas->Rectangle(570,30,580,90);//10
Canvas->Rectangle(570,100,610,110);//11
Canvas->Rectangle(570,110,580,360);//12
Canvas->Rectangle(570,370,580,570);//13
Canvas->Rectangle(580,370,610,380);//14
Canvas->Rectangle(530,30,540,50);//15
Canvas->Rectangle(540,40,570,50);//16
Canvas->Rectangle(530,60,540,260);//17
Canvas->Rectangle(530,270,540,560);//18
Canvas->Rectangle(490,30,500,120);//19
Canvas->Rectangle(490,120,530,130);//20
Canvas->Rectangle(490,140,500,400);//21
Canvas->Rectangle(490,410,500,570);//22
Canvas->Rectangle(450,40,460,270);//23
Canvas->Rectangle(450,280,460,500);//24
Canvas->Rectangle(450,510,460,570);//25
Canvas->Rectangle(460,320,490,330);//26
Canvas->Rectangle(410,30,420,130);//27
Canvas->Rectangle(410,140,420,430);//28
Canvas->Rectangle(410,440,420,570);//29
Canvas->Rectangle(420,360,450,370);//30
Canvas->Rectangle(420,180,450,190);//31
Canvas->Rectangle(370,40,380,190);//32
Canvas->Rectangle(370,200,380,350);//33
Canvas->Rectangle(370,360,380,560);//34
Canvas->Rectangle(380,80,410,90);//35
Canvas->Rectangle(380,260,410,270);//36
Canvas->Rectangle(380,490,410,500);//37
Canvas->Rectangle(330,60,340,30);//38
Canvas->Rectangle(330,70,340,410);//39
Canvas->Rectangle(330,420,340,570);//40
Canvas->Rectangle(340,130,370,140);//41
Canvas->Rectangle(340,270,360,280);//42
Canvas->Rectangle(350,290,370,300);//43
Canvas->Rectangle(340,460,370,470);//44
Canvas->Rectangle(290,160,300,30);//45
Canvas->Rectangle(290,170,300,370);//46
Canvas->Rectangle(290,380,300,570);//47
Canvas->Rectangle(250,40,260,210);//48
Canvas->Rectangle(250,220,260,310);//49
Canvas->Rectangle(250,480,260,570);//50
Canvas->Rectangle(260,190,290,200);//51
Canvas->Rectangle(260,400,290,410);//52
Canvas->Rectangle(250,320,260,470);//53
Canvas->Rectangle(210,130,220,30);//54
Canvas->Rectangle(210,140,220,370);//55
Canvas->Rectangle(210,380,220,570);//56
Canvas->Rectangle(220,240,250,250);//57
Canvas->Rectangle(170,30,180,120);//58
Canvas->Rectangle(170,130,180,340);//59
Canvas->Rectangle(170,350,180,560);//60
Canvas->Rectangle(180,170,210,180);//61
Canvas->Rectangle(180,420,210,430);//62
Canvas->Rectangle(130,40,140,440);//63
Canvas->Rectangle(130,450,140,570);//64
Canvas->Rectangle(140,100,170,110);//65
Canvas->Rectangle(90,30,100,140);//66
Canvas->Rectangle(90,150,100,350);//67
Canvas->Rectangle(90,360,100,570);//68
Canvas->Rectangle(50,300,90,310);//69





}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if (Key==VK_UP)
 if (BitBtn1->Top!=0){
  TColor col = Form1->Canvas->Pixels[BitBtn1->Left][BitBtn1->Top-10];
  if (col!=clFuchsia)
    BitBtn1->Top=(BitBtn1->Top)-10; }

if (Key==VK_RIGHT)
 if (BitBtn1->Left<700) {
  TColor col = Form1->Canvas->Pixels[BitBtn1->Left+10][BitBtn1->Top];
  if (col!=clFuchsia)
    BitBtn1->Left=(BitBtn1->Left)+10; }

if (Key==VK_LEFT)
 if (BitBtn1->Left!=0)  {
  TColor col = Form1->Canvas->Pixels[BitBtn1->Left-10][BitBtn1->Top];
  if (col!=clFuchsia)
    BitBtn1->Left=(BitBtn1->Left)-10; }

if (Key==VK_DOWN)
 if (BitBtn1->Top+20<600){
  TColor col = Form1->Canvas->Pixels[BitBtn1->Left][BitBtn1->Top+10];
  if (col!=clFuchsia)
    BitBtn1->Top=(BitBtn1->Top)+10; }

Die();
Win();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if  (Timer1->Enabled==true) t++;
Timer1->Interval=10;
if(t==400) {
Canvas->Pen->Color=clFuchsia;
Canvas->Brush->Color=clFuchsia;
Canvas->Rectangle(500,340,530,350);//70
Canvas->Rectangle(460,90,490,100);//71
Canvas->Rectangle(380,390,410,400);}//72
if(t==700){
Canvas->Pen->Color=clFuchsia;
Canvas->Brush->Color=clFuchsia;
Canvas->Rectangle(300,380,320,390);//75
Canvas->Rectangle(540,420,570,430);//77
Canvas->Rectangle(270,320,290,330);}//78
if(t==2400) {
Canvas->Pen->Color=clFuchsia;
Canvas->Brush->Color=clFuchsia;
Canvas->Rectangle(90,140,100,150);}//81
if(t==400) {
Canvas->Pen->Color=clWhite;
Canvas->Brush->Color=clWhite;
Canvas->Rectangle(540,40,570,50);//16
Canvas->Rectangle(460,320,490,330);//26
Canvas->Rectangle(420,360,450,370);}//30
if(t==1000)   {
Canvas->Pen->Color=clWhite;
Canvas->Brush->Color=clWhite;
Canvas->Rectangle(380,490,410,500);//37
Canvas->Rectangle(410,220,420,230);//73
Canvas->Rectangle(340,460,370,470);//44
Canvas->Rectangle(290,560,300,570);//76
Canvas->Rectangle(340,130,370,140);//41
Canvas->Rectangle(180,170,210,180);}//61
if(t==4300){
 Canvas->Pen->Color=clWhite;
Canvas->Brush->Color=clWhite;
Canvas->Rectangle(130,120,140,130);//79
Canvas->Rectangle(130,260,140,270);//80
Canvas->Rectangle(50,300,60,310);}//82

if (t==2500)  {
Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clBlack;

 Form1->Canvas->Ellipse (305,150,325,170); // бомба 2
 Form1->Canvas->MoveTo(310,152);
 Form1->Canvas->LineTo(310,146);
 Form1->Canvas->MoveTo(310,146);
 Form1->Canvas->LineTo(320,146);
  Form1->Canvas->MoveTo(320,146);
 Form1->Canvas->LineTo(320,152);
  Form1->Canvas->MoveTo(315,146);
 Form1->Canvas->LineTo(315,142);
 Form1->Canvas->Brush->Color=clBlack; //Устанавливаем цвет кисти
Form1->Canvas->FloodFill(314,148,clWhite,fsSurface);  //Заливаем
Canvas->Pen->Color=clRed;
Canvas->Brush->Color=clRed;
 Form1->Canvas->MoveTo(310,163);
 Form1->Canvas->LineTo(322,156);
  Form1->Canvas->MoveTo(310,156);
 Form1->Canvas->LineTo(322,163);
 }
 if(t==700) {
 Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clBlack;
Form1->Canvas->Ellipse (425,210,445,230); //бомба 1
 Form1->Canvas->MoveTo(430,213);
 Form1->Canvas->LineTo(430,206);
  Form1->Canvas->MoveTo(430,206);
 Form1->Canvas->LineTo(440,206);
  Form1->Canvas->MoveTo(440,206);
 Form1->Canvas->LineTo(440,213);
  Form1->Canvas->MoveTo(435,206);
 Form1->Canvas->LineTo(435,202);
  Form1->Canvas->Brush->Color=clBlack; //Устанавливаем цвет кисти
Form1->Canvas->FloodFill(433,208,clWhite,fsSurface);  //Заливаем
Canvas->Pen->Color=clRed;
Canvas->Brush->Color=clRed;
Form1->Canvas->MoveTo(429,223);
 Form1->Canvas->LineTo(441,215);
 Form1->Canvas->MoveTo(429,215);
 Form1->Canvas->LineTo(441,223);
 }
 if(t==3400){
 Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clBlack;
Form1->Canvas->Ellipse (305,470,325,490); //бомба 3
 Form1->Canvas->MoveTo(309,477);
 Form1->Canvas->LineTo(309,465);
  Form1->Canvas->MoveTo(309,465);
 Form1->Canvas->LineTo(319,465);
  Form1->Canvas->MoveTo(319,465);
 Form1->Canvas->LineTo(319,477);
  Form1->Canvas->MoveTo(314,465);
 Form1->Canvas->LineTo(314,461);
  Form1->Canvas->Brush->Color=clBlack; //Устанавливаем цвет кисти
Form1->Canvas->FloodFill(312,468,clWhite,fsSurface);
Canvas->Pen->Color=clRed;
Canvas->Brush->Color=clRed;
  Form1->Canvas->MoveTo(309,475);
 Form1->Canvas->LineTo(320,483);
   Form1->Canvas->MoveTo(320,475);
 Form1->Canvas->LineTo(308,483);
 }
 if(t==3700){

  Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clBlack;
Form1->Canvas->Ellipse (225,330,245,350); //бомба 4
   Form1->Canvas->MoveTo(230,335);
 Form1->Canvas->LineTo(230,326);
    Form1->Canvas->MoveTo(230,326);
 Form1->Canvas->LineTo(240,326);
    Form1->Canvas->MoveTo(240,326);
 Form1->Canvas->LineTo(240,335);
  Form1->Canvas->MoveTo(235,326);
 Form1->Canvas->LineTo(235,322);
   Form1->Canvas->Brush->Color=clBlack; //Устанавливаем цвет кисти
Form1->Canvas->FloodFill(232,330,clWhite,fsSurface);
 Canvas->Pen->Color=clRed;
Canvas->Brush->Color=clRed;
  Form1->Canvas->MoveTo(230,336);
 Form1->Canvas->LineTo(241,344);
   Form1->Canvas->MoveTo(230,344);
 Form1->Canvas->LineTo(241,336); }

 if(t==4000){
   Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clBlack;
Form1->Canvas->Ellipse (145,170,165,190); //бомба 5
   Form1->Canvas->MoveTo(150,175);
 Form1->Canvas->LineTo(150,165);
    Form1->Canvas->MoveTo(150,165);
 Form1->Canvas->LineTo(160,165);
    Form1->Canvas->MoveTo(160,165);
 Form1->Canvas->LineTo(160,175);
    Form1->Canvas->MoveTo(155,165);
 Form1->Canvas->LineTo(155,161);
   Form1->Canvas->Brush->Color=clBlack; //Устанавливаем цвет кисти
Form1->Canvas->FloodFill(153,168,clWhite,fsSurface);
Canvas->Pen->Color=clRed;
Canvas->Brush->Color=clRed;
    Form1->Canvas->MoveTo(150,176);
 Form1->Canvas->LineTo(160,184);
     Form1->Canvas->MoveTo(150,184);
 Form1->Canvas->LineTo(160,176);
 }

 if(t==4500){
   Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clBlack;
Form1->Canvas->Ellipse (50,120,70,140); //бомба 6
    Form1->Canvas->MoveTo(55,124);
 Form1->Canvas->LineTo(55,116);
     Form1->Canvas->MoveTo(55,116);
 Form1->Canvas->LineTo(65,116);
     Form1->Canvas->MoveTo(65,116);
 Form1->Canvas->LineTo(65,124);
     Form1->Canvas->MoveTo(60,116);
 Form1->Canvas->LineTo(60,112);
    Form1->Canvas->Brush->Color=clBlack; //Устанавливаем цвет кисти
Form1->Canvas->FloodFill(57,118,clWhite,fsSurface);
 Canvas->Pen->Color=clRed;
Canvas->Brush->Color=clRed;
     Form1->Canvas->MoveTo(54,126);
 Form1->Canvas->LineTo(65,134);
      Form1->Canvas->MoveTo(54,134);
 Form1->Canvas->LineTo(65,126);
  }

 if(t==400){
    Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clBlack;
Form1->Canvas->Ellipse (585,140,605,160); //бомба 7
      Form1->Canvas->MoveTo(590,145);
 Form1->Canvas->LineTo(590,136);
       Form1->Canvas->MoveTo(590,136);
 Form1->Canvas->LineTo(600,136);
       Form1->Canvas->MoveTo(600,136);
 Form1->Canvas->LineTo(600,145);
       Form1->Canvas->MoveTo(595,136);
 Form1->Canvas->LineTo(595,132);
     Form1->Canvas->Brush->Color=clBlack; //Устанавливаем цвет кисти
Form1->Canvas->FloodFill(595,138,clWhite,fsSurface);
 Canvas->Pen->Color=clRed;
Canvas->Brush->Color=clRed;
     Form1->Canvas->MoveTo(590,146);
 Form1->Canvas->LineTo(600,154);
     Form1->Canvas->MoveTo(600,146);
 Form1->Canvas->LineTo(590,154);}
 }

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Timer1->Enabled=true;
}
//---------------------------------------------------------------------------



Соседние файлы в папке Курсач 2 версия_1
  • #
    30.05.20201.07 Кб1Project1.cpp
  • #
    30.05.202018.46 Кб1Project1.obj
  • #
    30.05.2020876 б1Project1.res
  • #
    30.05.20202.03 Mб1Project1.tds
  • #
    30.05.20203.74 Кб2Project1.~bpr
  • #
    30.05.202011.76 Кб1Unit1.cpp
  • #
    30.05.202051 б1Unit1.ddp
  • #
    30.05.2020639 б1Unit1.dfm
  • #
    30.05.20201.11 Кб1Unit1.h
  • #
    30.05.202064.71 Кб2Unit1.obj
  • #
    30.05.202011.76 Кб1Unit1.~cpp