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

begin

rBX:=580;

rBY:=R2;

kX:=Abs(kX);

Sound(700);

Delay(500);

NoSound;

Inc(MissCount1);

ChC:=True;

end;

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

if (BX>580) and (BY>(R2-55)) and (BY<(R2+55)) then

begin

kX:=-kX;

Sound(1000);

Delay(10);

NoSound;

end;

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

if (BX>600) then

begin

rBX:=60;

rBY:=R1;

kX:=-Abs(kX);

Sound(700);

Delay(500);

NoSound;

Inc(MissCount2);

ChC:=True;