Video Poker

Stato
Discussione chiusa ad ulteriori risposte.
Ordina per data Ordina commenti per reazioni
C

C1nC1n

Utente Silver
14 Novembre 2008
0
0
0
57
Ciao, l'esercizio che vi propongo è di creare un semplice "video poker", dove le carte vanno dal 2 all'asso, te ne vengono date 5, e poi ci deve essere la possibilita di cambiarne quante se ne vuole fino a 4..e alla fine il programma dovra dirti che punteggio hai fatto :D

Ekko il mio in perl
Codice: 
#!/usr/bin/perl
# Video Poker in Perl :D
# [email protected] - in una fredda domenica :P





&inizio;
sub inizio{
system("cls");
print q(
             #####################################
             #####################################
             #            Video Poker            #
             #                                   #
             #  -List-                           #
             #    Coppia                         #
             #    Doppia                         #
             #    Tris                           #
             #    Scala                          #
             #    Colore                         #
             #    Full                           #
             #    Poker                          #
             #    S.Reale                        #
             #                                   #
             #####################################
);
print "Premi invio x iniziare..\n";
$fol=<STDIN>;
system("cls");
print q(
                -----------------------
                Le Tue Carte:
                -----------------------
);



@a = ('Asso.P','Due.P','Tre.P','Quattro.P','Cinque.P','Sei.P','Sette.P','Otto.P','Nove.P','Dieci.P','Jack.P','Qu.P','Kappa.P',
'Asso.Q','Due.Q','Tre.Q','Quattro.Q','Cinque.Q','Sei.Q','Sette.Q','Otto.Q','Nove.Q','Dieci.Q','Jack.Q','Qu.Q','Kappa.Q',
'Asso.F','Due.F','Tre.F','Quattro.F','Cinque.F','Sei.F','Sette.F','Otto.F','Nove.F','Dieci.F','Jack.F','Qu.F','Kappa.F',
'Asso.D','Due.D','Tre.D','Quattro.D','Cinque.D','Sei.D','Sette.D','Otto.D','Nove.D','Dieci.D','Jack.D','Qu.D','Kappa.D','Asso.C','Due.C','Tre.C','Quattro.C','Cinque.C','Sei.C','Sette.C','Otto.C','Nove.C','Dieci.C','Jack.C','Qu.C','Kappa.C','inutile'); 

for($i=0;$i<5;$i++){
$primaz =$a[int rand($#a)]; 
$secondaz=$a[int rand($#a)];
$terzaz=$a[int rand($#a)];
$quartaz=$a[int rand($#a)];
$quintaz=$a[int rand($#a)];
}
$fff="$primaz - $secondaz - $terzaz - $quartaz - $quintaz";
print "$fff \n";
print "\n Quante ne vuoi cambiare?\n";
$ncamb=<STDIN>;
chomp($ncamb);

sub una{
print "\n\n Quale vuoi cambiare? (1,2,3,4,5):";
$quale1=<STDIN>;
chomp($quale1);
$qq1=$a[int rand($#a)];
if($qq1 eq $prima || $qq1 eq $seconda || $qq1 eq $terza || $qq1 eq $quarta || $qq1 eq $quinta){
$qq1=$a[int rand($#a)];
$final1=$qq1;
}else{$final1=$qq1;}
}

sub seconda{
print "\n\n Prima carta da cambiare(1,2,3,4,5):";
$quale2=<STDIN>;
chomp($quale2);
print "\n Seconda carta da cambiare(1,2,3,4,5):";
$quale22=<STDIN>;
chomp($quale22);

$qq2=$a[int rand($#a)];
$qq22=$a[int rand($#a)];

if($qq2 eq $prima || $qq2 eq $seconda || $qq2 eq $terza || $qq2 eq $quarta || $qq2 eq $quinta){
$qq2=$a[int rand($#a)];
$final2=$qq2;
}elsif($qq22 eq $prima || $qq22 eq $seconda || $qq22 eq $terza || $qq22 eq $quarta || $qq22 eq $quinta){
$qq22=$a[int rand($#a)];
$final22=$qq22;
}else{$final2=$qq2;$final22=$qq22;}

&finaldue;
}


sub terza{
print "\n\n Prima carta da tenere(1,2,3,4,5):";
$quale3=<STDIN>;
chomp($quale3);
print "\n\n Seconda carta da tenere(1,2,3,4,5):";
$quale33=<STDIN>;
chomp($quale33);


$qq3=$a[int rand($#a)];
$qq33=$a[int rand($#a)];
$qq333=$a[int rand($#a)];

if($qq3 eq $prima || $qq3 eq $seconda || $qq3 eq $terza || $qq3 eq $quarta || $qq3 eq $quinta){
$qq3=$a[int rand($#a)];
$final3=$qq3;
}elsif($qq33 eq $prima || $qq33 eq $seconda || $qq33 eq $terza || $qq33 eq $quarta || $qq33 eq $quinta){
$qq33=$a[int rand($#a)];
$final33=$qq33;
}elsif($qq333 eq $prima || $qq333 eq $seconda || $qq333 eq $terza || $qq333 eq $quarta || $qq333 eq $quinta){
$qq333=$a[int rand($#a)];
$final333=$qq333;
}else{$final3=$qq3;$final33=$qq33;$final333=$qq333;}

&finaltre;
}

sub quarta{
print "\n\n Scegli la carta da tenere(1,2,3,4,5):";
$quale4=<STDIN>;
chomp($quale4);
$qq4=$a[int rand($#a)];
$qq44=$a[int rand($#a)];
$qq444=$a[int rand($#a)];
$qq4444=$a[int rand($#a)];
if($qq4 eq $prima || $qq4 eq $seconda || $qq4 eq $terza || $qq4 eq $quarta || $qq4 eq $quinta){
$qq4=$a[int rand($#a)];
$final4=$qq4;
}elsif($qq44 eq $prima || $qq44 eq $seconda || $qq44 eq $terza || $qq44 eq $quarta || $qq44 eq $quinta){
$qq44=$a[int rand($#a)];
$final44=$qq44;
}elsif($qq444 eq $prima || $qq444 eq $seconda || $qq444 eq $terza || $qq444 eq $quarta || $qq444 eq $quinta){
$qq444=$a[int rand($#a)];
$final444=$qq444;
}elsif($qq4444 eq $prima || $qq4444 eq $seconda || $qq4444 eq $terza || $qq4444 eq $quarta || $qq4444 eq $quinta){
$qq4444=$a[int rand($#a)];
$final4444=$qq4444;
}else{$final4=$qq4;$final44=$qq44;$final444=$qq444;$final4444=$qq4444;}
&finalquattro;
}


if($ncamb == 1){
&una;
&finaluna;}elsif($ncamb == 2){
&seconda;}elsif($ncamb == 3){
&terza;}elsif($ncamb == 4){
&quarta;}else{print "Err0rrrr\n"; exit();}



}


sub finaluna{
system("cls");
print "---Ecco le tue carte--\n";
if($quale1 == 1){
$prima=$final1;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$quartaz;
$quinta=$quintaz;
$ffff="$final1 - $seconda - $terza - $quarta - $quinta";
print "$ffff\n";
}elsif($quale1 == 2){
$prima=$primaz;
$seconda=$final1;
$terza=$terzaz;
$quarta=$quartaz;
$quinta=$quintaz;
$f5="$prima - $final1 - $terza - $quarta - $quinta";
print "$f5 \n";
}elsif($quale1 == 3){
$prima=$primaz;
$seconda=$secondaz;
$terza=$final1;
$quarta=$quartaz;
$quinta=$quintaz;
$f6="$prima - $seconda - $final1 - $quarta - $quinta";
print "$f6\n";
}elsif($quale1 == 4){
$prima=$primaz;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$final1;
$quinta=$quintaz;
$f7="$prima - $seconda - $terza - $final1 - $quinta";
print "$f7\n";
}elsif($quale1 == 5){
$prima=$primaz;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$quartaz;
$quinta=$final1;
$f8="$prima - $seconda - $terza - $quarta - $final1";
print "$f8\n";
}
&controllo;
print "\n\n ..Vuoi giocare ankora?:(y n)";
$rrr=<STDIN>;
chomp($rrr);
if($rrr eq 'y'){
&inizio;}else{exit();}
}


sub finaldue{
system("cls");
print "---Ecco le tue carte--\n";
if($quale2 == 1){
&qualuna;}elsif($quale2 == 2){
&qualdue;}elsif($quale2 == 3){
&qualtre;}elsif($quale2 == 4){
&qualquattro;}elsif($quale2 == 5){
&qualcinque;}

sub qualuna{
if($quale22 == 2){
$prima=$final2;
$seconda=$final22;
$terza=$terzaz;
$quarta=$quartaz;
$quinta=$quintaz;
$fuckall="$final2 - $final22 - $terza - $quarta - $quinta";
print "$fuckall\n";
}elsif($quale22 == 3){
$prima=$final2;
$seconda=$secondaz;
$terza=$final22;
$quarta=$quartaz;
$quinta=$quintaz;
print "$final2 - $seconda - $final22 - $quarta - $quinta\n";
}elsif($quale22 == 4){
$prima=$final2;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$final22;
$quinta=$quintaz;
print "$final2 - $seconda - $terza - $final22 - $quinta\n";
}elsif($quale22 == 5){
$prima=$final2;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$quartaz;
$quinta=$final22;
print "$final2 - $seconda - $terza - $quarta - $final22\n";
}
}

sub qualdue{
if($quale22 == 1){
$terza=$terzaz;
$quarta=$quartaz;
$quinta=$quintaz;
print "$final22 - $final2 - $terza - $quarta - $quinta\n";
}elsif($quale22 == 3){
$prima=$primaz;
$quarta=$quartaz;
$quinta=$quintaz;
print "$prima - $final2 - $final22 - $quarta - $quinta\n";
}elsif($quale22 == 4){
$prima=$primaz;
$terza=$terzaz;
$quinta=$quintaz;
print "$prima - $final2 - $terza - $final22 - $quinta\n";
}elsif($quale22 == 5){
$prima=$primaz;
$terza=$terzaz;
$quarta=$quartaz;
print "$prima - $final2 - $terza - $quarta - $final22\n";
}
}

sub qualtre{
if($quale22 == 1){
$prima=$final22;
$seconda=$secondaz;
$terza=$final2;
$quarta=$quartaz;
$quinta=$quintaz;
print "$final22 - $seconda - $final2 - $quarta - $quinta\n";
}elsif($quale22 == 2){
$prima=$primaz;
$seconda=$final22;
$terza=$final2;
$quarta=$quartaz;
$quinta=$quintaz;
print "$prima - $final22 - $final2 - $quarta - $quinta\n";
}elsif($quale22 == 4){
$prima=$primaz;
$seconda=$secondaz;
$terza=$final2;
$quarta=$final22;
$quinta=$quintaz;
print "$prima - $seconda - $final2 - $final22 - $quinta\n";
}elsif($quale22 == 5){
$prima=$primaz;
$seconda=$secondaz;
$terza=$final2;
$quarta=$quartaz;
$quinta=$final22;
print "$prima - $seconda - $final2 - $quarta - $final22\n";
}
}

sub qualquattro{
if($quale22 == 1){
$prima=$final22;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$final2;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale22 == 2){
$prima=$primaz;
$seconda=$final22;
$terza=$terzaz;
$quarta=$final2;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale22 == 3){
$prima=$primaz;
$seconda=$secondaz;
$terza=$final22;
$quarta=$final2;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale22 == 5){
$prima=$primaz;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$final2;
$quinta=$final22;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}
}

sub qualcinque{
if($quale22 == 1){
$prima=$final22;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$quartaz;
$quinta=$final2;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale22 == 2){
$prima=$primaz;
$seconda=$final22;
$terza=$terzaz;
$quarta=$quartaz;
$quinta=$final2;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale22 == 3){
$prima=$primaz;
$seconda=$secondaz;
$terza=$final22;
$quarta=$quartaz;
$quinta=$final2;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale22 == 4){
$prima=$primaz;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$final22;
$quinta=$final2;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}
}
&controllo;
}


sub finaltre{
system("cls");
print "---Ecco le tue carte--\n";
if($quale3 == 1){
&uuu;}elsif($quale3 == 2){
&ddd;}elsif($quale3 == 3){
&ttt;}elsif($quale3 == 4){
&qqq;}elsif($quale3 == 5){
&ccc;}

sub uuu{
if($quale33 == 2){
$prima=$primaz;
$seconda=$secondaz;
$terza=$final3;
$quarta=$final33;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 3){
$prima=$primaz;
$seconda=$final3;
$terza=$terzaz;
$quarta=$final33;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 4){
$prima=$primaz;
$quarta=$quartaz;
$seconda=$final3;
$terza=$final33;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 5){
$prima=$primaz;
$seconda=$final33;
$terza=$final3;
$quarta=$final333;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}
}

sub ddd{
if($quale33 == 1){
$prima=$primaz;
$seconda=$secondaz;
$terza=$final3;
$quarta=$final33;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 3){
$prima=$final3;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$final33;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 4){
$prima=$final3;
$quarta=$quartaz;
$seconda=$secondaz;
$terza=$final33;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 5){
$prima=$final3;
$seconda=$secondaz;
$terza=$final33;
$quarta=$final333;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}
}

sub ttt{
if($quale33 == 1){
$prima=$primaz;
$seconda=$final3;
$terza=$terzaz;
$quarta=$final33;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 2){
$prima=$final3;
$seconda=$secondaz;
$terza=$terzaz;
$quarta=$final33;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 4){
$prima=$final3;
$quarta=$quartaz;
$seconda=$final33;
$terza=$terzaz;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 5){
$prima=$final3;
$seconda=$final33;
$terza=$terzaz;
$quarta=$final333;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}
}

sub qqq{
if($quale33 == 1){
$prima=$primaz;
$seconda=$final3;
$terza=$final33;
$quarta=$quartaz;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 2){
$prima=$final3;
$seconda=$secondaz;
$terza=$final33;
$quarta=$quartaz;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 3){
$prima=$final3;
$quarta=$quartaz;
$seconda=$final33;
$terza=$terzaz;
$quinta=$final333;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 5){
$prima=$final3;
$seconda=$final33;
$terza=$final333;
$quarta=$quartaz;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}
}

sub ccc{
if($quale33 == 1){
$prima=$primaz;
$seconda=$final3;
$terza=$final33;
$quarta=$final333;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 2){
$prima=$final3;
$seconda=$secondaz;
$terza=$final33;
$quarta=$final333;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 3){
$prima=$final3;
$quarta=$final333;
$seconda=$final33;
$terza=$terzaz;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale33 == 4){
$prima=$final3;
$seconda=$final33;
$terza=$final333;
$quarta=$quartaz;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}
}
&controllo;

}


sub finalquattro{
system("cls");
print "---Ecco le tue carte--\n";
if($quale4 == 1){
$prima=$primaz;
$seconda=$final4;
$terza=$final44;
$quarta=$final444;
$quinta=$final4444;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale4 ==2){
$prima=$final4;
$seconda=$secondaz;
$terza=$final44;
$quarta=$final444;
$quinta=$final4444;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale4 == 3){
$prima=$final4;
$seconda=$final44;
$terza=$terzaz;
$quarta=$final444;
$quinta=$final4444;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale4 == 4){
$prima=$final4;
$seconda=$final44;
$terza=$final444;
$quarta=$quartaz;
$quinta=$final4444;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}elsif($quale4 == 5){
$prima=$final4;
$seconda=$final44;
$terza=$final444;
$quarta=$final4444;
$quinta=$quintaz;
print "$prima - $seconda - $terza - $quarta - $quinta\n";
}
&controllo;
}


sub controllo{
&fp;
&fd;
&fc;
&fk;
&fg;
&coppie;
&tris;
&doppie_coppie;
&full;
&colore;
&scala;
&scalareale;
$v_c=($puntata*2);
$v_dc=$puntatax3;
$v_tr=$puntatax5;
$v_sc=$puntatax7;
$v_co=$puntatax10;
$v_fu=$puntatax15;
$v_po=$puntatax20;
$v_sco=$puntatax25;
$v_sre=$puntatax100;
}





sub coppie{
if($c_assi == 2){
print "Hai una coppia d'assi\n";

}elsif($c_kappa == 2){
print "Hai una coppia di kappa\n";

}elsif($c_jack == 2){
print "Hai una coppia di jack\n";
}elsif($c_q == 2){
print "Hai una coppia di Q\n";
}elsif($c_dieci == 2){
print "Hai una coppia di Dieci\n";
}elsif($c_nove == 2){
print "Hai una coppia di Nove\n";
}elsif($c_otto ==2){
print "Hai una coppia di Otto\n";
}elsif($c_sette ==2){
print "Hai una coppia di sette\n";
}elsif($c_sei == 2){
print "Hai una coppia di sei\n";
}elsif($c_cinque ==2){
print "Hai una coppia di cinque\n";
}elsif($c_quattro ==2){
print "Hai una coppia di quattro\n";
}elsif($c_tre ==2){
print "Hai una coppia di tre\n";
}elsif($c_due ==2){
print "Hai una coppia di due\n";
}
}

sub doppie_coppie{
if($c_assi == 2){
$dop_cop=$dop_cop+1;
}

if($c_kappa == 2){
$dop_cop=$dop_cop+1;
}

if($c_jack == 2){
$dop_cop=$dop_cop+1;
}

if($c_q == 2){
$dop_cop=$dop_cop+1;
}

if($c_deci == 2){
$dop_cop=$dop_cop+1;
}

if($c_nove == 2){
$dop_cop=$dop_cop+1;
}

if($c_otto ==2){
$dop_cop=$dop_cop+1;
}

if($c_sette ==2){
$dop_cop=$dop_cop+1;
}

if($c_sei == 2){
$dop_cop=$dop_cop+1;
}


if($c_cinque ==2){
$dop_cop=$dop_cop+1;
}


if($c_quattro ==2){
$dop_cop=$dop_cop+1;
}


if($c_tre ==2){
$dop_cop=$dop_cop+1;
}


if($c_due ==2){
$dop_cop=$dop_cop+1;
}


if($dop_cop==2){
print "Hai una DOPPIA coppia\n";
$fish=$fish+$v_dc;
}
}

sub tris{
if($c_assi == 3){
print "Hai una tris d'assi\n";
$fish=$fish+$v_tr;}elsif($c_kappa == 3){
print "Hai una tris di kappa\n";
$fish=$fish+$v_tr;}elsif($c_jack == 3){
print "Hai una tris di jack\n";
$fish=$fish+$v_tr;}elsif($c_q == 3){
print "Hai una tris di Q\n";
$fish=$fish+$v_tr;}elsif($c_dieci == 3){
print "Hai una tris di Dieci\n";
$fish=$fish+$v_tr;}elsif($c_nove == 3){
print "Hai una tris di Nove\n";
$fish=$fish+$v_tr;}elsif($c_otto ==3){
print "Hai una tris di Otto\n";
$fish=$fish+$v_tr;}elsif($c_sette ==3){
print "Hai una tris di sette\n";
$fish=$fish+$v_tr;}elsif($c_sei == 3){
print "Hai una tris di sei\n";
$fish=$fish+$v_tr;}elsif($c_cinque ==3){
print "Hai una tris di cinque\n";
$fish=$fish+$v_tr;}elsif($c_quattro ==3){
print "Hai una tris di quattro\n";
$fish=$fish+$v_tr;}elsif($c_tre ==3){
print "Hai una tris di tre\n";
$fish=$fish+$v_tr;}elsif($c_due ==3){
print "Hai una tris di due\n";
}
}

sub poker{
if($c_assi == 4){
print "Hai una poker d'assi\n";
$fish=$fish+$v_po;}elsif($c_kappa == 4){
print "Hai una poker di kappa\n";
$fish=$fish+$v_po;}elsif($c_jack == 4){
print "Hai una poker di jack\n";
$fish=$fish+$v_po;}elsif($c_q == 4){
print "Hai una poker di Q\n";
$fish=$fish+$v_po;}elsif($c_dieci == 4){
print "Hai una poker di Dieci\n";
$fish=$fish+$v_po;}elsif($c_nove == 4){
print "Hai una poker di Nove\n";
$fish=$fish+$v_po;}elsif($c_otto ==4){
print "Hai una poker di Otto\n";
$fish=$fish+$v_po;}elsif($c_sette ==4){
print "Hai una poker di sette\n";
$fish=$fish+$v_po;}elsif($c_sei == 4){
print "Hai una poker di sei\n";
$fish=$fish+$v_po;}elsif($c_cinque ==4){
print "Hai una poker di cinque\n";
$fish=$fish+$v_po;}elsif($c_quattro ==4){
print "Hai una poker di quattro\n";
$fish=$fish+$v_po;}elsif($c_tre ==4){
print "Hai una poker di tre\n";
$fish=$fish+$v_po;}elsif($c_due ==4){
print "Hai una poker di due\n";
}
}

sub full{
if($c_assi == 3 && $c_kappa == 2){
print "Hai full d'assi e kappa\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_q == 2){
print "Hai full d'assi e q\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_jack ==2){
print "Hai full d'assi e jack\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_dieci ==2){
print "Hai full d'assi e dieci\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_nove ==2){
print "Hai full d'assi e nove\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_otto ==2){
print "Hai full d'assi e otto\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_sette == 2){
print "Hai full d'assi e sette\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_sei == 2){
print "Hai full d'assi e sei\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_cinque ==2){
print "Hai full d'assi e cinque\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_quattro == 2){
print "Hai full d'assi e quattro\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_tre == 2){
print "Hai full d'assi e tre\n";
$fish=$fish+$v_fu;}elsif($c_assi == 3 && $c_due == 2){
print "Hai full d'assi e due\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_assi == 2){
print "Hai full d'kappa e assi\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_q == 2){
print "Hai full d'kappa e q\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_jack ==2){
print "Hai full d'kappa e jack\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_dieci ==2){
print "Hai full d'kappa e dieci\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_nove ==2){
print "Hai full d'kappa e nove\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_otto ==2){
print "Hai full d'kappa e otto\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_sette == 2){
print "Hai full d'kappa e sette\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_sei == 2){
print "Hai full d'kappa e sei\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_cinque ==2){
print "Hai full d'kappa e cinque\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_quattro == 2){
print "Hai full d'kappa e quattro\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_tre == 2){
print "Hai full d'kappa e tre\n";
$fish=$fish+$v_fu;}elsif($c_kappa == 3 && $c_due == 2){
print "Hai full d'kappa e due\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_assi == 2){
print "Hai full d'Q e Assi\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_kappa == 2){
print "Hai full d'Q e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_jack ==2){
print "Hai full d'Q e jack\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_dieci ==2){
print "Hai full d'Q e dieci\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_nove ==2){
print "Hai full d'Q e nove\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_otto ==2){
print "Hai full d'Q e otto\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_sette == 2){
print "Hai full d'Q e sette\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_sei == 2){
print "Hai full d'Q e sei\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_cinque ==2){
print "Hai full d'Q e cinque\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_quattro == 2){
print "Hai full d'Q e quattro\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_tre == 2){
print "Hai full d'Q e tre\n";
$fish=$fish+$v_fu;}elsif($c_q == 3 && $c_due == 2){
print "Hai full d'Q e due\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_assi == 2){
print "Hai full d'Jack e Assi\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_kappa == 2){
print "Hai full d'Jack e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_q ==2){
print "Hai full d'Jack e Q\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_dieci ==2){
print "Hai full d'Jack e dieci\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_nove ==2){
print "Hai full d'Jack e nove\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_otto ==2){
print "Hai full d'Jack e otto\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_sette == 2){
print "Hai full d'Jack e sette\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_sei == 2){
print "Hai full d'Jack e sei\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_cinque ==2){
print "Hai full d'Jack e cinque\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_quattro == 2){
print "Hai full d'Jack e quattro\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_tre == 2){
print "Hai full d'Jack e tre\n";
$fish=$fish+$v_fu;}elsif($c_jack == 3 && $c_due == 2){
print "Hai full d'Jack e due\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_assi == 2){
print "Hai full d'Dieci e Assi\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_kappa == 2){
print "Hai full d'Dieci e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_q ==2){
print "Hai full d'Dieci e Q\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_jack ==2){
print "Hai full d'Dieci e jack\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_nove ==2){
print "Hai full d'Dieci e nove\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_otto ==2){
print "Hai full d'Dieci e otto\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_sette == 2){
print "Hai full d'Dieci e sette\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_sei == 2){
print "Hai full d'Dieci e sei\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_cinque ==2){
print "Hai full d'Dieci e cinque\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_quattro == 2){
print "Hai full d'Dieci e quattro\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_tre == 2){
print "Hai full d'Dieci e tre\n";
$fish=$fish+$v_fu;}elsif($c_dieci == 3 && $c_due == 2){
print "Hai full d'Dieci e due\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_assi == 2){
print "Hai full d'Nove e Assi\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_kappa == 2){
print "Hai full d'Nove e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_q ==2){
print "Hai full d'Nove e Q\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_jack ==2){
print "Hai full d'Nove e jack\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_dieci ==2){
print "Hai full d'Nove e dieci\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_otto ==2){
print "Hai full d'Nove e otto\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_sette == 2){
print "Hai full d'Nove e sette\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_sei == 2){
print "Hai full d'Nove e sei\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_cinque ==2){
print "Hai full d'Nove e cinque\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_quattro == 2){
print "Hai full d'Nove e quattro\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_tre == 2){
print "Hai full d'Nove e tre\n";
$fish=$fish+$v_fu;}elsif($c_nove == 3 && $c_due == 2){
print "Hai full d'Nove e due\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_assi == 2){
print "Hai full d'Otto e Assi\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_kappa == 2){
print "Hai full d'Otto e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_q ==2){
print "Hai full d'Otto e Q\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_jack ==2){
print "Hai full d'Otto e jack\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_dieci ==2){
print "Hai full d'Otto e dieci\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_otto ==2){
print "Hai full d'Otto e nove\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_sette == 2){
print "Hai full d'Otto e sette\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_sei == 2){
print "Hai full d'Otto e sei\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_cinque ==2){
print "Hai full d'Otto e cinque\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_quattro == 2){
print "Hai full d'Otto e quattro\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_tre == 2){
print "Hai full d'Otto e tre\n";
$fish=$fish+$v_fu;}elsif($c_otto == 3 && $c_due == 2){
print "Hai full d'Otto e due\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_assi == 2){
print "Hai full d'Sette e Assi\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_kappa == 2){
print "Hai full d'Sette e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_q ==2){
print "Hai full d'Sette e Q\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_jack ==2){
print "Hai full d'Sette e jack\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_dieci ==2){
print "Hai full d'Sette e dieci\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_otto ==2){
print "Hai full d'Sette e otto\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_nove == 2){
print "Hai full d'Sette e nove\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_sei == 2){
print "Hai full d'Sette e sei\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_cinque ==2){
print "Hai full d'Sette e cinque\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_quattro == 2){
print "Hai full d'Sette e quattro\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_tre == 2){
print "Hai full d'Sette e tre\n";
$fish=$fish+$v_fu;}elsif($c_sette == 3 && $c_due == 2){
print "Hai full d'Sette e due\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_assi == 2){
print "Hai full d'Sei e Assi\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_kappa == 2){
print "Hai full d'Sei e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_q ==2){
print "Hai full d'Sei e Q\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_jack ==2){
print "Hai full d'Sei e jack\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_dieci ==2){
print "Hai full d'Sei e dieci\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_otto ==2){
print "Hai full d'Sei e otto\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_nove == 2){
print "Hai full d'Sei e nove\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_sette == 2){
print "Hai full d'Sei e sette\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_cinque ==2){
print "Hai full d'Sei e cinque\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_quattro == 2){
print "Hai full d'Sei e quattro\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_tre == 2){
print "Hai full d'Sei e tre\n";
$fish=$fish+$v_fu;}elsif($c_sei == 3 && $c_due == 2){
print "Hai full d'Sei e due\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_assi == 2){
print "Hai full d'Cinque e Assi\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_kappa == 2){
print "Hai full d'Cinque e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_q ==2){
print "Hai full d'Cinque e Q\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_jack ==2){
print "Hai full d'Cinque e jack\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_dieci ==2){
print "Hai full d'Cinque e dieci\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_otto ==2){
print "Hai full d'Cinque e otto\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_nove == 2){
print "Hai full d'Cinque e nove\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_sette == 2){
print "Hai full d'Cinque e sette\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_sei ==2){
print "Hai full d'Cinque e sei\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_quattro == 2){
print "Hai full d'Cinque e quattro\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_tre == 2){
print "Hai full d'Cinque e tre\n";
$fish=$fish+$v_fu;}elsif($c_cinque == 3 && $c_due == 2){
print "Hai full d'Cinque e due\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_assi == 2){
print "Hai full d'Quattro e Assi\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_kappa == 2){
print "Hai full d'Quattro e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_q ==2){
print "Hai full d'Quattro e Q\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_jack ==2){
print "Hai full d'Quattro e jack\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_dieci ==2){
print "Hai full d'Quattro e dieci\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_otto ==2){
print "Hai full d'Quattro e otto\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_nove == 2){
print "Hai full d'Quattro e nove\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_sette == 2){
print "Hai full d'Quattro e sette\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_sei ==2){
print "Hai full d'Quattro e sei\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_cinque == 2){
print "Hai full d'Quattro e cinque\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_tre == 2){
print "Hai full d'Quattro e tre\n";
$fish=$fish+$v_fu;}elsif($c_quattro == 3 && $c_due == 2){
print "Hai full d'Quattro e due\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_assi == 2){
print "Hai full d'Tre e Assi\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_kappa == 2){
print "Hai full d'Tre e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_q ==2){
print "Hai full d'Tre e Q\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_jack ==2){
print "Hai full d'Tre e jack\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_dieci ==2){
print "Hai full d'Tre e dieci\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_otto ==2){
print "Hai full d'Tre e otto\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_nove == 2){
print "Hai full d'Tre e nove\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_sette == 2){
print "Hai full d'Tre e sette\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_sei ==2){
print "Hai full d'Tre e sei\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_cinque == 2){
print "Hai full d'Tre e cinque\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_quattro == 2){
print "Hai full d'Tre e quattro\n";
$fish=$fish+$v_fu;}elsif($c_tre == 3 && $c_due == 2){
print "Hai full d'Tre e due\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_assi == 2){
print "Hai full d'Due e Assi\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_kappa == 2){
print "Hai full d'Due e Kappa\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_q ==2){
print "Hai full d'Due e Q\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_jack ==2){
print "Hai full d'Due e jack\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_dieci ==2){
print "Hai full d'Due e dieci\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_otto ==2){
print "Hai full d'Due e otto\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_nove == 2){
print "Hai full d'Due e nove\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_sette == 2){
print "Hai full d'Due e sette\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_sei ==2){
print "Hai full d'Due e sei\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_cinque == 2){
print "Hai full d'Due e cinque\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_quattro == 2){
print "Hai full d'Due e quattro\n";
$fish=$fish+$v_fu;}elsif($c_due == 3 && $c_tre == 2){
print "Hai full d'Tre e tre\n";
}
}

sub colore{
sub prim{
if($prima =~ /P/){
$c_picche=$c_picche+1;
}elsif($prima =~ /F/){
$c_fiori=$c_fiori+1;
}elsif($prima =~ /D/){
$c_denari=$c_denari+1;
}elsif($prima =~ /C/){
$c_cuori=$c_cuori+1;
}
}
sub sec{
if($seconda =~ /P/){
$c_picche=$c_picche+1;
}elsif($seconda =~ /F/){
$c_fiori=$c_fiori+1;
}elsif($seconda =~ /D/){
$c_denari=$c_denari+1;
}elsif($seconda =~ /C/){
$c_cuori=$c_cuori+1;
}
}
sub ter{
if($terza =~ /P/){
$c_picche=$c_picche+1;
}elsif($terza =~ /F/){
$c_fiori=$c_fiori+1;
}elsif($terza =~ /D/){
$c_denari=$c_denari+1;
}elsif($terza =~ /C/){
$c_cuori=$c_cuori+1;
}
}
sub quar{
if($quarta =~ /P/){
$c_picche=$c_picche+1;
}elsif($quarta =~ /F/){
$c_fiori=$c_fiori+1;
}elsif($quarta =~ /D/){
$c_denari=$c_denari+1;
}elsif($quarta =~ /C/){
$c_cuori=$c_cuori+1;
}
}
sub quin{
if($quinta =~ /P/){
$c_picche=$c_picche+1;
}elsif($quinta =~ /F/){
$c_fiori=$c_fiori+1;
}elsif($quinta =~ /D/){
$c_denari=$c_denari+1;
}elsif($quinta =~ /C/){
$c_cuori=$c_cuori+1;
}
}


if($c_picche == 5){
print "Hai Colore Di Picche\n";
$c_colors=$c_colors+1;}elsif($c_cuori == 5){
print "Hai Colore Di Cuori\n";
$c_colors=$c_colors+1;}elsif($c_fiori == 5){
print "Hai Colore Di Fiori\n";
$c_colors=$c_colors+1;}elsif($c_picche == 5){
print "Hai Colore Di Picche\n";
}elsif($c_denari == 5){
print "Hai Colore Di Denari\n";
$c_colors=$c_colors+1;
}


}



sub scala{
if($c_assi == 1 && $c_due == 1 && $c_tre == 1 && $c_quattro == 1 && $_cinque == 1){
print "Hai scala\n";
$c_scalas=$c_scalas+1;
}elsif($c_due == 1 && $c_tre == 1 && $c_quattro == 1 && $_cinque == 1 && $c_sei == 1){
print "Hai scala \n";
$c_scalas=$c_scalas+1;
}elsif($c_tre == 1 && $c_quattro == 1 && $_cinque == 1 && $c_sei == 1 && $c_sette ==1){
print "Hai scala\n";
$c_scalas=$c_scalas+1;
}elsif($c_quattro == 1 && $_cinque == 1 && $c_sei == 1 && $c_sette ==1 && $c_otto == 1){
print "Hai scala\n";
$c_scalas=$c_scalas+1;
}elsif($_cinque == 1 && $c_sei == 1 && $c_sette ==1 && $c_otto == 1 && $c_nove == 1){
print "Hai scala\n";
$c_scalas=$c_scalas+1;
}elsif($c_sei == 1 && $c_sette ==1 && $c_otto == 1 && $c_nove == 1 && $c_dieci ==1){
print "Hai scala\n";
$c_scalas=$c_scalas+1;
}elsif($c_sette ==1 && $c_otto == 1 && $c_nove == 1 && $c_dieci ==1 && $c_jack ==1){
print "Hai scala\n";
$c_scalas=$c_scalas+1;
}elsif($c_otto == 1 && $c_nove == 1 && $c_dieci ==1 && $c_jack ==1 && $c_q == 1){
print "Hai scala\n";
$c_scalas=$c_scalas+1;
}elsif($c_nove == 1 && $c_dieci ==1 && $c_jack ==1 && $c_q == 1 && $c_kappa){
print "Hai scala\n";
$c_scalas=$c_scalas+1;
}elsif($c_dieci ==1 && $c_jack ==1 && $c_q == 1 && $c_kappa && $c_assi){
print "Hai scala\n";
$c_scalas=$c_scalas+1;
}
}


sub scalareale{
if($c_scalas == 1 && $c_colors == 1){
print "Hai scala reale\n";
}





sub fp{
if($prima =~ /Asso/){
$c_assi=$c_assi+1;
}elsif($prima =~ /Kappa/){
$c_kappa=$c_kappa+1;
}elsif($prima =~ /Qu./){
$c_q=$c_q+1;
}elsif($prima =~ /Jack/){
$c_jack=$c_jack+1;
}elsif($prima =~ /Dieci/){
$c_dieci=$c_dieci+1;
}elsif($prima =~ /Nove/){
$c_nove=$c_nove+1;
}elsif($prima =~ /Otto/){
$c_otto=$c_otto+1;
}elsif($prima =~ /Sette/){
$c_sette=$c_sette+1;
}elsif($prima =~ /Sei/){
$c_sei=$c_sei+1;
}elsif($prima =~ /Cinque/){
$c_cinque=$c_cinque+1;
}elsif($prima =~ /Quattro/){
$c_quattro=$c_quattro+1;
}elsif($prima =~ /Tre/){
$c_tre=$c_tre+1;
}elsif($prima =~ /Due/){
$c_due=$c_due+1;
}
}


sub fd{
if($seconda =~ /Asso/){
$c_assi=$c_assi+1;
}elsif($seconda =~ /Kappa/){
$c_kappa=$c_kappa+1;
}elsif($seconda =~ /Qu./){
$c_q=$c_q+1;
}elsif($seconda =~ /Jack/){
$c_jack=$c_jack+1;
}elsif($seconda =~ /Dieci/){
$c_dieci=$c_dieci+1;
}elsif($seconda =~ /Nove/){
$c_nove=$c_nove+1;
}elsif($seconda =~ /Otto/){
$c_otto=$c_otto+1;
}elsif($seconda =~ /Sette/){
$c_sette=$c_sette+1;
}elsif($seconda =~ /Sei/){
$c_sei=$c_sei+1;
}elsif($seconda =~ /Cinque/){
$c_cinque=$c_cinque+1;
}elsif($seconda =~ /Quattro/){
$c_quattro=$c_quattro+1;
}elsif($seconda =~ /Tre/){
$c_tre=$c_tre+1;
}elsif($seconda =~ /Due/){
$c_due=$c_due+1;
}
}

sub fc{
if($terza =~ /Asso/){
$c_assi=$c_assi+1;
}elsif($terza =~ /Kappa/){
$c_kappa=$c_kappa+1;
}elsif($terza =~ /Qu./){
$c_q=$c_q+1;
}elsif($terza =~ /Jack/){
$c_jack=$c_jack+1;
}elsif($terza =~ /Dieci/){
$c_dieci=$c_dieci+1;
}elsif($terza =~ /Nove/){
$c_nove=$c_nove+1;
}elsif($terza =~ /Otto/){
$c_otto=$c_otto+1;
}elsif($terza =~ /Sette/){
$c_sette=$c_sette+1;
}elsif($terza =~ /Sei/){
$c_sei=$c_sei+1;
}elsif($terza =~ /Cinque/){
$c_cinque=$c_cinque+1;
}elsif($terza =~ /Quattro/){
$c_quattro=$c_quattro+1;
}elsif($terza =~ /Tre/){
$c_tre=$c_tre+1;
}elsif($terza =~ /Due/){
$c_due=$c_due+1;
}
}

sub fk{
if($quarta =~ /Asso/){
$c_assi=$c_assi+1;
}elsif($quarta =~ /Kappa/){
$c_kappa=$c_kappa+1;
}elsif($quarta =~ /Qu./){
$c_q=$c_q+1;
}elsif($quarta =~ /Jack/){
$c_jack=$c_jack+1;
}elsif($quarta =~ /Dieci/){
$c_dieci=$c_dieci+1;
}elsif($quarta =~ /Nove/){
$c_nove=$c_nove+1;
}elsif($quarta =~ /Otto/){
$c_otto=$c_otto+1;
}elsif($quarta =~ /Sette/){
$c_sette=$c_sette+1;
}elsif($quarta =~ /Sei/){
$c_sei=$c_sei+1;
}elsif($quarta =~ /Cinque/){
$c_cinque=$c_cinque+1;
}elsif($quarta =~ /Quattro/){
$c_quattro=$c_quattro+1;
}elsif($quarta =~ /Tre/){
$c_tre=$c_tre+1;
}elsif($quarta =~ /Due/){
$c_due=$c_due+1;
}
}

sub fg{
if($quinta =~ /Asso/){
$c_assi=$c_assi+1;
}elsif($quinta =~ /Kappa/){
$c_kappa=$c_kappa+1;
}elsif($quinta =~ /Qu./){
$c_q=$c_q+1;
}elsif($quinta =~ /Jack/){
$c_jack=$c_jack+1;
}elsif($quinta =~ /Dieci/){
$c_dieci=$c_dieci+1;
}elsif($quinta =~ /Nove/){
$c_nove=$c_nove+1;
}elsif($quinta =~ /Otto/){
$c_otto=$c_otto+1;
}elsif($quinta =~ /Sette/){
$c_sette=$c_sette+1;
}elsif($quinta =~ /Sei/){
$c_sei=$c_sei+1;
}elsif($quinta =~ /Cinque/){
$c_cinque=$c_cinque+1;
}elsif($quinta =~ /Quattro/){
$c_quattro=$c_quattro+1;
}elsif($quinta =~ /Tre/){
$c_tre=$c_tre+1;
}elsif($quinta =~ /Due/){
$c_due=$c_due+1;
}
}
 
indentare il codice no,vero? :lol:

comunque bel programma, anche se 1361 righe mi sembrano tantine...

edit1: la prima riga dovrebbe essere #!/usr/bin/perl
edit2: bisogna aggiungere una parentesi graffa chiusa ( } ) alle fine del file



c'è qualcosa che non va...
Codice: 
oromis92@localhost:~/Scrivania$ perl poker.pl

             #####################################
             #####################################
             #            Video Poker            #
             #                                   #
             #  -List-                           #
             #    Coppia                         #
             #    Doppia                         #
             #    Tris                           #
             #    Scala                          #
             #    Colore                         #
             #    Full                           #
             #    Poker                          #
             #    S.Reale                        #
             #                                   #
             #####################################
Premi invio x iniziare..


                -----------------------
                Le Tue Carte:
                -----------------------
Dieci.D - Due.C - Kappa.P - Nove.Q - Otto.F

 Quante ne vuoi cambiare?
2


 Prima carta da cambiare(1,2,3,4,5):2

 Seconda carta da cambiare(1,2,3,4,5):3
---Ecco le tue carte--
Dieci.D - Cinque.Q - Otto.F - Nove.Q - Otto.F
oromis92@localhost:~/Scrivania$
D cos'è ? XD
e perchè ho due 8 di fiori ?
il computer bara :lol:

oppure
Codice: 
@a = ('Asso.P','Due.P','Tre.P','Quattro.P','Cinque.P','Sei.P','Sette.P','Otto.P','Nove.P','Dieci.P','Jack.P','Qu.P','Kappa.P',
'Asso.Q','Due.Q','Tre.Q','Quattro.Q','Cinque.Q','Sei.Q','Sette.Q','Otto.Q','Nove.Q','Dieci.Q','Jack.Q','Qu.Q','Kappa.Q',
'Asso.F','Due.F','Tre.F','Quattro.F','Cinque.F','Sei.F','Sette.F','Otto.F','Nove.F','Dieci.F','Jack.F','Qu.F','Kappa.F',
'Asso.D','Due.D','Tre.D','Quattro.D','Cinque.D','Sei.D','Sette.D','Otto.D','Nove.D','Dieci.D','Jack.D','Qu.D','Kappa.D','Asso.C',
'Due.C','Tre.C','Quattro.C','Cinque.C','Sei.C','Sette.C','Otto.C','Nove.C','Dieci.C','Jack.C','Qu.C','Kappa.C','inutile');
perchè ci sono cinque semi? (P,Q,F,D,C) mi sembra che la D sia di troppo
 
ce scusate..ero fattissimo quando l'ho fatto..dopo ke ho finito pensavo mancassero i cuori... :asd: poi si in effetti dovrei anche aggiungere un filtro per le carte in modo che non ritornino uguali... :emba:
 
Stato
Discussione chiusa ad ulteriori risposte.

DISCUSSIONI SIMILI

G
Discussione Creare una codifica
  • 0
  • 178
0
178
Sicurezza Informatica
Goclau
A
Domanda Programma che risolve sudoku
  • 13
  • 553
13
553
C / C++
Super Squirrel
D
Guida Il Linguaggio Macchina di x86 e x86-64 (Parte 2)
  • In evidenza
  • 2
  • 984
2
984
Manuali di Informatica e Reti
DispatchCode
D
Guida Calcolare la lunghezza in bytes di una funzione in C/C++ e difficoltà varie
  • 5
  • 630
5
630
C / C++
JunkCoder
A
Domanda aiutatemi a correggere il mio codice c++ per il codice fiscale
  • 5
  • 616
5
616
C / C++
DispatchCode
Top Bottom
Indietro