#!/usr/bin/perl -w

print "Hra kocky v. 0.1 Suli.\n\n";
print "Pointa hry je v hazarde. Ako prvé sa určí suma, o ktorú sa bude hrať. Váš protivník je počítač, takže vždy bude súhlasiť s Vaším návrhom stávky. Vašou úlohou je v prvom hode hodiť čo najlepšie čísla. V druhom hode sa rozhodnete, ktorou kockou chcete hádzať, tak, aby ste mali čo najvyššiu šancu vyhrať. Vyhrávate v prípade, že sa druhým hodom zvolenou kockou trafíte medzi zvyšné 2. Veľa šťastia a zábavy samozrejme :)\n\n";

$kredit = 100;
$bank = 0;

DALEJ:

print "Tvoj kredit je $kredit. O koľko si chceš zahrať?: ";
chomp ($vklad = <STDIN>);
if ($vklad <= $kredit){
$bank = $vklad*2;

print "\n";
print "Vložil si: $vklad\n";
print "V Banku je: $bank\n\n";

print "Prvý hod:\n\n";
$a = (int rand 6) + 1;
$b = (int rand 6) + 1;
$c = (int rand 6) + 1;

print "Kocka 1: $a\nKocka 2: $b\nKocka 3: $c\n";
print "Ktorou kockou chceš teraz hádzať? ";
chomp ($odpoved = <STDIN>);
print "\n\n";

NOVA_KOCKA:

if ($odpoved == 1){
		print "Druhý hod:\n\n";
		$a = (int rand 6) + 1;
		print "Kocka 1: $a\nKocka 2: $b\nKocka 3: $c\n";
			if ($a > $b and $a < $c or $a < $b and $a > $c){
				$kredit = $kredit + ($bank - $vklad);
				print "Hura!, vyhral si!. Tvoj kredit je: $kredit.\n";
				print "Chcete ešte hrať? (1/0)\n";
				chomp ($dalej = <STDIN>);
				if ($dalej == 1){
					goto DALEJ;
				}
				elsif ($dalej == 0){
					die "Dakujem za hru.\n";
				}
			}
			else{
				$kredit = $kredit - $vklad;
				print "Je mi ľúto, prehral si. Tvoj kredit je: $kredit.\n";
				print "Chcete ešte hrať? (1/0)\n";
				chomp ($dalej = <STDIN>);
				if ($dalej == 1){
					goto DALEJ;
				}
				elsif ($dalej == 0){
					die "Dakujem za hru.\n";
				}
			}
}
elsif ($odpoved == 2){
		print "Druhý hod:\n\n";
		$b = (int rand 6) + 1;
		print "Kocka 1: $a\nKocka 2: $b\nKocka 3: $c\n";
			if ($b > $a and $b < $c or $b < $a and $a > $c){
				$kredit = $kredit + ($bank - $vklad);
				print "Hura!, vyhral si!. Tvoj kredit je: $kredit.\n";
				print "Chcete ešte hrať? (1/0)\n";
				chomp ($dalej = <STDIN>);
				if ($dalej == 1){
					goto DALEJ;
				}
				elsif ($dalej == 0){
					die "Dakujem za hru.\n";
				}
			}
			else{
				$kredit = $kredit - $vklad;
				print "Je mi ľúto, prehral si. Tvoj kredit je: $kredit.\n";
				print "Chcete ešte hrať? (1/0)\n";
				chomp ($dalej = <STDIN>);
				if ($dalej == 1){
					goto DALEJ;
				}
				elsif ($dalej == 0){
					die "Dakujem za hru.\n";
				}
			}
}
elsif ($odpoved == 3){
		print "Druhý hod:\n\n";
		$c = (int rand 6) + 1;
		print "Kocka 1: $a\nKocka 2: $b\nKocka 3: $c\n";
			if ($c > $a and $c < $b or $c < $a and $c > $a){
				$kredit = $kredit + ($bank - $vklad);
				print "Hura!, vyhral si!. Tvoj kredit je: $kredit.\n";
				print "Chcete ešte hrať? (1/0)\n";
				chomp ($dalej = <STDIN>);
				if ($dalej == 1){
					goto DALEJ;
				}
				elsif ($dalej == 0){
					die "Dakujem za hru.\n";
				}
			}
			else{
				$kredit = $kredit - $vklad;
				print "Je mi ľúto, prehral si. Tvoj kredit je: $kredit.\n";
				print "Chcete ešte hrať? (1/0)\n";
				chomp ($dalej = <STDIN>);
				if ($dalej == 1){
					goto DALEJ;
				}
				elsif ($dalej == 0){
					die "Dakujem za hru.\n";
				}
			}
}
else{
		print "Vyber si len kocku od 1 do 3! ";
		chomp ($odpoved = <STDIN>);
		goto NOVA_KOCKA;
}
}
else{
	print "Bohužiaľ, nemáte tolko prostriedkov v kredite.\n";
	print "Chcete zmenit vklad? (1/0): ";
	chomp ($zmena_vkladu = <STDIN>);
	if ($zmena_vkladu == 1){
		goto DALEJ;
	}
	elsif ($zmena_vkladu == 0){
		die "Dakujem za záujem.\n";
	}
}
