- for i := 1 to 14 do
- begin
- for ii := 1 to 6 do
- begin
- if not(level[i,ii] = 0) then
- begin
- if (ball[2] = level_pos[i,ii,4]) and (ball[1] > level_pos[i,ii,1]) and (ball[1] < level_pos[i,ii,3]) then
- begin
- ball[4] := abs(ball[4]);
- level[i,ii] := 0;
- end;
- if (ball[2]+ball_width = level_pos[i,ii,2]) and (ball[1] > level_pos[i,ii,1]) and (ball[1] < level_pos[i,ii,3]) then
- begin
- ball[4] := -abs(ball[4]);
- level[i,ii] := 0;
- end;
- if (ball[1]-ball_width = level_pos[i,ii,1]) and (ball[2] > level_pos[i,ii,2]) and (ball[2] < level_pos[i,ii,4]) then
- begin
- ball[3] := -abs(ball[3]);
- level[i,ii] := 0;
- end;
- if (ball[1] = level_pos[i,ii,3]) and (ball[2] > level_pos[i,ii,2]) and (ball[2] < level_pos[i,ii,4]) then
- begin
- ball[3] := abs(ball[3]);
- level[i,ii] := 0;
- end;
- end;
- sieg := sieg + level[i,ii];
- end;
- end;