Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[Tarzin]

Hello,

I'd like to randomize 96 numbers on a variable but without having the same value

Easy way:
dim piece(96)
for i=1 to 96: piece(i)=rnd(96):next i

but I'll have the same value on many variables.
Ayy idea ??

Thanks a lot for your help

Ps: this is needed for the game I'm trying to develop.

[Spellcoder]

If you don't use very high values and only need a small list numbers,
the fastest/easyest approach would probably be to have an array in which you flag which numbers are used.
Like this:

HIGHEST_VALUE = 200
AMOUNT = 96

Dim NumberUsed(HIGHEST_VALUE)
Dim MyList(AMOUNT)

For I=0 To HIGHEST_VALUE
  NumberUsed(I)=False
Next I

For I=1 to AMOUNT
GetNew:
   NewNumber = rnd(HIGHEST_VALUE)
   If NumberUsed(NewNumber)=True Then Goto GetNew
   NumberUsed(NewNumber)=True
   MyList(I) = NewNumber
Next I


Make sure you don't get more random numbers than HIGHEST_NUMBER,
or the program will freeze. (it will retry getting new numbers, but since
all numbers are used up it will retry forever )

[Lonewolf10]

I think I read somewhere about being able to generate *exactly the same* random numbers each time a game was played. I'm not sure, but I think it involved negative numbers. Anyone recall anything like that?


Regards,
Lonewolf10

[Spellcoder]

According to the AMOSPro manual, the random numbers are generated
with the given seed (with the Randomize function). If you didn't use
the Randomize <seed> then the default seed is used.

If you set your own seed value you should get the same
values back each time.

Randomize 8080
For I=1 to 10
   Print rnd(100)
Next I

Also using a negative number with rnd() gives back the previous result.
(the manual says this is helpfull for debugging, but I don't see why)

If the code above doesn't work, try using negative numbers with rnd().
It could be that the manual isn't right and that the seed is only used
when you use a negative number. (might have read this somewhere,
but havn't tested it)

[SamuraiCrow]

@Eric

It sounds to me like you are trying to do a shuffle play.

To accomplish that so that each number is used exactly once try this code:

Code: [Select]

dim a(96)

` initialize ordered list
for count=0 to 95
    a[count]=count
next count
` prepare list for shuffle play
for count=0 to 95
    temp=a[count]
    b=rnd(96)
    a[count]=a[b]
    a[b]=temp
next count


[Tarzin]

@spellcoder, thanks for your help!

@SamuraiCrow
You were right, that this piece of code that I need. Works fine!

And yes I'm working on a board game which needs to random pieces on it.
I think I'll open a special thread to present my game. It's an old projet that was firstly started with Stos and then converted to Amos (at least 15 years ago!)