on *:TEXT:!quote:#: {
  if ($right($1,-1) == quote) {
    if (!$2) { msg # Random Quote: $read(C:\mIRC\allquotes.txt,n) }
    elseif ($2 isnum) && ($lines(C:\mIRC\allquotes.txt) >= $2) { msg $chan Quote $+($2,/,$lines(C:\mIRC\allquotes.txt),:) $read(C:\mIRC\allquotes.txt,n,$2) }
    elseif ($2 == find) && ($len($3) > 2) {
      var %x $lines(C:\mIRC\allquotes.txt)
      while (%x) {
        if ($3- isin $read(C:\mIRC\allquotes.txt)) {
          set %quotes.return $addtok(%quotes.return,%x,32)
        }
        dec %x
      }
      unset %quotes.*
      halt
    }
  }
}
}