azzard.pas

azzard.pas

{***** INTESTAZIONE *****}
{***** Autore: Rex Romae *****}
Program Azzard1;
uses crt;

{***** VARIABILI *****}
VAR inizio:string[255];
    risposta,uscita:char;
    scelta,puntata,numero,numero2,I,estratto,estratto2,colore,colores:integer;
    flag,flag2,estratti,estratti2:boolean;
    gratta, vinci, vittoria,quota:longint;

{***** PROCEDURE *****}
Procedure PRESENTA; {PRESENTAZIONE DEL GIOCO}
begin
  clrscr;
  gotoxy(26,1);
  textcolor(green);
  writeln('Benvenuto nel gioco Azzard!');
  gotoxy(27,2);
  textcolor(lightgreen);
  writeln('Il casino'' a casa tua...');
  gotoxy(2,5);
  textcolor(6);
  writeln('Per iniziare a giocare premi un tasto qualsiasi');
  inizio:=readkey;
end;

Procedure SELECT; {SELEZIONE DEL GIOCO}
begin
  writeln;
  textcolor(lightgreen);
  writeln('Per giocare al lotto - Premi "1"');
  writeln('Per giocare al gratta e vinci - Premi "2"');
  writeln('Per giocare alla Roulette - Premi "3"');
  writeln;
  textcolor(yellow);
  write('Scelta ---> ');
  repeat
  readln(scelta);
  until (scelta>=1) and (scelta<=3);
  case scelta of   {MENU' GIOCHI}

   3:begin
    clrscr;
    sound(700); delay(20000);
    sound(900); delay(20000);
    sound(666); delay(20000);
    sound(555); delay(20000);
    sound(444); delay(20000);
    nosound;
    textcolor(lightgreen);
    writeln('Hai scelto il gioco della ROULETTE!!!');
    writeln;
    writeln('La quota per partecipare e'' di 35 $');
    quota:=quota-35;
    writeln('Puoi scegliere un numero da 1 a 36, nero o rosso...');
    writeln('Su quale numero vuoi puntare il tuo denaro?');
    repeat
    readln(numero);
    until (numero<=36) and (numero>0);
    delay(20000);
    writeln;
    writeln('Su quale colore vuoi giocare il numero ',numero,' ? ');
    textcolor(red);
    textbackground(8);
    writeln('1:rosso');
    textbackground(red);
    textcolor(black);
    writeln('0:nero');
    writeln;
    textcolor(yellow);
    textbackground(black);
    write('Scelta --> ');
    repeat
    readln(colore);
    until (colore>=0) and (colore<=1);
    textbackground(black);
    textcolor(lightgreen);
    randomize;
    estratto:=random(35)+1;
    colores:=random(1);
    writeln;
    writeln('La roulette sta girando... ... ...');
    delay(7000);
    textcolor(green);
    writeln('NUMERO USCITO: ',estratto);
    writeln('COLORE USCITO: ',colore);
    textcolor(lightgreen);
    if estratto=numero then flag:=true;
    if colores=colore then flag2:=true;

    if flag and flag2 then
    begin
    vittoria:=(numero*estratto)*2;
    quota:=quota+vittoria;
    textcolor(green);
    writeln('Bravo hai indovinato il numero!');
    writeln('Hai indovinato anche il colore!');
    writeln;
    if quota>=500 then
    begin
    textcolor(green);
    writeln('Il tuo credito attuale e'': ',quota);
    end
    else
    begin
    textcolor(red);
    writeln('Il tuo credito attuale e'': ',quota);
    end
    end;
    if flag then
    begin
    vittoria:=numero*estratto;
    quota:=quota+vittoria;
    textcolor(green);
    writeln('Bravo hai indovinato il numero!');
    textcolor(lightgreen);
    writeln('Peccato non aver indovinato anche il colore...');
    if quota>=500 then
    begin
    textcolor(green);
    writeln('Il tuo credito attuale e'': ',quota);
    end
    else
    begin
    textcolor(red);
    writeln('Il tuo credito attuale e'': ',quota);
    end
    end;
    if flag2 then
    vittoria:=numero*2;
    quota:=quota+50;
    textcolor(lightgreen);
    writeln('Peccato, non hai indovinato il numero...');
    textcolor(green);
    writeln('Consolati, hai indovinato il colore!');
    if quota>=500 then
    begin
    textcolor(green);
    writeln('Il tuo credito attuale e'': ',quota);
    end
    else
    begin
    textcolor(red);
    writeln('Il tuo credito attuale e'': ',quota);
    end;
    end;

    1:begin {LOTTO}
    clrscr;
    sound(300);delay(30000);
    sound(350);delay(30000);
    sound(300);delay(30000);
    sound(350);delay(30000);
    nosound;
    textcolor(lightgreen);
    writeln('Hai scelto il gioco del: Lotto!');
    writeln;
    textcolor(lightgreen);
    writeln('La quota per partecipare a questo gioco ä: 5 $');
    writeln('Premi un testo per iniziare...');
    inizio:=readkey;
    clrscr;
    quota:=quota-5;
    If quota<500 then
    begin
    textcolor(red);
    writeln('Il tuo credito ä: ',quota,' $');
    end;
    writeln;
    textcolor(7);
    writeln('Il gioco sta per iniziare...');
    writeln;
    delay(2000);
    textcolor(lightgreen);
    writeln('Puoi puntare 1 o 2 numeri, scegli');
    textcolor(7);
    readln(puntata);
        case puntata of     {LOTTO 1 NUM}
        1:begin
        clrscr;
        textcolor(lightgreen);
        writeln('Hai deciso di puntare su un solo numero, bene... che il gioco abbia inizio!');
        delay(2000);
        writeln('Scegli il numero sul quale vuoi scommettere, puoi scegliere un numero da 0 a 99');
        readln(numero);
        if numero>99 then
        begin
        textcolor(100);
        writeln('Spiacente puoi giocare i numeri fino a 99.');
        end
        else
        begin
        randomize;
        estratto:=random(99);
        writeln('Il numero estratto ä il numero...');
        delay(2000);
        writeln(estratto);
        if estratto=numero then
        begin
        writeln('Complimenti hai indovinato!!! Hai vinto 50 $');
        quota:=quota+50;
        if quota>500 then
        begin
        textcolor(green);
        writeln('Il tuo credito e'': ',quota,' $');
        end
        else
        begin
        textcolor(red);
        writeln('Il tuo credito e'': ',quota,' $');
        writeln;
        end;
        end
        else
        begin
        sound(500);delay(40000);
        sound(400);delay(45000);
        sound(300);delay(50000);
        sound(200);delay(55000);
        nosound;
        writeln;
        writeln;
        writeln;
        textcolor(9);
        writeln('Spiacente non hai indovinato... riprova e sarai piu'' fortunato.');
        writeln;
        end;
      end;
    end;

        2:begin           {LOTTO 2 NUM}
        clrscr;
        randomize;
        textcolor(lightgreen);
        writeln('Scegli i numeri sui quali vuoi scommettere, puoi scegliere due numeri da 0 a 99');
        readln(numero,numero2);
        if numero>99 then
        begin
        textcolor(100);
        writeln('Spiacente il primo numero e'' maggiore di 99.');
        end;
        if numero2>99 then
        begin
        textcolor(100);
        writeln('Spiacente il secondo numero e'' maggiore di 99.');
        end
        else
        begin
        estratto:=random(99);
        estratto2:=random(98)+1;
        writeln('I numeri estratti sono ',estratto,' e ',estratto2);
        if estratto=numero then estratti:=true;
        if estratto2=numero2 then estratti2:=true;
        if estratto=numero2 then estratti:=true;
        if estratto2=numero then estratti2:=true;
        if estratti and estratti2 then
        begin
        textcolor(18);
        writeln('Complimenti hai indovinato due numeri!!! Hai vinto 100 $');
        quota:=quota+100;
        if quota>500 then
        begin
        textcolor(green);
        writeln('Il tuo credito e'': ',quota,' $');
        end
        else
        begin
        textcolor(red);
        writeln('Il tuo credito e'': ',quota,' $');
        end;
        end
        else
        if estratti2 and estratti then
        begin
        textcolor(18);
        writeln('Complimenti hai indovinato numeri!!! Hai vinto 100 $');
        quota:=quota+100;
        if quota>500 then
        begin
        textcolor(green);
        writeln('Il tuo credito e'': ',quota,' $');
        end
        else
        begin
        textcolor(red);
        writeln('Il tuo credito e'': ',quota,' $');
        end;
        end
        else
        if estratti then
        begin
        textcolor(26);
        writeln('Complimenti hai indovinato il primo numero!!! Hai vinto 50 $');
        quota:=quota+50;
        if quota>500 then
        begin
        textcolor(green);
        writeln('Il tuo credito e'': ',quota,' $');
        end
        else
        begin
        textcolor(red);
        writeln('Il tuo credito e'': ',quota,' $');
        writeln;
        end;
        end
        else
        if estratti2 then
        begin
        textcolor(26);
        writeln('Complimenti hai indovinato il secondo numero!!! Hai vinto 50 $');
        quota:=quota+50;
        if quota>500 then
        begin
        textcolor(green);
        writeln('Il tuo credito e'': ',quota,' $');
        end
        else
        begin
        textcolor(red);
        writeln('Il tuo credito e'': ',quota,' $');
        end;
        end
        else
        begin
        sound(500);delay(40000);
        sound(400);delay(45000);
        sound(300);delay(50000);
        sound(200);delay(55000);
        nosound;
        writeln;
        writeln;
        writeln;
        textcolor(9);
        writeln('Spiacente non hai indovinato... riprova e sarai piu'' fortunato.');
        end;
        end
      end;
    end;
  end;

    2:begin
    clrscr;
    sound(300);delay(1500);
    sound(500);delay(1500);
    sound(500);delay(1500);
    sound(300);delay(1500);
    sound(300);delay(1500);
    sound(500);delay(1400);
    nosound;
    textcolor(lightgreen);
    writeln('Scegli un gratta e vinci:');
    gotoxy(6,3);
    writeln('1: 20 $');
    gotoxy(6,4);
    writeln('2: 50 $');
    gotoxy(6,5);
    writeln('3: 99 $');
    gotoxy(6,6);
    writeln('4: 250 $');
    gotoxy(6,7);
    writeln('5: 250 $');
    gotoxy(6,8);
    textcolor(red);
    writeln('6: 1.000.000 $');
    readln(scelta);
    case scelta of

       1:begin
       clrscr;
       randomize;
       gratta:=random(3)+1;
       vinci:=random(3)+1;
       textcolor(lightgreen);
       writeln('Hai scelto il gratta e vinci da 20 $...');
       quota:=quota-20;
       writeln;
       writeln('Il gioco sta per cominciare...');
       delay(3000);
       textcolor(lightgreen);
       writeln('Gratta il tuo gratta e vinci premendo un tasto qualsiasi...');
       inizio:=readkey;
       delay(1500);
       writeln(gratta);
       writeln;
       writeln('Scopri se hai vinto...');
       inizio:=readkey;
       delay(1500);
       writeln(vinci);
       if vinci=gratta then
       begin
       vittoria:=(vinci)*20;
       quota:=quota+vittoria;
       textcolor(green);
       writeln('Complimenti hai vinto ',vittoria,' $!!!');
       writeln;
       writeln('Il tuo credito attuale e'' di: ',quota,' $');
       readln;
       end
       else
       begin
       writeln;
       sound(500);delay(40000);
       sound(400);delay(45000);
       sound(300);delay(50000);
       sound(200);delay(55000);
       nosound;
       textcolor(red);
       writeln('Hai perso...');
       writeln;
       writeln('Il tuo credito attuale e'' di: ',quota,' $');
       readln
       end;
    end;

   2:begin
   clrscr;
   randomize;
   gratta:=random(5)+1;
   vinci:=random(5)+1;
   textcolor(lightgreen);
   writeln('Hai scelto il gratta e vinci da 50 $...');
   quota:=quota-50;
   writeln;
   writeln('Il gioco sta per cominciare...');
   delay(3000);
   textcolor(lightgreen);
   writeln('Gratta il tuo gratta e vinci premendo un tasto qualsiasi...');
   inizio:=readkey;
   delay(1500);
   writeln(gratta);
   writeln;
   writeln('Scopri se hai vinto...');
   inizio:=readkey;
   delay(1500);
   writeln(vinci);
   if vinci=gratta then
   begin
   vittoria:=(vinci)*50;
   quota:=quota+vittoria;
   textcolor(green);
   writeln('Complimenti hai vinto ',vittoria,' $!!!');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   readln;
   end
   else
   begin
   sound(500);delay(1500);
   sound(400);delay(1500);
   sound(300);delay(1500);
   sound(200);delay(1500);
   nosound;
   writeln;
   textcolor(red);
   writeln('Hai perso...');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   readln
   end;
 end;

   3:begin
   clrscr;
   randomize;
   gratta:=random(7)+1;
   vinci:=random(7)+1;
   textcolor(lightgreen);
   writeln('Hai scelto il gratta e vinci da 99 $...');
   quota:=quota-99;
   writeln;
   writeln('Il gioco sta per cominciare...');
   delay(3000);
   textcolor(lightgreen);
   writeln('Gratta il tuo gratta e vinci premendo un tasto qualsiasi...');
   inizio:=readkey;
   delay(1500);
   writeln(gratta);
   writeln;
   writeln('Scopri se hai vinto...');
   inizio:=readkey;
   delay(1500);
   writeln(vinci);
   if vinci=gratta then
   begin
   vittoria:=(vinci)*99;
   quota:=quota+vittoria;
   textcolor(green);
   writeln('Complimenti hai vinto ',vittoria,' $!!!');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   readln;
   end
   else
   begin
   sound(500);delay(40000);
   sound(400);delay(45000);
   sound(300);delay(50000);
   sound(200);delay(55000);
   nosound;
   writeln;
   textcolor(red);
   writeln('Hai perso...');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   readln
   end;
 end;

   4:begin
   clrscr;
   randomize;
   gratta:=random(9)+1;
   vinci:=random(9)+1;
   textcolor(lightgreen);
   writeln('Hai scelto il gratta e vinci da 250 $...');
   quota:=quota-250;
   writeln;
   writeln('Il gioco sta per cominciare...');
   delay(3000);
   textcolor(lightgreen);
   writeln('Gratta il tuo gratta e vinci premendo un tasto qualsiasi...');
   inizio:=readkey;
   delay(1500);
   writeln(gratta);
   writeln;
   writeln('Scopri se hai vinto...');
   inizio:=readkey;
   delay(1500);
   writeln(vinci);
   if vinci=gratta then
   begin
   vittoria:=(vinci)*250;
   quota:=quota+vittoria;
   textcolor(green);
   writeln('Complimenti hai vinto ',vittoria,' $!!!');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   readln;
   end
   else
   begin
   sound(500);delay(40000);
   sound(400);delay(45000);
   sound(300);delay(50000);
   sound(200);delay(55000);
   nosound;
   writeln;
   textcolor(red);
   writeln('Hai perso...');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   textcolor(lightgreen);
   readln
   end;
 end;

   5:begin
   clrscr;
   randomize;
   gratta:=random(11)+1;
   vinci:=random(11)+1;
   textcolor(lightgreen);
   writeln('Hai scelto il gratta e vinci da 500 $...');
   quota:=quota-500;
   writeln;
   writeln('Il gioco sta per cominciare...');
   delay(3000);
   textcolor(lightgreen);
   writeln('Gratta il tuo gratta e vinci premendo un tasto qualsiasi...');
   inizio:=readkey;
   delay(1500);
   writeln(gratta);
   writeln;
   writeln('Scopri se hai vinto...');
   inizio:=readkey;
   delay(1500);
   writeln(vinci);
   if vinci=gratta then
   begin
   vittoria:=(vinci)*500;
   quota:=quota+vittoria;
   textcolor(green);
   writeln('Complimenti hai vinto ',vittoria,' $!!!');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   readln;
   end
   else
   begin
   sound(500);delay(40000);
   sound(400);delay(45000);
   sound(300);delay(50000);
   sound(200);delay(55000);
   nosound;
   writeln;
   textcolor(red);
   writeln('Hai perso...');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   readln
   end;
 end;

   6:begin
   clrscr;
   randomize;
   gratta:=random(5000)+1;
   vinci:=random(5000)+1;
   textcolor(lightgreen);
   writeln('Hai scelto il gratta e vinci da 1.000.000 $...');
   quota:=quota-1000000;
   writeln;
   writeln('Il gioco sta per cominciare...');
   delay(3000);
   textcolor(lightgreen);
   writeln('Gratta il tuo gratta e vinci premendo un tasto qualsiasi...');
   inizio:=readkey;
   delay(1500);
   writeln(gratta);
   writeln;
   writeln('Scopri se hai vinto...');
   inizio:=readkey;
   delay(1500);
   writeln(vinci);
   if vinci=gratta then
   begin
   vittoria:=(vinci)*1000000;
   quota:=quota+vittoria;
   textcolor(green);
   writeln('Complimenti hai vinto ',vittoria,' $!!!');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   readln;
   end
   else
   begin
   sound(500);delay(1500);
   sound(400);delay(2000);
   sound(300);delay(2000);
   sound(200);delay(2500);
   nosound;
   writeln;
   textcolor(red);
   writeln('Hai perso...');
   writeln('Il tuo credito attuale e'' di: ',quota,' $');
   readln
     end;
     end;

   {3:begin
   clrscr;
   quota:=500;
   sound(700); delay(2000);
   sound(900); delay(2000);
   sound(666); delay(2000);
   sound(555); delay(2000);
   sound(444); delay(2000);
   nosound;
   textcolor(lightgreen);
   writeln('Hai scelto il gioco della ROULETTE!!!');
   writeln;
   writeln('Puoi scegliere un numero da 1 a 36, nero o rosso...');
   writeln('Su quale numero vuoi puntare il tuo denaro?');
   repeat
   readln(numero);
   until (numero<=36) and (numero>0);
   delay(2000);
   writeln;
   writeln('Su quale colore vuoi giocare il numero ',numero,' ? ');
   textcolor(red);
   textbackground(8);
   writeln('1:rosso');
   textbackground(red);
   textcolor(black);
   writeln('0:nero');
   writeln;
   textcolor(yellow);
   textbackground(black);
   write('Scelta --> ');
   repeat
   readln(colore);
   until (colore>=0) and (colore<=1);
   textbackground(black);
   textcolor(lightgreen);
   randomize;
   estratto:=random(35)+1;
   colores:=random(1);
   writeln;
   writeln('La roulette sta girando... ... ...');
   delay(7000);
   textcolor(green);
   writeln('NUMERO USCITO: ',estratto);
   writeln('COLORE USCITO: ',colore);
   textcolor(lightgreen);
   if estratto=numero then flag:=true;
   if colores=colore then flag2:=true;

   if flag and flag2 then
   begin
   vittoria:=(numero*estratto)*2;
   quota:=quota+vittoria;
   textcolor(green);
   writeln('Bravo hai indovinato il numero!');
   writeln('Hai indovinato anche il colore!');
   writeln;
   if quota>=500 then
   begin
   textcolor(green);
   writeln('Il tuo credito attuale e'': ',quota);
   end
   else
   begin
   textcolor(red);
   writeln('Il tuo credito attuale e'': ',quota);
   end
   end;
   if flag then
   begin
   vittoria:=numero*estratto;
   quota:=quota+vittoria;
   textcolor(green);
   writeln('Bravo hai indovinato il numero!');
   textcolor(lightgreen);
   writeln('Peccato non aver indovinato anche il colore...');
   if quota>=500 then
   begin
   textcolor(green);
   writeln('Il tuo credito attuale e'': ',quota);
   end
   else
   begin
   textcolor(red);
   writeln('Il tuo credito attuale e'': ',quota);
   end
   end;
   if flag2 then
   vittoria:=numero*2;
   quota:=quota+50;
   textcolor(lightgreen);
   writeln('Peccato, non hai indovinato il numero...');
   textcolor(green);
   writeln('Consolati, hai indovinato il colore!');
   if quota>=500 then
   begin
   textcolor(green);
   writeln('Il tuo credito attuale e'': ',quota);
   end
   else
   begin
   textcolor(red);
   writeln('Il tuo credito attuale e'': ',quota);
   READLN;
   end; }

     end;
    end;
   end;
  end;


Procedure EXIT; {USCITA}
begin
   writeln;
   textcolor(lightgreen);
   writeln('Vuoi uscire? s/n');
   textcolor(yellow);
   writeln('Scelta --->  ');
   readln(uscita);
end;

BEGIN {MAIN PROGRAM}
  clrscr;
  uscita:='n';

  quota:=500;
  repeat
  PRESENTA;
  SELECT;
  EXIT;
  until uscita='s';
end.