I have a raffle script but it will choose voice/op. How do i fix that.

code:
on *:text:!raffle:#crd: {
set %random $nick($chan,$rand(1,$nick($chan,0,r)),r)
msg $chan The winner is: %random $+ !!
unset %random
}