This script will automatically pick a noob of the day and change it automatically when the day changes. Type "!notd" to use.

on *:TEXT:!notd*:#:{
  inc -u5 %notd. [ $+ [ $nick ] ]
  if (%notd. [ $+ [ $nick ] ] > 1) { }
  else {
    if ($gettok(%notd,1,32) == $date) { msg $chan Noob of the day is $gettok(%notd,2,32) }
    else { set %notd $date $nick($chan,$rand(1,$nick($chan,0))) | msg $chan Noob of the day is $gettok(%notd,2,32) }
  }
}