Курсовая работа: Игровая программа 15

pl:=Esc;{Выход из цикла}

vict:=true;{Инициализация победы}

end;(*if3*)

end;(*if2*)

end;(*if1*)

{Игрок нажал клавишу Esc}

if kl=Esc

then

begin (*if*)

{Помещение странички в буфер

посредством разбиения

ее на 4 части}

m:=imagesize(0,0,320,240);

getmem(p,m);

getimage(0,0,320,240,p^);

m1:=imagesize(320,0,639,240);

getmem(p1,m1);

getimage(320,0,639,240,p1^);

m2:=imagesize(0,240,320,480);

getmem(p2,m2);

getimage(0,240,320,480,p2^);

m3:=imagesize(320,240,639,480);

getmem(p3,m3);

getimage(320,240,639,480,p3^);

{Вывод меню, после того как игрок

нажал Esc}

cleardevice;

setbkcolor(0);

b3:=0;