Курсовая работа: Разработка компьютерной игры "Змейка"

TextColor (15);

For X1:=25 to 55 do

Begin

GotoXY (X1,4);

Write ('*');

GotoXY (X1,22);

Write ('*');

end;

For Y1:=4 to 22 do

begin

GotoXY (25,Y1);

Write ('*');

GotoXY (55,Y1);

Write ('*');

end;

GotoXY (31,7);

Write (q);

K2:=0;

repeat

K2:=k2+kk;

kk:=0;

If k2=0 Then Ramka (30,10,qq,128) else

Ramka (30,10,qq,15);

If k2=1 then Ramka (30,14,wq,128) else

Ramka (30,14,wq,15);

IF K2=2 Then Ramka (30,18,qw,128) else

Ramka (30,18,qw,15);

Kno:=ReadKey;

If Kno=#80 then Begin if k2<2 then kk:=1 else kk:=0; end else