on *:TEXT:!giveaway:#:{
  %i = 0
  %rand = 0
  %tot = 7
  if (%tot > $nick($chan,0)) %tot = $v2
  %chosen = ""
  while (%i < 7) {
    while ($istok(%chosen, $nick(#, %rand), 32)) {
      %rand = $r(0, $nick($chan,0))
    }
    %chosen = %chosen $nick($chan, %rand)
    msg # $nick($chan,%rand)
    msg # CHOSEN: %chosen
    inc %i
  }
}