Thema: Delphi PingPong

Einzelnen Beitrag anzeigen

Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#16

Re: PingPong

  Alt 6. Mai 2005, 18:26
Schau dir doch noch einmal die Codestelle an:
Delphi-Quellcode:
//Abprallen player1 und 2
if
(posx > (button2.left-30 ) + Button2.Width -40 )
or
(posx < Button1.Left + Button1.Width - 40)
then
begin
if
(posy < Button1.Top + Button1.Height )
and
(posy > Button1.Top )
or
(posy < Button2.Top + Button2.Height -50 )
and
(posy > Button2.Top - 70 )
then
geschwx := - geschwx ;

end;
end;
Du vergleichst hier beide Seiten zugleich, was nicht gut gehen kann, es reicht zum Abprallen schon, wenn nur einer der Schläger auf der richtigen Höhe ist. Und das ist der gegnerische ja immer.
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat