Top 5 Quotes!

ON *:TEXT:!findquote *:#: {
  var %x = 1
  while (%x <= $lines(quotes.txt)) {
    if ($+(*,$2,*) iswm $read(quotes.txt, %x)) {
      var %q = $v2
      inc %qfound 1
      if (%qfound <= 5) {
        .timer 1 1 msg $chan $+(%qfound,.) %q
      }
      elseif (%qfound > 5) { unset %qfound | var %x = $lines(quotes.txt) }
           if (%x = $lines(quotes.txt)) && (%qfound != 5) { unset %qfound }
    }
    inc %x
  }
}
;;;Like this? Go to http://humanity.ucoz.com for more! by OrFeAsGr! <3
;;; irc.g0dz.net:+6697 SSL ONLY!!!
;;; Peace 'n' love!