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

then

begin

cleardevice;

setbkcolor(7);

putimage(0,0,p^,normalput);

freemem(p,m);

putimage(320,0,p1^,normalput);

freemem(p1,m1);

putimage(0,240,p2^,normalput);

freemem(p2,m2);

putimage(320,240,p3^,normalput);

freemem(p3,m3);

settextstyle(7,0,5);

setfillstyle(1,11)

end

until (kl=Esc) or (pl=Esc) ;

{Демонстрация победы после завершения игры}

if vict then

begin(*vict*)

cleardevice;{Очистка экрана}

victory;{Процедура победы}

{Вывод на экран числа шагов,сделанных

пользователем, и поздравления}

setcolor(4);

settextstyle(7,0,5);

outtextxy(100,50,'You are win ! ! !');

str(steps,step);

outtextxy(100,100,'You made');

outtextxy(150,150,step);