1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

var
  newBallPos : TVector;
  i:Byte;
begin


  if (not gameOver) and (deltaTime>0) then begin // Die ränder
    newBallPos:=VectorCombine(Ball.Position.AsVector, ballVector, 1, deltaTime);
    if newBallPos[0]<-7.05 then
      ballVector[0]:=-ballVector[0]
    else
      if newBallPos[0]>7.05 then
        ballVector[0]:=-ballVector[0]
  else
      if newBallPos[1]>4.55 then
        ballVector[1]:=-ballVector[1];

  end;

  if newBallPos[1]<-4 then begin // Prüfen ob es eine colisions mit dem pad gebgen hat.
    for i:=1 to 3 do begin
      with TGLCube(FindComponent('Stein' + IntToStr(i))) do begin
        if (newBallPos[0]>Position.X) and (newBallPos[0]<Position.X) then begin
          ballVector[1]:=-ballVector[1];
          ballVector[0]:=ballVector[0]+(Random(100)-50)/50;
          ballVector[1]:=ballVector[1]+0.1;
          ShowMessage('TEST');
          gameOver:=True;
        end;
      end;
    end;

    if (newBallPos[0]>Pad.Position.X-1.25) and (newBallPos[0]<Pad.Position.X+1.25) then begin
      ballVector[1]:=-ballVector[1];
      ballVector[0]:=ballVector[0]+(Random(100)-50)/50;
      ballVector[1]:=ballVector[1]+0.1;
      Inc(score);
      SpaceText1.Text:=Format('%.3d', [score]);
    end
    else begin
      gameOver:=True;
      ResetGame;
    end; 
  end;

  CollisionManager1.CheckCollisions;
   with Ball.Position do
     AsVector:=VectorCombine(AsVector, ballVector, 1, deltaTime);