alias randv {
if ($me isop $chan && $vnick($chan,0) < $nick($chan,0)) {
var %max = $nick($chan,0)
var %isvoice = $true
while (%isvoice) {
var %nick = $nick($chan,$rand(1,%max))
if (%nick !isvoice $chan) {
mode $chan +v %nick
%isvoice = $false
}
}
}
}