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

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

R1:=R1+10;

if R1>430 then R1:=430;{не пропускать ниже положенной}

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

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

SetColor(11);

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

oR1:=R1;

end;

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

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

if Up2 and not Down2 then

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

R2:=R2-10;

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

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

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

SetColor(10);

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

oR2:=R2;

end;

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

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

if Down2 and not Up2 then

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

R2:=R2+10;

if R2>430 then R2:=430;{не пропускать ниже положенной}

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

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