Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement