Forums Scripts & Popups Random name picker.

on +3:text:!winner:#: {

  set %nick1 $nick($chan,$rand(0,$nick($chan,0)))
  if (%nick1 == $me) { set %nick1 $nick($chan,$rand(0,$nick($chan,0))) }
  else
  msg $chan Randomly selecting a winner........
  timerlawl 1 5 msg $chan The winner is %nick1 $+ ! Congratulations $nick1 :) You win... %prize. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] ]
}

on +3:text:!prize *:#: {
  set %prize. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] ] $2-
  msg $chan New prize set!
}

on +3:text:!clprize:#: {
  set %prize. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] ] Nothing
  msg $chan Prize cleared!
}