/* Random Server - DMS - mar 98 - by Sylvain HUET */

var n=0;;

fun activate(from,cli,action,param,rep)=
 if n==nil || n<=0 then nil
 else let ((rand&255)*n)>>8 -> i in
 _DMSevent this cli strcat "random" itoa i+1 param rep;;

fun IniDMI(param)=
 _DMSregisterDMI this @activate nil nil nil;
 srand time;
 let strextr _getpack _checkpack param ->l in set n=atoi getInfo l "scale";;