Контрольная работа: Написание игры "Змейка" средствами языка Turbo Pascal

ny:=snakebody[width].y; end; {rigth}

2: begin nx:=snakebody[width].x-1;

ny:=snakebody[width].y; end; {left}

3: begin nx:=snakebody[width].x;

ny:=snakebody[width].y-1; end; {up}

4: begin nx:=snakebody[width].x;

ny:=snakebody[width].y+1; end; {down}

end;

{если впереди граница или препятствие}

if (not checknext(nx,ny)) then

begin

gameover:=true; {заканчиваем игру с поражением пользователя}

break;

end;

movesnake(nx,ny); {перемещаемзмейку}

gotoxy(e.x,e.y);

write('o'); {отображаемеду}

for i:=1 to width-1 do

begin {отображаемтелозмейки}

gotoxy(snakebody[i].x,snakebody[i].y);

{ textbackground(2);}

textcolor(15);

write('o');

end;

gotoxy (snakebody[width].x, snakebody[width].y);

textcolor(7);

write('o'); {отображениеголовызмейки}

gotoxy(80,25); {уводим курсор чтобы не мешал}

delay(20000)