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

291 }SnakeY[i]:=SnakeY[i-1];

292 }end;

293 }SnakeX[1]:=HeadX;

294 }SnakeY[1]:=HeadY;

295 }drawsnake;

296 }textcolor (0);

297 }gotoxy( 1,1);

298 }end;

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

299 }BEGIN

300 }Assign(f,'result.dat');

301 }Textmode(c80 + Font8x8);

302 }randomize;

303 }CLRSCR;

304 }for i:=1 to 40 do addbonus(i);

305 }MenuItem[1]:=' VERY SLOW ';

306 }MenuItem[2]:=' SLOW ';

307 }MenuItem[3]:=' MEDIUM ';

308 }MenuItem[4]:=' HIGH ';

309 }MenuItem[5]:=' VERY HIGH ';

310 }MenuItem[6]:=' RESULT ';

311 }MenuSelect:=1;

312 }clrscr;

313 }menu;

314 }for i:=1 to Dlina do

315 }begin

316 }SnakeX[i]:=6-i;

317 }SnakeY[i]:=1;

318 }end;