Uses graphABC,ABCObjects;

var
ball:CircleABC;
player:pictureABC;
block:array[1..10] of PictureABC;
block2:array[1..10] of PictureABC;
xBall,yBall,kx,ky,xPlayer,yPlayer,xBlock,yBlock,xBlock2,yBlock2,right,left,cr,cg,cb:integer;
i,i2,step,start,count,finish:integer;


procedure keyDown(key:integer);
begin
      if(key = VK_Right) then
      begin
            right := 1;
      end;
      if(key = VK_Left) then
      begin
            left := 1;
      end;
      if(key = vk_S) then
      begin
           start := 1;
      end;
end;

procedure keyUp(key:integer);
begin
      if(key = VK_Right) then
      begin
            right := 0;
      end;
      if(key = VK_Left) then
      begin
            left := 0;
      end;
end;



begin
      randomize;

      count := 0;

      xBall := 100;
      yBall := 100;
      ball := CircleABC.Create(xBall,yBall,13,clBlack);

      xPlayer := 200;
      yPlayer := windowheight-100;
      player := pictureABC.Create(xPlayer,yPlayer,'player_3.bmp');


      ball.BorderColor := clWhite;
      for i:=1 to 10 do
      begin
          xBlock := 72 + (i-1)*53;
          yBlock := 0;
          block[i] := PictureABC.Create(xBlock,yBlock,'green_3.bmp');
          block[i].TransparentColor := clWhite;
          block[i].Transparent := true;
      end;

      for i:=1 to 10 do
      begin
          xBlock := 72 + (i-1)*53;
          yBlock := 30;
          block2[i] := PictureABC.Create(xBlock,yBlock,'white.bmp');
          block2[i].Transparent := true;
      end;


      kx := 1;
      ky := 1;

      onKeyDown := keyDown;
      onKeyUp := keyUp;
      while(true) do
      begin
           if(player.Intersect(ball)) then
           begin
                //kx:=-kx;
                ky := -ky;
           end;

           for i:=1 to 10 do
           begin
                   if(ball.Intersect(block[i])) then
                   begin


                        block[i].MoveTo(1000,20);

                        count := count + 1;
                        ky := -ky;
                   end ;
           end;






           for i:=1 to 10 do
           begin
                   if(ball.Intersect(block2[i])) then
                   begin

                        block2[i].MoveTo(1000,20);
                        ky := -ky;
                        count := count + 1;
                   end ;
           end;



           xBall := xBall + kx;
           yBall := yBall + ky;

           if(count = 20) then
           begin
                  finish := 1;
           end;


           if((xBall+40 > windowWidth) or (xBall < 0)) then
           begin
                kx := -kx;
           end;
           if((yBall < 0)) then
           begin
                ky := -ky;
           end;

           if(yBall+40 > windowHeight) then
           begin
                  xBall := 200;
                  yBall := 20;
           end;

           if(right = 1) then
           begin
                xPlayer := xPlayer + 1;
                player.MoveTo(xPlayer,yPlayer);
           end;
           if(left = 1) then
           begin
                xPlayer := xPlayer - 1;
                player.MoveTo(xPlayer,yPlayer);
           end;

           step := step + 1;
           if(step = 100) then
           begin
             cr := random(1,255);
             cg := random(1,255);
             cb := random(1,255);
             step := 0;
           end;
           ball.Color := RGB(cr,cg,cb);


           ball.MoveTo(xBall,yBall);








           if((start = 1) and (finish = 1)) then
           begin
                  for i:=1 to 10 do
                  begin
                      xBlock := 72 + (i-1)*53;
                      yBlock := 0;
                      block[i].MoveTo(xBlock,yBlock);
                      block2[i].MoveTo(xBlock,yBlock+30);
                  end;
                  start := 0;
                  finish := 0;
           end;









           sleep(0);
      end;
end.