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

setcolor(1);

settextstyle(1,0,10);

outtextxy(c,b,s);

end;(*buk*)

(*Процедура победы*)

procedure victory;

begin (*victory*)

{Создание на желтом фоне надписи Victoty}

setbkcolor(14);

buk(480,220,100,'V');

buk(480,220,170,'i');

buk(480,220,205,'c');

buk(480,220,255,'t');

buk(480,220,300,'o');

buk(480,220,359,'r');

buk(480,220,410,'y');

{Очерчивние надписи 2 линиями}

setcolor(4);

setlinestyle(0,0,3);

for i:=115 to 405 do

begin

delay(3);

line(i,355,i+20,355);

line(i,240,i,240);

end;

for i:=455 to 470 do

begin

delay(3);

line(i,355,i+5,355)