{ 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