alias randcol {
var %i = $len($1),%t
while (%i) {
%t = $+(,$base($r(1,15),10,10,2),$mid($1,%i,1),%t)
dec %i
}
return %t $+ 99
}
on *:input:#:{
if (*, iswm $1) && ($nick(#,$fline(#,$replace($1,$chr(44),*),1,1))) {
say $randcol($v1) $+ , $2-
halt
}
}