Uses graphABC,ABCObjects;

var
ball:CircleABC;
player:RectangleABC;
block:RectangleABC;
xBall,yBall,kx,ky,xPlayer,yPlayer,xBlock,yBlock,right,left:integer;



procedure keyDown(key:integer);
begin
      if(key = VK_Right) then
      begin
            right := 1;
      end;
      if(key = VK_Left) then
      begin
            left := 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
      xBall := 100;
      yBall := 100;
      ball := CircleABC.Create(xBall,yBall,10,clBlack);

      xPlayer := 200;
      yPlayer := windowHeight - 20;
      player := RectangleABC.Create(xPlayer,yPlayer,100,20,clBlack);

      xBlock := 125;
      yBlock := 0;
      block := RectangleABC.Create(xBlock,yBlock,400,20,clRed);

      kx := 1;
      ky := 1;

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

           if(ball.Intersect(block)) then
           begin

                block.Color := clOrange ;

                ky := -ky

           end ;


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




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

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

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





           ball.MoveTo(xBall,yBall);
           sleep(2);
      end;

end.