Logical game matches, last is over
Delphi & Pascal (èeská wiki)
Category:
Author: Martin Truben
Program: Z35.pas
File exe: Z35.exe
Author: Martin TrubenProgram: Z35.pas
File exe: Z35.exe
This is a game match. It's a simply game where you play with compute or second player. At start the game are 3 heaps of matchs. Players are alternately pick up match. Who don't pick any lose.
{ Z35.PAS } { Toto je hra zapalky. Je to jednoducha logicka hra, v ktorej } { mozete hrat bud proti pocitacu alebo proti dalsiemu hracovi. } { Na zaciatku hry su 3 kopy v ktorych su zapalky. Hraci si striedavo} { za sebou tahaju z tychto kop. Ten kto si uz nemoze tahat, pretoze } { uz nie je v ziadnej kope zapalka, prehrava. } { } { Author: Martin Truben } { Datum: 12.10.2005 http://www.trsek.com } program z35; uses crt; var stlp, stlp2, stlp3, z1, z2, z3, kopa4, pocet, tahac, zap1, zap2, zap3 : integer; uvod, ukoncenie, xx, yy, spust,xxx, textcol1, textcol2, yyy, xxx2, yyy2 : integer; {procedure uvodom} meno2, meno, spustam : string; zaciatok1, nekoncim : boolean; procedure vyhralsi; begin clrscr; xxx:=7; yyy:=3; textmode(1000); textcol1:=1; repeat textcolor(textcol1); clrscr; gotoxy(xxx,yyy-2);write ('Gratulujem ti '); gotoxy(xxx,yyy);write (' '); gotoxy(xxx,yyy+3);write(' o '); gotoxy(xxx,yyy+5);write(' '); gotoxy(xxx,yyy+6);write(' '); gotoxy(xxx,yyy+7);write(' '); gotoxy(xxx,yyy+8);write(' '); gotoxy(xxx,yyy+9);write(' '); textcol1:=textcol1+1; if (textcol1=15) then textcol1:=1; xxx:=xxx+1; yyy:=yyy+1; delay(100); until (xxx=32); xxx2:=34; yyy2:=25; textcol2:=1; repeat textcolor(textcol2); clrscr; gotoxy(xxx2,yyy2-2);write(' k vyhre '); gotoxy(xxx2,yyy2);write (' '); gotoxy(xxx2,yyy2+3);write(' o '); gotoxy(xxx2,yyy2+5);write(' '); gotoxy(xxx2,yyy2+6);write(' '); gotoxy(xxx2,yyy2+7);write(' '); gotoxy(xxx2,yyy2+8);write(' '); gotoxy(xxx2,yyy2+9);write(' '); textcol2:=textcol2+1; if (textcol2=15) then textcol2:=1; xxx2:=xxx2+1; yyy2:=yyy2-1; delay(100); until(yyy2=2); end; procedure RozdelenieKop; begin clrscr; textcolor(white); gotoxy(2,2);write(' ',meno,', napis pocet zapaliek v 1. stlpci (max.999) '); readln(z1); if (z1<0) or (z1>999) then repeat clrscr; gotoxy(2,2); if (z1<0) then begin clrscr; gotoxy(2,2); write(' ',meno,', Toto cislo musi byt kladne, zadaj nove cislo '); end; if (z1>999) then begin clrscr; gotoxy(2,2); write(' ',meno,', Zadaj cislo do 999 ') end; readln(z1); until (z1>-1) and (z1<1000); textcolor(blue); clrscr; gotoxy(2,2);write(' ',meno,', napis pocet zapaliek v 2. stlpci (max999) '); readln(z2); if (z2<0) or (z2>999) then repeat clrscr; gotoxy(2,2); if (z2<0) then begin clrscr; gotoxy(2,2); write(' ',meno,', Toto cislo musi byt kladne, zadaj nove cislo '); end; if (z2>999) then begin clrscr; gotoxy(2,2); write(' ',meno,', Zadaj cislo do 999 '); end; readln(z2); until(z2>-1) and (z2<1000); textcolor(red); clrscr; gotoxy(2,2);write(' ',meno,', napis pocet zapaliek v 3. stlpci (max999) '); readln(z3); if (z3<0) or (z3>999) then repeat clrscr; gotoxy(2,2); if (z3<0) then begin clrscr; gotoxy(2,2); write(' ',meno,', Toto cislo musi byt kladne, zadaj nove cislo '); end; if (z3>999) then begin clrscr; gotoxy(2,2); write(' ',meno,', Zadaj cislo do 999 '); end; readln(z3); until (z3>-1) and (z3<1000); end; procedure TahHraca1( var k1, k2, k3 : integer); begin textcolor(7); writeln(' º º º º '); write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',meno,', napis stlpec z ktoreho chces tahat '); read(kopa4); if (kopa4=1) and (k1=0) then repeat begin write(' º º º º ',meno,', tu nie su zapalky,tahaj z ineho stlpca '); readln(kopa4); end; until (kopa4=2) or (kopa4=3); if (kopa4=2) and (k2=0) then repeat begin write(' º º º º ',meno,', tu nie su zapalky,tahaj z ineho stlpca '); readln(kopa4); end; until (kopa4=1) or (kopa4=3); if (kopa4=3) and (k3=0) then repeat begin write(' º º º º ',meno,', tu nie su zapalky,tahaj z ineho stlpca '); readln(kopa4); end; until (kopa4=1) or (kopa4=2); repeat if (kopa4<1) or (kopa4>3) then begin write(' º º º º ',meno,', su iba tri stlpce, tahaj si z troch stlpcov '); read(kopa4); end; until (kopa4>0) and (kopa4<4); write(' º º º º ',meno,', napis kolko zapaliek chces tahat '); read(pocet); repeat if (pocet<1) then begin write(' º º º º ',meno,', tak sa tahat neda, tahaj znova '); read(pocet); end; if (kopa4=1) then begin repeat if (pocet>k1) then begin write(' º º º º ',meno,', tolko zapaliek v kope nezostalo, tahaj znova '); read(pocet); end; until (pocet=k1) or (pocet<k1); end; if (kopa4=2) then begin repeat if (pocet>k2) then begin write(' º º º º ',meno,', tolko zapaliek v kope nezostalo, tahaj znova '); read(pocet); end; until (pocet=k2) or (pocet<k2); end; if (kopa4=3) then begin repeat if (pocet>k3) then begin write(' º º º º ',meno,', tolko zapaliek v kope nezostalo, tahaj znova '); read(pocet); end; until (pocet=k3) or (pocet<k3); end; until (pocet>0); case kopa4 of 1 : if (k1-pocet)>-1 then k1:=k1-pocet; 2 : if (k2-pocet)>-1 then k2:=k2-pocet; 3 : if (k3-pocet)>-1 then k3:=k3-pocet; end; end; procedure TahHraca(var k1, k2, k3 : integer); begin textcolor(7); writeln(' º º º º '); write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',meno2,', napis stlpec z ktoreho chces tahat '); read(kopa4); if (kopa4=1) and (k1=0) then repeat begin write(' º º º º ',meno2,', tu nie su zapalky,tahaj z ineho stlpca '); readln(kopa4); end; until (kopa4=2) or (kopa4=3); if (kopa4=2) and (k2=0) then repeat begin write(' º º º º ',meno2,', tu nie su zapalky,tahaj z ineho stlpca '); readln(kopa4); end; until (kopa4=1) or (kopa4=3); if (kopa4=3) and (k3=0) then repeat begin write(' º º º º ',meno2,', tu nie su zapalky,tahaj z ineho stlpca '); readln(kopa4); end; until (kopa4=1) or (kopa4=2); repeat if (kopa4<1) or (kopa4>3) then begin write(' º º º º ',meno2,', su iba tri stlpce, tahaj si z troch stlpcov '); read(kopa4); end; until (kopa4>0) and (kopa4<4); write(' º º º º ',meno2,', napis kolko zapaliek chces tahat '); read(pocet); repeat if (pocet<1) then begin write(' º º º º ',meno2,', tak sa tahat neda, tahaj znova '); read(pocet); end; if (kopa4=1) then begin repeat if (pocet>k1) then begin write(' º º º º ',meno2,', tolko zapaliek v kope nezostalo, tahaj znova '); read(pocet); end; until (pocet=k1) or (pocet<k1); end; if (kopa4=2) then begin repeat if (pocet>k2) then begin write(' º º º º ',meno2,', tolko zapaliek v kope nezostalo, tahaj znova '); read(pocet); end; until (pocet=k2) or (pocet<k2); end; if (kopa4=3) then begin repeat if (pocet>k3) then begin write(' º º º º ',meno2,', tolko zapaliek v kope nezostalo, tahaj znova '); read(pocet); end; until (pocet=k3) or (pocet<k3); end; until (pocet>0); case kopa4 of 1 : if (k1-pocet)>-1 then k1:=k1-pocet; 2 : if (k2-pocet)>-1 then k2:=k2-pocet; 3 : if (k3-pocet)>-1 then k3:=k3-pocet; end; end; procedure TahPocitaca(var k1, k2, k3 : integer); begin if (k1>(k2 xor k3)) then begin textcolor(2); write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: ',k1-(k2 xor k3)); if (k1-(k2 xor k3)=0) then writeln (' zapaliek '); if (k1-(k2 xor k3)=1) then writeln (' zapalku '); if (k1-(k2 xor k3)>1) and (k1-(k2 xor k3)<5) then writeln (' zapalky '); if (k1-(k2 xor k3)>4) then writeln (' zapaliek '); if k1-(k2 xor k3)>-1 then k1 := (k2 xor k3); write(' º º º º '); writeln(' '); exit end; randomize; stlp:=random(2)+1; zap1:=random(k1)+1; zap2:=random(k2)+1; zap3:=random(k3)+1; if ((k1-(k2 xor k3))=0) then begin textcolor(2); if (k2>0) and (k3=0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: ',zap2); if (zap2=0) then writeln (' zapaliek '); if (zap2=1) then writeln (' zapalku '); if (zap2>1) and (zap2<5) then writeln (' zapalky '); if (zap2>4) then writeln (' zapaliek '); k2:= (k2-zap2); write(' º º º º '); writeln(' '); exit end; if (k2=0) and (k3>0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: ',zap3); if (zap3=0) then writeln (' zapaliek '); if (zap3=1) then writeln (' zapalku '); if (zap3>1) and (zap3<5) then writeln (' zapalky '); if (zap3>4) then writeln (' zapaliek '); k3:= (k3-zap3); write(' º º º º '); writeln(' '); exit end; if (k2>0) and (k3>0) then begin if (stlp=1) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: ',zap2); if (zap2=0) then writeln (' zapaliek '); if (zap2=1) then writeln (' zapalku '); if (zap2>1) and (zap2<5) then writeln (' zapalky '); if (zap2>4) then writeln (' zapaliek '); k2:= (k2-zap2); write(' º º º º '); writeln(' '); end; if (stlp=2) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: ',zap3); if (zap3=0) then writeln (' zapaliek '); if (zap3=1) then writeln (' zapalku '); if (zap3>1) and (zap3<5) then writeln (' zapalky '); if (zap3>4) then writeln (' zapaliek '); k3:= (k3-zap3); write(' º º º º '); writeln(' '); end; end; exit end; if (k2>(k1 xor k3)) then begin textcolor(2); write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: ',k2-(k1 xor k3)); if (k2-(k1 xor k3)=0) then writeln (' zapaliek '); if (k2-(k1 xor k3)=1) then writeln (' zapalku '); if (k2-(k1 xor k3)>1) and (k2-(k1 xor k3)<5) then writeln (' zapalky '); if (k2-(k1 xor k3)>4) then writeln (' zapaliek '); if k2-(k1 xor k3)>-1 then k2 := (k1 xor k3); write(' º º º º '); writeln(' '); exit end; randomize; stlp2:=random(2)+1; if ((k2-(k1 xor k3))=0) then begin textcolor(2); if (k1>0) and (k3=0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: ',zap1); if (zap1=0) then writeln (' zapaliek '); if (zap1=1) then writeln (' zapalku '); if (zap1>1) and (zap1<5) then writeln (' zapalky '); if (zap1>4) then writeln (' zapaliek '); k1:= (k1-zap1); write(' º º º º '); writeln(' '); exit end; if (k1=0) and (k3>0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: ',zap3); if (zap3=0) then writeln (' zapaliek '); if (zap3=1) then writeln (' zapalku '); if (zap3>1) and (zap3<5) then writeln (' zapalky '); if (zap3>4) then writeln (' zapaliek '); k3:= (k3-zap3); write(' º º º º '); writeln(' '); exit end; if (k1>0) and (k3>0) then begin if (stlp2=1) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: ',zap1); if (zap1=0) then writeln (' zapaliek '); if (zap1=1) then writeln (' zapalku '); if (zap1>1) and (zap1<5) then writeln (' zapalky '); if (zap1>4) then writeln (' zapaliek '); k1:= (k1-zap1); write(' º º º º '); writeln(' '); end; if (stlp2=2) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: ',zap3); if (zap3=0) then writeln (' zapaliek '); if (zap3=1) then writeln (' zapalku '); if (zap3>1) and (zap3<5) then writeln (' zapalky '); if (zap3>4) then writeln (' zapaliek '); k3:= (k3-zap3); write(' º º º º '); writeln(' '); exit end; end; exit end; if (k3>(k2 xor k1)) then begin textcolor(2); write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: ',k3-(k2 xor k1)); if (k3-(k2 xor k1)=0) then writeln (' zapaliek '); if (k3-(k2 xor k1)=1) then writeln (' zapalku '); if (k3-(k2 xor k1)>1) and (k3-(k2 xor k1)<5) then writeln (' zapalky '); if (k3-(k2 xor k1)>4) then writeln(' zapaliek '); if k3-(k2 xor k1)>-1 then k3 := (k2 xor k1); write(' º º º º '); writeln(' '); exit end; randomize; stlp3:=random(2)+1; if ((k3-(k2 xor k1))=0) then begin textcolor(2); if (k1>0) and (k2=0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: ',zap1); if (zap1=0) then writeln (' zapaliek '); if (zap1=1) then writeln (' zapalku '); if (zap1>1) and (zap1<5) then writeln (' zapalky '); if (zap1>4) then writeln (' zapaliek '); k1:= (k1-zap1); write(' º º º º '); writeln(' '); exit end; if (k1=0) and (k2>0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: ',zap2); if (zap2=0) then writeln (' zapaliek '); if (zap2=1) then writeln (' zapalku '); if (zap2>1) and (zap2<5) then writeln (' zapalky '); if (zap2>4) then writeln (' zapaliek '); k2:= (k2-zap2); write(' º º º º '); writeln(' '); exit end; if (k1>0) and (k2>0) then begin if (stlp3=1) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: ',zap1); if (zap1=0) then writeln (' zapaliek '); if (zap1=1) then writeln (' zapalku '); if (zap1>1) and (zap1<5) then writeln (' zapalky '); if (zap1>4) then writeln (' zapaliek '); k1:= (k1-zap1); write(' º º º º '); writeln(' '); end; if (stlp3=2) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: ',zap2); if (zap2=0) then writeln (' zapaliek '); if (zap2=1) then writeln (' zapalku '); if (zap2>1) and (zap2<5) then writeln (' zapalky '); if (zap2>4) then writeln (' zapaliek '); k2:= (k2-zap2); write(' º º º º '); writeln(' '); end; end; exit end; end; procedure TahPocitacaLahky(var k1, k2, k3 : integer); begin randomize; randomize; stlp:=random(2)+1; if (k1>0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: zopar zapaliek'); k1:= (k1-(random(k1)+1)); writeln(' '); exit end else begin textcolor(2); if (k2>0) and (k3=0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: zopar zapaliek'); k2:= (k2-(random(k2)+1)); writeln(' '); exit end; if (k2=0) and (k3>0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: zopar zapaliek'); k3:= (k3-(random(k3)+1)); writeln(' '); exit end; if (k2>0) and (k3>0) then begin if (stlp=1) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: zopar zapaliek'); k2:= (k2-(random(k2)+1)); writeln(' '); end; if (stlp=2) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: zopar zapaliek'); k3:= (k3-(random(k3)+1)); writeln(' '); end; end; exit end; randomize; stlp2:=random(2)+1; if (k2>0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: zopar zapaliek'); k2:= (k2-(random(k2)+1)); writeln(' '); exit end else begin textcolor(2); if (k1>0) and (k3=0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: zopar zapaliek'); k1:= (k1-(random(k1)+1)); writeln(' '); exit end; if (k1=0) and (k3>0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: zopar zapaliek'); k3:= (k3-(random(k3)+1)); writeln(' '); exit end; if (k1>0) and (k3>0) then begin if (stlp2=1) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: zopar zapaliek'); k1:= (k1-(random(k1)+1)); writeln(' '); end; if (stlp2=2) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: zopar zapaliek'); k3:= (k3-(random(k3)+1)); writeln(' '); exit end; end; exit end; randomize; stlp3:=random(2)+1; if (k3>0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 3. stlpca: zopar zapaliek'); k3:= (k3-(random(k3)+1)); writeln(' '); exit end else begin textcolor(2); if (k1>0) and (k2=0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: zopar zapaliek'); k1:= (k1-(random(k1)+1)); writeln(' '); exit end; if (k1=0) and (k2>0) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: zopar zapaliek'); k2:= (k2-(random(k2)+1)); writeln(' '); exit end; if (k1>0) and (k2>0) then begin if (stlp3=1) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 1. stlpca: zopar zapaliek'); k1:= (k1-(random(k1)+1)); writeln(' '); end; if (stlp3=2) then begin write(' º ',k1:3,' º ',k2:3,' º ',k3:3,' º ',' taham z 2. stlpca: zopar zapaliek'); k2:= (k2-(random(k2)+1)); writeln(' '); end; end; exit end; end; var x, y, gd, gm, u, i, lt, hra, kopa1, kopa2, tah, kopa3, zaciatok, zaciatok2 :integer; zap, vyhra, prehra : boolean; a, b : string; begin clrscr; zap:=false; vyhra:=false; tah:=0; x:=2; y:=3; u:=0; begin spustam:= '.'; zaciatok1:= false; nekoncim:=false; textcolor(6); gotoxy(4,12);write('Program sa spusta'); for spust := 1 to 50 do begin write(spustam); delay(30); end; textmode(100); clrscr; gotoxy(2,2); textcolor(9);write('1.'); textcolor(15); writeln('Nova hra '); textcolor(9);write(' 2.'); textcolor(15); writeln('Navod ku hre '); textcolor(9);write(' 3.'); textcolor(15); writeln('Koniec '); gotoxy(2,7);write('Vyber si co chces urobit: '); read(uvod); repeat if (uvod<1) or (uvod>3) then begin gotoxy(2,10); textcolor(15);write('zadaj '); textcolor(9);write('1. 2. '); textcolor(15);write('alebo '); textcolor(9);write('3. '); gotoxy(26,10);write(' '); gotoxy(26,10);read(uvod); end; until (uvod=1) or (uvod=2) or (uvod=3); xx:=13; yy:=13; if (uvod=1) then zaciatok1:= true; if (uvod=2) then begin textcolor(2); repeat gotoxy(1,xx); write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»'); gotoxy(1,xx+1);write('º º'); gotoxy(1,yy); write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ'); gotoxy(1,yy-1);write('º º'); xx:=xx-1; yy:=yy+1; delay(60); if (yy=26) then begin textcolor(14); textbackground(4); gotoxy(2,2); writeln(' Toto je hra zapalky. Je to jednoducha logicka hra, v ktorej mozete hrat '); gotoxy(2,3);writeln(' bud proti pocitacu alebo proti dalsiemu hracovi. Na zaciatku hry su 3 '); gotoxy(2,4);writeln(' kopy v ktorych su zapalky. Hraci si striedavo za sebou tahaju z tychto '); gotoxy(2,5);writeln(' kop. Ten kto si uz nemoze tahat, pretoze uz nie je v ziadnej kope '); gotoxy(2,6);writeln(' zapalka, prehrava. '); end; until (yy=26); readln; end; readln; if (uvod=3) then begin textcolor(10); gotoxy(2,13);write(' To vazne chces uz ukoncit tuto hru (a/n)? '); writeln; writeln; textcolor(9);write(' 1. '); textcolor(15); writeln('ano '); writeln; textcolor(9);write(' 2. '); textcolor(15); writeln('nie '); gotoxy(46,13);read(ukoncenie); repeat if (ukoncenie<1) or (ukoncenie>2) then begin gotoxy(10,19); textcolor(15);write('zadaj '); textcolor(9);write('1. '); textcolor(15);write('alebo '); textcolor(9);write('2. '); gotoxy(29,19);write(' '); gotoxy(29,19);read(ukoncenie); end; until (ukoncenie=1) or (ukoncenie=2); if (ukoncenie=2) then nekoncim:=true; readln; end; end; if (zaciatok1) or (nekoncim) then begin clrscr; textmode(100); gotoxy(31,7); textcolor(10); write(' Ako sa volas ? '); read(meno); textcolor(10); gotoxy(10,9);write('vyber si ci chces hrat proti '); gotoxy(10,11); textcolor(9);write('1. '); textcolor(15);write('pocitacu '); gotoxy(10,13); textcolor(9);write('2. '); textcolor(15);write('alebo proti inemu hracovi '); read(hra); repeat if (hra<1) or (hra>2) then begin gotoxy(15,17); textcolor(15);write('zadaj '); textcolor(9);write('1. '); textcolor(15);write('alebo '); textcolor(9);write('2. '); gotoxy(33,17);write(' '); gotoxy(33,17);read(hra); end; until (hra=1) or (hra=2); if(hra=1) then begin clrscr; readln(a); gotoxy(30,7); textcolor(10); write('vyber si typ hry '); gotoxy(10,11); textcolor(9);write('1. '); textcolor(15);write('lahka '); gotoxy(10,13); textcolor(9);write('2. '); textcolor(15);write('tazka '); readln(lt); repeat if (lt<1) or (lt>2) then begin gotoxy(15,17); textcolor(15);write('zadaj '); textcolor(9);write('1. '); textcolor(15);write('alebo '); textcolor(9);write('2. '); gotoxy(33,17);write(' '); gotoxy(33,17);read(lt); end; until (lt=1) or (lt=2); end; if (lt=2) then begin begin clrscr; gotoxy(25,11); textcolor(10);write('vyber si kto zacina tuto hru: '); gotoxy(15,13); textcolor(9); write('1.'); textcolor(15);write(' zacinas ty'); gotoxy(15,15); textcolor(9); write('2.'); textcolor(15);write(' zacina pocitac '); read(zaciatok); end; repeat if (zaciatok<1) or (zaciatok>2) then begin gotoxy(15,17); textcolor(15);write('zadaj '); textcolor(9);write('1. '); textcolor(15);write('alebo '); textcolor(9);write('2. '); gotoxy(33,17);write(' '); gotoxy(33,17);read(zaciatok); end; until (zaciatok=1) or (zaciatok=2); end; if (zaciatok=1) then begin RozdelenieKop; begin clrscr; kopa1 :=z1; kopa2 :=z2; kopa3 :=z3; textbackground(0); textcolor(15); write(' '); textbackground(1); write('Zapalky'); textbackground(4); writeln('(verzia1)'); textcolor(7); textbackground(0); write(' É');textcolor(white);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(blue);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(red);write('ÍÍÍÍÍ'); textcolor(7);writeln('» '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ºÄÄÄÄĺÄÄÄÄĺÄÄÄÄĺ '); gotoxy(1,y+1); repeat TahHraca1(kopa1, kopa2, kopa3); if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then vyhra:= true; TahPocitaca(kopa1, kopa2, kopa3); if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then prehra:=true; y:=y+2; x:=x+2; u:=u+5; tah:= tah+1; until (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0); writeln(' º º º º '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ÈÍÍÍÍÍÊÍÍÍÍÍÊÍÍÍÍͼ ':15); if vyhra then begin writeln (' ',meno,', to je tvoja vyhra!'); if tah=1 then write(' vyhral si na ',tah,' tah'); if (tah>1) and (tah<5) then write(' vyhral si na ',tah,' tahy'); if (tah>4) then write(' vyhral si na ',tah,' tahov'); readln; readln; vyhralsi; end else begin writeln (' ',meno,', prehral si!'); if tah=1 then write(' pocitac vyhral na ',tah,' tah'); if (tah>1) and (tah<5) then write(' pocitac vyhral na ',tah,' tahy'); if (tah>4) then write(' pocitac vyhral na ',tah,' tahov'); readln; end; end; readln; end; if (zaciatok=2) then begin RozdelenieKop; begin clrscr; kopa1 :=z1; kopa2 :=z2; kopa3 :=z3; textbackground(0); textcolor(15); write(' '); textbackground(1); write('Zapalky'); textbackground(4); writeln('(verzia1)'); textcolor(7); textbackground(0); textcolor(7); write(' É');textcolor(white);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(blue);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(red);write('ÍÍÍÍÍ'); textcolor(7);writeln('» '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ºÄÄÄÄĺÄÄÄÄĺÄÄÄÄĺ '); gotoxy(1,y+1); TahPocitaca(kopa1, kopa2, kopa3); repeat TahHraca1(kopa1, kopa2, kopa3); if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then vyhra:= true; TahPocitaca(kopa1, kopa2, kopa3); if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then prehra:=true; y:=y+2; x:=x+2; u:=u+5; tah:= tah+1; until (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0); writeln(' º º º º '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ÈÍÍÍÍÍÊÍÍÍÍÍÊÍÍÍÍͼ ':15); if vyhra then begin writeln (' ',meno,', to je tvoja vyhra!'); if tah=1 then write(' vyhral si na ',tah,' tah'); if (tah>1) and (tah<5) then write(' vyhral si na ',tah,' tahy'); if (tah>4) then write(' vyhral si na ',tah,' tahov'); readln; readln; vyhralsi; end else begin writeln (' ',meno,', prehral si!'); if tah=1 then write(' pocitac vyhral na ',tah,' tah'); if (tah>1) and (tah<5) then write(' pocitac vyhral na ',tah,' tahy'); if (tah>4) then write(' pocitac vyhral na ',tah,' tahov'); readln; end; end; readln; end; if(lt=1) then begin begin begin clrscr; gotoxy(25,11); textcolor(10);write('vyber si kto zacina tuto hru: '); gotoxy(15,13); textcolor(9); write('1.'); textcolor(15);write(' zacinas ty'); gotoxy(15,15); textcolor(9); write('2.'); textcolor(15);write(' zacina pocitac '); read(zaciatok); end; repeat if (zaciatok<1) or (zaciatok>2) then begin gotoxy(15,17); textcolor(15);write('zadaj '); textcolor(9);write('1. '); textcolor(15);write('alebo '); textcolor(9);write('2. '); gotoxy(33,17);write(' '); gotoxy(33,17);read(zaciatok); end; until (zaciatok=1) or (zaciatok=2); end; if (zaciatok=1) then begin RozdelenieKop; begin clrscr; kopa1 :=z1; kopa2 :=z2; kopa3 :=z3; textbackground(0); textcolor(15); write(' '); textbackground(1); write('Zapalky'); textbackground(4); writeln('(verzia1)'); textcolor(7); textbackground(0); textcolor(7); write(' É');textcolor(white);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(blue);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(red);write('ÍÍÍÍÍ'); textcolor(7);writeln('» '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ºÄÄÄÄĺÄÄÄÄĺÄÄÄÄĺ '); gotoxy(1,y+1); repeat TahHraca1(kopa1, kopa2, kopa3); if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then vyhra:= true; TahPocitacaLahky(kopa1, kopa2, kopa3); if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then prehra:=true; y:=y+2; x:=x+2; u:=u+5; tah:= tah+1; until (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0); writeln(' º º º º '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ÈÍÍÍÍÍÊÍÍÍÍÍÊÍÍÍÍͼ ':15); if vyhra then begin writeln (' ',meno,', to je tvoja vyhra!'); if tah=1 then write(' vyhral si na ',tah,' tah'); if (tah>1) and (tah<5) then write(' vyhral si na ',tah,' tahy'); if (tah>4) then write(' vyhral si na ',tah,' tahov'); readln; readln; vyhralsi; end else begin writeln (' ',meno,', prehral si!'); if tah=1 then write(' pocitac vyhral na ',tah,' tah'); if (tah>1) and (tah<5) then write(' pocitac vyhral na ',tah,' tahy'); if (tah>4) then write(' pocitac vyhral na ',tah,' tahov'); readln; end; end; readln; end; if (zaciatok=2) then begin RozdelenieKop; begin clrscr; kopa1 :=z1; kopa2 :=z2; kopa3 :=z3; textbackground(0); textcolor(15); write(' '); textbackground(1); write('Zapalky'); textbackground(4); writeln('(verzia1)'); textcolor(7); textbackground(0); textcolor(7); write(' É');textcolor(white);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(blue);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(red);write('ÍÍÍÍÍ'); textcolor(7);writeln('» '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ºÄÄÄÄĺÄÄÄÄĺÄÄÄÄĺ '); gotoxy(1,y+1); TahPocitacaLahky(kopa1, kopa2, kopa3); repeat TahHraca1(kopa1, kopa2, kopa3); if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then vyhra:= true; TahPocitacaLahky(kopa1, kopa2, kopa3); if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then prehra:=true; y:=y+2; x:=x+2; u:=u+5; tah:= tah+1; until (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0); writeln(' º º º º '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ÈÍÍÍÍÍÊÍÍÍÍÍÊÍÍÍÍͼ ':15); if vyhra then begin writeln (' ',meno,', to je tvoja vyhra!'); if tah=1 then write(' vyhral si na ',tah,' tah'); if (tah>1) and (tah<5) then write(' vyhral si na ',tah,' tahy'); if (tah>4) then write(' vyhral si na ',tah,' tahov'); readln; readln; vyhralsi; end else begin writeln (' ',meno,', prehral si!'); if tah=1 then write(' pocitac vyhral na ',tah,' tah'); if (tah>1) and (tah<5) then write(' pocitac vyhral na ',tah,' tahy'); if (tah>4) then write(' pocitac vyhral na ',tah,' tahov'); readln; end; end; readln; end; end; if (hra=2) then begin clrscr; readln; gotoxy(26,7); textcolor(10); write(' Ako sa vola druhy hrac ? '); read(meno2); gotoxy(25,11); textcolor(10);write('vyber si kto zacina tuto hru: '); gotoxy(15,13); textcolor(9); write('1.'); textcolor(15);write(' zacina ',meno,' '); gotoxy(15,15); textcolor(9); write('2.'); textcolor(15);write(' zacina ',meno2,' '); read(zaciatok); repeat if (zaciatok<1) or (zaciatok>2) then begin gotoxy(15,17); textcolor(15);write('zadaj '); textcolor(9);write('1. '); textcolor(15);write('alebo '); textcolor(9);write('2. '); gotoxy(33,17);write(' '); gotoxy(33,17);read(zaciatok); end; until (zaciatok=1) or (zaciatok=2); if (zaciatok=1) then begin RozdelenieKop; begin clrscr; kopa1 :=z1; kopa2 :=z2; kopa3 :=z3; textbackground(0); textcolor(15); write(' '); textbackground(1); write('Zapalky'); textbackground(4); writeln('(verzia1)'); textcolor(7); textbackground(0); textcolor(7); write(' É');textcolor(white);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(blue);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(red);write('ÍÍÍÍÍ'); textcolor(7);writeln('» '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º' ); writeln(' ºÄÄÄÄĺÄÄÄÄĺÄÄÄÄĺ '); gotoxy(1,y+1); repeat TahHraca1(kopa1, kopa2, kopa3); if (Kopa1=0) and (kopa2=0) and (kopa3=0) then begin vyhra:= true; end else begin TahHraca(kopa1, kopa2, kopa3); end; if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then prehra:=true; y:=y+2; x:=x+2; u:=u+5; tah:= tah+1; until (Kopa1=0) and (kopa2=0) and (kopa3=0) or vyhra; writeln(' º º º º '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ÈÍÍÍÍÍÊÍÍÍÍÍÊÍÍÍÍͼ ':15); if vyhra then begin writeln (' ',meno,', to je tvoja vyhra!'); if tah=1 then write(' vyhral si na ',tah,' tah'); if (tah>1) and (tah<5) then write(' vyhral si na ',tah,' tahy'); if (tah>4) then write(' vyhral si na ',tah,' tahov'); readln; end else begin writeln (' ',meno2,', to je tvoja vyhra!'); if tah=1 then write(' vyhral si na ',tah,' tah'); if (tah>1) and (tah<5) then write(' vyhral si na ',tah,' tahy'); if (tah>4) then write(' vyhral si na ',tah,' tahov'); readln; end; end; readln; end else begin RozdelenieKop; begin clrscr; kopa1 :=z1; kopa2 :=z2; kopa3 :=z3; textbackground(0); textcolor(15); write(' '); textbackground(1); write('Zapalky'); textbackground(4); writeln('(verzia1)'); textcolor(7); textbackground(0); textcolor(7); write(' É');textcolor(white);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(blue);write('ÍÍÍÍÍ'); textcolor(7);write('Ë');textcolor(red);write('ÍÍÍÍÍ'); textcolor(7);writeln('» '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ºÄÄÄÄĺÄÄÄÄĺÄÄÄÄĺ '); gotoxy(1,y+1); TahHraca(kopa1, kopa2, kopa3); repeat TahHraca1(kopa1, kopa2, kopa3); if (Kopa1=0) and (kopa2=0) and (kopa3=0) then begin vyhra:= true; end else begin TahHraca(kopa1, kopa2, kopa3); end; if (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0) then prehra:=true; y:=y+2; x:=x+2; u:=u+5; tah:= tah+1; until (Kopa1=Kopa2) and (kopa2=kopa3) and (kopa3=0); writeln(' º º º º '); writeln(' º ',kopa1:3,' º ',kopa2:3,' º ',kopa3:3,' º'); writeln(' ÈÍÍÍÍÍÊÍÍÍÍÍÊÍÍÍÍͼ ':15); if vyhra then begin writeln (' ',meno,', to je tvoja vyhra!'); if tah=1 then write(' vyhral si na ',tah,' tah'); if (tah>1) and (tah<5) then write(' vyhral si na ',tah,' tahy'); if (tah>4) then write(' vyhral si na ',tah,' tahov'); readln; end else begin writeln (' ',meno2,', to je tvoja vyhra!'); if tah=1 then write(' vyhral si na ',tah,' tah'); if (tah>1) and (tah<5) then write(' vyhral si na ',tah,' tahy'); if (tah>4) then write(' vyhral si na ',tah,' tahov'); readln; end; end; readln; end; end; end; end.