hallo nochmal,
leider gottes bekomm ich das programm irgendwie nicht zum laufen...*heul*
wäre es viel arbeit mein onlinegestelltes programm umzuschreiben und an mich zu senden??
Naj,a also wer die Zeit und die Lust hat kann dies gern tun
Also weitergehts...das prinzip hab ich (denke ich jedenfalls...) verstanden nur beim Umsetzen haperts noch!
ich hab da probleme mit dem "a" und "b"....ich mein ich erstell also ein array
Code:
procedure stoss ;
var ball: array [1..30] of tball ;
for a := 0 to High(BallArray)-2 do
begin
for b := a+1 to High(BallArray)-1 do
begin
wenn sich Ball a und Ball b berühren
begin
abstoßung;
end;
end;
end;
doch was stell ich mitm a und b nun an...?
Sorry, bin noch echt ne blutige Angängerin
