This is an easy (and useless) script to choose a random user for a channel
(This script does not choose people who are voice/op)

Please comment.

on *:text:!random*:#channel:{
if ($nick !isop $chan) { msg $chan Your not OPed. }
if ($me isop $chan) {
set %random $nick($chan,$rand(1,$nick($chan,0)),r) || msg $chan <you text (?!)> %random <your-text (?!)> | unset %random }
}

Example:

on *:text:!random:#acom:{
if ($nick !isop $chan) { msg $chan Your not OPed. }
if ($me isop $chan) {
set %random $nick($chan,$rand(1,$nick($chan,0)),r) || msg $chan The winner is: %random $+ !! | unset %random }
}