Hallo,
ich will gerade mal ein bisschen rumspielen und mir kleine Spielchen programmieren, so nun habe ich ich da aber ein paar Probleme. Ein paar Spiele habe ich schon programmiert ich weiss nur nicht ob das so gut ich ist ich die Probleme gelöst hab.
Also nehmen wir das Beispiel TeleTennis das kennt wenigstens jeder. Also ich muss ja eine Procedure haben die Abfragt ob der User mit seinem Pad den Ball getroffen hat. Ich habe das so gemacht das ich einen Timer habe der immer läuft und der eine Schleife drin hat um den Umkreis abzuduchen.
Also ca. so.
Delphi-Quellcode:
Procedure TForm1.Timer1.....
var i: integer;
begin
For i := 0 to 30 do begin //nur Beispiel
If Button1.Left + i = Button2.left then Treffer := true; //Button1 : Pad; Button2: Ball
If Button2.Left < 0 then treffer := false;
end;
If treffer then getroffen //getroffen beispiel Procedure um den Ball weiterzu spielen
If not treffer then Label1.Caption 'Looser' ;
Löst man das so oder macht man das anders.