bind pub - !dupe dupeproc
proc dupeproc {nick host handle chan text} {
 puthelp "privmsg $chan :Checking for dupes..." 
 set dupefile [open dupelist r]
 set counter 1
 while {!EOF} {
  gets $dupefile line($counter)
  if {"$line($countr)" == "$text"} {
   puthelp "privmsg $chan :$line($counter)"
  }
 incr $counter
 }
close dupefile
return 0
}

# if i try !dupe holidaypics theres no output,
# the word holidaypics is in the duplist.