Clomosy | Forum : Arka Plan Hareket

Arka Plan Hareket : Bu umarım işinizi görür: Var...

Mon, 07 Aug 2023 15:57:32 +0000

Yazar: Alforce
Konu: 548
G�nderim Zaman�: 07 A�ustos 2023 Saat 15:57

Bu umar�m i�inizi g�r�r:

Var
  MyForm:TclGameForm;
  rightbutton, leftbutton : TClProButton;
  testImg,engel1img,engelimg,engel2img: TClProImage;
  GameTimer,Timer,GameTimer1,GameTimer2,GameTimer3:TClTimer;
  b: Boolean;

Procedure Proc4OnGameTimer;
Const 
  engel2imgSpeed = -10;
begin
  engel2img.Align:= alNone; 
  engel2img.Top := engel2img.Top - engel2imgSpeed;//Move up
  
  if (engel2img.Left + engel2img.Width) > TForm(MyForm).ClientWidth then  // Form Right border control
    engel2img.Left := TForm(MyForm).ClientWidth - engel2img.Width;
  
  if (engel2img.Left) < 0 then // Left border control
    engel2img.Left := 0;
  
  if (engel2img.Top + engel2img.Height) > TForm(MyForm).ClientHeight then  // Form Bottom border control
  begin
    engel2img.Top := TForm(MyForm).ClientHeight - engel2img.Height;
    engel2img.Top := 0;
    engel2img.Left:= clMath.generateRandom(150,250);
  end;
  
  if engel2img then
    GameTimer.Enabled:= True;
end;

Procedure Proc2OnGameTimer;
Const 
  engel1imgSpeed= -10;
begin
  engel1img.Align := alNone; 
  engel1img.Top := engel1img.Top - engel1imgSpeed;//Move up
  
  if (engel1img.Left + engel1img.Width) > TForm(MyForm).ClientWidth then  // Form Right border control
    engel1img.Left := TForm(MyForm).ClientWidth - engel1img.Width;
  
  if (engel1img.Left) < 0 then // Left border control
    engel1img.Left := 0;
    
  if (engel1img.Top + engel1img.Height) > TForm(MyForm).ClientHeight then  // Form Bottom border control
  begin
    engel1img.Top := TForm(MyForm).ClientHeight - engel1img.Height;
    engel1img.Top := 0;
    engel1img.Left:= clMath.generateRandom(50,150);
  end;
  
  if engel1img then
    GameTimer.Enabled:= True;
end;

Procedure Proc3OnGameTimer;
Const 
  engelimgSpeed = -10;
begin
  engelimg.Align := alNone; 
  engelimg.Top := engelimg.Top - engelimgSpeed;//Move up

  if (engelimg.Left + engelimg.Width) > TForm(MyForm).ClientWidth then  // Form Right border control
    engelimg.Left := TForm(MyForm).ClientWidth - engelimg.Width;

  if (engelimg.Left) < 0 then // Left border control
    engelimg.Left := 0;

  if (engelimg.Top + engelimg.Height) > TForm(MyForm).ClientHeight then  // Form Bottom border control
  begin
    engelimg.Top := TForm(MyForm).ClientHeight - engelimg.Height;
    engelimg.Top := 0;
    engelimg.Left:= clMath.generateRandom(0,100);
  end;

  if engelimg then
    GameTimer.Enabled:= True;
end;

procedure SetImage3;
begin
  engel2img := MyForm.AddNewProImage(MyForm,'engel2img');
  clComponent.SetupComponent(engel2img,'{"Width":75, "Height":150, "Align":"None",
  "ImgUrl":"https://i.hizliresim.com/io5ymz8.png", "Left": 60, "Top": 0}');
end;

procedure SetImage2;
begin
  engel1img := MyForm.AddNewProImage(MyForm,'engel1img');
  clComponent.SetupComponent(engel1img,'{"Width":75, "Height":150, "Align":"None",
  "ImgUrl":"https://i.hizliresim.com/p1uujvb.png", "Left": 0, "Top": 30}');
end;

procedure SetImage1;
begin
  engelimg:= MyForm.AddNewProImage(MyForm,'engelimg');
  clComponent.SetupComponent(engelimg,'{"Width":75, "Height":150, "Align":"None",
  "ImgUrl":"https://i.hizliresim.com/rr72hin.png", "Left": 30, "Top": 10}');
end;

Function Max(in1,in2: Integer): Integer; begin

  if in1 >= in2 then
    Result:= in1
  else
    Result:= in2;
End;

Function Min(in1,in2: Integer): Integer; begin

  if in1 <= in2 then
    Result:= in1
  else
    Result:= in2;
End;

// Change background
Procedure Proc1OnGameTimer; begin

  if b then
    MyForm.SetFormBGImage('c4gxsvt.png')
  else
    MyForm.SetFormBGImage('anhjtzn.png');
  
  b:= not b;
End;

Procedure ProcOnGameTimer;
Const 
  testImgSpeed = 0;
Var
  intersect_area,intersect_x1, intersect_y1, intersect_x2, intersect_y2: Integer;
  b: Boolean;
begin
  testImg.Top := testImg.Top - testImgSpeed;//Move up
  
  if (testImg.Left + testImg.Width) > TForm(MyForm).ClientWidth then  // Form Right border control
    testImg.Left := TForm(MyForm).ClientWidth - testImg.Width;
  
  if (testImg.Left) < 0 then // Left border control
    testImg.Left := 0;
  
  if (testImg.Top + testImg.Height) > TForm(MyForm).ClientHeight then  // Form Bottom border control
    testImg.Top := TForm(MyForm).ClientHeight - testImg.Height;
  
  if testImg then
  GameTimer.Enabled := True;
  
  b:= False;
  
  {Engel}
  intersect_x1:= max(testImg.Left, engelimg.Left);
  intersect_y1:= max(testImg.Top, engelimg.Top);
  intersect_x2:= min(testImg.Left+testImg.Width, engelimg.Left+engelimg.Width);
  intersect_y2:= min(testImg.Top+testImg.Height, engelimg.Top+engelimg.Height);
  intersect_area:= (intersect_x2 - intersect_x1) * (intersect_y2 - intersect_y1);
  
  b:= b or (intersect_area > 0) and (testImg.Top < engelimg.Top+engelimg.Height);
  {/Engel}
  
  {Engel1}
  intersect_x1:= max(testImg.Left, engel1img.Left);
  intersect_y1:= max(testImg.Top, engel1img.Top);
  intersect_x2:= min(testImg.Left+testImg.Width, engel1img.Left+engel1img.Width);
  intersect_y2:= min(testImg.Top+testImg.Height, engel1img.Top+engel1img.Height);
  intersect_area:= (intersect_x2 - intersect_x1) * (intersect_y2 - intersect_y1);
  
  b:= b or (intersect_area > 0) and (testImg.Top < engel1img.Top+engel1img.Height);
  {/Engel1}
  
  {Engel2}
  intersect_x1:= max(testImg.Left, engel2img.Left);
  intersect_y1:= max(testImg.Top, engel2img.Top);
  intersect_x2:= min(testImg.Left+testImg.Width, engel2img.Left+engel2img.Width);
  intersect_y2:= min(testImg.Top+testImg.Height, engel2img.Top+engel2img.Height);
  intersect_area:= (intersect_x2 - intersect_x1) * (intersect_y2 - intersect_y1);
  
  b:= b or (intersect_area > 0) and (testImg.Top < engel2img.Top+engel2img.Height);
  {/Engel2}
  
  
  if b then
  Begin
    ShowMessage('Engele dokan�ld�');
    engelimg.Top:= 1;
    engel1img.Top:= 1;
    engel2img.Top:= 1;
  End;
end; 

procedure rightbuttonOnClick;
Begin
  testImg.Align := alNone;
  testImg.Left:= testImg.Left +25;
end;
 
procedure leftbuttonOnClick;
Begin
  testImg.Align := alNone;
  testImg.Left:= testImg.Left -25;
end;

procedure SetImage;
begin
  testImg := MyForm.AddNewProImage(MyForm,'testImg');
  clComponent.SetupComponent(testImg,'{"MarginBottom":-450,"Width" :75, "Height":150,
 "ImgUrl":"https://1.bp.blogspot.com/-eLqVU9iD9EM/WsoJrp3VRaI/AAAAAAAABjo/QH1WGuxqG1Y24swMOrKAZUZzSl8ScXXWgCLcBGAs/s1600/araba.png", "ImgFit":"yes"}');
end;

begin
  b:= False;
  MyForm := TclGameForm.Create(Self);
  MyForm.AddGameAssetFromUrl('https://i.hizliresim.com/c4gxsvt.png');
  MyForm.AddGameAssetFromUrl('https://i.hizliresim.com/anhjtzn.png');
  
  
  rightbutton := MyForm.AddNewProButton(MyForm,'rightbutton','');
  clComponent.SetupComponent(rightbutton,'{"caption":" ", "MarginBottom":-700, "Width" :200,"MarginLeft":275, 
  "Height":70,"RoundHeight":2,
  "RoundWidth":2}');
  MyForm.SetImage(rightbutton,'https://i.hizliresim.com/rctnzmd.png'); 
  MyForm.AddNewEvent(rightbutton,tbeOnClick,'rightbuttonOnClick');
  
  
  
  leftbutton := MyForm.AddNewProButton(MyForm,'leftbutton','');
  clComponent.SetupComponent(leftbutton,'{"caption":" ",  "MarginBottom":-700,  "Width" :200,"MarginRight":300, 
  "Height":70,"RoundHeight":2,
  "RoundWidth":2}');
  MyForm.SetImage(leftbutton,'https://i.hizliresim.com/t73pt83.png'); 
  MyForm.AddNewEvent(leftbutton,tbeOnClick,'leftbuttonOnClick');
  
  Timer:= MyForm.AddNewTimer(MyForm,'timer',100);
  Timer.Enabled:= True;  
  MyForm.AddNewEvent(Timer,tbeOnTimer,'Proc1OnGameTimer');
  
  GameTimer:= MyForm.AddNewTimer(MyForm,'GameTimer',1000);
  GameTimer.Interval := 100;
  GameTimer.Enabled := True;
  MyForm.AddNewEvent(GameTimer,tbeOnTimer,'ProcOnGameTimer');
  
  GameTimer2:= MyForm.AddNewTimer(MyForm,'GameTimer2',1000);
  GameTimer2.Interval := 100;
  GameTimer2.Enabled := True;
  MyForm.AddNewEvent(GameTimer2,tbeOnTimer,'Proc2OnGameTimer');
  
  GameTimer1:= MyForm.AddNewTimer(MyForm,'GameTimer1',1000);
  GameTimer1.Interval := 100;
  GameTimer1.Enabled := True;
  MyForm.AddNewEvent(GameTimer1,tbeOnTimer,'Proc3OnGameTimer');
  
  GameTimer3:= MyForm.AddNewTimer(MyForm,'GameTimer3',1000);
  GameTimer3.Interval := 100;
  GameTimer3.Enabled := True;
  MyForm.AddNewEvent(GameTimer3,tbeOnTimer,'Proc4OnGameTimer');

  SetImage3;
  SetImage2;
  SetImage1;
  SetImage;
  MyForm.Run;
end;

Arka Plan Hareket : varMyForm:TclGameForm;rightbutton,...

Mon, 07 Aug 2023 13:33:14 +0000

Yazar: ibrahimethem
Konu: 548
G�nderim Zaman�: 07 A�ustos 2023 Saat 13:33

var

MyForm:TclGameForm;

rightbutton, leftbutton : TClProButton;

testImg,engel1img,engelimg,engel2img: TClProImage;

GameTimer,Timer,GameTimer1,GameTimer2,GameTimer3:TClTimer;

b: Boolean;

Procedure Proc4OnGameTimer;

Const

engel2imgSpeed= -10;

begin

engel2img.Align := alNone;

engel2img.Position.Y := engel2img.Position.Y - engel2imgSpeed;//Move up

if (engel2img.Position.X + engel2img.Width) > TForm(MyForm).ClientWidth then // Form Right border control

engel2img.Position.X := TForm(MyForm).ClientWidth - engel2img.Width;

if (engel2img.Position.X) < 0 then // Left border control

engel2img.Position.X := 0;

if (engel2img.Position.Y + engel2img.Height) > TForm(MyForm).ClientHeight then // Form Bottom border control

begin

engel2img.Position.Y := TForm(MyForm).ClientHeight - engel2img.Height;

engel2img.Position.Y := 0;

engel2img.Position.X:= clMath.generateRandom(150,250);

end;

if engel2img then

GameTimer.Enabled := True;

end;

Procedure Proc2OnGameTimer;

Const

engel1imgSpeed= -10;

begin

engel1img.Align := alNone;

engel1img.Position.Y := engel1img.Position.Y - engel1imgSpeed;//Move up

if (engel1img.Position.X + engel1img.Width) > TForm(MyForm).ClientWidth then // Form Right border control

engel1img.Position.X := TForm(MyForm).ClientWidth - engel1img.Width;

if (engel1img.Position.X) < 0 then // Left border control

engel1img.Position.X := 0;

if (engel1img.Position.Y + engel1img.Height) > TForm(MyForm).ClientHeight then // Form Bottom border control

begin

engel1img.Position.Y := TForm(MyForm).ClientHeight - engel1img.Height;

engel1img.Position.Y := 0;

engel1img.Position.X:= clMath.generateRandom(50,150);

end;

if engel1img then

GameTimer.Enabled := True;

end;

Procedure Proc3OnGameTimer;

Const

engelimgSpeed = -10;

begin

engelimg.Align := alNone;

engelimg.Position.Y := engelimg.Position.Y - engelimgSpeed;//Move up

if (engelimg.Position.X + engelimg.Width) > TForm(MyForm).ClientWidth then // Form Right border control

engelimg.Position.X := TForm(MyForm).ClientWidth - engelimg.Width;

if (engelimg.Position.X) < 0 then // Left border control

engelimg.Position.X := 0;

if (engelimg.Position.Y + engelimg.Height) > TForm(MyForm).ClientHeight then // Form Bottom border control

begin

engelimg.Position.Y := TForm(MyForm).ClientHeight - engelimg.Height;

engelimg.Position.Y := 0;

engelimg.Position.X:= clMath.generateRandom(0,100);

end;

if engelimg then

GameTimer.Enabled := True;

end;

procedure SetImage3;

begin

engel2img := MyForm.AddNewProImage(MyForm,'engel2img');

clComponent.SetupComponent(engel2img,'{"MarginBottom":600,"Width" :150, "MarginLeft":250, "Height":150,"RoundHeight":10,"RoundWidth":10,

"ImgUrl":"https://i.hizliresim.com/io5ymz8.png", "ImgFit":"yes"}');

end;

procedure SetImage2;

begin

engel1img := MyForm.AddNewProImage(MyForm,'engel1img');

clComponent.SetupComponent(engel1img,'{"MarginBottom":300,"Width" :150, "MarginRight":250, "Height":150,"RoundHeight":10,"RoundWidth":10,

"ImgUrl":"https://i.hizliresim.com/dbtk62n.png", "ImgFit":"yes"}');

end;

procedure SetImage1;

begin

engelimg := MyForm.AddNewProImage(MyForm,'engelimg');

clComponent.SetupComponent(engelimg,'{"MarginBottom":-50,"Width" :150, "MarginLeft":250, "Height":150,"RoundHeight":10,"RoundWidth":10,

"ImgUrl":"https://i.hizliresim.com/8lnv0rh.png", "ImgFit":"yes"}');

end;

Procedure Proc1OnGameTimer;

begin

if b then

MyForm.SetFormBGImage('c4gxsvt.png')

else

MyForm.SetFormBGImage('anhjtzn.png');

b:= not b;

End;

Procedure ProcOnGameTimer;

Const

testImgSpeed = 0;

begin

testImg.Position.Y := testImg.Position.Y - testImgSpeed;//Move up

if (testImg.Position.X + testImg.Width) > TForm(MyForm).ClientWidth then // Form Right border control

testImg.Position.X := TForm(MyForm).ClientWidth - testImg.Width;

if (testImg.Position.X) < 0 then // Left border control

testImg.Position.X := 0;

if (testImg.Position.Y + testImg.Height) > TForm(MyForm).ClientHeight then // Form Bottom border control

testImg.Position.Y := TForm(MyForm).ClientHeight - testImg.Height;

if testImg then

GameTimer.Enabled := True;

end;

procedure rightbuttonOnClick;

begin

testImg.Align := alNone;

testImg.Position.X := testImg.Position.X + 25;

end;

procedure leftbuttonOnClick;

begin

testImg.Align := alNone;

testImg.Position.X := testImg.Position.X - 25;

end;

procedure SetImage;

begin

testImg := MyForm.AddNewProImage(MyForm,'testImg');

clComponent.SetupComponent(testImg,'{"MarginBottom":-450,"Width" :150, "Height":150,"RoundHeight":10,"RoundWidth":10,

"ImgUrl":"https://1.bp.blogspot.com/-eLqVU9iD9EM/WsoJrp3VRaI/AAAAAAAABjo/QH1WGuxqG1Y24swMOrKAZUZzSl8ScXXWgCLcBGAs/s1600/araba.png", "ImgFit":"yes"}');

end;

begin

b:= False;

MyForm := TclGameForm.Create(Self);

MyForm.AddGameAssetFromUrl('https://i.hizliresim.com/c4gxsvt.png');

MyForm.AddGameAssetFromUrl('https://i.hizliresim.com/anhjtzn.png');

rightbutton := MyForm.AddNewProButton(MyForm,'rightbutton','');

clComponent.SetupComponent(rightbutton,'{"caption":" ", "MarginBottom":-700, "Width" :200,"MarginLeft":275,

"Height":70,"RoundHeight":2,

"RoundWidth":2}');

MyForm.SetImage(rightbutton,'https://i.hizliresim.com/rctnzmd.png');

MyForm.AddNewEvent(rightbutton,tbeOnClick,'rightbuttonOnClick');

leftbutton := MyForm.AddNewProButton(MyForm,'leftbutton','');

clComponent.SetupComponent(leftbutton,'{"caption":" ", "MarginBottom":-700, "Width" :200,"MarginRight":300,

"Height":70,"RoundHeight":2,

"RoundWidth":2}');

MyForm.SetImage(leftbutton,'https://i.hizliresim.com/t73pt83.png');

MyForm.AddNewEvent(leftbutton,tbeOnClick,'leftbuttonOnClick');

Timer:= MyForm.AddNewTimer(MyForm,'timer',100);

Timer.Enabled:= True;

MyForm.AddNewEvent(Timer,tbeOnTimer,'Proc1OnGameTimer');

GameTimer:= MyForm.AddNewTimer(MyForm,'GameTimer',1000);

GameTimer.Interval := 100;

GameTimer.Enabled := True;

MyForm.AddNewEvent(GameTimer,tbeOnTimer,'ProcOnGameTimer');

GameTimer2:= MyForm.AddNewTimer(MyForm,'GameTimer2',1000);

GameTimer2.Interval := 100;

GameTimer2.Enabled := True;

MyForm.AddNewEvent(GameTimer2,tbeOnTimer,'Proc2OnGameTimer');

GameTimer1:= MyForm.AddNewTimer(MyForm,'GameTimer1',1000);

GameTimer1.Interval := 100;

GameTimer1.Enabled := True;

MyForm.AddNewEvent(GameTimer1,tbeOnTimer,'Proc3OnGameTimer');

GameTimer3:= MyForm.AddNewTimer(MyForm,'GameTimer3',1000);

GameTimer3.Interval := 100;

GameTimer3.Enabled := True;

MyForm.AddNewEvent(GameTimer3,tbeOnTimer,'Proc4OnGameTimer');

SetImage3;

SetImage2;

SetImage1;

SetImage;

MyForm.Run;

end;

Kodum �u �ekilde att��n�z kodu engelin i�inde de denedim ayr� olarak ana arabam olan (testimg) i�inde de denedim oyun ekran� a��lmas�na ra�men kod devreye girmiyor. Ayr� bir yere yap��t�rd��mda ise direkt olarak hata al�yorum sebebi nedir sizce ?

Arka Plan Hareket : İkisinin alanını kıyaslayabilirsiniz.Örnek...

Mon, 07 Aug 2023 11:26:35 +0000

Yazar: Alforce
Konu: 548
G�nderim Zaman�: 07 A�ustos 2023 Saat 11:26

�kisinin alan�n� k�yaslayabilirsiniz.

�rnek bir kod:

if
  (Araba.Top <= Engel.Top+Engel.Height) or
  (Araba.Top+Araba.Height >= Engel.Top) or
  (Araba.Left <= Engel.Left+Engel.Width) or
  (Araba.Left+Araba.Width >= Engel.Left)
then
Begin
  // Engele dokan�ld�
End;

Bu, iki nesnenin kesi�ip kesi�medi�ini hesaplar.

Bunu b�t�n engeller i�in do�rulay�n.

Arka Plan Hareket : Yol arka planda kaydığı ve engellerimin...

Mon, 07 Aug 2023 09:47:22 +0000

Yazar: ibrahimethem
Konu: 548
G�nderim Zaman�: 07 A�ustos 2023 Saat 09:47

Yol arka planda kayd�� ve engellerimin de random olarak geldi�i i�in engelleri konumland�ram�yorum bu y�zden arac�ma vurdu�u zaman alg�lam�yor bunun alg�lamas� i�in ne yapabilirim ?

Arka Plan Hareket : ibrahimethem Yazdı:Y eksenine...

Mon, 07 Aug 2023 09:13:41 +0000

Yazar: Alforce
Konu: 548
G�nderim Zaman�: 07 A�ustos 2023 Saat 09:13

ibrahimethem Yazd�:

Y eksenine eksi koymama ra�men eksende a�a�� do�ru kaym�yor

A��a�� do�u kaymak yerine ne yapt��n� anlat�rsan�z sorununuz daha kolay anla��l�r.

Bir timer�n OnTimer olay�na bunu koymak nas�l �al��r?:

Nesne.Top:= Nesne.Top+10;

Bunun nesneyi a��a�� do�ru hareket etmesi gerekir.

Yada belki nesne bir yere ba�l� olabilir, bu durumda bu kod onu serbest b�rak�r:

Nesne.Align:= alNone;

Arka Plan Hareket : Şuan arka plan haraketlinde bir...

Fri, 04 Aug 2023 14:40:52 +0000

Yazar: ibrahimethem
Konu: 548
G�nderim Zaman�: 04 A�ustos 2023 Saat 14:40

�uan arka plan haraketlinde bir sorun olmuyor ama engelleri Y eksenine eksi koymama ra�men eksende a�a�� do�ru kaym�yor bunun i�in ne yapabilirim ?

Arka Plan Hareket : Burda.

Fri, 04 Aug 2023 10:12:27 +0000

Yazar: Alforce
Konu: 548
G�nderim Zaman�: 04 A�ustos 2023 Saat 10:12

Burda.

Arka Plan Hareket : Arka planın hareketi için animasyon...

Fri, 04 Aug 2023 09:44:47 +0000

Yazar: ibrahimethem
Konu: 548
G�nderim Zaman�: 04 A�ustos 2023 Saat 09:44

Arka plan�n hareketi i�in animasyon kullanmam� s�ylemi�tiniz ama animasyon ile yapamad�m daha farkl� bir y�ntem var m� ?