ssc/stdlib/random.sun
2016-02-01 03:27:16 -05:00

18 lines
391 B
Text

/* ================================================= *\
* random.sun
*
* ssc standard include utility
* 2016 arookas
\* ================================================= */
var local next;
function srand(seed) {
next = seed;
}
function rand() {
// this is exactly the formula used in MSL (and, thus, SMS itself)
next = (next * 1103515245) + 12345;
return (next >> 16) & 0x7FFF;
}