TForm1 *Form1;
//------------------------------- Black Jump / Source C++ by lanky ---------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}

bool Szukaj(char *path)
{
	WIN32_FIND_DATA findData;
	if (FindFirstFileA(path, &findData) != INVALID_HANDLE_VALUE) return true;
	return false;
}

void reset()
{
	Form1->Image2->Top = 360;
	Form1->Image2->Left = 700;
	Start = clock();
}

void ruch_enemy()
{
	

	if (MAP[Obrazek[i]->Left+10][Obrazek[i]->Top+25] == 0 && ENEMY[i]) Obrazek[i]->Left += 2; else
	{
		ENEMY[i] = False;
		if (MAP[Obrazek[i]->Left+10-3][Obrazek[i]->Top+21] == 0)
		Obrazek[i]->Left -= 2; else ENEMY[i] = True;
	}

}

void kolizja()
{
    for (int i=1; i<=ILE; i++)  // kolizja enemy
    {
		if (Obrazek[i]->Left >= Form1->Image2->Left+20 || Obrazek[i]->Left+20 <= Form1->Image2->Left
		   || Obrazek[i]->Top >=  Form1->Image2->Top+20 || Obrazek[i]->Top+20 <=  Form1->Image2->Top);
		else
			reset();
		
    } 
   
	if (X1 == 255 || X2 == 255 || Y1 == 255 || Y2 == 255) reset();  // kolizja playera

	if (X1 == RGB(0,255,0) || X2 == RGB(0,255,0) || Y1 == RGB(0,255,0) || Y2 == RGB(0,255,0))
	{
		Form1->Timer1->Enabled = False;
		Stop = clock();
		Czas = ((double) (Stop - Start)) / CLOCKS_PER_SEC;
		Finish_Czas += Czas;
		Form1->Label2->Caption = Finish_Czas;
		Form1->Caption = Czas;
		Form1->Button1->Visible = True;
		Form1->Button2->Visible = True;
		Form1->Button1->Caption = "Next Level >>";
		BMP->Free();
		for (int i=1; i<= ILE; i++) Obrazek[i]->Free();
	}

}

void TForm1::buduj(int x, int y)
{
	ILE++;
	Obrazek[ILE] = new TImage(this);
	Obrazek[ILE]->Parent = Form1;
	Obrazek[ILE]->Width =20;
	Obrazek[ILE]->Height = 20;
	Obrazek[ILE]->Top = y;
	Obrazek[ILE]->Left = x;
	Obrazek[ILE]->Picture->LoadFromFile("enemy.bmp");

	while (TEMP[Obrazek[ILE]->Left][Obrazek[ILE]->Top] != 0) Obrazek[ILE]->Top +=1; // spadek enemy do podłogi
	Obrazek[ILE]->Top -= 20; // i podwyzszenie enemy o jego wysokosc

	ENEMY[ILE] = True;       // gdy enemy true to zaczyna isc w prawo
}

void skasuj(int x, int y)
{
	int oldy = y;
	BMP->Canvas->Pixels[x][y] = RGB(255,255,255) ;

	while (true)
	{
	  if (GetPixel(BMP->Canvas->Handle,x,y+1) == RGB(0,0,255)) y++ ; else
	  if (GetPixel(BMP->Canvas->Handle,x+1,y) == RGB(0,0,255))
	  {
	      y = oldy;
	      x++ ;
	  }   else break;
	  BMP->Canvas->Pixels[x][y] = RGB(255,255,255) ; // niebieski zalej bialym
	}
	GetPixel(BMP->Canvas->Handle,x,y);
}

void poza()
{
	X1 = MAP[Form1->Image2->Left][Form1->Image2->Top];
	X2 = MAP[Form1->Image2->Left+20][Form1->Image2->Top];
	Y1 = MAP[Form1->Image2->Left][Form1->Image2->Top+20];
	Y2 = MAP[Form1->Image2->Left+20][Form1->Image2->Top+20];
}

void spadek()
{
   if (Y1 != 0 && Y2 != 0)
   {
      Form1->Image2->Top += 4;
      SPAD = True;
   }  else SPAD = False;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	Finish_Map = atoi(Edit2->Text.c_str());
	if (Finish_Map < 1)
	{
	   ShowMessage("Wpisz minimum 1");
	   LVL = 0;
	   return;
	}

	Form1->DoubleBuffered = True;
	LVL++;

	 for (int i=1; i <= Finish_Map; i++)
	 {
		char buffer[34];
		itoa (i,buffer,10);
		  if (Szukaj(buffer));
			else
			  {
				string inf = "Nie znalazłem mapy: ";
				stringstream ss;
				ss << inf << buffer;
				ShowMessage(ss.str().c_str());
				LVL = 0;
				return;
			  }
	 }

	if (LVL > Finish_Map)
	{
	        std::stringstream info;
		info << "Koniec Gry. Twój wynik to: " << Finish_Czas;
		//string omg = info.str();
		//ShowMessage(omg.c_str());
		ShowMessage(info.str().c_str());
		ShowMessage("Black Jumper® by Legenda. |Upc@Poczta.fm|");
		Application->Terminate();
		return;     // jak exit w delphi ;)
	}

	ILE = 0;
	GO = 0;
	BMP = new Graphics::TBitmap();
	BMP->LoadFromFile(LVL);
	Form1->Caption = "Black Jumper";
	Form1->Label3->Caption = LVL;
	GORA = False;
	DOL = False;
	PRAWY = False;
	LEWY = False;

	for(int x= 0; x<= 799; x++)
	for(int y= 0; y<=499; y++)
		TEMP[x][y] = GetPixel(BMP->Canvas->Handle,x,y);

	for(int x= 0; x<= 799; x++)
	for(int y= 0; y<=499; y++)
	{
		MAP[x][y] = GetPixel(BMP->Canvas->Handle,x,y);
		if (MAP[x][y] == RGB(0,0,255))  // niebieski
		{
			skasuj(x,y);
			buduj(x,y);  // dynamic component image for enemy
		}
	}

	Image1->Picture->Graphic = BMP;
	Button1->Visible = False;
	Button2->Visible = False;
	Edit2->Visible = False;
	reset();
	//ShowMessage(ILE);
	Timer1->Enabled = True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{

	switch(Key)
	{
		case VK_UP : // strzalka w gore
		if (SPAD == False) GORA = True;
		break;
		case VK_DOWN : // dol
		DOL = True;
		break;
		case VK_RIGHT : // prawo
		PRAWY = True;
		break;
		case VK_LEFT : //lewo
		LEWY = True;
		break; 
	}

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

void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
	switch(Key)
	{
		//case VK_UP : // strzalka w gore
		//GORA = False;
		//break;
		case VK_DOWN : // dol
		DOL = False;
		break;
		case VK_RIGHT : // prawo
		PRAWY = False;
		break;
		case VK_LEFT : //lewo
		LEWY = False;
		break; 
	}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	//Image1->Canvas->Pen->Color = 250;
	//Image1->Canvas->MoveTo(Obrazek[1]->Left+10,Obrazek[1]->Top-10);
	//Image1->Canvas->LineTo(Obrazek[1]->Left+10,Obrazek[1]->Top+25);
	ruch_enemy();
	poza();   // x1,x2,y1,y2 bohatera
	kolizja();

	if (GORA)
	{
	  Image2->Top += -4;
	  GO++ ;
		if (GO >= 25)
		{
		   GORA = False;
		   GO = 0;
		}
	}

	if (GORA == False) spadek();
	if (LEWY) Image2->Left += -2; else if (PRAWY) Image2->Left += 2;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Edit2KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   set<Word> licz;  //deklaracja zbioru licz
   for(int i=48; i<=57; i++) licz.insert(i);
   if (licz.find(Key)== licz.end())
   {
       ShowMessage("Tylko liczby [1..100]");
       String ok;
       ok = Edit2->Text.c_str();
       ok = ok.SetLength(ok.Length()-1);
       Edit2->Text = ok.c_str();
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
	GroupBox1->Visible = False;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
	ShowMessage("Mapy możesz zrobić w zwykłym Paintcie Windowsa");
	GroupBox1->Visible = True;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
	ShowMessage("Black Jumper® by lanky. |upc@poczta.fm|");
}
//---------------------------------------------------------------------------