#if !defined amx_norandom
/* this routine comes from the book "inner loops" by rick booth, addison-wesley
* (isbn 0-201-47960-5). this is a "multiplicative congruential random number
* generator" that has been extended to 31-bits (the standard c version returns
* only 15-bits).
*/
#define initial_seed  0xcaa938dbl
static unsigned long il_standardrandom_seed = initial_seed; /* always use a non-zero seed */
#define il_rmult 1103515245l
#if defined __borlandc__ || defined __watcomc__
  #pragma argsused
#endif
static cell amx_native_call core_random(amx *amx,const cell *params)
{
    unsigned long lo, hi, ll, lh, hh, hl;
    unsigned long result;

    /* one-time initialization (or, mostly one-time) */
    #if !defined sn_target_ps2 && !defined _win32_wce && !defined __icc430__
        if (il_standardrandom_seed == initial_seed)
            il_standardrandom_seed=(unsigned long)time(null);
    #endif

    (void)amx;

    lo = il_standardrandom_seed & 0xffff;
    hi = il_standardrandom_seed >> 16;
    il_standardrandom_seed = il_standardrandom_seed * il_rmult + 12345;
    ll = lo * (il_rmult  & 0xffff);
    lh = lo * (il_rmult >> 16    );
    hl = hi * (il_rmult  & 0xffff);
    hh = hi * (il_rmult >> 16    );
    result = ((ll + 12345) >> 16) + lh + hl + (hh << 16);
    result &= ~long_min;        /* remove sign bit */
    if (params[1]!=0)
        result %= params[1];
    return (cell)result;
}
#endif