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

SetFillStyle(1, 1);

Bar(31,1, 608, 478);

{первоначальная установка переменых}

kX:=0.8;

kY:=0.3;

Step:=10;

rBX:=320;

rBY:=240;

oBX:=320;

oBY:=240;

R1:=240;

R2:=240;

oR1:=240;

oR2:=240;

repeat

{если нажата клавиша вверх и не нажата клавиша вниз}

{для игрока 1}

if Up1 and not Down1 then

begin {перемещение дощечки вверх}

R1:=R1-10;

if R1<50 then R1:=50; {не пропускать выше положенной}

SetColor(1); {координаты}

Line(50, oR1-48, 50, oR1+48);

SetColor(11);

Line(50, R1-48, 50, R1+48);

oR1:=R1;

end;

{если нажата клавиша вниз и не нажата клавиша вверх}

{для игрока 1}