#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int do_wygrania=10;
int nabojow=12;
  AnsiString d;
bool kolizja(TImage*naboj,TImage*stwor)
{
  if(naboj->Left-10 >= stwor->Left-naboj->Width &&
      naboj->Left+10 <= stwor->Left+stwor->Width &&
      naboj->Top >= stwor->Top-naboj->Height &&
      naboj->Top <= stwor->Top+stwor->Height)
      {
        return true;
      }
      else return false;
}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Key==VK_LEFT) statek_lewo->Enabled=true;
        if(Key==VK_RIGHT) statek_prawo->Enabled=true;
        if(Key==VK_CONTROL)
        {
        if(pocisk->Top==500 || pocisk->Top<=0)
        {
        sndPlaySound("snd/strzal.wav",SND_ASYNC);
        strzal->Enabled=true;
        pocisk->Left=statek->Left+60;
        pocisk->Top=500;
         pocisk->Visible=true;
         nabojow--;
         AnsiString n;
        n=IntToStr(nabojow);
        Label1->Caption="Nabojów: "+n;
        }
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Key==VK_LEFT) statek_lewo->Enabled=false;
        if(Key==VK_RIGHT) statek_prawo->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::statek_lewoTimer(TObject *Sender)
{
  if(statek->Left>=10)
  {
     statek->Left-=10;
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::statek_prawoTimer(TObject *Sender)
{
   if(statek->Left+statek->Width <= Form1->Width-20)
   {
   statek->Left+=10;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::strzalTimer(TObject *Sender)
{

 if(nabojow<0)
  {
  pocisk->Visible=false;
  Label1->Caption="Nabojów:0";
  strzal->Enabled=false;
  Button1->Caption="Porażka...";
  Button1->Visible=true;
  sndPlaySound("snd/koniec.wav", SND_ASYNC);
  }

  pocisk->Picture->LoadFromFile("img/pocisk.bmp");
  pocisk->Top-=10;

  d=IntToStr(do_wygrania);
  Label2->Caption="Stworów: "+d;
  if(do_wygrania<=0)
  {
  strzal->Enabled=false;
   Button1->Visible=true;
  sndPlaySound("snd/Victory.wav", SND_ASYNC);
  }


  //potwor1
  if(kolizja(pocisk,Image1) && Image1->Enabled==true)
  {  do_wygrania--; Image1->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image1->Enabled=false; Image1->Visible=false; pocisk->Enabled=false;  pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC);}

  //potwor2
  if(kolizja(pocisk,Image2) && Image2->Enabled==true)
  {  do_wygrania--; Image2->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image2->Enabled=false; Image2->Visible=false; pocisk->Enabled=false;   pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC); }

//potwor3
  if(kolizja(pocisk,Image3) && Image3->Enabled==true)
  {  do_wygrania--; Image3->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image3->Enabled=false; Image3->Visible=false; pocisk->Enabled=false;   pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC); }

//potwor4
  if(kolizja(pocisk,Image4) && Image4->Enabled==true)
  {  do_wygrania--; Image4->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image4->Enabled=false; Image4->Visible=false; pocisk->Enabled=false;   pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC); }

//potwor5
  if(kolizja(pocisk,Image5) && Image5->Enabled==true)
  {  do_wygrania--; Image5->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image5->Enabled=false; Image5->Visible=false; pocisk->Enabled=false;    pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC); }


//potwor6
  if(kolizja(pocisk,Image6) && Image6->Enabled==true)
  {  do_wygrania--; Image6->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image6->Enabled=false; Image6->Visible=false; pocisk->Enabled=false;     pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC); }

//potwor7
  if(kolizja(pocisk,Image7) && Image7->Enabled==true)
  {  do_wygrania--; Image7->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image7->Enabled=false; Image7->Visible=false; pocisk->Enabled=false;   pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC); }

//potwor8
  if(kolizja(pocisk,Image8) && Image8->Enabled==true)
  {  do_wygrania--; Image8->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image8->Enabled=false; Image8->Visible=false; pocisk->Enabled=false;  pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC); }


//potwor9
  if(kolizja(pocisk,Image9) && Image9->Enabled==true)
  {  do_wygrania--; Image9->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image9->Enabled=false; Image9->Visible=false; pocisk->Enabled=false;  pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC); }

//potwor10
  if(kolizja(pocisk,Image10) && Image10->Enabled==true)
  {  do_wygrania--; Image10->Picture->LoadFromFile("img/bum.bmp"); Application->ProcessMessages(); Sleep(100);
     Image10->Enabled=false; Image10->Visible=false; pocisk->Enabled=false;  pocisk->Visible=false;
     sndPlaySound("snd/bum.wav",SND_ASYNC); }



}
//---------------------------------------------------------------------------