SUPER LOTTO

A chi piace

« Older   Newer »
  Share  
Pink_Panther
CAT_IMG Posted on 16/2/2012, 11:11




A chi piace questo tipo di giocata.metto a disposizione
questo listato che calcola una quartina x ambo su tutte.
Nella storia del gioco del Lotto non ha nessun esito negativo,
quindi ottimo per un gioco in progressione.
Se trovate il listato in altri lidi,non è stato copiato ma....
io e quello lì,siamo la stessa persona.
Un ringraziamento sentito al grande Baffo
PS:
lanciate lo script e andatevene a piglià un caffè


Edited by Pink_Panther - 17/2/2012, 17:21
 
Top
Pink_Panther
CAT_IMG Posted on 17/2/2012, 17:26




CODICE
Sub Main()
Dim ruote(3)
Dim ruota(1)
Dim poste(2)
Dim Importi(2,12)
poste(2) = 1
Importi(2,1) = 1
Importi(2,2) = 2
Importi(2,3) = 4
Importi(2,4) = 8
Importi(2,5) = 16
Importi(2,6) = 32
Importi(2,7) = 64
Importi(2,8) = 125
Importi(2,9) = 250
Importi(2,10) = 500
Importi(2,11) = 1000
Importi(2,12) = 2000
Dim n(4)
clp = 12
ini = EstrazioneFin - 8400
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruota(1) = 11
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 10
For p1 = 5 To 5
For p2 = 5 To 5
For p3 = 5 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
c = Estratto(es,r3,p3)
ok = 0
If Estratto(es,r1,p1) = 57 And Estratto(es,r2,p2) = 44 And Estratto(es,r3,p3) = 44 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 40 And Estratto(es,r2,p2) = 61 And Estratto(es,r3,p3) = 61 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 85 And Estratto(es,r2,p2) = 16 And Estratto(es,r3,p3) = 16 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 82 And Estratto(es,r2,p2) = 19 And Estratto(es,r3,p3) = 19 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 87 And Estratto(es,r2,p2) = 14 And Estratto(es,r3,p3) = 14 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 76 And Estratto(es,r2,p2) = 25 And Estratto(es,r3,p3) = 25 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 69 And Estratto(es,r2,p2) = 32 And Estratto(es,r3,p3) = 32 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 28 And Estratto(es,r2,p2) = 73 And Estratto(es,r3,p3) = 73 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 60 And Estratto(es,r2,p2) = 41 And Estratto(es,r3,p3) = 41 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 48 And Estratto(es,r2,p2) = 53 And Estratto(es,r3,p3) = 53 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 52 And Estratto(es,r2,p2) = 49 And Estratto(es,r3,p3) = 49 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 23 And Estratto(es,r2,p2) = 78 And Estratto(es,r3,p3) = 78 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 84 And Estratto(es,r2,p2) = 17 And Estratto(es,r3,p3) = 17 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 63 And Estratto(es,r2,p2) = 38 And Estratto(es,r3,p3) = 38 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 27 And Estratto(es,r2,p2) = 74 And Estratto(es,r3,p3) = 74 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 41 And Estratto(es,r2,p2) = 60 And Estratto(es,r3,p3) = 60 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 66 And Estratto(es,r2,p2) = 35 And Estratto(es,r3,p3) = 35 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 16 And Estratto(es,r2,p2) = 85 And Estratto(es,r3,p3) = 85 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 15 And Estratto(es,r2,p2) = 86 And Estratto(es,r3,p3) = 86 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 1 And Estratto(es,r2,p2) = 10 And Estratto(es,r3,p3) = 10 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 26 And Estratto(es,r2,p2) = 75 And Estratto(es,r3,p3) = 75 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 71 And Estratto(es,r2,p2) = 30 And Estratto(es,r3,p3) = 30 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 88 And Estratto(es,r2,p2) = 13 And Estratto(es,r3,p3) = 13 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 65 And Estratto(es,r2,p2) = 36 And Estratto(es,r3,p3) = 36 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 12 And Estratto(es,r2,p2) = 89 And Estratto(es,r3,p3) = 89 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 77 And Estratto(es,r2,p2) = 24 And Estratto(es,r3,p3) = 24 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 29 And Estratto(es,r2,p2) = 72 And Estratto(es,r3,p3) = 72 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 53 And Estratto(es,r2,p2) = 48 And Estratto(es,r3,p3) = 48 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 54 And Estratto(es,r2,p2) = 47 And Estratto(es,r3,p3) = 47 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 59 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 42 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 79)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 14 And Estratto(es,r2,p2) = 19 And Estratto(es,r3,p3) = 19 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 8 And Estratto(es,r2,p2) = 25 And Estratto(es,r3,p3) = 25 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 76 And Estratto(es,r3,p3) = 76 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 67 And Estratto(es,r2,p2) = 56 And Estratto(es,r3,p3) = 56 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 85 And Estratto(es,r2,p2) = 38 And Estratto(es,r3,p3) = 38 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 53 And Estratto(es,r2,p2) = 70 And Estratto(es,r3,p3) = 70 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 60 And Estratto(es,r2,p2) = 63 And Estratto(es,r3,p3) = 63 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 75 And Estratto(es,r2,p2) = 48 And Estratto(es,r3,p3) = 48 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 76 And Estratto(es,r3,p3) = 76 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 11 And Estratto(es,r2,p2) = 22 And Estratto(es,r3,p3) = 22 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 77 And Estratto(es,r2,p2) = 46 And Estratto(es,r3,p3) = 46 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 12 And Estratto(es,r2,p2) = 21 And Estratto(es,r3,p3) = 21 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 81 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 42 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 20 And Estratto(es,r2,p2) = 13 And Estratto(es,r3,p3) = 13 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 66 And Estratto(es,r2,p2) = 57 And Estratto(es,r3,p3) = 57 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 86 And Estratto(es,r2,p2) = 37 And Estratto(es,r3,p3) = 37 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 17 And Estratto(es,r2,p2) = 16 And Estratto(es,r3,p3) = 16 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 57 And Estratto(es,r2,p2) = 66 And Estratto(es,r3,p3) = 66 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 90 And Estratto(es,r2,p2) = 33 And Estratto(es,r3,p3) = 33 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 25 And Estratto(es,r2,p2) = 8 And Estratto(es,r3,p3) = 8 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 48 And Estratto(es,r2,p2) = 75 And Estratto(es,r3,p3) = 75 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 1 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 32 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 59 And Estratto(es,r2,p2) = 64 And Estratto(es,r3,p3) = 64 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 26 And Estratto(es,r2,p2) = 7 And Estratto(es,r3,p3) = 7 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 75 And Estratto(es,r2,p2) = 48 And Estratto(es,r3,p3) = 48 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 6 And Estratto(es,r2,p2) = 27 And Estratto(es,r3,p3) = 27 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 33 And Estratto(es,r2,p2) = 33 And Estratto(es,r3,p3) = 90 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 57)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 13 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 42 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 73 And Estratto(es,r2,p2) = 72 And Estratto(es,r3,p3) = 72 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 6 And Estratto(es,r2,p2) = 49 And Estratto(es,r3,p3) = 49 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 41 And Estratto(es,r2,p2) = 14 And Estratto(es,r3,p3) = 19 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 60 And Estratto(es,r2,p2) = 85 And Estratto(es,r3,p3) = 85 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 49 And Estratto(es,r2,p2) = 6 And Estratto(es,r3,p3) = 6 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 65 And Estratto(es,r2,p2) = 80 And Estratto(es,r3,p3) = 80 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 83 And Estratto(es,r2,p2) = 62 And Estratto(es,r3,p3) = 62 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 26 And Estratto(es,r2,p2) = 29 And Estratto(es,r3,p3) = 29 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 35 And Estratto(es,r2,p2) = 20 And Estratto(es,r3,p3) = 20 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 54 And Estratto(es,r2,p2) = 1 And Estratto(es,r3,p3) = 1 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 22 And Estratto(es,r2,p2) = 33 And Estratto(es,r3,p3) = 33 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 77 And Estratto(es,r2,p2) = 68 And Estratto(es,r3,p3) = 68 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 71 And Estratto(es,r2,p2) = 74 And Estratto(es,r3,p3) = 74 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 15 And Estratto(es,r2,p2) = 40 And Estratto(es,r3,p3) = 40 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 52 And Estratto(es,r2,p2) = 3 And Estratto(es,r3,p3) = 3 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 80 And Estratto(es,r2,p2) = 65 And Estratto(es,r3,p3) = 65 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 51 And Estratto(es,r2,p2) = 4 And Estratto(es,r3,p3) = 4 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 8 And Estratto(es,r3,p3) = 8 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 7 And Estratto(es,r2,p2) = 48 And Estratto(es,r3,p3) = 48 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 25 And Estratto(es,r2,p2) = 30 And Estratto(es,r3,p3) = 30 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 58 And Estratto(es,r2,p2) = 87 And Estratto(es,r3,p3) = 87 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 21 And Estratto(es,r2,p2) = 34 And Estratto(es,r3,p3) = 34 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 24 And Estratto(es,r2,p2) = 31 And Estratto(es,r3,p3) = 31 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 29 And Estratto(es,r2,p2) = 26 And Estratto(es,r3,p3) = 26 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 38 And Estratto(es,r2,p2) = 17 And Estratto(es,r3,p3) = 17 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 35)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 02 And Estratto(es,r2,p2) = 64 And Estratto(es,r3,p3) = 64 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 36 And Estratto(es,r2,p2) = 30 And Estratto(es,r3,p3) = 30 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 60 And Estratto(es,r2,p2) = 06 And Estratto(es,r3,p3) = 06 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 10 And Estratto(es,r2,p2) = 56 And Estratto(es,r3,p3) = 56 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 54 And Estratto(es,r2,p2) = 12 And Estratto(es,r3,p3) = 12 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 24 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 42 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 81 And Estratto(es,r2,p2) = 75 And Estratto(es,r3,p3) = 75 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 84 And Estratto(es,r2,p2) = 72 And Estratto(es,r3,p3) = 72 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 35 And Estratto(es,r2,p2) = 31 And Estratto(es,r3,p3) = 31 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 19 And Estratto(es,r3,p3) = 19 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 08 And Estratto(es,r2,p2) = 58 And Estratto(es,r3,p3) = 58 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 64 And Estratto(es,r2,p2) = 02 And Estratto(es,r3,p3) = 02 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 76 And Estratto(es,r2,p2) = 80 And Estratto(es,r3,p3) = 80 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
End If
If Estratto(es,r1,p1) = 19 And Estratto(es,r2,p2) = 47 And Estratto(es,r3,p3) = 47 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 61 And Estratto(es,r2,p2) = 05 And Estratto(es,r3,p3) = 05 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 41 And Estratto(es,r2,p2) = 25 And Estratto(es,r3,p3) = 25 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 88 And Estratto(es,r2,p2) = 68 And Estratto(es,r3,p3) = 68 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 13 And Estratto(es,r2,p2) = 53 And Estratto(es,r3,p3) = 53 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 55 And Estratto(es,r2,p2) = 11 And Estratto(es,r3,p3) = 11 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 30 And Estratto(es,r2,p2) = 36 And Estratto(es,r3,p3) = 36 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 39 And Estratto(es,r2,p2) = 27 And Estratto(es,r3,p3) = 27 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 90 And Estratto(es,r2,p2) = 66 And Estratto(es,r3,p3) = 66 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 12 And Estratto(es,r2,p2) = 54 And Estratto(es,r3,p3) = 54 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 24)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 80 And Estratto(es,r2,p2) = 87 And Estratto(es,r3,p3) = 87 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 79 And Estratto(es,r2,p2) = 88 And Estratto(es,r3,p3) = 88 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 34 And Estratto(es,r2,p2) = 43 And Estratto(es,r3,p3) = 43 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 48 And Estratto(es,r2,p2) = 29 And Estratto(es,r3,p3) = 29 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 07 And Estratto(es,r2,p2) = 70 And Estratto(es,r3,p3) = 70 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 16 And Estratto(es,r2,p2) = 61 And Estratto(es,r3,p3) = 61 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 37 And Estratto(es,r2,p2) = 40 And Estratto(es,r3,p3) = 40 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 30 And Estratto(es,r3,p3) = 30 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 15 And Estratto(es,r2,p2) = 62 And Estratto(es,r3,p3) = 62 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 40 And Estratto(es,r2,p2) = 37 And Estratto(es,r3,p3) = 37 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 03 And Estratto(es,r2,p2) = 74 And Estratto(es,r3,p3) = 74 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 36 And Estratto(es,r2,p2) = 41 And Estratto(es,r3,p3) = 41 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 89 And Estratto(es,r2,p2) = 78 And Estratto(es,r3,p3) = 78 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 25 And Estratto(es,r2,p2) = 52 And Estratto(es,r3,p3) = 52 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 84 And Estratto(es,r2,p2) = 83 And Estratto(es,r3,p3) = 83 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 28 And Estratto(es,r2,p2) = 49 And Estratto(es,r3,p3) = 49 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 24 And Estratto(es,r2,p2) = 53 And Estratto(es,r3,p3) = 53 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 32 And Estratto(es,r2,p2) = 45 And Estratto(es,r3,p3) = 45 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 49 And Estratto(es,r2,p2) = 28 And Estratto(es,r3,p3) = 28 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 87 And Estratto(es,r2,p2) = 80 And Estratto(es,r3,p3) = 80 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 18 And Estratto(es,r2,p2) = 59 And Estratto(es,r3,p3) = 59 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 67 And Estratto(es,r2,p2) = 10 And Estratto(es,r3,p3) = 10 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 42 And Estratto(es,r2,p2) = 35 And Estratto(es,r3,p3) = 35 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 43 And Estratto(es,r2,p2) = 34 And Estratto(es,r3,p3) = 34 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 75 And Estratto(es,r2,p2) = 02 And Estratto(es,r3,p3) = 02 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 63 And Estratto(es,r2,p2) = 14 And Estratto(es,r3,p3) = 14 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 14 And Estratto(es,r2,p2) = 63 And Estratto(es,r3,p3) = 63 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 02 And Estratto(es,r2,p2) = 75 And Estratto(es,r3,p3) = 75 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 46 And Estratto(es,r2,p2) = 31 And Estratto(es,r3,p3) = 31 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 06 And Estratto(es,r2,p2) = 71 And Estratto(es,r3,p3) = 71 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 71 And Estratto(es,r2,p2) = 06 And Estratto(es,r3,p3) = 06 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 30 And Estratto(es,r2,p2) = 47 And Estratto(es,r3,p3) = 47 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 12 And Estratto(es,r2,p2) = 65 And Estratto(es,r3,p3) = 65 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 56 And Estratto(es,r2,p2) = 21 And Estratto(es,r3,p3) = 21 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 65 And Estratto(es,r2,p2) = 12 And Estratto(es,r3,p3) = 12 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 44 And Estratto(es,r2,p2) = 33 And Estratto(es,r3,p3) = 33 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 77 And Estratto(es,r2,p2) = 90 And Estratto(es,r3,p3) = 90 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 51 And Estratto(es,r2,p2) = 26 And Estratto(es,r3,p3) = 26 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If Estratto(es,r1,p1) = 10 And Estratto(es,r2,p2) = 67 And Estratto(es,r3,p3) = 67 Then
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + 13)
n(4) = 90 - d
ok = 1
End If
If ok = 1 Then
co = co + 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " " & SiglaRuota(r3) & " " & StringaEstratti(es,r3) & " SPIE BY BAFFOBLU: " & a & " - " & b & " - " & c,1
Scrivi String(80,"°"),1
ruota(1) = 11
ImpostaGiocata 1,n,ruota,poste,clp,2
ImpostaProgressione 1,Importi
Scrivi "puntate eseguite " & colpi
Scrivi " - 1 stroke - " & Importi(2,1) & " euro x ambo "
Scrivi " - 2 stroke - " & Importi(2,2) & " euro x ambo"
Scrivi " - 3 stroke - " & Importi(2,3) & " euro x ambo"
Scrivi " - 4 stroke - " & Importi(2,4) & " euro x ambo"
Scrivi " - 5 stroke - " & Importi(2,5) & " euro x ambo"
Scrivi " - 6 stroke - " & Importi(2,6) & " euro x ambo"
Scrivi " - 7 stroke - " & Importi(2,7) & " euro x ambo"
Scrivi " - 8 stroke - " & Importi(2,8) & " euro x ambo"
Scrivi " - 9 stroke - " & Importi(2,9) & " euro x ambo"
Scrivi " - 10 stroke - " & Importi(2,10) & " euro x ambo"
Scrivi " - 11 stroke - " & Importi(2,11) & " euro x ambo"
Scrivi " - 12 stroke - " & Importi(2,12) & " euro x ambo"
Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub


CODICE
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
|              RESOCONTO              | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati     :           227  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
| Casi vincenti      :           227  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos.   :         100 %  | | BA |     |     |     |     |     | | BA |     |     |     |     |     | | BA |     |                       |
| Giocate in corso   :             0  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |
| Giocate terminate  :           227  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |
| Bollette giocate   :         1.186  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       |
| Bollette vincenti  :           492  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |
| Attesa media       :             5  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |
| Spesa              :   87.838,00 €  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |
| Vincita            :  192.235,26 €  | | RM |     |     |     |     |     | | RM |     |     |     |     |     | | RM |     |                       |
| Guadagno           :  104.397,26 €  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |
| Perc. Rendimento   :     118,852 %  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |
| Mass. Esposizione  :    4.002,00 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |
| Estratto su tutte  :           501  | | TT |     |  264|    9|     |     | | TT |     |     |     |     |     | | TT |     |                       |
| Ambo su tutte      :           264  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Terno su tutte     :             9  |    
|                                     |                                                                                                                
+-------------------------------------+
 
Top
CAT_IMG Posted on 17/2/2012, 19:58

Group:
Administrator
Posts:
8,267
Location:
Pescara

Status:


Grazie panter..:) si si lo konosko questo script..:P konsiglio di ridurre il kontrollo a ritroso nella statistika..altrimenti oltre al kaffè te puoi fà pure un panino..ahhahahah :lol: :lol: :lol: un salutone pure a Baffo..:)
 
Web  Contacts  Top
Pink_Panther
CAT_IMG Posted on 17/2/2012, 21:05




Ciao Pi,
basta ridurre il controllo delle estrazioni.
In questo momento sono 8400 a ritroso
se si inserisce 10....è meglio!
io cercherò di aggiornare man mano per
ottenere casi utili in breve tempo
 
Top
3 replies since 16/2/2012, 11:11   260 views
  Share