balon patlatma oynu

var

  anaForm, oyunForm: TclForm;

  baslaBtn: TclProButton;

  baslikLbl, balonLbl: TclProLabel;

 

  skorLabel: TclProLabel;

  balonBtn: TclProButton;

  sureLabel: TclProLabel;

 

  skor, kalanSure: Integer;

  zamanlayici: TclTimer;

 

function IntToStr(i: Integer): string;

var

  s: string;

begin

  s := '';

  if i = 0 then

    s := '0'

  else

    while i > 0 do

    begin

      s := Chr(48 + (i mod 10)) + s;

      i := i div 10;

    end;

  Result := s;

end;

 

procedure BalonaTikla;

var

  x, y: Integer;

begin

  if kalanSure > 0 then

  begin

    skor := skor + 1;

    skorLabel.Caption := 'Skor: ' + IntToStr(skor);

 

    x := Random(400);  // Genişlik sınırı

    y := Random(200);  // Yükseklik sınırı

    balonBtn.Left := x;

    balonBtn.Top := y;

  end;

end;

 

procedure BaslaTikla;

begin

  anaForm.Hide;

 

  oyunForm := TclForm.Create(nil);

  skor := 0;

  kalanSure := 30;

 

  skorLabel := oyunForm.AddNewProLabel(oyunForm, 'skorLabel', 'Skor: 0');

  skorLabel.Left := 200;

  skorLabel.Top := 20;

  skorLabel.Width := 200;

  skorLabel.Height := 30;

 

  sureLabel := oyunForm.AddNewProLabel(oyunForm, 'sureLabel', 'Süre: 30 sn');

  sureLabel.Left := 200;

  sureLabel.Top := 50;

  sureLabel.Width := 200;

  sureLabel.Height := 30;

 

  balonBtn := oyunForm.AddNewProButton(oyunForm, 'balonBtn', '🎈');

  balonBtn.Left := 220;

  balonBtn.Top := 100;

  balonBtn.Width := 60;

  balonBtn.Height := 60;

  balonBtn.OnClick := BalonaTikla;

 

  // Stil uygulama

  clComponent.SetupComponent(balonBtn, '{

    "BackColor": "#FFD700",

    "FontSize": 24,

    "FontColor": "#000000",

    "BorderRadius": 30,

    "BorderWidth": 2,

    "BorderColor": "#FF0000"

  }');

 

  // Zamanlayıcı başlat, anonim prosedürle bağla

  zamanlayici := oyunForm.AddNewTimer(oyunForm, 'zamanlayici', 1000);

  zamanlayici.OnTimer := procedure(Sender: TObject)

  begin

    kalanSure := kalanSure - 1;

    sureLabel.Caption := 'Süre: ' + IntToStr(kalanSure) + ' sn';

 

    if kalanSure <= 0 then

    begin

      zamanlayici.Enabled := False;

      balonBtn.Enabled := False;

      ShowMessage('Süre doldu! Toplam skor: ' + IntToStr(skor));

    end;

  end;

 

  oyunForm.Run;

end;

 

begin

  anaForm := TclForm.Create(nil);

 

  baslikLbl := anaForm.AddNewProLabel(anaForm, 'baslikLbl', '🎈 BALON PATLATMACA 🎈');

  baslikLbl.Left := 150;

  baslikLbl.Top := 50;

  baslikLbl.Width := 300;

  baslikLbl.Height := 40;

 

  balonLbl := anaForm.AddNewProLabel(anaForm, 'balonLbl', '💥🎈💥');

  balonLbl.Left := 200;

  balonLbl.Top := 100;

  balonLbl.Width := 200;

  balonLbl.Height := 30;

 

  baslaBtn := anaForm.AddNewProButton(anaForm, 'baslaBtn', 'BAŞLA');

  baslaBtn.Left := 220;

  baslaBtn.Top := 160;

  baslaBtn.Width := 120;

  baslaBtn.Height := 40;

  baslaBtn.OnClick := BaslaTikla;

 

  anaForm.Run;

end.

 

 

 Bu kodda ne eksik söyleye bilirmisiniz ya da fazla