www.TrSek.com/cz/cover/bernat/hraci_kostky

www.TrSek.com
víc jak 450 program zadarmo
English
Slovensky
Česky
Šarišsky
Programy
Programy v Pascalu (54)
Zadání z Pascalu (212)
Generátor Zadání
Programy v Pascalu (KMP) (157)
Programy v C, C++ (8)
Náhodný program
Pascal - kategórie
Hry (20)
Zadání (212)
Začátečníci (27)
Grafika (35)
Matematika (112)
Geometria (23)
Řeťezce (43)
Projekty (23)
Periférie (35)
Dokumenty
Příručka pro Pascal (lite)
Články o programování (18)
Linky na internetu
FAQ – rýchle tipy (4)
Informace
Download
Přidat program v Pascalu
Parametry starších HDD
Kontakty
Vaše Reklama
Poslat e-mail
O mně - Životopis
Kniha návštev
ICQ 207919468 ICQ
Kategórie: Programy v Pascalu (KMP)
Autor: Jirka Bernát
Program: Hraci_kostky.pas
Soubor exe: Hraci_kostky.exe
Program na hraní v kostky.
Zobrazené: 311x
{ 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Ą kostiku}
 
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Ą kostiku}
{Procedura pro druhou kostiku}
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 kostiku}
 
{Procedura pro týetĄ kostiku}
 
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Ą kostiku}
 
{Procedura pro tvrtou kostiku}
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,<