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