Pascal milionár

program project1;
uses crt,graph;
const r=10; {pocet otazok pre kazdu uroven}
var f,e:text;
    n,o:string[2];
    k,l,i,g,t,h:integer;
    gd,gm:smallint;
    otazka,kvyhra,vyhra,pvyhra,pom,a,b,c,d,so: string;
    odpoved,m:char;

procedure obraz;{vytvori obraz}
begin
setbkcolor(black);
setlinestyle (0,0,1);
setcolor(2);
line (24,379,299,379);
line (299,379,299,404);
line (24,404,299,404);
line (24,379,24,404);
floodfill (28,400,2);
setcolor(2);
line (339,379,614,379);
line (614,379,614,404);
line (614,404,339,404);
line (339,404,339,379);
floodfill (340,380,2);
setcolor(2);
line (24,419,299,419);
line (299,419,299,444);
line (299,444,24,444);
line (24,444,24,419);
floodfill (28,430,2);
setcolor(2);
line (339,419,614,419);
line (614,419,614,444);
line (614,444,339,444);
line (339,444,339,419);
floodfill (420,420,2);
setcolor(2);
line (24,339,614,339);
line (614,339,614,364);
line (614,364,24,364);
line (24,364,24,339);
floodfill (30,340,2);
settextstyle (0,0,1);
setcolor (6);
outtextxy (35,391,'A:');
outtextxy (350,391,'B:');
outtextxy (35,431,'C:');
outtextxy (350,431,'D:');
end;

procedure press;
var a,b:integer;
begin
repeat
settextstyle (0,0,1);
setcolor(white);
outtextxy(250,400,'Press any key');
delay(500);
settextstyle (0,0,1);
setcolor(black);
outtextxy(250,400,'Press any key');
delay(500);
until keypressed;
end;

procedure vypln;{zmaze obrazovku}
var a:integer;
begin
 a:=0;
 setlinestyle(0,0,3);
repeat
 setcolor(0);
 line(0,a,640,a);
 a:=a+1;
 delay(1);
until a>480;
setlinestyle(0,0,1);
end;

procedure vyhravypis;{vypis vyhru}
begin
setcolor (2);
settextstyle (1,0,6);
outtextxy (240,150,'VYHRA');
setcolor (4);
setlinestyle (0,0,1);
line (120,320,520,320);
line (120,360,520,360);
line (100,340,120,320);
line (100,340,120,360);
line (540,340,520,320);
line (540,340,520,360);
end;

procedure k_vyhran;{urci vyhru}
begin
setcolor (2);
settextstyle (1,0,6);
outtextxy (160,120,'Gratulujem');
outtextxy (170,190,'vyhrali ste:');
setcolor (4);
setlinestyle (0,0,1);
line (120,320,520,320);
line (120,360,520,360);
line (100,340,120,320);
line (100,340,120,360);
line (540,340,520,320);
line (540,340,520,360);
settextstyle (0,0,1);
setcolor(4);
outtextxy (40,460,'Vasa odpoved bola nespravna.');
end;

procedure k_vyhras;{urci vyhru}
begin
setcolor (2);
settextstyle (1,0,6);
outtextxy (160,120,'Gratulujem');
outtextxy (170,190,'vyhrali ste:');
setcolor (4);
setlinestyle (0,0,1);
line (120,320,520,320);
line (120,360,520,360);
line (100,340,120,320);
line (100,340,120,360);
line (540,340,520,320);
line (540,340,520,360);
settextstyle (0,0,1);
setcolor(4);
outtextxy (40,460,'Zodpovedali ste');
outtextxy (175,460,o);
outtextxy (190,460,'otazok.');
end;

procedure sodpoved(odp,sodp,vyh,kvyh,pvyh:string);{spravnost odpovede}
begin
if (odp<>sodp) and (odp<>'e') then begin
                         vypln;
                                   k_vyhran;
                                   setcolor (6);
                                   settextstyle (1,0,4);
                                   outtextxy(240,320,kvyh);
                                   press;
                                   vypln;
                                   end;
if odp=sodp then begin
         vypln;
                   vyhravypis;
                   setcolor (6);
                   settextstyle (1,0,4);
                   outtextxy (240,320,vyh);
                   delay(1500);
                   vypln;
                   end;
if odp='e' then begin
                vypln;
                k_vyhras;
                setcolor (6);
                settextstyle (1,0,4);
                outtextxy(240,320,pvyh);
                press;
                vypln;
                end;
end;

function premena(q:string):string;
var w:integer;
    e:char;
begin
w:=length(q);
if (w=2) then begin
              q[2]:=succ(q[2]);
              end;
if (w=1) and (q[1]<>'9') then begin
                              q[1]:=succ(q[1]);
                              end;
if (w=1) and (q[1]='9') then begin q:='';q:='10';end;
premena:=q;
end;



{zaciatok programu}
begin
gd:=detect;
InitGraph(gd,gm, 'E:\egavga.bgi');
vypln;
setbkcolor (15);
settextstyle (1,0,5);
setcolor (1);
outtextxy (220,210,'Milionar');
settextstyle (0,0,1);
setcolor (4);
outtextxy (40,460,'info[i]');
press;
b:=readkey;{info}
if b=chr(105) then begin
                   vypln;
                   setbkcolor (15);
                   settextstyle (1,0,3);
                   setcolor (1);
                   outtextxy (40,80,'a - oznacenie odpovede A');
                   outtextxy (40,110,'b - oznacenie odpovede B');
                   outtextxy (40,140,'c - oznacenie odpovede C');
                   outtextxy (40,170,'d - oznacenie odpovede D');
                   outtextxy (40,200,'e - ukoncit hru');
                   settextstyle (0,0,1);
                   setcolor(4);
                   outtextxy (40,460,'exit[e]');
                   delay(250);
                   b:=readkey;
                   if b=chr(101) then begin
                                      delay (500);
                                      end;
                  end;
vypln;
delay (500);
 repeat
k:=0;
o:='0';
  repeat
assign (f,'Subory\otazky.txt');
reset(f);
randomize;
l:=random(10)+1;
g:=(60*k)+(6*l)+1;
n:=o;
n:=premena(n);
setcolor(2);
settextstyle(1,0,6);
outtextxy (170,140,'Otazka c.');outtextxy(415,140,n);
for i:=1 to 900 do  begin
              readln(f,pom);
              if i=g then otazka:=pom;
              if i=g+1 then a:=pom;
              if i=g+2 then b:=pom;
              if i=g+3 then c:=pom;
              if i=g+4 then d:=pom;
              if i=g+5 then so:=pom;
               end;
close(f);
assign (e,'subory\vyhry.txt');
reset(e);
t:=k*3;
for i:=1 to 45 do begin
              readln(e,pom);
              if i=t+1 then pvyhra:=pom;
              if i=t+2 then vyhra:=pom;
              if i=t+3 then kvyhra:=pom;
                  end;

close(e);
obraz;
outtextxy (45,350,otazka);
outtextxy (55,391,a);
outtextxy (370,391,b);
outtextxy (55,431,c);
outtextxy (370,431,d);
delay(500);
repeat
odpoved:=readkey;
until (odpoved='a') or (odpoved='b') or (odpoved='c') or (odpoved='d') or (odpoved='e');
delay(500);
sodpoved(odpoved,so,vyhra,kvyhra,pvyhra);
delay(1000);
k:=k+1;
o:=premena(o);
  until (k>15) or (odpoved='e') or (odpoved<>so);
keypressed;
setbkcolor(0);
vypln;
settextstyle(1,0,4);
setcolor(14);
outtextxy(100,200,'Chcete ukoncit hru ? (A/N)');
   repeat
   m:=readkey;
   until (m='a') or (m='n');
if m='n' then begin
outtextxy(115,250,'Nie nechcem ukoncit hru');
delay(900);
vypln;
              end;
 until m='a';
if m='a' then begin
outtextxy(125,250,'Ano chcem ukoncit hru');
delay (600);
vypln;
setbkcolor (0);
setcolor (14);
settextstyle (1,0,6);
outtextxy (85,165,'Vypinam Milionara');
setcolor(4);
settextstyle (0,0,2);
outtextxy (20,450,'please wait...');
delay (3000);
             end;
closegraph;
end.