PureBasic

Code : Tout sélectionner

random=10000;-randoom=10000
Dim seed.q(random) ; On se crée une banque de chiffres aléatoires
For i=1 To random
  seed(i)=Random(65536*32768-1)
Next

RandomSeed(1)
For i=1 To 10
  Debug "RandomSeed(1) = "+Str(Random(1000))
Next

Debug ""
Debug "Pour 'casser' le RandomSeed(1), on fait comme ça :"

RandomSeed(1)
Debug "RandomSeed(1) = "+Str(Random(1000))
Debug "Ca recommence comme la première liste..."
Debug "Et on le casse comme ça :"

seed(0)+1
If seed(0)>random
  seed(0)=1
EndIf
RandomSeed(seed(seed(0)))

For i=1 To 10
  Debug "RandomSeed("+Str(seed(seed(0)))+") = "+Str(Random(1000))
Next

Code : Tout sélectionner

seed=Random(65536*32768-1)

RandomSeed(1)
Debug "RandomSeed(1) = "+Str(Random(1000))

RandomSeed(seed) ;- se désolidarise de la liste de RandomSeed(1)
Debug "RandomSeed("+Str(seed)+") = "+Str(Random(1000))