string gsRndSeed = "asdf";

integer RndInt(integer iMax)
// Zero to iMax returned.
// The gsRndSeed is used.
// An initial value (of anything) can be set as the initial seed.
// This gsRndSeed can be reset to produce the same set of random numbers again.
{
    gsRndSeed = llSHA1String(gsRndSeed);
    integer i = (integer)("0x" + llGetSubString(gsRndSeed, 0, 7)) & 0x7fffffff;
    return i % (iMax + 1);
}