Simple RPG

[Derek]

Hi,

when Yabasic uses ran() for the first time in a script the "random number" isn't very random. The routine randomise() should use ran() enough times to give a "more random" (Ugh, what a phrase!) number. It doesn't appear to work on Linux but the ran() bug is slightly different to the ran() bug on Windows!

I've explained things as best as I can so hopefully someone else can explain it clearer than me.

Derek.

[JacobN]

Alternatively you can implement your own pseudo random number generator, it's fairly straight forward to obtain one that performs almost as well as the one in Yabasic, I haven't tested this one, just wrote it out here, but it's the general idea, and I think I recall writing a similar one at one point... Try it out if you want.

Code:

sub seedrand()
local i, t$, s
t$=time$
for i = 0 to len(t$)
s = mod( s * 2 + asc( mid$( t$, i, 1 ) ), 2 ^ 32 )
next i
return s
end sub

sub getrand( maxval, minval )
static seeded, x, m, c, a, r, k
if( seeded = 0 ) then
seeded = 1
a = 213013
c = 2541011
m = 2^32
k = 1 / ( m + 1 )
x = seedrand()
x = mod( a * x + c, m )
fi
r = mod( a * x + c, m )
x = r
return r * k * ( maxval - minval ) + minval
end sub

[Katogoon]

Hi there,

I am not familiar with sub routines yet and not sure how to use them.

Katogoon.

[JacobN]

It was actually also more aimed at Derek/People in general because it can be annoying at times when you want something random and the first few numbers always seem to be the same from run to run.