[GIOCO] Roulette v2, fixati bug, aggiunte cs cool

« Older   Newer »
  Share  
I.Ren
CAT_IMG Posted on 7/5/2008, 13:56     +1   -1




Ecco qui la seconda versione della mia roulette!

NUOVE AGGIUNTE:

- Aggiunto se puntare sul rosso o sul nero
- Aggiunto che se viene fuori zero non succede niente
- Aggiunti cheat (li trovate nello spoiler alla fine)
- Risolto bug che nelle 'input' potevi inserire lettere
______

il codice è il seguente ma nello zip allegato trovere anche l'eseguibile.

CODICE
#include <GUIConstants.au3>
#include <Date.au3>
$gui = GUICreate('Roulette - Menu',155,163)
$nuovaPartita = GUICtrlCreateButton('Inzia una nuova partita',2,2,120,20)
$carica1 = GUICtrlCreateButton('Carica la partita 1',2,30,120,20)
$d1 = GUICtrlCreateButton("Des",125,30,30,20)
If FileExists('s1.sav') Then
GUICtrlSetState($carica1,$GUI_ENABLE)
GUICtrlSetState($d1,$GUI_ENABLE)
Else
GUICtrlSetState($d1,$GUI_DISABLE)
GUICtrlSetState($carica1,$GUI_DISABLE)
EndIf
$carica2 = GUICtrlCreateButton('Carica la partita 2',2,50,120,20)
$d2 = GUICtrlCreateButton("Des",125,50,30,20)
If FileExists('s2.sav') Then
GUICtrlSetState($D2,$GUI_ENABLE)
GUICtrlSetState($CARICA2,$GUI_ENABLE)
Else
GUICtrlSetState($D2,$GUI_DISABLE)
GUICtrlSetState($CARICA2,$GUI_DISABLE)
EndIf
$carica3 = GUICtrlCreateButton('Carica la partita 3',2,70,120,20)
$d3 = GUICtrlCreateButton("Des",125,70,30,20)
If FileExists('s3.sav') Then
GUICtrlSetState($D3,$GUI_ENABLE)
GUICtrlSetState($CARICA3,$GUI_ENABLE)
Else
GUICtrlSetState($D3,$GUI_DISABLE)
GUICtrlSetState($CARICA3,$GUI_DISABLE)
EndIf
$del1 = GUICtrlCreateButton('Elimina la partita 1',2,100,120,20)
If FileExists('s1.sav') Then
GUICtrlSetState(-1,$GUI_ENABLE)
Else
GUICtrlSetState(-1,$GUI_DISABLE)
EndIf
$del2 = GUICtrlCreateButton('Elimina la partita 2',2,120,120,20)
If FileExists('s2.sav') Then
GUICtrlSetState(-1,$GUI_ENABLE)
Else
GUICtrlSetState(-1,$GUI_DISABLE)
EndIf
$del3 = GUICtrlCreateButton('Elimina la partita 3',2,140,120,20)
If FileExists('s3.sav') Then
GUICtrlSetState(-1,$GUI_ENABLE)
Else
GUICtrlSetState(-1,$GUI_DISABLE)
EndIf

GUISetState ( )

While 1
Switch GUIGetMsg ()
Case $d3
MsgBox(0,"Descrizione","Soldi: "&descrizione(3,0)&@CR&"Nome: "&descrizione(3,1)&@CR&"Ora del salvataggio: "&descrizione(3,2)&@CR&"Il salvataggio è stato fatto nel: "&descrizione(3,3))
Case $d2
MsgBox(0,"Descrizione","Soldi: "&descrizione(2,0)&@CR&"Nome: "&descrizione(2,1)&@CR&"Ora del salvataggio: "&descrizione(2,2)&@CR&"Il salvataggio è stato fatto nel: "&descrizione(2,3))
Case $d1
MsgBox(0,"Descrizione","Soldi: "&descrizione(1,0)&@CR&"Nome: "&descrizione(1,1)&@CR&"Ora del salvataggio: "&descrizione(1,2)&@CR&"Il salvataggio è stato fatto nel: "&descrizione(1,3))
Case $del3
FileDelete('s3.sav')
GUICtrlSetState($del3,$GUI_DISABLE)
GUICtrlSetState($carica3,$GUI_DISABLE)
GUICtrlSetState($d3,$GUI_DISABLE)
Case $del2
FileDelete('s2.sav')
GUICtrlSetState($del2,$GUI_DISABLE)
GUICtrlSetState($carica2,$GUI_DISABLE)
GUICtrlSetState($d2,$GUI_DISABLE)
Case $del1
FileDelete('s1.sav')
GUICtrlSetState($del1,$GUI_DISABLE)
GUICtrlSetState($carica1,$GUI_DISABLE)
GUICtrlSetState($d1,$GUI_DISABLE)
Case $carica3
If FileExists('s3.sav') Then
gioco3()
Else
MsgBox(0x10,'Errore!','Non è stato trovato il file di salvataggio!')
EndIf
Case $carica2
If FileExists('s2.sav') Then
gioco2()
Else
MsgBox(0x10,'Errore!','Non è stato trovato il file di salvataggio!')
EndIf
Case $carica1
If FileExists('s1.sav') Then
gioco1()
Else
MsgBox(0x10,'Errore!','Non è stato trovato il file di salvataggio!')
EndIf
Case $nuovaPartita
$nometipo = InputBox('Nome','Inserisci il nome')
IniWrite('op.ini','nome','nome',$nometipo)
gioco()
GUIDelete($gui)
ExitLoop
Case -3
Exit
EndSwitch
WEnd

Func gioco()
Global $soldiTot = 100, $puntata = 1, $pc = 0, $pc2 = 0, $min = 1, $max = 100, $nome = IniRead('op.ini','nome','nome','giocatore'), $r = 0, $n = 0, $f = 0
$gui = GUICreate('roulette',300,300)
GUICtrlCreateLabel('Budget totale:',2,2)
GUICtrlSetFont(-1,8,5000)
$Lsoldi = GUICtrlCreateLabel($soldiTot,75,2,150,20)
GUICtrlSetFont(-1,8,5000)
GUICtrlSetColor(-1,0xFF0000)
;~ $gira = GUICtrlCreateButton('Gira',2,70,80,20)
GUICtrlCreateGroup('Puntate:',2,13,150,180)
GUICtrlSetFont(-1,8,5000)
$p1 = GUICtrlCreateRadio('Punta 1 €',2,25)
GUICtrlSetFont(-1,8,5000)
$p5 = GUICtrlCreateRadio('Punta 5 €',2,45)
GUICtrlSetFont(-1,8,5000)
$p10 = GUICtrlCreateRadio('Punta 10 €',2,65)
GUICtrlSetFont(-1,8,5000)
$p20 = GUICtrlCreateRadio('Punta 20 €',2,85)
GUICtrlSetFont(-1,8,5000)
$p30 = GUICtrlCreateRadio('Punta 30 €',2,105)
GUICtrlSetFont(-1,8,5000)
$p40 = GUICtrlCreateRadio('Punta 40 €',2,125)
GUICtrlSetFont(-1,8,5000)
$p50 = GUICtrlCreateRadio('Punta 50 €',2,145)
GUICtrlSetFont(-1,8,5000)
$pAl = GUICtrlCreateRadio('Altro',2,165)
GUICtrlSetFont(-1,8,5000)
$ali = GUICtrlCreateInput('',43,166,100,20,$ES_NUMBER)
GUICtrlSetState($ali,$GUI_DISABLE)
GUICtrlSetFont(-1,8,5000)
$rosso = GUICtrlCreateCheckbox('Rosso',100,25)
GUICtrlSetFont(-1,8,5000)
$nero = GUICtrlCreateCheckbox('Nero',100,45)
GUICtrlSetFont(-1,8,5000)
$gira = GUICtrlCreateButton('Gira!',210,2,80,20)
GUICtrlSetFont(-1,8,5000)
$g2 = GUICtrlCreateGroup('Inserisci il numero (da 1, a 100)',2,210,175,50)
GUICtrlSetFont(-1,8,5000)
$numero = GUICtrlCreateInput('',5,230,170,20,$ES_NUMBER)
GUICtrlSetFont(-1,8,5000)
$cheat = GUICtrlCreateButton('Cheat',2,265,40,15)
GUICtrlSetFont(-1,8,5000)
$s1 = GUICtrlCreateButton('Salva slot 1',237,280)
GUICtrlSetFont(-1,8,5000)
$s2 = GUICtrlCreateButton('Salva slot 2',150,280)
GUICtrlSetFont(-1,8,5000)
$s3 = GUICtrlCreateButton('Salva slot 3',50,280)
GUICtrlSetFont(-1,8,5000)
;grafica ()
GUISetState ( )

While 1
       Global $numeroRandom = Random($min,$max,1)
       Global $a = Random(1,2,1)
       Switch GUIGetMsg ()
Case $cheat
$cb = InputBox('Inserisci','Inserisci il cheat','sono un lamerone!')
Switch $cb
Case 'soldi soldi soldi!'
$soldiTot = $soldiTot + 1000
GUICtrlSetData($lsoldi,$soldiTot)
Case '0 soldi finito off'
$f = 110
EndSwitch
Case $nero
$n = 0
$r = 1
Case $rosso
$r = 1
$n = 0
Case $s3
$nome3 = IniRead('op.ini','nome','nome','giocatore')
IniWrite('s3.sav','cose','soldi',$soldiTot)
IniWrite('s3.sav','cose','nome',$nome3)
IniWrite('s3.sav','date','ora',_nowtime())
IniWrite('s3.sav','date','data',_NowDate())
Case $s2
$nome2 = IniRead('op.ini','nome','nome','giocatore')
IniWrite('s2.sav','cose','soldi',$soldiTot)
IniWrite('s2.sav','cose','nome',$nome2)
IniWrite('s2.sav','date','ora',_nowtime())
IniWrite('s2.sav','date','data',_NowDate())
Case $s1
IniWrite('s1.sav','cose','soldi',$soldiTot)
IniWrite('s1.sav','cose','nome',$nome)
IniWrite('s1.sav','date','ora',_nowtime())
IniWrite('s1.sav','date','data',_NowDate())
Case $gira
If GUICtrlRead($numero) <> '' Then
If $pc <> 0 And $pc2 <> 1 Then
       If $numeroRandom = 0 Then
               MsgBox(0,'Nullo','è venuto fuori zero: non hai nè perso nè vinto niente')
       Else
       If $a = 1 Then ;rosso
       If GUICtrlRead($numero) = $numeroRandom Then
               MsgBox(0,'Giusto!','Hai fatto giusto con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai vinto '&$puntata&' €!'&@CRLF&@CRLF&'la pallina è finita sul nero!')
               $soldiTot = $soldiTot + $puntata
               GUICtrlSetData($lsoldi,$soldiTot)
       Else
               MsgBox(0,'Sbagliato!','Hai sbagliato con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai perso '&$puntata&' €!'&@CRLF&@CRLF&'la pallina è finita sul rosso!')
               $soldiTot = $soldiTot - $puntata
               GUICtrlSetData($lsoldi,$soldiTot)
       EndIf
       EndIf
EndIf
EndIf
Else
MsgBox(0x10,'Errore','Inserisci un numero!')
EndIf
If GUICtrlRead($numero) <> '' Then
If $pc2 = 1 Then
       If guictrlread($numero) = $numeroRandom Then
               MsgBox(0,'Giusto!','Hai fatto giusto con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai vinto '&GUICtrlRead($ali)&' €!')
               $soldiTot = $soldiTot + GUICtrlRead($ali)
               GUICtrlSetData($lsoldi,$soldiTot)
       Else
               MsgBox(0,'Sbagliato!','Hai sbagliato con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai perso '&GUICtrlRead($ali)&' €!')
               $soldiTot = $soldiTot - GUICtrlRead($ali)
               GUICtrlSetData($lsoldi,$soldiTot)
       EndIf
EndIf
Else
MsgBox(0x10,'Errore','Inserisci un numero!')
EndIf
Case $pal
       $pc2 = 1        
       GUICtrlSetState($ali,$GUI_ENABLE)
Case $p50
       $pc = 1
       $puntata = 50
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p40
       $pc = 1
       $puntata = 40
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p30
       $pc = 1
       $puntata = 30
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p20
       $pc = 1
       $puntata = 20
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p10
       $pc = 1
       $puntata = 10
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p5
       $pc = 1
       $puntata = 5
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p1
       $pc = 1
       $puntata = 1
       GUICtrlSetState($ali,$GUI_DISABLE)
       Case -3 ;GUI_EVENT_CLOSE
       Exit
EndSwitch
If $f > 0 Then
;nada!;
Else
If GUICtrlRead($Lsoldi) < $f Or GUICtrlRead($LSoldi) = $f Then
       $domanda = MsgBox(64,'Fine','La partita è finita! Hai perso tutti i tuoi soldi!')
       Exit
EndIf
EndIf
If GUICtrlRead($numero) > 100 Then
       GUICtrlSetData($numero,100)
       TrayTip('Errore!','Si può puntare un numero fino al massimo di 100',1)
EndIf
If GUICtrlRead($ali) > $soldiTot Then
       GUICtrlSetData($ali,$soldiTot)
       TrayTip('Errore!','Non puoi puntare più dei tuoi soldi totali',1)
EndIf
WEnd
EndFunc

Func gioco1()
Global $soldiTot = IniRead('s1.sav','cose','soldi',100), $puntata = 1, $pc = 0, $pc2 = 0, $min = 1, $max = 100, $nome = IniRead('s1.sav','nome','nome','giocatore'), $r = 0, $n = 0, $f = 0
$gui = GUICreate('roulette',300,300)
GUICtrlCreateLabel('Budget totale:',2,2)
GUICtrlSetFont(-1,8,5000)
$Lsoldi = GUICtrlCreateLabel($soldiTot,75,2,150,20)
GUICtrlSetFont(-1,8,5000)
GUICtrlSetColor(-1,0xFF0000)
;~ $gira = GUICtrlCreateButton('Gira',2,70,80,20)
GUICtrlCreateGroup('Puntate:',2,13,150,180)
GUICtrlSetFont(-1,8,5000)
$p1 = GUICtrlCreateRadio('Punta 1 €',2,25)
GUICtrlSetFont(-1,8,5000)
$p5 = GUICtrlCreateRadio('Punta 5 €',2,45)
GUICtrlSetFont(-1,8,5000)
$p10 = GUICtrlCreateRadio('Punta 10 €',2,65)
GUICtrlSetFont(-1,8,5000)
$p20 = GUICtrlCreateRadio('Punta 20 €',2,85)
GUICtrlSetFont(-1,8,5000)
$p30 = GUICtrlCreateRadio('Punta 30 €',2,105)
GUICtrlSetFont(-1,8,5000)
$p40 = GUICtrlCreateRadio('Punta 40 €',2,125)
GUICtrlSetFont(-1,8,5000)
$p50 = GUICtrlCreateRadio('Punta 50 €',2,145)
GUICtrlSetFont(-1,8,5000)
$pAl = GUICtrlCreateRadio('Altro',2,165)
GUICtrlSetFont(-1,8,5000)
$ali = GUICtrlCreateInput('',43,166,100,20,$ES_NUMBER)
GUICtrlSetState($ali,$GUI_DISABLE)
GUICtrlSetFont(-1,8,5000)
$rosso = GUICtrlCreateCheckbox('Rosso',100,25)
GUICtrlSetFont(-1,8,5000)
$nero = GUICtrlCreateCheckbox('Nero',100,45)
GUICtrlSetFont(-1,8,5000)
$gira = GUICtrlCreateButton('Gira!',210,2,80,20)
GUICtrlSetFont(-1,8,5000)
$g2 = GUICtrlCreateGroup('Inserisci il numero (da 1, a 100)',2,210,175,50)
GUICtrlSetFont(-1,8,5000)
$numero = GUICtrlCreateInput('',5,230,170,20,$ES_NUMBER)
GUICtrlSetFont(-1,8,5000)
$cheat = GUICtrlCreateButton('Cheat',2,265,40,15)
GUICtrlSetFont(-1,8,5000)
$s1 = GUICtrlCreateButton('Salva slot 1',237,280)
GUICtrlSetFont(-1,8,5000)
$s2 = GUICtrlCreateButton('Salva slot 2',150,280)
GUICtrlSetFont(-1,8,5000)
$s3 = GUICtrlCreateButton('Salva slot 3',50,280)
GUICtrlSetFont(-1,8,5000)

;grafica ()
GUISetState ( )

While 1
       Global $numeroRandom = Random($min,$max,1)
       Global $a = Random(1,2,1)
       Switch GUIGetMsg ()
Case $rosso
$r = 1
$n = 0
Case $nero
$n = 1
$r = 0
Case $cheat
$cb = InputBox('Inserisci','Inserisci il cheat','sono un lamerone!')
Switch $cb
Case 'soldi soldi soldi!'
$soldiTot = 1000
GUICtrlSetData($lsoldi,$soldiTot)
Case '0 soldi finito off'
$f = 110
EndSwitch
Case $s3
$nome3 = IniRead('op.ini','nome','nome','giocatore')
IniWrite('s3.sav','cose','soldi',$soldiTot)
IniWrite('s3.sav','cose','nome',$nome3)
IniWrite('s3.sav','date','ora',_nowtime())
IniWrite('s3.sav','date','data',_NowDate())
Case $s2
$nome1 = IniRead('op.ini','nome','nome','giocatore')
IniWrite('s2.sav','cose','soldi',$soldiTot)
IniWrite('s2.sav','cose','nome',$nome2)
IniWrite('s2.sav','date','ora',_nowtime())
IniWrite('s2.sav','date','data',_NowDate())
Case $s1
IniWrite('s1.sav','cose','soldi',$soldiTot)
IniWrite('s1.sav','cose','nome',$nome)
IniWrite('s1.sav','date','ora',_nowtime())
IniWrite('s1.sav','date','data',_NowDate())
Case $gira
If GUICtrlRead($numero) <> '' Then
If $pc <> 0 And $pc2 <> 1 Then
       If $numeroRandom = 0 Then
               MsgBox(0,'Nullo','è venuto fuori zero: non hai nè perso nè vinto niente')
       Else
       If $a = 1 Then ;rosso
       If GUICtrlRead($numero) = $numeroRandom Then
               MsgBox(0,'Giusto!','Hai fatto giusto con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai vinto '&$puntata&' €!'&@CRLF&@CRLF&'la pallina è finita sul nero!')
               $soldiTot = $soldiTot + $puntata
               GUICtrlSetData($lsoldi,$soldiTot)
       Else
               MsgBox(0,'Sbagliato!','Hai sbagliato con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai perso '&$puntata&' €!'&@CRLF&@CRLF&'la pallina è finita sul rosso!')
               $soldiTot = $soldiTot - $puntata
               GUICtrlSetData($lsoldi,$soldiTot)
       EndIf
       EndIf
EndIf
EndIf
Else
MsgBox(0x10,'Errore','Inserisci un numero!')
EndIf
If GUICtrlRead($numero) <> '' Then
If $pc2 = 1 Then
       If guictrlread($numero) = $numeroRandom Then
               MsgBox(0,'Giusto!','Hai fatto giusto con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai vinto '&GUICtrlRead($ali)&' €!')
               $soldiTot = $soldiTot + GUICtrlRead($ali)
               GUICtrlSetData($lsoldi,$soldiTot)
       Else
               MsgBox(0,'Sbagliato!','Hai sbagliato con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai perso '&GUICtrlRead($ali)&' €!')
               $soldiTot = $soldiTot - GUICtrlRead($ali)
               GUICtrlSetData($lsoldi,$soldiTot)
       EndIf
EndIf
Else
MsgBox(0x10,'Errore','Inserisci un numero!')
EndIf
Case $pal
       $pc2 = 1        
       GUICtrlSetState($ali,$GUI_ENABLE)
Case $p50
       $pc = 1
       $puntata = 50
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p40
       $pc = 1
       $puntata = 40
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p30
       $pc = 1
       $puntata = 30
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p20
       $pc = 1
       $puntata = 20
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p10
       $pc = 1
       $puntata = 10
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p5
       $pc = 1
       $puntata = 5
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p1
       $pc = 1
       $puntata = 1
       GUICtrlSetState($ali,$GUI_DISABLE)
       Case -3 ;GUI_EVENT_CLOSE
       Exit
EndSwitch
If $f > 0 Then
;nada!;
Else
If GUICtrlRead($Lsoldi) < $f Or GUICtrlRead($LSoldi) = $f Then
       $domanda = MsgBox(64,'Fine','La partita è finita! Hai perso tutti i tuoi soldi!')
       Exit
EndIf
EndIf
If GUICtrlRead($numero) > 100 Then
       GUICtrlSetData($numero,100)
       TrayTip('Errore!','Si può puntare un numero fino al massimo di 100',1)
EndIf
If GUICtrlRead($ali) > $soldiTot Then
       GUICtrlSetData($ali,$soldiTot)
       TrayTip('Errore!','Non puoi puntare più dei tuoi soldi totali',1)
EndIf
WEnd
EndFunc

Func gioco2()
Global $soldiTot = IniRead('s2.sav','cose','soldi',100), $puntata = 1, $pc = 0, $pc2 = 0, $min = 1, $max = 100, $nome = IniRead('s2.sav','nome','nome','giocatore'), $r = 0, $n = 0, $f = 0
$gui = GUICreate('roulette',300,300)
GUICtrlCreateLabel('Budget totale:',2,2)
GUICtrlSetFont(-1,8,5000)
$Lsoldi = GUICtrlCreateLabel($soldiTot,75,2,150,20)
GUICtrlSetFont(-1,8,5000)
GUICtrlSetColor(-1,0xFF0000)
;~ $gira = GUICtrlCreateButton('Gira',2,70,80,20)
GUICtrlCreateGroup('Puntate:',2,13,150,180)
GUICtrlSetFont(-1,8,5000)
$p1 = GUICtrlCreateRadio('Punta 1 €',2,25)
GUICtrlSetFont(-1,8,5000)
$p5 = GUICtrlCreateRadio('Punta 5 €',2,45)
GUICtrlSetFont(-1,8,5000)
$p10 = GUICtrlCreateRadio('Punta 10 €',2,65)
GUICtrlSetFont(-1,8,5000)
$p20 = GUICtrlCreateRadio('Punta 20 €',2,85)
GUICtrlSetFont(-1,8,5000)
$p30 = GUICtrlCreateRadio('Punta 30 €',2,105)
GUICtrlSetFont(-1,8,5000)
$p40 = GUICtrlCreateRadio('Punta 40 €',2,125)
GUICtrlSetFont(-1,8,5000)
$p50 = GUICtrlCreateRadio('Punta 50 €',2,145)
GUICtrlSetFont(-1,8,5000)
$pAl = GUICtrlCreateRadio('Altro',2,165)
GUICtrlSetFont(-1,8,5000)
$ali = GUICtrlCreateInput('',43,166,100,20,$ES_NUMBER)
GUICtrlSetState($ali,$GUI_DISABLE)
GUICtrlSetFont(-1,8,5000)
$rosso = GUICtrlCreateCheckbox('Rosso',100,25)
GUICtrlSetFont(-1,8,5000)
$nero = GUICtrlCreateCheckbox('Nero',100,45)
GUICtrlSetFont(-1,8,5000)
$gira = GUICtrlCreateButton('Gira!',210,2,80,20,$ES_NUMBER)
GUICtrlSetFont(-1,8,5000)
$g2 = GUICtrlCreateGroup('Inserisci il numero (da 1, a 100)',2,210,175,50)
GUICtrlSetFont(-1,8,5000)
$numero = GUICtrlCreateInput('',5,230,170,20)
GUICtrlSetFont(-1,8,5000)
$cheat = GUICtrlCreateButton('Cheat',2,265,40,15)
GUICtrlSetFont(-1,8,5000)
$s1 = GUICtrlCreateButton('Salva slot 1',237,280)
GUICtrlSetFont(-1,8,5000)
$s2 = GUICtrlCreateButton('Salva slot 2',150,280)
GUICtrlSetFont(-1,8,5000)
$s3 = GUICtrlCreateButton('Salva slot 3',50,280)
GUICtrlSetFont(-1,8,5000)

;grafica ()
GUISetState ( )

While 1
       Global $numeroRandom = Random($min,$max,1)
       Global $a = Random(1,2,1)
       Switch GUIGetMsg ()
Case $rosso
$r = 1
$n = 0
Case $nero
$n = 1
$r = 0
Case $cheat
$cb = InputBox('Inserisci','Inserisci il cheat','sono un lamerone!')
Switch $cb
Case 'soldi soldi soldi!'
$soldiTot = 1000
GUICtrlSetData($lsoldi,$soldiTot)
Case '0 soldi finito off'
$f = 110
EndSwitch
Case $s3
$nome3 = IniRead('op.ini','nome','nome','giocatore')
IniWrite('s3.sav','cose','soldi',$soldiTot)
IniWrite('s3.sav','cose','nome',$nome3)
IniWrite('s3.sav','date','ora',_nowtime())
IniWrite('s3.sav','date','data',_NowDate())
Case $s2
$nome2 = IniRead('op.ini','nome','nome','giocatore')
IniWrite('s2.sav','cose','soldi',$soldiTot)
IniWrite('s2.sav','cose','nome',$nome2)
IniWrite('s2.sav','date','ora',_nowtime())
IniWrite('s2.sav','date','data',_NowDate())
Case $s1
IniWrite('s1.sav','cose','soldi',$soldiTot)
IniWrite('s1.sav','cose','nome',$nome)
IniWrite('s1.sav','date','ora',_nowtime())
IniWrite('s1.sav','date','data',_NowDate())
Case $gira
If GUICtrlRead($numero) <> '' Then
If $pc <> 0 And $pc2 <> 1 Then
       If $numeroRandom = 0 Then
               MsgBox(0,'Nullo','è venuto fuori zero: non hai nè perso nè vinto niente')
       Else
       If $a = 1 Then ;rosso
       If GUICtrlRead($numero) = $numeroRandom Then
               MsgBox(0,'Giusto!','Hai fatto giusto con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai vinto '&$puntata&' €!'&@CRLF&@CRLF&'la pallina è finita sul nero!')
               $soldiTot = $soldiTot + $puntata
               GUICtrlSetData($lsoldi,$soldiTot)
       Else
               MsgBox(0,'Sbagliato!','Hai sbagliato con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai perso '&$puntata&' €!'&@CRLF&@CRLF&'la pallina è finita sul rosso!')
               $soldiTot = $soldiTot - $puntata
               GUICtrlSetData($lsoldi,$soldiTot)
       EndIf
       EndIf
EndIf
EndIf
Else
MsgBox(0x10,'Errore','Inserisci un numero!')
EndIf
If GUICtrlRead($numero) <> '' Then
If $pc2 = 1 Then
       If guictrlread($numero) = $numeroRandom Then
               MsgBox(0,'Giusto!','Hai fatto giusto con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai vinto '&GUICtrlRead($ali)&' €!')
               $soldiTot = $soldiTot + GUICtrlRead($ali)
               GUICtrlSetData($lsoldi,$soldiTot)
       Else
               MsgBox(0,'Sbagliato!','Hai sbagliato con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai perso '&GUICtrlRead($ali)&' €!')
               $soldiTot = $soldiTot - GUICtrlRead($ali)
               GUICtrlSetData($lsoldi,$soldiTot)
       EndIf
EndIf
Else
MsgBox(0x10,'Errore','Inserisci un numero!')
EndIf
Case $pal
       $pc2 = 1        
       GUICtrlSetState($ali,$GUI_ENABLE)
Case $p50
       $pc = 1
       $puntata = 50
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p40
       $pc = 1
       $puntata = 40
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p30
       $pc = 1
       $puntata = 30
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p20
       $pc = 1
       $puntata = 20
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p10
       $pc = 1
       $puntata = 10
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p5
       $pc = 1
       $puntata = 5
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p1
       $pc = 1
       $puntata = 1
       GUICtrlSetState($ali,$GUI_DISABLE)
       Case -3 ;GUI_EVENT_CLOSE
       Exit
EndSwitch
If $f > 0 Then
;nada!;
Else
If GUICtrlRead($Lsoldi) < $f Or GUICtrlRead($LSoldi) = $f Then
       $domanda = MsgBox(64,'Fine','La partita è finita! Hai perso tutti i tuoi soldi!')
       Exit
EndIf
EndIf
If GUICtrlRead($numero) > 100 Then
       GUICtrlSetData($numero,100)
       TrayTip('Errore!','Si può puntare un numero fino al massimo di 100',1)
EndIf
If GUICtrlRead($ali) > $soldiTot Then
       GUICtrlSetData($ali,$soldiTot)
       TrayTip('Errore!','Non puoi puntare più dei tuoi soldi totali',1)
EndIf
WEnd
EndFunc

Func gioco3()
Global $soldiTot = IniRead('s3.sav','cose','soldi',100), $puntata = 1, $pc = 0, $pc2 = 0, $min = 1, $max = 100, $nome = IniRead('s3.sav','nome','nome','giocatore'), $r = 0, $n = 0, $f = 0
$gui = GUICreate('roulette',300,300)
GUICtrlCreateLabel('Budget totale:',2,2)
GUICtrlSetFont(-1,8,5000)
$Lsoldi = GUICtrlCreateLabel($soldiTot,75,2,150,20)
GUICtrlSetFont(-1,8,5000)
GUICtrlSetColor(-1,0xFF0000)
;~ $gira = GUICtrlCreateButton('Gira',2,70,80,20)
GUICtrlCreateGroup('Puntate:',2,13,150,180)
GUICtrlSetFont(-1,8,5000)
$p1 = GUICtrlCreateRadio('Punta 1 €',2,25)
GUICtrlSetFont(-1,8,5000)
$p5 = GUICtrlCreateRadio('Punta 5 €',2,45)
GUICtrlSetFont(-1,8,5000)
$p10 = GUICtrlCreateRadio('Punta 10 €',2,65)
GUICtrlSetFont(-1,8,5000)
$p20 = GUICtrlCreateRadio('Punta 20 €',2,85)
GUICtrlSetFont(-1,8,5000)
$p30 = GUICtrlCreateRadio('Punta 30 €',2,105)
GUICtrlSetFont(-1,8,5000)
$p40 = GUICtrlCreateRadio('Punta 40 €',2,125)
GUICtrlSetFont(-1,8,5000)
$p50 = GUICtrlCreateRadio('Punta 50 €',2,145)
GUICtrlSetFont(-1,8,5000)
$pAl = GUICtrlCreateRadio('Altro',2,165)
GUICtrlSetFont(-1,8,5000)
$ali = GUICtrlCreateInput('',43,166,100,20,$ES_NUMBER)
GUICtrlSetState($ali,$GUI_DISABLE)
GUICtrlSetFont(-1,8,5000)
$rosso = GUICtrlCreateCheckbox('Rosso',100,25)
GUICtrlSetFont(-1,8,5000)
$nero = GUICtrlCreateCheckbox('Nero',100,45)
GUICtrlSetFont(-1,8,5000)
$gira = GUICtrlCreateButton('Gira!',210,2,80,20)
GUICtrlSetFont(-1,8,5000)
$g2 = GUICtrlCreateGroup('Inserisci il numero (da 1, a 100)',2,210,175,50)
GUICtrlSetFont(-1,8,5000)
$numero = GUICtrlCreateInput('',5,230,170,20,$ES_NUMBER)
GUICtrlSetFont(-1,8,5000)
$cheat = GUICtrlCreateButton('Cheat',2,265,40,15)
GUICtrlSetFont(-1,8,5000)
$s1 = GUICtrlCreateButton('Salva slot 1',237,280)
GUICtrlSetFont(-1,8,5000)
$s2 = GUICtrlCreateButton('Salva slot 2',150,280)
GUICtrlSetFont(-1,8,5000)
$s3 = GUICtrlCreateButton('Salva slot 3',50,280)
GUICtrlSetFont(-1,8,5000)

;grafica ()
GUISetState ( )

While 1
       Global $numeroRandom = Random($min,$max,1)
       Global $a = Random(1,2,1)
       Switch GUIGetMsg ()
Case $rosso
$r = 1
$n = 0
Case $nero
$n = 1
$r = 0
Case $cheat
$cb = InputBox('Inserisci','Inserisci il cheat','sono un lamerone!')
Switch $cb
Case 'soldi soldi soldi!'
$soldiTot = 1000
GUICtrlSetData($lsoldi,$soldiTot)
Case '0 soldi finito off'
$f = 110
EndSwitch
Case $s3
$nome3 = IniRead('op.ini','nome','nome','giocatore')
IniWrite('s3.sav','cose','soldi',$soldiTot)
IniWrite('s3.sav','cose','nome',$nome3)
IniWrite('s3.sav','date','ora',_nowtime())
IniWrite('s3.sav','date','data',_NowDate())
Case $s2
$nome2 = IniRead('op.ini','nome','nome','giocatore')
IniWrite('s2.sav','cose','soldi',$soldiTot)
IniWrite('s2.sav','cose','nome',$nome2)
IniWrite('s2.sav','date','ora',_nowtime())
IniWrite('s2.sav','date','data',_NowDate())
Case $s1
IniWrite('s1.sav','cose','soldi',$soldiTot)
IniWrite('s1.sav','cose','nome',$nome)
IniWrite('s1.sav','date','ora',_nowtime())
IniWrite('s1.sav','date','data',_NowDate())
Case $gira
If GUICtrlRead($numero) <> '' Then
If $pc <> 0 And $pc2 <> 1 Then
       If $numeroRandom = 0 Then
               MsgBox(0,'Nullo','è venuto fuori zero: non hai nè perso nè vinto niente')
       Else
       If $a = 1 Then ;rosso
       If GUICtrlRead($numero) = $numeroRandom Then
               MsgBox(0,'Giusto!','Hai fatto giusto con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai vinto '&$puntata&' €!'&@CRLF&@CRLF&'la pallina è finita sul nero!')
               $soldiTot = $soldiTot + $puntata
               GUICtrlSetData($lsoldi,$soldiTot)
       Else
               MsgBox(0,'Sbagliato!','Hai sbagliato con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai perso '&$puntata&' €!'&@CRLF&@CRLF&'la pallina è finita sul rosso!')
               $soldiTot = $soldiTot - $puntata
               GUICtrlSetData($;lsoldi,$soldiTot)
       EndIf
       EndIf
EndIf
EndIf
Else
MsgBox(0x10,'Errore','Inserisci un numero!')
EndIf
If GUICtrlRead($numero) <> '' Then
If $pc2 = 1 Then
       If guictrlread($numero) = $numeroRandom Then
               MsgBox(0,'Giusto!','Hai fatto giusto con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai vinto '&GUICtrlRead($ali)&' €!')
               $soldiTot = $soldiTot + GUICtrlRead($ali)
               GUICtrlSetData($lsoldi,$soldiTot)
       Else
               MsgBox(0,'Sbagliato!','Hai sbagliato con il numero: '&guictrlread($numero)&@CRLF&@CRLF&'Hai perso '&GUICtrlRead($ali)&' €!')
               $soldiTot = $soldiTot - GUICtrlRead($ali)
               GUICtrlSetData($lsoldi,$soldiTot)
       EndIf
EndIf
Else
MsgBox(0x10,'Errore','Inserisci un numero!')
EndIf
Case $pal
       $pc2 = 1        
       GUICtrlSetState($ali,$GUI_ENABLE)
Case $p50
       $pc = 1
       $puntata = 50
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p40
       $pc = 1
       $puntata = 40
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p30
       $pc = 1
       $puntata = 30
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p20
       $pc = 1
       $puntata = 20
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p10
       $pc = 1
       $puntata = 10
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p5
       $pc = 1
       $puntata = 5
       GUICtrlSetState($ali,$GUI_DISABLE)
Case $p1
       $pc = 1
       $puntata = 1
       GUICtrlSetState($ali,$GUI_DISABLE)
       Case -3 ;GUI_EVENT_CLOSE
       Exit
EndSwitch
If $f > 0 Then
;nada!;
Else
If GUICtrlRead($Lsoldi) < $f Or GUICtrlRead($LSoldi) = $f Then
       $domanda = MsgBox(64,'Fine','La partita è finita! Hai perso tutti i tuoi soldi!')
       Exit
EndIf
EndIf
If GUICtrlRead($numero) > 100 Then
       GUICtrlSetData($numero,100)
       TrayTip('Errore!','Si può puntare un numero fino al massimo di 100',1)
EndIf
If GUICtrlRead($ali) > $soldiTot Then
       GUICtrlSetData($ali,$soldiTot)
       TrayTip('Errore!','Non puoi puntare più dei tuoi soldi totali',1)
EndIf
WEnd
EndFunc

Func descrizione($n,$tipo)
Dim $var[4] = [IniRead("s"&$n&".sav","cose","soldi",""),IniRead("s"&$n&".sav","cose","nome",""),IniRead("s"&$n&".sav","date","ora",""),IniRead("s"&$n&".sav","date","data","")]
If $tipo = 0 Then
Return $var[0]
ElseIf $tipo = 1 Then
Return $var[1]
ElseIf $tipo = 2 Then
Return $var[2]
ElseIf $tipo = 3 Then
Return $var[3]
EndIf
EndFunc


Lista cheat:

SPOILER (click to view)
soldi soldi soldi! = aggiunge sempre 1000 euro
0 finito off = se arrivi a zero la partita non finisce

altri cheat nella v3


Download attachment
roulette.zip ( Number of downloads: 13 )

 
Top
lknokl
CAT_IMG Posted on 8/5/2008, 07:03     +1   -1




Grande ^^ bella anche l'idea di mettere i cheat ;)
 
Top
1 replies since 7/5/2008, 13:56   103 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity