Moin,
hab mal wieder n Problem bei meinem Pong spiel
undzwar soll der Ball nachdem er ins ausgegangen ist von dem gegnerischen Spieler weggeschossen werden
und dafür wollte ich für jeden Spieler eine Taste zum egschiesssen programmieren
bei mir sieht es so aus
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
//Ball wegschießen blauer Spieler ; mit q
if (shape1.top=492)
and (shape1.left=251)
and (dx=0)
and (dy=0)
and (Key=d)
then
begin dy:=1;
dx:=1;
end;
//Ball wegschießen roter Spieler ; mit l
if (shape1.top=89)
and (shape1.left=251)
and (dx=0)
and (dy=0)
and (Key=l)
then
begin dy:=-1;
dx:=-1;
end;
end;
aber das funtkioniert nicht ganz
vielleicht weiß ja wer Rat
