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

www.TrSek.com
vecej jak 450 programoch ľem tak zadarmo
English
Slovensky
Česky
Šarišsky
Programy
Programy zos Pascalu (54)
Zadaňa zos Pascalu (212)
Vydumaňec Zadani
Programy zos Pascalu (KMP) (157)
Programy zos C, C++ (8)
Nahodny program
Pascal - po kusoch
Hraňe (20)
Zadaňa (212)
Uchaľe (27)
Krešľeňe (35)
Matematika (112)
Geometrija (23)
Slova (43)
Projekty (23)
Pridaňa (35)
Papíre
Papíre zos Pascalu (na ľehko)
Papire zos programovaňa (18)
Linky na interňetu
FAQ – takoj tipy (4)
Hutoreňa
Scahňi
Dodaj daľši program
Numera staršich HDD
Kontakty
Tvoja Reklama
Pošľi meil
Daco o mňe - Muj popis
Knižka nafštef
ICQ 207919468 ICQ
Kategorija: Programy zos Pascalu (KMP)
Zrobil: Jirka Bernát
Program: Hraci_kostky.pas
Subor exe: Hraci_kostky.exe
Program na hraní v kostky.
Kuklo še: 312x
{ 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,