Курсовая работа: Игра "Vertolet"

outtextxy(158,138,text);

delay(30000);

end;

procedure ni;

var cc:char;

bb:integer;

s:string[8];

begin

cleardevice;

setcolor(6);

bb:=220;

s:='';

setfillstyle(1,1);

outtextxy(100,60,'Will enter your name:');

bar(200,220,400,280);

settextstyle(1,0,5);

repeat

cc:=readkey;

if (ord(cc)<>75) and (ord(cc)<>72) {and (ord(cc)<>77)} and (ord(cc)<>80) then

s:=s+cc;

nik:=s;

outtextxy(bb,230,nik);

outtextxy(bb+2,230,nik);

until ord(cc)=13;

setfillstyle(1,0);

cleardevice;

end;

procedure lev(text,text1:string);

begin