Hrací kostky

Delphi & Pascal (èeská wiki)
Pøejít na: navigace, hledání
Kategórie: KMP (Programy mladých programátorù)
hraci_kostky.pngAutor: Jirka Bernát
Program: Hraci_kostky.pas
Soubor exe: Hraci_kostky.exe

Program na hraní v kostky.
{ HRACI_KOSTKY.PAS                       Copyright (c) Jirka Bernát }
{ Program na na hranie v kostky.                                    }
{                                                                   }
{ Datum:27.02.2008                             http://www.trsek.com }
{ Czech Republic                                                    }
{ E-mail : jura.bernat@seznam.cz                                    }
 
{Program:}
program jirka;
uses crt;
label skok,skok1,skok2,skok3,skok4,skok5,skok6,skok11,skok22,skok33,skok44,skok55,skok66,skok111,skokh;
var h,o,v,volba:char;
    x,y,z,p,i,kostka1,kostka2,kostka3,ct1,ct2,ct3,ct4,ct5,ct6:integer;
 
{Procedura Ÿiçten¡}
procedure vycisti;
begin;
window(1,1,80,50);
textbackground(0);
textcolor(15);
clrscr;
end;
{/procedura Ÿiçten¡}
 
 
procedure writexy(x,y:integer;s:string);
begin
  gotoxy(x,y);
  write(s);
end;
 
 
{Procedura pro prvn¡ Kostku}
procedure kostka(hod:integer);
begin
case hod of
    1:  begin
        writexy(4,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,6,'³                ³');
        writexy(4,7,'³                ³');
        writexy(4,8,'³                ³');
        writexy(4,9,'³                ³');
        writexy(4,10,'³       **       ³');
        writexy(4,11,'³      ****      ³');
        writexy(4,12,'³       **       ³');
        writexy(4,13,'³                ³');
        writexy(4,14,'³                ³');
        writexy(4,15,'³                ³');
        writexy(4,16,'³                ³');
        writexy(4,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka1:=1;
        end;
 
    2:  begin
        writexy(4,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,6,'³ **             ³');
        writexy(4,7,'³****            ³');
        writexy(4,8,'³ **             ³');
        writexy(4,9,'³                ³');
        writexy(4,10,'³                ³');
        writexy(4,11,'³                ³');
        writexy(4,12,'³                ³');
        writexy(4,13,'³                ³');
        writexy(4,14,'³             ** ³');
        writexy(4,15,'³            ****³');
        writexy(4,16,'³             ** ³');
        writexy(4,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka1:=2;
        end;
 
    3:  begin
        writexy(4,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,6,'³ **             ³');
        writexy(4,7,'³****            ³');
        writexy(4,8,'³ **             ³');
        writexy(4,9,'³                ³');
        writexy(4,10,'³       **       ³');
        writexy(4,11,'³      ****      ³');
        writexy(4,12,'³       **       ³');
        writexy(4,13,'³                ³');
        writexy(4,14,'³             ** ³');
        writexy(4,15,'³            ****³');
        writexy(4,16,'³             ** ³');
        writexy(4,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka1:=3;
        end;
 
    4:  begin
        writexy(4,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,6,'³ **          ** ³');
        writexy(4,7,'³****        ****³');
        writexy(4,8,'³ **          ** ³');
        writexy(4,9,'³                ³');
        writexy(4,10,'³                ³');
        writexy(4,11,'³                ³');
        writexy(4,12,'³                ³');
        writexy(4,13,'³                ³');
        writexy(4,14,'³ **          ** ³');
        writexy(4,15,'³****        ****³');
        writexy(4,16,'³ **          ** ³');
        writexy(4,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka1:=4;
        end;
 
    5:  begin
        writexy(4,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,6,'³ **          ** ³');
        writexy(4,7,'³****        ****³');
        writexy(4,8,'³ **          ** ³');
        writexy(4,9,'³                ³');
        writexy(4,10,'³       **       ³');
        writexy(4,11,'³      ****      ³');
        writexy(4,12,'³       **       ³');
        writexy(4,13,'³                ³');
        writexy(4,14,'³ **          ** ³');
        writexy(4,15,'³****        ****³');
        writexy(4,16,'³ **          ** ³');
        writexy(4,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka1:=5;
        end;
 
    6:  begin
        writexy(4,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,6,'³ **          ** ³');
        writexy(4,7,'³****        ****³');
        writexy(4,8,'³ **          ** ³');
        writexy(4,9,'³                ³');
        writexy(4,10,'³ **          ** ³');
        writexy(4,11,'³****        ****³');
        writexy(4,12,'³ **          ** ³');
        writexy(4,13,'³                ³');
        writexy(4,14,'³ **          ** ³');
        writexy(4,15,'³****        ****³');
        writexy(4,16,'³ **          ** ³');
        writexy(4,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka1:=6;
 
        end;
    end;
end;
{/Procedura pro prvn¡ kostku}
 
{Procedura pro druhou kostku}
procedure kostka11(hod:integer);
begin
case hod of
    1:  begin
        writexy(24,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,6,'³                ³');
        writexy(24,7,'³                ³');
        writexy(24,8,'³                ³');
        writexy(24,9,'³                ³');
        writexy(24,10,'³       **       ³');
        writexy(24,11,'³      ****      ³');
        writexy(24,12,'³       **       ³');
        writexy(24,13,'³                ³');
        writexy(24,14,'³                ³');
        writexy(24,15,'³                ³');
        writexy(24,16,'³                ³');
        writexy(24,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka2:=1;
        end;
 
    2:  begin
        writexy(24,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,6,'³ **             ³');
        writexy(24,7,'³****            ³');
        writexy(24,8,'³ **             ³');
        writexy(24,9,'³                ³');
        writexy(24,10,'³                ³');
        writexy(24,11,'³                ³');
        writexy(24,12,'³                ³');
        writexy(24,13,'³                ³');
        writexy(24,14,'³             ** ³');
        writexy(24,15,'³            ****³');
        writexy(24,16,'³             ** ³');
        writexy(24,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka2:=2;
        end;
 
    3:  begin
        writexy(24,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,6,'³ **             ³');
        writexy(24,7,'³****            ³');
        writexy(24,8,'³ **             ³');
        writexy(24,9,'³                ³');
        writexy(24,10,'³       **       ³');
        writexy(24,11,'³      ****      ³');
        writexy(24,12,'³       **       ³');
        writexy(24,13,'³                ³');
        writexy(24,14,'³             ** ³');
        writexy(24,15,'³            ****³');
        writexy(24,16,'³             ** ³');
        writexy(24,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka2:=3;
        end;
 
    4:  begin
        writexy(24,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,6,'³ **          ** ³');
        writexy(24,7,'³****        ****³');
        writexy(24,8,'³ **          ** ³');
        writexy(24,9,'³                ³');
        writexy(24,10,'³                ³');
        writexy(24,11,'³                ³');
        writexy(24,12,'³                ³');
        writexy(24,13,'³                ³');
        writexy(24,14,'³ **          ** ³');
        writexy(24,15,'³****        ****³');
        writexy(24,16,'³ **          ** ³');
        writexy(24,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka2:=4;
        end;
 
    5:  begin
        writexy(24,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,6,'³ **          ** ³');
        writexy(24,7,'³****        ****³');
        writexy(24,8,'³ **          ** ³');
        writexy(24,9,'³                ³');
        writexy(24,10,'³       **       ³');
        writexy(24,11,'³      ****      ³');
        writexy(24,12,'³       **       ³');
        writexy(24,13,'³                ³');
        writexy(24,14,'³ **          ** ³');
        writexy(24,15,'³****        ****³');
        writexy(24,16,'³ **          ** ³');
        writexy(24,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka2:=5;
        end;
 
    6:  begin
        writexy(24,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,6,'³ **          ** ³');
        writexy(24,7,'³****        ****³');
        writexy(24,8,'³ **          ** ³');
        writexy(24,9,'³                ³');
        writexy(24,10,'³ **          ** ³');
        writexy(24,11,'³****        ****³');
        writexy(24,12,'³ **          ** ³');
        writexy(24,13,'³                ³');
        writexy(24,14,'³ **          ** ³');
        writexy(24,15,'³****        ****³');
        writexy(24,16,'³ **          ** ³');
        writexy(24,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka2:=6;
        end;
    end;
end;
{/Procedura pro druhou kostku}
 
 
{Procedura pro týet¡ kostku}
procedure kostka22(hod:integer);
begin
case hod of
    1:  begin
        writexy(44,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,6,'³                ³');
        writexy(44,7,'³                ³');
        writexy(44,8,'³                ³');
        writexy(44,9,'³                ³');
        writexy(44,10,'³       **       ³');
        writexy(44,11,'³      ****      ³');
        writexy(44,12,'³       **       ³');
        writexy(44,13,'³                ³');
        writexy(44,14,'³                ³');
        writexy(44,15,'³                ³');
        writexy(44,16,'³                ³');
        writexy(44,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka3:=1;
        end;
 
    2:  begin
        writexy(44,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,6,'³ **             ³');
        writexy(44,7,'³****            ³');
        writexy(44,8,'³ **             ³');
        writexy(44,9,'³                ³');
        writexy(44,10,'³                ³');
        writexy(44,11,'³                ³');
        writexy(44,12,'³                ³');
        writexy(44,13,'³                ³');
        writexy(44,14,'³             ** ³');
        writexy(44,15,'³            ****³');
        writexy(44,16,'³             ** ³');
        writexy(44,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka3:=2;
        end;
 
    3:  begin
        writexy(44,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,6,'³ **             ³');
        writexy(44,7,'³****            ³');
        writexy(44,8,'³ **             ³');
        writexy(44,9,'³                ³');
        writexy(44,10,'³       **       ³');
        writexy(44,11,'³      ****      ³');
        writexy(44,12,'³       **       ³');
        writexy(44,13,'³                ³');
        writexy(44,14,'³             ** ³');
        writexy(44,15,'³            ****³');
        writexy(44,16,'³             ** ³');
        writexy(44,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka3:=3;
        end;
 
    4:  begin
        writexy(44,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,6,'³ **          ** ³');
        writexy(44,7,'³****        ****³');
        writexy(44,8,'³ **          ** ³');
        writexy(44,9,'³                ³');
        writexy(44,10,'³                ³');
        writexy(44,11,'³                ³');
        writexy(44,12,'³                ³');
        writexy(44,13,'³                ³');
        writexy(44,14,'³ **          ** ³');
        writexy(44,15,'³****        ****³');
        writexy(44,16,'³ **          ** ³');
        writexy(44,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka3:=4;
        end;
 
    5:  begin
        writexy(44,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,6,'³ **          ** ³');
        writexy(44,7,'³****        ****³');
        writexy(44,8,'³ **          ** ³');
        writexy(44,9,'³                ³');
        writexy(44,10,'³       **       ³');
        writexy(44,11,'³      ****      ³');
        writexy(44,12,'³       **       ³');
        writexy(44,13,'³                ³');
        writexy(44,14,'³ **          ** ³');
        writexy(44,15,'³****        ****³');
        writexy(44,16,'³ **          ** ³');
        writexy(44,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka3:=5;
        end;
 
    6:  begin
        writexy(44,5,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,6,'³ **          ** ³');
        writexy(44,7,'³****        ****³');
        writexy(44,8,'³ **          ** ³');
        writexy(44,9,'³                ³');
        writexy(44,10,'³ **          ** ³');
        writexy(44,11,'³****        ****³');
        writexy(44,12,'³ **          ** ³');
        writexy(44,13,'³                ³');
        writexy(44,14,'³ **          ** ³');
        writexy(44,15,'³****        ****³');
        writexy(44,16,'³ **          ** ³');
        writexy(44,17,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        kostka3:=6;
        end;
    end;
end;
{/Procedura pro tret¡ kostku}
 
{Procedura pro prvn¡ kostiŸku}
 
procedure kosticka(hod:integer);
begin
case hod of
    1:  begin
        writexy(4,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,4,'³              ³');
        writexy(4,5,'³              ³');
        writexy(4,6,'³              ³');
        writexy(4,7,'³      **      ³');
        writexy(4,8,'³      **      ³');
        writexy(4,9,'³              ³');
        writexy(4,10,'³              ³');
        writexy(4,11,'³              ³');
        writexy(4,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct1:=1;
        end;
 
    2:  begin
        writexy(4,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,4,'³ **           ³');
        writexy(4,5,'³ **           ³');
        writexy(4,6,'³              ³');
        writexy(4,7,'³              ³');
        writexy(4,8,'³              ³');
        writexy(4,9,'³              ³');
        writexy(4,10,'³           ** ³');
        writexy(4,11,'³           ** ³');
        writexy(4,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct1:=2;
        end;
 
    3:  begin
        writexy(4,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,4,'³ **           ³');
        writexy(4,5,'³ **           ³');
        writexy(4,6,'³              ³');
        writexy(4,7,'³      **      ³');
        writexy(4,8,'³      **      ³');
        writexy(4,9,'³              ³');
        writexy(4,10,'³           ** ³');
        writexy(4,11,'³           ** ³');
        writexy(4,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct1:=3;
        end;
 
    4:  begin
        writexy(4,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,4,'³ **        ** ³');
        writexy(4,5,'³ **        ** ³');
        writexy(4,6,'³              ³');
        writexy(4,7,'³              ³');
        writexy(4,8,'³              ³');
        writexy(4,9,'³              ³');
        writexy(4,10,'³ **        ** ³');
        writexy(4,11,'³ **        ** ³');
        writexy(4,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct1:=4;
        end;
 
    5:  begin
        writexy(4,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,4,'³ **        ** ³');
        writexy(4,5,'³ **        ** ³');
        writexy(4,6,'³              ³');
        writexy(4,7,'³      **      ³');
        writexy(4,8,'³      **      ³');
        writexy(4,9,'³              ³');
        writexy(4,10,'³ **        ** ³');
        writexy(4,11,'³ **        ** ³');
        writexy(4,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct1:=5;
        end;
 
    6:  begin
        writexy(4,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,4,'³ **        ** ³');
        writexy(4,5,'³ **        ** ³');
        writexy(4,6,'³              ³');
        writexy(4,7,'³ **        ** ³');
        writexy(4,8,'³ **        ** ³');
        writexy(4,9,'³              ³');
        writexy(4,10,'³ **        ** ³');
        writexy(4,11,'³ **        ** ³');
        writexy(4,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct1:=6;
        end;
    end;
end;
 
 
 
 
{/Procedury pro prvn¡ kostiŸku}
{Procedura pro druhou kostiŸku}
procedure kosticka2(hod:integer);
begin
case hod of
    1:  begin
        writexy(24,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,4,'³              ³');
        writexy(24,5,'³              ³');
        writexy(24,6,'³              ³');
        writexy(24,7,'³      **      ³');
        writexy(24,8,'³      **      ³');
        writexy(24,9,'³              ³');
        writexy(24,10,'³              ³');
        writexy(24,11,'³              ³');
        writexy(24,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct2:=1;
        end;
 
    2:  begin
        writexy(24,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,4,'³ **           ³');
        writexy(24,5,'³ **           ³');
        writexy(24,6,'³              ³');
        writexy(24,7,'³              ³');
        writexy(24,8,'³              ³');
        writexy(24,9,'³              ³');
        writexy(24,10,'³           ** ³');
        writexy(24,11,'³           ** ³');
        writexy(24,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct2:=2;
        end;
 
    3:  begin
        writexy(24,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,4,'³ **           ³');
        writexy(24,5,'³ **           ³');
        writexy(24,6,'³              ³');
        writexy(24,7,'³      **      ³');
        writexy(24,8,'³      **      ³');
        writexy(24,9,'³              ³');
        writexy(24,10,'³           ** ³');
        writexy(24,11,'³           ** ³');
        writexy(24,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct2:=3;
        end;
 
    4:  begin
        writexy(24,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,4,'³ **        ** ³');
        writexy(24,5,'³ **        ** ³');
        writexy(24,6,'³              ³');
        writexy(24,7,'³              ³');
        writexy(24,8,'³              ³');
        writexy(24,9,'³              ³');
        writexy(24,10,'³ **        ** ³');
        writexy(24,11,'³ **        ** ³');
        writexy(24,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct2:=4;
        end;
 
    5:  begin
        writexy(24,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,4,'³ **        ** ³');
        writexy(24,5,'³ **        ** ³');
        writexy(24,6,'³              ³');
        writexy(24,7,'³      **      ³');
        writexy(24,8,'³      **      ³');
        writexy(24,9,'³              ³');
        writexy(24,10,'³ **        ** ³');
        writexy(24,11,'³ **        ** ³');
        writexy(24,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct2:=5;
        end;
 
    6:  begin
        writexy(24,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,4,'³ **        ** ³');
        writexy(24,5,'³ **        ** ³');
        writexy(24,6,'³              ³');
        writexy(24,7,'³ **        ** ³');
        writexy(24,8,'³ **        ** ³');
        writexy(24,9,'³              ³');
        writexy(24,10,'³ **        ** ³');
        writexy(24,11,'³ **        ** ³');
        writexy(24,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct2:=6;
        end;
    end;
end;
 
 
 
 
{/Procedury pro druhou kostiŸku}
 
{Procedura pro týet¡ kostiŸku}
 
procedure kosticka3(hod:integer);
begin
case hod of
    1:  begin
        writexy(44,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,4,'³              ³');
        writexy(44,5,'³              ³');
        writexy(44,6,'³              ³');
        writexy(44,7,'³      **      ³');
        writexy(44,8,'³      **      ³');
        writexy(44,9,'³              ³');
        writexy(44,10,'³              ³');
        writexy(44,11,'³              ³');
        writexy(44,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct3:=1;
        end;
 
    2:  begin
        writexy(44,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,4,'³ **           ³');
        writexy(44,5,'³ **           ³');
        writexy(44,6,'³              ³');
        writexy(44,7,'³              ³');
        writexy(44,8,'³              ³');
        writexy(44,9,'³              ³');
        writexy(44,10,'³           ** ³');
        writexy(44,11,'³           ** ³');
        writexy(44,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct3:=2;
        end;
 
    3:  begin
        writexy(44,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,4,'³ **           ³');
        writexy(44,5,'³ **           ³');
        writexy(44,6,'³              ³');
        writexy(44,7,'³      **      ³');
        writexy(44,8,'³      **      ³');
        writexy(44,9,'³              ³');
        writexy(44,10,'³           ** ³');
        writexy(44,11,'³           ** ³');
        writexy(44,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct3:=3;
        end;
 
    4:  begin
        writexy(44,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,4,'³ **        ** ³');
        writexy(44,5,'³ **        ** ³');
        writexy(44,6,'³              ³');
        writexy(44,7,'³              ³');
        writexy(44,8,'³              ³');
        writexy(44,9,'³              ³');
        writexy(44,10,'³ **        ** ³');
        writexy(44,11,'³ **        ** ³');
        writexy(44,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct3:=4;
        end;
 
    5:  begin
        writexy(44,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,4,'³ **        ** ³');
        writexy(44,5,'³ **        ** ³');
        writexy(44,6,'³              ³');
        writexy(44,7,'³      **      ³');
        writexy(44,8,'³      **      ³');
        writexy(44,9,'³              ³');
        writexy(44,10,'³ **        ** ³');
        writexy(44,11,'³ **        ** ³');
        writexy(44,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct3:=5;
        end;
 
    6:  begin
        writexy(44,3,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,4,'³ **        ** ³');
        writexy(44,5,'³ **        ** ³');
        writexy(44,6,'³              ³');
        writexy(44,7,'³ **        ** ³');
        writexy(44,8,'³ **        ** ³');
        writexy(44,9,'³              ³');
        writexy(44,10,'³ **        ** ³');
        writexy(44,11,'³ **        ** ³');
        writexy(44,12,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct3:=6;
        end;
    end;
end;
{/ procedury pro týet¡ kostiŸku}
 
{Procedura pro Ÿtvrtou kostiŸku}
procedure kosticka4(hod:integer);
begin
case hod of
    1:  begin
        writexy(4,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,15,'³              ³');
        writexy(4,16,'³              ³');
        writexy(4,17,'³              ³');
        writexy(4,18,'³      **      ³');
        writexy(4,19,'³      **      ³');
        writexy(4,20,'³              ³');
        writexy(4,21,'³              ³');
        writexy(4,22,'³              ³');
        writexy(4,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct4:=1;
        end;
 
    2:  begin
        writexy(4,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,15,'³ **           ³');
        writexy(4,16,'³ **           ³');
        writexy(4,17,'³              ³');
        writexy(4,18,'³              ³');
        writexy(4,19,'³              ³');
        writexy(4,20,'³              ³');
        writexy(4,21,'³           ** ³');
        writexy(4,22,'³           ** ³');
        writexy(4,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct4:=2;
        end;
 
    3:  begin
        writexy(4,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,15,'³ **           ³');
        writexy(4,16,'³ **           ³');
        writexy(4,17,'³              ³');
        writexy(4,18,'³      **      ³');
        writexy(4,19,'³      **      ³');
        writexy(4,20,'³              ³');
        writexy(4,21,'³           ** ³');
        writexy(4,22,'³           ** ³');
        writexy(4,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct4:=3;
        end;
 
    4:  begin
        writexy(4,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,15,'³ **        ** ³');
        writexy(4,16,'³ **        ** ³');
        writexy(4,17,'³              ³');
        writexy(4,18,'³              ³');
        writexy(4,19,'³              ³');
        writexy(4,20,'³              ³');
        writexy(4,21,'³ **        ** ³');
        writexy(4,22,'³ **        ** ³');
        writexy(4,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct4:=4;
        end;
 
    5:  begin
        writexy(4,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,15,'³ **        ** ³');
        writexy(4,16,'³ **        ** ³');
        writexy(4,17,'³              ³');
        writexy(4,18,'³      **      ³');
        writexy(4,19,'³      **      ³');
        writexy(4,20,'³              ³');
        writexy(4,21,'³ **        ** ³');
        writexy(4,22,'³ **        ** ³');
        writexy(4,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct4:=5;
        end;
 
    6:  begin
        writexy(4,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(4,15,'³ **        ** ³');
        writexy(4,16,'³ **        ** ³');
        writexy(4,17,'³              ³');
        writexy(4,18,'³ **        ** ³');
        writexy(4,19,'³ **        ** ³');
        writexy(4,20,'³              ³');
        writexy(4,21,'³ **        ** ³');
        writexy(4,22,'³ **        ** ³');
        writexy(4,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct4:=6;
        end;
    end;
end;
 
 
 
 
{/Procedury pro Ÿtvrtou kostiŸku}
 
 
{Procedura pro p tou kostiŸku}
procedure kosticka5(hod:integer);
begin
case hod of
    1:  begin
        writexy(24,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,15,'³              ³');
        writexy(24,16,'³              ³');
        writexy(24,17,'³              ³');
        writexy(24,18,'³      **      ³');
        writexy(24,19,'³      **      ³');
        writexy(24,20,'³              ³');
        writexy(24,21,'³              ³');
        writexy(24,22,'³              ³');
        writexy(24,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct5:=1;
        end;
 
    2:  begin
        writexy(24,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,15,'³ **           ³');
        writexy(24,16,'³ **           ³');
        writexy(24,17,'³              ³');
        writexy(24,18,'³              ³');
        writexy(24,19,'³              ³');
        writexy(24,20,'³              ³');
        writexy(24,21,'³           ** ³');
        writexy(24,22,'³           ** ³');
        writexy(24,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct5:=2;
        end;
 
    3:  begin
        writexy(24,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,15,'³ **           ³');
        writexy(24,16,'³ **           ³');
        writexy(24,17,'³              ³');
        writexy(24,18,'³      **      ³');
        writexy(24,19,'³      **      ³');
        writexy(24,20,'³              ³');
        writexy(24,21,'³           ** ³');
        writexy(24,22,'³           ** ³');
        writexy(24,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct5:=3;
        end;
 
    4:  begin
        writexy(24,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,15,'³ **        ** ³');
        writexy(24,16,'³ **        ** ³');
        writexy(24,17,'³              ³');
        writexy(24,18,'³              ³');
        writexy(24,19,'³              ³');
        writexy(24,20,'³              ³');
        writexy(24,21,'³ **        ** ³');
        writexy(24,22,'³ **        ** ³');
        writexy(24,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct5:=4;
        end;
 
    5:  begin
        writexy(24,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,15,'³ **        ** ³');
        writexy(24,16,'³ **        ** ³');
        writexy(24,17,'³              ³');
        writexy(24,18,'³      **      ³');
        writexy(24,19,'³      **      ³');
        writexy(24,20,'³              ³');
        writexy(24,21,'³ **        ** ³');
        writexy(24,22,'³ **        ** ³');
        writexy(24,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct5:=5;
        end;
 
    6:  begin
        writexy(24,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(24,15,'³ **        ** ³');
        writexy(24,16,'³ **        ** ³');
        writexy(24,17,'³              ³');
        writexy(24,18,'³ **        ** ³');
        writexy(24,19,'³ **        ** ³');
        writexy(24,20,'³              ³');
        writexy(24,21,'³ **        ** ³');
        writexy(24,22,'³ **        ** ³');
        writexy(24,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct5:=6;
        end;
    end;
end;
 
 
 
 
{/Procedury pro p tou kostiŸku}
 
 
{Procedura pro çestou kostiŸku}
procedure kosticka6(hod:integer);
begin
case hod of
    1:  begin
        writexy(44,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,15,'³              ³');
        writexy(44,16,'³              ³');
        writexy(44,17,'³              ³');
        writexy(44,18,'³      **      ³');
        writexy(44,19,'³      **      ³');
        writexy(44,20,'³              ³');
        writexy(44,21,'³              ³');
        writexy(44,22,'³              ³');
        writexy(44,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct6:=1;
        end;
 
    2:  begin
        writexy(44,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,15,'³ **           ³');
        writexy(44,16,'³ **           ³');
        writexy(44,17,'³              ³');
        writexy(44,18,'³              ³');
        writexy(44,19,'³              ³');
        writexy(44,20,'³              ³');
        writexy(44,21,'³           ** ³');
        writexy(44,22,'³           ** ³');
        writexy(44,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct6:=2;
        end;
 
    3:  begin
        writexy(44,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,15,'³ **           ³');
        writexy(44,16,'³ **           ³');
        writexy(44,17,'³              ³');
        writexy(44,18,'³      **      ³');
        writexy(44,19,'³      **      ³');
        writexy(44,20,'³              ³');
        writexy(44,21,'³           ** ³');
        writexy(44,22,'³           ** ³');
        writexy(44,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct6:=3;
        end;
 
    4:  begin
        writexy(44,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,15,'³ **        ** ³');
        writexy(44,16,'³ **        ** ³');
        writexy(44,17,'³              ³');
        writexy(44,18,'³              ³');
        writexy(44,19,'³              ³');
        writexy(44,20,'³              ³');
        writexy(44,21,'³ **        ** ³');
        writexy(44,22,'³ **        ** ³');
        writexy(44,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct6:=4;
        end;
 
    5:  begin
        writexy(44,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,15,'³ **        ** ³');
        writexy(44,16,'³ **        ** ³');
        writexy(44,17,'³              ³');
        writexy(44,18,'³      **      ³');
        writexy(44,19,'³      **      ³');
        writexy(44,20,'³              ³');
        writexy(44,21,'³ **        ** ³');
        writexy(44,22,'³ **        ** ³');
        writexy(44,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct6:=5;
        end;
 
    6:  begin
        writexy(44,14,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
        writexy(44,15,'³ **        ** ³');
        writexy(44,16,'³ **        ** ³');
        writexy(44,17,'³              ³');
        writexy(44,18,'³ **        ** ³');
        writexy(44,19,'³ **        ** ³');
        writexy(44,20,'³              ³');
        writexy(44,21,'³ **        ** ³');
        writexy(44,22,'³ **        ** ³');
        writexy(44,23,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
        ct6:=6;
        end;
    end;
end;
 
 
 
 
{/Procedury pro çestou kostiŸku}
 
 
 
 
{Procedura pro Spr vn‚ zastaven¡ kostky}
procedure vyborne;
  begin
     textcolor(lightred);
     writeln;
     writeln;
     writeln;
     Writeln('                           **            **         **                  ');
     textcolor(1);
     Writeln('                          **              **       **                   ');
     textcolor(2);
     Writeln('                         **                **     **                    ');
     textcolor(3);
     Writeln('                        **                  *******                     ');
     textcolor(4);
     Writeln('                                                                        ');
     textcolor(5);
     Writeln('      **             ** ** ************  ************  **************   ');
     textcolor(6);
     Writeln('      **             ** ** ************  ************  **************   ');
     textcolor(7);
     Writeln('       **           **  **      **       **                       **    ');
     textcolor(8);
     Writeln('       **           **  **      **       **                      **     ');
     textcolor(9);
     Writeln('        **         **   **      **       **                     **      ');
     textcolor(10);
     Writeln('        **         **   **      **       **                    **       ');
     textcolor(11);
     Writeln('         **       **    **      **       ********             **        ');
     textcolor(12);
     Writeln('         **       **    **      **       ********            **         ');
     textcolor(13);
     Writeln('          **     **     **      **       **                 **          ');
     textcolor(14);
     Writeln('          **     **     **      **       **                **           ');
     textcolor(15);
     Writeln('           **   **      **      **       **               **            ');
     textcolor(7);
     Writeln('           **   **      **      **       **              **             ');
     textcolor(8);
     Writeln('            ** **       **      **       ************   *************   ');
     textcolor(lightred);
     Writeln('             ***        **      **       ************  **************   ');
  end;
{/Procedura pro Spr vn‚ zastaven¡ kostky}
 
 
{Procedura pro Spatn‚ zastaven¡ kostky}
procedure spatne;
  begin
     textcolor(lightred);
     writeln;
     writeln;
     writeln;
     Writeln('                                                **          **   ');
 
     Writeln('                                                 **        **    ');
     textcolor(1);
     Writeln('                                                  **      **     ');
     textcolor(2);
     Writeln('                                                   ********      ');
     textcolor(3);
     Writeln('                                                                 ');
     textcolor(4);
     Writeln('          *********    **           *********    ************    ');
     textcolor(5);
     Writeln('          **********   **           **********   ************    ');
     textcolor(6);
     Writeln('          **       **  **           **       **  **              ');
     textcolor(7);
     Writeln('          **       **  **           **       **  **              ');
     textcolor(8);
     Writeln('          **      **   **           **      **   **              ');
     textcolor(9);
     Writeln('          **     **    **           **     **    **              ');
     textcolor(10);
     Writeln('          ********     **           ********     ********        ');
     textcolor(11);
     Writeln('          ********     **           ********     ********        ');
     textcolor(12);
     Writeln('          **     **    **           **     **    **              ');
     textcolor(13);
     Writeln('          **      **   **           **      **   **              ');
     textcolor(5);
     Writeln('          **       **  **           **       **  **              ');
     textcolor(6);
     Writeln('          **       **  **           **       **  **              ');
     textcolor(7);
     Writeln('          **********   ***********  **********   ************    ');
     textcolor(lightred);
     Writeln('          *********    ***********  *********    ************    ');
  end;
{/Procedura pro Spatn‚ zastaven¡ kostky}
 
 
{TØlo programu}
begin
 
{£vod}
 repeat
 skok:
 vycisti;
 textbackground(red);
 textcolor(lightgreen);
 window(2,2,30,13);
 clrscr;
 writeln;
 writeln(' Menu:');
 writeln;
 writeln(' a) Hraci kosticky');
 writeln(' b) Hraci kostiŸky 2');
 writeln(' c) Kostky ');
 writeln(' d) KONEC');
 writeln;
 write(' Co si vybereç ??:');
 readln(v);
 textbackground(0);
 textcolor(lightred);
 window(1,1,80,25);
 clrscr;
{/£vod}
 
{VìbØr Kola}
case v of
 
 'a','A':begin
        writeln('Vyber si obti§nost !!!');
        writeln(' 1. BABY ');
        writeln(' 2. BENJAMIN ');
        writeln(' 3. KADET ');
        writeln(' 4. JUNIOR ');
        writeln(' 5. EXPERT ');
        writeln(' 6. MASTER');
        readln(o);
        {/VìbØr Kola}
 
 
           case o of
 
  {Prvn¡ obt¡§nost}
             '1':begin
               skok1:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ kostek.');
               randomize;
               writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(1000);
 
            until keypressed;
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok1;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/Prvn¡ obt¡§nost}
 
    {Druh  obt¡§nost}
             '2':begin
                skok2:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ kostek.');
               randomize;                                                                      writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(800);
 
            until keypressed;
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok2;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/Druh  obt¡§nost}
 
    {Týet¡ obt¡§nost}
             '3':begin
               skok3:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ kostek.');
               randomize;
               writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(600);
 
            until keypressed;
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok3;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/Týet¡ obt¡§nost}
 
    {Ÿtvrt  obt¡§nost}
             '4':begin
               skok4:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ kostek.');
               randomize;
               writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(400);
 
            until keypressed;
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok4;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/Ÿtvrt  obt¡§nost}
 
    {P t  obt¡§nost}
             '5':begin
               skok5:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ kostek.');
               randomize;
               writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(200);
 
            until keypressed;
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok5;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/P t  obt¡§nost}
 
    {çest  obt¡§nost}
             '6':begin
               skok6:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ kostek.');
               randomize;
               writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(1);
 
            until keypressed;
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok6;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/çest  obt¡§nost}
 
    end;
 end;
 
 'b','B':begin
        writeln('Vyber si obti§nost !!!');
        writeln(' 1. BABY ');
        writeln(' 2. BENJAMIN ');
        writeln(' 3. KADET ');
        writeln(' 4. JUNIOR ');
        writeln(' 5. EXPERT ');
        writeln(' 6. MASTER');
        readln(o);
        {/VìbØr Kola}
 
 
           case o of
 
  {Prvn¡ obt¡§nost}
             '1':begin
               skok11:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ !!!');
               randomize;
               writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(1000);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ kostek');
            readln;
 
            repeat
            kostka11(random(6)+1); kostka22(random(6)+1);
            delay(1000);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ posledn¡ kostky');
            readln;
 
            repeat
            kostka22(random(6)+1);
            delay(1000);
 
            until keypressed;
 
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok11;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/Prvn¡ obt¡§nost}
 
    {Druh  obt¡§nost}
             '2':begin
                skok22:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ !!!');
               randomize;
               writeln;
 
           repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(800);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ kostek');
            readln;
 
            repeat
            kostka11(random(6)+1); kostka22(random(6)+1);
            delay(800);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ posledn¡ kostky');
            readln;
 
            repeat
            kostka22(random(6)+1);
            delay(800);
 
            until keypressed;
 
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok22;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/Druh  obt¡§nost}
 
    {Týet¡ obt¡§nost}
             '3':begin
               skok33:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ !!!');
               randomize;
               writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(600);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ kostek');
            readln;
 
            repeat
            kostka11(random(6)+1); kostka22(random(6)+1);
            delay(600);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ posledn¡ kostky');
            readln;
 
            repeat
            kostka22(random(6)+1);
            delay(600);
 
            until keypressed;
 
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok33;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/Týet¡ obt¡§nost}
 
    {Ÿtvrt  obt¡§nost}
             '4':begin
               skok44:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ !!!');
               randomize;
               writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(400);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ kostek');
            readln;
 
            repeat
            kostka11(random(6)+1); kostka22(random(6)+1);
            delay(400);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ posledn¡ kostky');
            readln;
 
            repeat
            kostka22(random(6)+1);
            delay(400);
 
            until keypressed;
 
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok44;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/Ÿtvrt  obt¡§nost}
 
    {P t  obt¡§nost}
             '5':begin
               skok55:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ !!!');
               randomize;
               writeln;
 
           repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(200);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ kostek');
            readln;
 
            repeat
            kostka11(random(6)+1); kostka22(random(6)+1);
            delay(200);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ posledn¡ kostky');
            readln;
 
            repeat
            kostka22(random(6)+1);
            delay(200);
 
            until keypressed;
 
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok55;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/P t  obt¡§nost}
 
    {çest  obt¡§nost}
             '6':begin
               skok66:
               vycisti;
               textcolor(lightred);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ !!!');
               randomize;
               writeln;
 
            repeat
               kostka(random(6)+1); kostka11(random(6)+1); kostka22(random(6)+1);
               delay(1);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ kostek');
            readln;
 
            repeat
            kostka11(random(6)+1); kostka22(random(6)+1);
            delay(1);
 
            until keypressed;
             writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER pro rozbØhnut¡ posledn¡ kostky');
            readln;
 
            repeat
            kostka22(random(6)+1);
            delay(1);
 
            until keypressed;
 
               writeln;
               writeln;
               writeln;
               writeln(' Zmackni ENTER');
               readln;
               clrscr;
               if (kostka1=kostka2)and(kostka2=kostka3) then vyborne
               else spatne;
               readln;
               clrscr;
         Write('Znovu hodit ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok66;
         if (volba='N') or (volba='n') then goto skok;
         end;
    {/çest  obt¡§nost}
      end;
   end;
 
 
   {Hra kostky}
 
{PRVN¡ HR Ÿ}
 'c','C':begin
               skokh:
               writeln;
               textcolor(lightred);
               writeln;
               writeln(' a) HRA ');
               writeln;
               writeln(' b) O Hýe ');
               writeln;
               writeln(' c) ZpØt do uvodn¡ho MENU');
               readln(h);
               clrscr;
                   case h of
                            'b','B','2':begin
 
 {O hýe}
 textcolor(lightred);
 writeln(' ÉÍÍÍÍÍ»');
 writeln(' ºO Hýeº');
 writeln(' ÈÍÍÍÍͼ');
 textcolor(yellow);
 writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
 writeln(' ³Hra je urŸena pro dva hr Ÿe.         ÚÄÄÄÄ¿           ³');
 writeln(' ³                                     ³*  *³           ³');
 writeln(' ³Ka§dì hr Ÿ h z¡ desetkr t zasebou.   ³*  *³           ³');
 writeln(' ³                                     ÀÄÄÄÄÙ           ³');
 writeln(' ³Vyhr v  ten hr Ÿ, kterì m  po deseti hodech v¡ce bod….³');
 Writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
 textcolor(Lightgreen);
 writeln;
 write('               ÉÍÍÍÍÍÍÍÍÍÍÍÍÍ»'); textcolor(12); writeln('                     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»'); textcolor(10);
 write('               ºBODY KOSTEK :º'); textcolor(12); writeln('                     º  **      **  º'); textcolor(10);
 textcolor(11);write('  ÉÍÍÍÍÍÍÍÍÍ»'); textcolor(lightgreen); write('  ÈÍÍÍÍÍÍÍÍÍÍÍÍͼ'); textcolor(12);
 writeln('                     º  **      **  º'); textcolor(10);
 textcolor(11);
 write('  º**     **º       þ DvojiŸka  = 2   Body'); textcolor(12); writeln('         º              º'); textcolor(11);
 write('  º**  *  **º       þ TrojiŸka  = 5   Bod…'); textcolor(12); writeln('         º  **      **  º'); textcolor(11);
 write('  º   ***   º       þ CtveýiŸka = 10  Bod…'); textcolor(12); writeln('         º  **      **  º'); textcolor(11);
 write('  º**  *  **º       þ PØtiŸka   = 25  Bod…'); textcolor(12); writeln('         º              º'); textcolor(11);
 write('  º**     **º       þ SestiŸka  = 50  Bod…'); textcolor(12); writeln('         º  **      **  º'); textcolor(11);
 write('  ÈÍÍÍÍÍÍÍÍͼ       þ Postupka  = 100 Bod…'); textcolor(12); writeln('         º  **      **  º'); textcolor(11);
 textcolor(lightred);
 writeln('                                                   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
 textcolor(13);
 writeln('                       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
 writeln('***********************ºPro n vrat zpØt stiskni ENTER !!!º*********************');
 writeln('                       ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
 textcolor(lightred);
 readln;
 clrscr;
 goto skokh;
 end;
 {/O Hýe}
 
 
           'c','C','3':begin
              goto skok;
                       end;
 
           'a','A','1':begin
         skok111:
         p:=0;
         x:=0;
      for i:=1 to 10 do begin
               x:=x+1;
               vycisti;
               textcolor(lightgreen);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ kostek.');
               textcolor(yellow);
               writeln('                                                                    Hr Ÿ 1:');
               writeln('                                                                    ',p,' Bod…');
               textcolor(11);
               writeln;
               writeln('                                                                    HOD Ÿ¡slo');
               writeln('                                                                       ',x);
               textcolor(lightred);
               randomize;
               writeln;
 
            repeat
            kosticka(random(6)+1); kosticka2(random(6)+1); kosticka3(random(6)+1);
            kosticka4(random(6)+1); kosticka5(random(6)+1); kosticka6(random(6)+1);
               delay(1);
 
            until keypressed;
               writeln;
               textcolor(13);
               writeln(' Zmackni ENTER');
               textcolor(lightred);
               readln;
 
{Podm¡nky pro dvojiŸky}    if ct1=ct2 then p:=p+2;
                           if ct1=ct3 then p:=p+2;
                           if ct1=ct4 then p:=p+2;
                           if ct1=ct5 then p:=p+2;
                           if ct1=ct6 then p:=p+2;
                           if ct2=ct3 then p:=p+2;
                           if ct2=ct4 then p:=p+2;
                           if ct2=ct5 then p:=p+2;
                           if ct2=ct6 then p:=p+2;
                           if ct3=ct4 then p:=p+2;
                           if ct3=ct5 then p:=p+2;
                           if ct3=ct6 then p:=p+2;
                           if ct4=ct5 then p:=p+2;
                           if ct4=ct6 then p:=p+2;
                           if ct5=ct6 then p:=p+2;
{/Podm¡nky pro dvojiŸky}
{Podm¡nky pro TrojiŸky}
                           if (ct1=ct2) and (ct2=ct3) then p:=p+5;
                           if (ct1=ct2) and (ct2=ct4) then p:=p+5;
                           if (ct1=ct2) and (ct2=ct5) then p:=p+5;
                           if (ct1=ct2) and (ct2=ct6) then p:=p+5;
                           if (ct1=ct3) and (ct3=ct4) then p:=p+5;
                           if (ct1=ct3) and (ct3=ct5) then p:=p+5;
                           if (ct1=ct3) and (ct3=ct6) then p:=p+5;
                           if (ct1=ct4) and (ct4=ct5) then p:=p+5;
                           if (ct1=ct4) and (ct4=ct6) then p:=p+5;
                           if (ct1=ct5) and (ct5=ct6) then p:=p+5;
                           if (ct2=ct3) and (ct3=ct4) then p:=p+5;
                           if (ct2=ct3) and (ct3=ct5) then p:=p+5;
                           if (ct2=ct3) and (ct3=ct6) then p:=p+5;
                           if (ct2=ct4) and (ct4=ct5) then p:=p+5;
                           if (ct2=ct4) and (ct4=ct6) then p:=p+5;
                           if (ct2=ct5) and (ct5=ct6) then p:=p+5;
                           if (ct3=ct4) and (ct4=ct5) then p:=p+5;
                           if (ct3=ct4) and (ct4=ct6) then p:=p+5;
                           if (ct3=ct5) and (ct5=ct6) then p:=p+5;
                           if (ct4=ct5) and (ct5=ct6) then p:=p+5;
{/Podm¡nky pro trojiŸky}
{Podm¡nky pro ŸtveýiŸky}
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct4) then p:=p+10;
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct5) then p:=p+10;
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct6) then p:=p+10;
                           if (ct1=ct2) and (ct2=ct4) and (ct4=ct5) then p:=p+10;
                           if (ct1=ct2) and (ct2=ct4) and (ct4=ct6) then p:=p+10;
                           if (ct1=ct2) and (ct2=ct5) and (ct5=ct6) then p:=p+10;
                           if (ct1=ct3) and (ct3=ct4) and (ct4=ct5) then p:=p+10;
                           if (ct1=ct3) and (ct3=ct4) and (ct4=ct6) then p:=p+10;
                           if (ct1=ct3) and (ct3=ct5) and (ct5=ct6) then p:=p+10;
                           if (ct1=ct4) and (ct4=ct5) and (ct5=ct6) then p:=p+10;
                           if (ct2=ct3) and (ct3=ct4) and (ct4=ct5) then p:=p+10;
                           if (ct2=ct3) and (ct3=ct4) and (ct4=ct6) then p:=p+10;
                           if (ct2=ct3) and (ct3=ct5) and (ct5=ct6) then p:=p+10;
                           if (ct2=ct4) and (ct4=ct5) and (ct5=ct6) then p:=p+10;
                           if (ct3=ct4) and (ct4=ct5) and (ct5=ct6) then p:=p+10;
{/Podm¡nky pro ŸtveýiŸky}
{Podm¡nky pro pØtiŸky}
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct4) and (ct4=ct5) then p:=p+25;
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct4) and (ct4=ct6) then p:=p+25;
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct5) and (ct5=ct6) then p:=p+25;
                           if (ct1=ct2) and (ct2=ct4) and (ct4=ct5) and (ct5=ct6) then p:=p+25;
                           if (ct1=ct3) and (ct3=ct4) and (ct4=ct5) and (ct5=ct6) then p:=p+25;
                           if (ct2=ct3) and (ct3=ct4) and (ct4=ct5) and (ct5=ct6) then p:=p+25;
{/Podm¡nky pro pØtiŸky}
{Podm¡nka pro çestiŸku}
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct4) and (ct4=ct5) and (ct5=ct6) then p:=p+50;
{/Podm¡nka pro çestiŸku}
{Podm¡nka pro postupku}
                           if (ct1<>ct2) and (ct1<>ct3) and (ct1<>ct4) and (ct1<>ct5) and (ct1<>ct6)
                           and (ct2<>ct3) and (ct2<>ct4) and (ct2<>ct5) and (ct2<>ct6) and (ct3<>ct4)
                           and (ct3<>ct5) and (ct3<>ct6) and (ct4<>ct5) and (ct4<>ct6) and (ct5<>ct6) then p:=p+100;
{/Podm¡nka pro postupku}
 
{/PRVN¡ Hr Ÿ}
 
     end;
         clrscr;
         textcolor(lightred);
writeln;
writeln;
writeln;
Writeln('       Û        Û ÛÛÛÛÛÛÛÛ           Û          ÛÛÛÛÛ                 ÛÛ  ');
Writeln('       Û        Û Û       ÛÛ        Û Û        Û     Û               Û Û  ');
Writeln('       Û        Û Û         Û      Û   Û      Û       Û             Û  Û  ');
Writeln('       Û        Û Û          Û     Û   Û     Û                     Û   Û  ');
Writeln('       Û        Û Û         Û     Û     Û    Û                    Û    Û  ');
Writeln('       ÛÛÛÛÛÛÛÛÛÛ Û    ÛÛÛÛÛ      Û     Û    Û                         Û  ');
Writeln('       Û        Û Û  ÛÛ          ÛÛÛÛÛÛÛÛÛ   Û                         Û  ');
Writeln('       Û        Û Û    ÛÛ        Û       Û   Û                         Û  ');
Writeln('       Û        Û Û      ÛÛ     Û         Û   Û       Û                Û  ');
writeln('       Û        Û Û        ÛÛ   Û         Û    Û     Û                 Û  ');
Writeln('       Û        Û Û          Û Û           Û    ÛÛÛÛÛ                  Û  ');
textcolor(yellow);
writeln;
writeln;
writeln('                                 ',p,'  BODU  :)             ');
writeln;
writeln;
textcolor(lightgreen);
writeln('        *  *  *    *  *  *    *  *  *    *  *  *    *  *  *    *  *  *  ');
writeln('         * * *      * * *      * * *      * * *      * * *      * * *');
writeln('          ***        ***        ***        ***        ***        ***  ');
writeln('       *********  *********  *********  *********  *********  *********     ');
writeln('          ***        ***        ***        ***        ***        ***  ');
writeln('         * * *      * * *      * * *      * * *      * * *      * * *   ');
writeln('        *  *  *    *  *  *    *  *  *    *  *  *    *  *  *    *  *  *  ');
textcolor(lightred);
         readln;
         clrscr;
writeln;
writeln;
writeln('Nyn¡ hraje Hr Ÿ 2');
writeln;
writeln('Stiskni ENTER');
readln;
 
{DRUHì Hr Ÿ}
    z:=0;
    y:=0;
         for i:=1 to 10 do begin
         y:=y+1;
               vycisti;
               textcolor(lightgreen);
               WriteLn('Stiskni MEZERNIK pro zastaven¡ kostek.');
               textcolor(yellow);
               writeln('                                                                    Hr Ÿ 2:');
               writeln('                                                                    ',z,' Bod…');
               textcolor(11);
               writeln;
               writeln('                                                                    HOD Ÿ¡slo');
               writeln('                                                                       ',y);
               textcolor(lightred);
               randomize;
               writeln;
 
            repeat
            kosticka(random(6)+1); kosticka2(random(6)+1); kosticka3(random(6)+1);
            kosticka4(random(6)+1); kosticka5(random(6)+1); kosticka6(random(6)+1);
               delay(1);
 
            until keypressed;
               writeln;
               textcolor(13);
               writeln(' Zmackni ENTER');
               textcolor(lightred);
               readln;
 
{Podm¡nky pro dvojiŸky}    if ct1=ct2 then z:=z+2;
                           if ct1=ct3 then z:=z+2;
                           if ct1=ct4 then z:=z+2;
                           if ct1=ct5 then z:=z+2;
                           if ct1=ct6 then z:=z+2;
                           if ct2=ct3 then z:=z+2;
                           if ct2=ct4 then z:=z+2;
                           if ct2=ct5 then z:=z+2;
                           if ct2=ct6 then z:=z+2;
                           if ct3=ct4 then z:=z+2;
                           if ct3=ct5 then z:=z+2;
                           if ct3=ct6 then z:=z+2;
                           if ct4=ct5 then z:=z+2;
                           if ct4=ct6 then z:=z+2;
                           if ct5=ct6 then z:=z+2;
{/Podm¡nky pro dvojiŸky}
{Podm¡nky pro TrojiŸky}
                           if (ct1=ct2) and (ct2=ct3) then z:=z+5;
                           if (ct1=ct2) and (ct2=ct4) then z:=z+5;
                           if (ct1=ct2) and (ct2=ct5) then z:=z+5;
                           if (ct1=ct2) and (ct2=ct6) then z:=z+5;
                           if (ct1=ct3) and (ct3=ct4) then z:=z+5;
                           if (ct1=ct3) and (ct3=ct5) then z:=z+5;
                           if (ct1=ct3) and (ct3=ct6) then z:=z+5;
                           if (ct1=ct4) and (ct4=ct5) then z:=z+5;
                           if (ct1=ct4) and (ct4=ct6) then z:=z+5;
                           if (ct1=ct5) and (ct5=ct6) then z:=z+5;
                           if (ct2=ct3) and (ct3=ct4) then z:=z+5;
                           if (ct2=ct3) and (ct3=ct5) then z:=z+5;
                           if (ct2=ct3) and (ct3=ct6) then z:=z+5;
                           if (ct2=ct4) and (ct4=ct5) then z:=z+5;
                           if (ct2=ct4) and (ct4=ct6) then z:=z+5;
                           if (ct2=ct5) and (ct5=ct6) then z:=z+5;
                           if (ct3=ct4) and (ct4=ct5) then z:=z+5;
                           if (ct3=ct4) and (ct4=ct6) then z:=z+5;
                           if (ct3=ct5) and (ct5=ct6) then z:=z+5;
                           if (ct4=ct5) and (ct5=ct6) then z:=z+5;
{/Podm¡nky pro trojiŸky}
{Podm¡nky pro ŸtveýiŸky}
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct4) then z:=z+10;
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct5) then z:=z+10;
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct6) then z:=z+10;
                           if (ct1=ct2) and (ct2=ct4) and (ct4=ct5) then z:=z+10;
                           if (ct1=ct2) and (ct2=ct4) and (ct4=ct6) then z:=z+10;
                           if (ct1=ct2) and (ct2=ct5) and (ct5=ct6) then z:=z+10;
                           if (ct1=ct3) and (ct3=ct4) and (ct4=ct5) then z:=z+10;
                           if (ct1=ct3) and (ct3=ct4) and (ct4=ct6) then z:=z+10;
                           if (ct1=ct3) and (ct3=ct5) and (ct5=ct6) then z:=z+10;
                           if (ct1=ct4) and (ct4=ct5) and (ct5=ct6) then z:=z+10;
                           if (ct2=ct3) and (ct3=ct4) and (ct4=ct5) then z:=z+10;
                           if (ct2=ct3) and (ct3=ct4) and (ct4=ct6) then z:=z+10;
                           if (ct2=ct3) and (ct3=ct5) and (ct5=ct6) then z:=z+10;
                           if (ct2=ct4) and (ct4=ct5) and (ct5=ct6) then z:=z+10;
                           if (ct3=ct4) and (ct4=ct5) and (ct5=ct6) then z:=z+10;
{/Podm¡nky pro ŸtveýiŸky}
{Podm¡nky pro pØtiŸky}
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct4) and (ct4=ct5) then z:=z+25;
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct4) and (ct4=ct6) then z:=z+25;
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct5) and (ct5=ct6) then z:=z+25;
                           if (ct1=ct2) and (ct2=ct4) and (ct4=ct5) and (ct5=ct6) then z:=z+25;
                           if (ct1=ct3) and (ct3=ct4) and (ct4=ct5) and (ct5=ct6) then z:=z+25;
                           if (ct2=ct3) and (ct3=ct4) and (ct4=ct5) and (ct5=ct6) then z:=z+25;
{/Podm¡nky pro pØtiŸky}
{Podm¡nka pro çestiŸku}
                           if (ct1=ct2) and (ct2=ct3) and (ct3=ct4) and (ct4=ct5) and (ct5=ct6) then z:=z+50;
{/Podm¡nka pro çestiŸku}
{Podm¡nka pro postupku}
                           if (ct1<>ct2) and (ct1<>ct3) and (ct1<>ct4) and (ct1<>ct5) and (ct1<>ct6)
                           and (ct2<>ct3) and (ct2<>ct4) and (ct2<>ct5) and (ct2<>ct6) and (ct3<>ct4)
                           and (ct3<>ct5) and (ct3<>ct6) and (ct4<>ct5) and (ct4<>ct6) and (ct5<>ct6) then z:=z+100;
{/Podm¡nka pro postupku}
     end;
 
{/PRVN¡ Hr Ÿ}
 
         clrscr;
         textcolor(lightred);
writeln;
writeln;
writeln;
Writeln('        Û        Û ÛÛÛÛÛÛÛÛ           Û          ÛÛÛÛÛ               ÛÛÛÛÛ    ');
Writeln('        Û        Û Û       ÛÛ        Û Û        Û     Û             Û     Û   ');
Writeln('        Û        Û Û         Û      Û   Û      Û       Û           Û       Û  ');
Writeln('        Û        Û Û          Û     Û   Û     Û                    Û       Û  ');
Writeln('        Û        Û Û         Û     Û     Û    Û                           Û   ');
Writeln('        ÛÛÛÛÛÛÛÛÛÛ Û    ÛÛÛÛÛ      Û     Û    Û                          Û    ');
Writeln('        Û        Û Û  ÛÛ          ÛÛÛÛÛÛÛÛÛ   Û                         Û     ');
Writeln('        Û        Û Û    ÛÛ        Û       Û   Û                        Û      ');
Writeln('        Û        Û Û      ÛÛ     Û         Û   Û       Û              Û       ');
writeln('        Û        Û Û        ÛÛ   Û         Û    Û     Û              Û        ');
Writeln('        Û        Û Û          Û Û           Û    ÛÛÛÛÛ              ÛÛÛÛÛÛÛÛ  ');
textcolor(yellow);
writeln;
writeln;
writeln('                                 ',z,'  BODU  :)             ');
writeln;
writeln;
textcolor(lightgreen);
writeln('        *  *  *    *  *  *    *  *  *    *  *  *    *  *  *    *  *  *  ');
writeln('         * * *      * * *      * * *      * * *      * * *      * * *');
writeln('          ***        ***        ***        ***        ***        ***  ');
writeln('       *********  *********  *********  *********  *********  *********     ');
writeln('          ***        ***        ***        ***        ***        ***  ');
writeln('         * * *      * * *      * * *      * * *      * * *      * * *   ');
writeln('        *  *  *    *  *  *    *  *  *    *  *  *    *  *  *    *  *  *  ');
 
{/DRUHì Hr Ÿ}
 
textcolor(lightred);
         readln;
         clrscr;
         writeln;
         Writeln('        Û         Û Û       Û Û       Û ÛÛÛÛÛÛÛ         Û       Û        ');
         Writeln('        Û         Û  Û     Û  Û       Û Û      Û       Û Û      Û        ');
         Writeln('         Û       Û    Û   Û   Û       Û Û       Û     Û   Û     Û        ');
         Writeln('         Û       Û     Û Û    Û       Û Û      Û     Û     Û    Û        ');
         Writeln('          Û     Û       Û     ÛÛÛÛÛÛÛÛÛ Û  ÛÛÛÛ      Û     Û    Û        ');
         Writeln('          Û     Û       Û     Û       Û Û Û         ÛÛÛÛÛÛÛÛÛ   Û        ');
         Writeln('           Û   Û        Û     Û       Û Û  Û        Û       Û   Û        ');
         Writeln('           Û   Û        Û     Û       Û Û   Û      Û         Û  Û        ');
         Writeln('            Û Û         Û     Û       Û Û    Û     Û         Û  Û        ');
         Writeln('             Û          Û     Û       Û Û     Û   Û           Û ÛÛÛÛÛÛÛÛÛ');
         Writeln;
         writeln;
         writeln;
         textcolor(yellow);
         if p>z then writeln('                                     Hr Ÿ Ÿ.1     ');
         if p<z then writeln('                                     Hr Ÿ Ÿ.2     ');
         if p=z then writeln('                                   !!! REMIZA !!!  ');
writeln;
writeln;
textcolor(lightgreen);
writeln('        *  *  *    *  *  *    *  *  *    *  *  *    *  *  *    *  *  *  ');
writeln('         * * *      * * *      * * *      * * *      * * *      * * *');
writeln('          ***        ***        ***        ***        ***        ***  ');
writeln('       *********  *********  *********  *********  *********  *********     ');
writeln('          ***        ***        ***        ***        ***        ***  ');
writeln('         * * *      * * *      * * *      * * *      * * *      * * *   ');
writeln('        *  *  *    *  *  *    *  *  *    *  *  *    *  *  *    *  *  *  ');
         readln;
         clrscr;
         writeln;
         textcolor(lightred);
         writeln;
         Write('Chcete znovu rozjet hru KOSTKY ?? A/N');
         readln(volba);
         if (volba='A') or (volba='a') then goto skok111;
         if (volba='N') or (volba='n') then goto skok;
         end;
 
    {/Hra kostky}
 
end;
end;
end;
 until v='d';
{/TØlo programu}
 
end.
 
{/Program}