Реферат: Разработка игровой программы

SetColor(10);

Line(590, R2-48, 590, R2+48);

SetColor(12);

Rectangle(30,0, 609,479);

SetFillStyle(1, 1);

SetColor(1);

FillEllipse(oBX, oBY, 10, 10);

rBX:=rBX+kX*Step;

rBY:=rBY+kY*Step;

BX:=Round(rBX);

BY:=Round(rBY);

SetFillStyle(1, 15);

SetColor(7);

FillEllipse(BX, BY, 10, 10);

{если дощечка не попала}

if ChC then

begin

ChC:=False;

RefrCount; {обновить очки игроков}

end;

{столкновение шарика с дощечкой слева}

if (BX<60) and (BY>(R1-55)) and (BY<(R1+55)) then

begin

kX:=-kX;

Sound(1000);

Delay(10);

NoSound;

end;

{не попадание дощечкой слева}