alias randnick {
  if ( $nick($1,0) > 1 ) {
    :start
    var %randomnick = $nick($1,$r(1,$nick($1,0)))
    if ( %randomnick == $me ) goto start
    else return %randomnick
  }
  return
}
on 9999:TEXT:!randomnick *:#: {
  /set %randomnick $randnick($2) | msg $chan %randomnick | /unset %randomnick
}