Реферат: Программирование игры Змейка

243 }write('║ Продовжити(Y/N)? ║');

244 }gotoxy(28,25);

245 }write('║ ║');

246 }gotoxy(28,26);

247 }write('╚═══════════════════╝');

248 }gotoxy(1,1);

249 }key:=readkey;

250 }case key of

251 }'Y','y','Н','н': begin

menu;

for i:=1 to Dlina do

begin

SnakeX[i]:=6-i;

SnakeY[i]:=1;

end;

end;

252 }'N','n','Т','т':Rezultat(f,Score,Dlina);

253 }else goto 1;

254 }end;

255 }textcolor(0);

256 }gotoxy(1,1);

257 }End;

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

258 }procedure Move;

259 }begin

260 }Symbol(SnakeX[Dlina],SnakeY[Dlina],' ');

261 }case naprav of

262 }1: begin

HeadX:=HeadX+1;