program Kostki;
uses windows, crt, dos;


var txt: array[0..80] of char;
var z:integer;
var x:integer;
var a:integer;
var b:integer;
var temp:integer;
var flag:integer;
var name1:string;
var name2:string;
var punkty:integer;
var k:char;
var p:char;
var g:char;
var i:integer;
var max:integer;



procedure los1();
begin
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
write('                 '); writeln(k,k,k,k,k,k,k);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write('   '); write(g); write('   '); writeln(p);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p,k,k,k,k,k,k,k,p);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
end;

procedure los2();
begin
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
write('                 '); writeln(k,k,k,k,k,k,k);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write(' '); write(g); write('     '); writeln(p);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write('     '); write(g); write(' '); writeln(p);
write('                '); write(p,k,k,k,k,k,k,k,p);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
end;

procedure los3();
begin
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
write('                 '); writeln(k,k,k,k,k,k,k);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write(' '); write(g); write('     '); writeln(p);
write('                '); write(p); write('   '); write(g); write('   '); writeln(p);
write('                '); write(p); write('     '); write(g); write(' '); writeln(p);
write('                '); write(p,k,k,k,k,k,k,k,p);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
end;

procedure los4();
begin
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
write('                 '); writeln(k,k,k,k,k,k,k);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write(' '); write(g); write('   '); write(g);write(' ');writeln(p);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write(' '); write(g); write('   '); write(g);write(' ');writeln(p);
write('                '); write(p,k,k,k,k,k,k,k,p);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
end;

procedure los5();
begin
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
write('                 '); writeln(k,k,k,k,k,k,k);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write(' '); write(g); write('   '); write(g);write(' ');writeln(p);
write('                '); write(p); write('   '); write(g); write('   '); writeln(p);
write('                '); write(p); write(' '); write(g); write('   '); write(g);write(' ');writeln(p);
write('                '); write(p,k,k,k,k,k,k,k,p);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
end;

procedure los6();
begin
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
write('                 '); writeln(k,k,k,k,k,k,k);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write(' '); write(g); write(' '); write(g); write(' '); write(g); write(' ');writeln(p);
write('                '); write(p); write('       '); writeln(p);
write('                '); write(p); write(' '); write(g); write(' '); write(g); write(' '); write(g); write(' ');writeln(p);
write('                '); write(p,k,k,k,k,k,k,k,p);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
end;

procedure losowanie();
begin
     punkty := 0;
     while punkty < max do
     begin
          for i:=1 to 50 do
          begin
               clrscr;
               randomize;
               temp := random(6);
               temp := temp + 1;
               if temp=1 then
               los1;
               if temp=2 then
               los2;
               if temp=3 then
               los3;
               if temp=4 then
               los4;
               if temp=5 then
               los5;
               if temp=6 then
               los6;
               delay(25);
          end;
          if flag = 1 then
          begin
               chartooem('Gracz ', txt);
               write(txt);
               write(name1);
               chartooem(' wyrzucil ', txt);
               write(txt);
               writeln(temp);
               a := a + temp;
               chartooem('Twoj aktualny wynik to: ', txt);
               write(txt);
               writeln(a);
               flag := 2;
          end
          else
          begin
               chartooem('Gracz ', txt);
               write(txt);
               write(name2);
               chartooem(' wyrzucil ', txt);
               write(txt);
               writeln(temp);
               b := b + temp;
               chartooem('Twoj aktualny wynik to: ', txt);
               write(txt);
               writeln(b);
               flag := 1;
          end;
          if flag = 1 then
          begin
               if a>b then
               begin
                    punkty := a;
               end
               else
               begin
                    punkty := b;
               end;
          end;
          if flag = 1 then
          begin
               chartooem('Teraz kolej gracza: ', txt);
               write(txt);
               write(name1);
               readln;
          end
          else
          begin
               chartooem('Teraz kolej gracza: ', txt);
               write(txt);
               write(name2);
               readln;
          end;
          clrscr;
     end;
     if a>b then
     begin
          chartooem('Gracz ', txt);
          write(txt);
          write(name1);
          chartooem(' wygral ', txt);
          write(txt);
          readln;
     end
     else
     begin
          chartooem('Gracz ', txt);
          write(txt);
          write(name1);
          chartooem(' wygral ', txt);
          write(txt);
          readln;
     end;
end;

procedure menu();

begin
repeat
     chartooem('MENU GLOWNE', txt);
     writeln(txt);
     chartooem('1 - GRA W KOSTKI', txt);
     writeln(txt);
     chartooem('2 - WYJSCIE ', txt);
     writeln(txt);
     readln(z);
     if z=1 then
          begin
          clrscr;
          break;
     end;
     if z=2 then break;

     begin
     chartooem('NIE MOZESZ PODAC TAKIEJ LICZBY', txt);
     writeln(txt);
     readln;
     x:=1;
     clrscr;
     end;
until x=0 ;
end;


begin
     k:=('_');
     p:=('|');
     g:=('*');
     chartooem('APLIKACJA NAPISANA PRZEZ LUKASZA RESZCZYNSKIEGO DNIA 26 MARCA 2009', txt);
     writeln(txt);
     menu();
     if z=1 then
     begin
          writeln ('Gracz 1 podaj swoje imie:');
          readln (name1);
          writeln ('Gracz 2 podaj swoje imie:');
          readln (name2);
          chartooem('Gramy do uzyskania:', txt);
          writeln(txt);
          readln(max);
          flag := 1;
          clrscr;
          losowanie;
     end;
     if z=2 then
     begin
          clrscr;
          chartooem('ZEGNAM. APLIKACJA ZOSTANIE ROZLACZONA PO 5 SEC.', txt);
          writeln(txt);
          delay(5000);
     end;
end.