alias winner {
var %channel = #channelnamehere
var %total = $fline(%channel,bfan`*,0,1)
var %winner = $iif(%total,[color:blue]$line(%channel,[/color]$fline(%channel,bfan`*,$rand(1,%total),1)[color:blue],1)[/color],no one? oh no ones playing?!?!?)
msg %channel The Winner is %winner $+ !
}