var

MyForm : TclForm;

Yukari : TClProButton;

Asagi : TClProButton;

Sag : TClProButton;

Sol : TClProButton;

Player : TClProImage;

Food1 , Food2 , Food3 , Cikis : TClProImage;

GameTimer : TClTimer;

x1 , x2 , x3 , y1 , y2 , y3 : Integer

void GoUp;

{

   Player.Position.Y = Player.Position.Y - 50;

    if (MyForm.clIsIntersectsWith(Player, Food1))

   {

      Food1.Visible = False;

   }             

    

   if (MyForm.clIsIntersectsWith(Player, Food2))

   {

      Food2.Visible = False;

   }

    

   if (MyForm.clIsIntersectsWith(Player, Food3))

   {

      Food3.Visible = False;

   }  

     

    if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)

    {

        Cikis.Visible = True

    }

   if (MyForm.clIsIntersectsWith(Player, Cikis))

   {

      Clomosy.RunUnit('rununite')

      MyForm.Close;

   }

}

void GoRight;

{

   Player.Position.X = Player.Position.X + 50;

    if (MyForm.clIsIntersectsWith(Player, Food1))

   {

      Food1.Visible = False;

   }             

    

   if (MyForm.clIsIntersectsWith(Player, Food2))

   {

      Food2.Visible = False;

   }

    

   if (MyForm.clIsIntersectsWith(Player, Food3))

   {

      Food3.Visible = False;

   }  

     

    if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)

    {

        Cikis.Visible = True

    }  

   if (MyForm.clIsIntersectsWith(Player, Cikis))

   {

      Clomosy.RunUnit('rununite')

      MyForm.Close;

   }

}

void GoLeft;

{

   Player.Position.X = Player.Position.X - 50;

    if (MyForm.clIsIntersectsWith(Player, Food1))

   {

      Food1.Visible = False;

   }             

    

   if (MyForm.clIsIntersectsWith(Player, Food2))

   {

      Food2.Visible = False;

   }

    

   if (MyForm.clIsIntersectsWith(Player, Food3))

   {

      Food3.Visible = False;

   }  

     

    if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)

    {

        Cikis.Visible = True

    } 

    if (MyForm.clIsIntersectsWith(Player, Cikis))

    {

      Clomosy.RunUnit('rununite')

      MyForm.Close;

    }

}

void GoDown;

{

   Player.Position.Y = Player.Position.Y + 50;

    if (MyForm.clIsIntersectsWith(Player, Food1))

   {

      Food1.Visible = False;

   }             

    

   if (MyForm.clIsIntersectsWith(Player, Food2))

   {

      Food2.Visible = False;

   }

    

   if (MyForm.clIsIntersectsWith(Player, Food3))

   {

      Food3.Visible = False;

   }  

     

    if ((Food1.Visible == False) && (Food2.Visible == False) && (Food3.Visible == False))

    {

        Cikis.Visible = True

    } 

    if (MyForm.clIsIntersectsWith(Player, Cikis))

    {

       Clomosy.RunUnit('rununite')

       MyForm.Close;

    }

}

/*

void gizle;

{

   if (MyForm.clIsIntersectsWith(Player, Food1))

   {

      Food1.Visible = False;

   }             

    

   if (MyForm.clIsIntersectsWith(Player, Food2))

   {

      Food2.Visible = False;

   }

    

   if (MyForm.clIsIntersectsWith(Player, Food3))

   {

      Food3.Visible = False;

   }  

     

    if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)

    {

        Cikis.Visible = True

    }  

     

      if (MyForm.clIsIntersectsWith(Player, Cikis))

   {

      Clomosy.RunUnit('rununite')

   }

  

}*/

{

   MyForm = TclForm.Create(Self);

   MyForm.SetFormColor('#2d62cd', 'color2', clGNone);

   MyForm.FormWaiting.Visible = False;

   MyForm.BtnGoBack.Visible = False;

   MyForm.BtnFormMenu.Visible = False;

   MyForm.clSetWindowState(fwsMaximized);

    

   x1 = Round(Random()*28)*50

   x2 = Round(Random()*28)*50

   x3 = Round(Random()*28)*50

   y1 = Round(Random()*12)*50

   y2 = Round(Random()*12)*50

   y3 = Round(Random()*12)*50

    

   Player = MyForm.AddNewProImage(MyForm, 'Player');

   Player.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/29/CbMBGW.png" rel="nofollow - https://resmim.net/cdn/2026/04/29/CbMBGW.png ';

   Player.Height = 100;

   Player.Width = 50;

   Player.Align = alNone;

   Player.Position.X = 50;

   Player.Position.Y = 50;

   Player.SetclProSettings(Player.clProSettings);

   Food1 = MyForm.AddNewProImage(MyForm , 'Food1');

   Food1.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/29/CbMYTh.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/29/CbMYTh.jpg ';

   Food1.Height = 100;

   Food1.Width = 50;

   Food1.Align = alNone;

   Food1.Position.X = x1;

   Food1.Position.Y = y1;

   Food1.SetclProSettings(Food1.clProSettings);

  

   Food2 = MyForm.AddNewProImage(MyForm , 'Food2');

   Food2.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/29/CbMYTh.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/29/CbMYTh.jpg ';

   Food2.Height = 100;

   Food2.Width = 50;

   Food2.Align = alNone;

   Food2.Position.X = x2;

   Food2.Position.Y = y2;

   Food2.SetclProSettings(Food2.clProSettings);

  

   Food3 = MyForm.AddNewProImage(MyForm , 'Food3');

   Food3.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/29/CbMYTh.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/29/CbMYTh.jpg ';

   Food3.Height = 100;

   Food3.Width = 50;

   Food3.Align = alNone;

   Food3.Position.X = x3;

   Food3.Position.Y = y3;

   Food3.SetclProSettings(Food3.clProSettings);

   Cikis = MyForm.AddNewProImage(MyForm , 'Cikis')

   Cikis.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/29/CbMyB3.png" rel="nofollow - https://resmim.net/cdn/2026/04/29/CbMyB3.png ';

   Cikis.Height = 100;

   Cikis.Width = 100;

   Cikis.Align = alNone;

   Cikis.Position.X = 50;

   Cikis.Position.Y = 550;

   Cikis.Visible = False;

   Cikis.SetclProSettings(Cikis.clProSettings);  

    

   Yukari = MyForm.AddNewProButton(MyForm,'Yukari','Y');

   Yukari.Align = alNone;

   Yukari.Position.X = 650;

   Yukari.Position.Y = 530;

   Yukari.Width = 20;

   Yukari.Height = 50;

   Yukari.clProSettings.isRound = True;

   Yukari.clProSettings.BorderWidth = 2;

   Yukari.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');

   Yukari.SetclProSettings(Yukari.clProSettings);

   MyForm.AddNewEvent(Yukari,tbeOnClick,'GoUp');

   Sag = MyForm.AddNewProButton(MyForm,'Sag','SA');

   Sag.Align = alNone;

   Sag.Position.X = 670;

   Sag.Position.Y = 580;

   Sag.Width = 50;

   Sag.Height = 20;

   Sag.clProSettings.isRound = True;

   Sag.clProSettings.BorderWidth = 2;

   Sag.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');

   Sag.SetclProSettings(Sag.clProSettings);

   MyForm.AddNewEvent(Sag,tbeOnClick,'GoRight');

   Sol = MyForm.AddNewProButton(MyForm,'Sol','SO');

 Sol.Align = alNone;

   Sol.Position.X = 600;

 Sol.Position.Y = 580;

 Sol.Width = 50;

 Sol.Height = 20;

 Sol.clProSettings.isRound = True;

 Sol.clProSettings.BorderWidth = 2;

 Sol.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');

 Sol.SetclProSettings(Sol.clProSettings);

 MyForm.AddNewEvent(Sol,tbeOnClick,'GoLeft');

 Asagi = MyForm.AddNewProButton(MyForm,'Asagi','Aş');

 Asagi.Align = alNone;

 Asagi.Position.X = 650;

 Asagi.Position.Y = 600;

 Asagi.Width = 20;

 Asagi.Height = 50;

 Asagi.clProSettings.isRound = True;

 Asagi.clProSettings.BorderWidth = 2;

 Asagi.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');

 Asagi.SetclProSettings(Asagi.clProSettings);

 MyForm.AddNewEvent(Asagi,tbeOnClick,'GoDown');

 GameTimer = MyForm.AddNewTimer(MyForm, 'GameTimer', 100);  

 GameTimer.Enabled = True;

 /*MyForm.AddNewEvent(GameTimer , tbeOnTimer , 'gizle');*/

 MyForm.Run;

}

var

Form1 : TclForm

Tas1 , Tas2 , Tas3 , Tas4 , Player1 : TClProImage

FallTimer , TimeTimer : TCLTimer

x1 , x2 , x3 , x4 , A , B , C , D : Integer

TimeLeft : Integer 

BtnLeft , BtnRight : TClProButton

Label1 : TClProLabel

void MoveLeft;

{

  Player1.Position.X = Player1.Position.X - 50;

}

void MoveRight;

{

  Player1.Position.X = Player1.Position.X + 50;

}

void timerShow;

{

Tas1.Position.Y = Tas1.Position.Y + A

Tas2.Position.Y = Tas2.Position.Y + B

Tas3.Position.Y = Tas3.Position.Y + C

Tas4.Position.Y = Tas4.Position.Y + D

if(Tas1.Position.Y >= 800)

{

A = A+1

Tas1.Position.Y = Tas1.Position.Y - 800

Tas1.Position.X = Round(Random()*50)*25

}

if(Tas2.Position.Y >= 800)

{

B = B+1

Tas2.Position.Y = Tas2.Position.Y - 800

Tas2.Position.X = Round(Random()*50)*25

}

if(Tas3.Position.Y >= 800)

{

C = C+1

Tas3.Position.Y = Tas3.Position.Y - 800

Tas3.Position.X = Round(Random()*50)*25

}

if(Tas4.Position.Y >= 800)

{

D = D+1

Tas4.Position.Y = Tas4.Position.Y - 800

Tas4.Position.X = Round(Random()*50)*25

}

 if (Form1.clIsIntersectsWith(Player1, Tas1))

   {

      FallTimer.Enabled = False

      ShowMessage('Game Over');

      Form1.Close;

   }

   

   if (Form1.clIsIntersectsWith(Player1, Tas2))

   {

      FallTimer.Enabled = False

      ShowMessage('Game Over');

      Form1.Close;

   }

   

   if (Form1.clIsIntersectsWith(Player1, Tas3))

   {

      FallTimer.Enabled = False

      ShowMessage('Game Over');

      Form1.Close;

   }

   

   if (Form1.clIsIntersectsWith(Player1, Tas4))

   {

      FallTimer.Enabled = False

      TimeTimer.Enabled = False

      ShowMessage('Game Over');

      Form1.Close;

   }

   

} 

void  TimeTimerTimer

{

   if(TimeLeft <= 0)

   {

      TimeTimer.Enabled = false;

      FallTimer.Enabled = false;

      ShowMessage("Kazandın");

   }

   else

   TimeLeft = TimeLeft - 1;

}

{

  Form1 = TclForm.Create(Self);

  Form1.clSetWindowState(fwsMaximized);

  Form1.BtnGoBack.Visible = False;

  Form1.BtnFormMenu.Visible = False;

  Form1.clSetWindowState(fwsMaximized);

  Form1.SetFormBGImage(' https://resmim.net/cdn/2026/05/04/CoyVNq.jpg" rel="nofollow - https://resmim.net/cdn/2026/05/04/CoyVNq.jpg ');

  

  x1  = Round(Random()*50)*25

  x2  = Round(Random()*50)*25

  x3  = Round(Random()*50)*25

  x4  = Round(Random()*50)*25

  A = 9;

  B = 10 ;

  C = 11;

  D = 12;

  TimeLeft = 20;

  

  Player1 = Form1.AddNewProImage(Form1, 'Player1');

  Player1.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/29/CbMBGW.png" rel="nofollow - https://resmim.net/cdn/2026/04/29/CbMBGW.png ';

  Player1.Height = 100;

  Player1.Width = 50;

  Player1.Align = alNone;

  Player1.Position.X = 600;

  Player1.Position.Y = 600;

  Player1.SetclProSettings(Player1.clProSettings);

  

  Tas1 = Form1.AddNewProImage(Form1 , 'Tas1')

  Tas1.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/30/CbeqAj.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/30/CbeqAj.jpg '

  Tas1.Height = 50

  Tas1.Width = 50

  Tas1.Align = alNone

  Tas1.Position.X = x1

  Tas1.Position.Y = 0

  Tas1.SetclProSettings(Tas1.clProSettings)

  

    Tas2 = Form1.AddNewProImage(Form1 , 'Tas2')

  Tas2.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/30/CbeqAj.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/30/CbeqAj.jpg '

  Tas2.Height = 50

  Tas2.Width = 50

  Tas2.Align = alNone

  Tas2.Position.X = x2

  Tas2.Position.Y = 0

  Tas2.SetclProSettings(Tas2.clProSettings)

  

    Tas3 = Form1.AddNewProImage(Form1 , 'Tas3')

  Tas3.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/30/CbeqAj.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/30/CbeqAj.jpg '

  Tas3.Height = 50

  Tas3.Width = 50

  Tas3.Align = alNone

  Tas3.Position.X = x3

  Tas3.Position.Y = 0

  Tas3.SetclProSettings(Tas3.clProSettings)

  

  Tas4 = Form1.AddNewProImage(Form1 , 'Tas4')

  Tas4.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/30/CbeqAj.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/30/CbeqAj.jpg '

  Tas4.Height = 50

  Tas4.Width = 50

  Tas4.Align = alNone

  Tas4.Position.X = x4

  Tas4.Position.Y = 0

  Tas4.SetclProSettings(Tas4.clProSettings)

  

  BtnLeft = Form1.AddNewProButton(Form1, 'BtnLeft' , 'Sol')

  BtnLeft.Align = alNone

  BtnLeft.Position.X = 400;

  BtnLeft.Position.Y = 550;

  BtnLeft.ClProSettings.BackgroundColor = ClAlphaColor.ClHextoColor ('#6F130F');

  BtnLeft.SetclProSettings(BtnLeft.ClProSettings);

  Form1.AddNewEvent(BtnLeft, tbeOnClick, 'MoveLeft');

  BtnRight = Form1.AddNewProButton(Form1, 'BtnRight' , 'Sağ')

  BtnRight.Align = alNone

  BtnRight.Position.X = 520;

  BtnRight.Position.Y = 550;

  BtnRight.ClProSettings.BackgroundColor = ClAlphaColor.ClHextoColor ('#6F130F');

  BtnRight.SetclProSettings(BtnRight.ClProSettings);

  Form1.AddNewEvent(BtnRight, tbeOnClick, 'MoveRight');

  

FallTimer = Form1.AddNewTimer(Form1,'FallTimer', 10);

FallTimer.Enabled = True;

Form1.AddNewEvent(FallTimer,tbeOnTimer,'timerShow');

TimeTimer = Form1.AddNewTimer(Form1,'TimeTimer', 1000);

TimeTimer.Enabled = True; 

Form1.AddNewEvent(TimeTimer , tbeOnTimer , 'TimeTimerTimer')

Label1 = Form1.AddNewProLabel(Form1, 'Label1', '');

Label1.Position.X = 600

Label1.Position.Y = 5

Label1.Caption = IntToStr(TimeLeft);

Label1.SetclProSettings(Label1.ClProSettings)

  Form1.Run;

}