English
English
Slovensky
Slovensky
╚esky
╚esky
ęari╣sky
ęari╣sky
Kategˇria: Programy v Pascale (KMP)
hraci_kostky.png
Autor: Jirka Bernßt
Program: Hraci_kostky.pas
S˙bor exe: Hraci_kostky.exe
Program na hranÝ v kostky.
ZobrazenÚ: 1357x


{ 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}
 

[Spusti╗] [Ulożi╗] [TlaŔ] [Posla╗ e-mailom]