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

end;

{----------------------------------------------------------------------------}

{процедура обновления количества очков игроков}

procedure RefrCount;

var

s1 :String;

begin

SetFillStyle(1,0);

Bar(610, 230, 639, 250);

Str(MissCount1, s1);

OutTextXY(614,232, s1);

Bar(0, 0, 29, 479);

Str(MissCount2, s1);

OutTextXY(5,232, s1);

Bar(0, 230, 29, 250);

Str(MissCount2, s1);

OutTextXY(4,232, s1);

Bar(610, 0, 639, 479);

Str(MissCount1, s1);

OutTextXY(615,232, s1);

end;

{----------------------------------------------------------------------------}

procedure Game;

var

t1 :Integer;

ChC :Boolean;

begin

{прорисовка игрового поля}

SetColor(12);