Eccovi il pkg del randomero, amir e tutti gli scripter che sono passati da ZHI sanno cos'è, vi lascio cil che c'è nel file
# Omero's Random Functions
# ------------------------
#
# based on Knuth's method described in "The Art of Computer Programming, vol2: Seminumerical Algorithms"
# please note that SMALL changes can DESTROY the entire system (just watch POL internal random to know
# HOW BAD it can be, if only a small number is changed).
#
# Version 1.0 by Lapo 'Aspox' Luchini <lapo@lapo.it>
# base version
# Version 1.1 by Developer Omero <luiz@inwind.it>
# based on a previous Lapo package, i LOVE YOU MAN! you deserve all the credits, yo!
# Version 1.2 by Lapo 'Aspox' Luchini <lapo@lapo.it>
# added RadomNormal functions and better randomization of the seed
Enabled 1
Name randomero
Version 1.2
Maintainer Developer Omero
Email
luiz@inwind.it
Ciao
ps.
// initializes and tries to add some randomization to the PRNG
use os;
use uo;
var seed:=GetGlobalProperty("randomeroseed");
if(!seed)
seed:=0;
endif
syslog("Omero's Random Seed was "+seed);
seed:=seed^getpid()^(polcore().systime);
if(seed==0)
seed:=1;
endif
SetGlobalProperty("randomeroseed", seed);
syslog("Omero's Random Seed is now "+seed);
Ciao raga