Code:

set cmdsearch "@find" set rlsmaxsearch 2 set cd_release "{/home/devilsoul/eggdrop/scripts/passsearch.txt}" bind pub - @find rlssearchpub proc rlssearchpub {nick uhost handle chan arg} { global rlsmaxsearch cd_release if {$arg == ""} {puthelp "privmsg $chan :$nick ,search syntax is: \002\0034@find <search string>" ;return 0} regsub -all -- " " ${arg} "*" rlsarg set totrlsfound 0 foreach database $cd_release { set rlsfile [open $database r] while {![eof $rlsfile]} { set rlsline [gets $rlsfile] if {[string match "*$rlsarg*" [string tolower $rlsline]]} { incr totrlsfound 1 if {$totrlsfound < $rlsmaxsearch} { set rlsline2 $rlsline set lurl [lindex $rlsline2 0] set lfrom [lindex $rlsline2 1] set lpoints [lrange $rlsline2 2 end] #putserv "Privmsg $chan :\0034$nick\003 , \0032Found:\002 \0034'$rlsarg'\003\002 \0033.. sending the pass to you in privmsg " puthelp "PRIVMSG $nick : \002Found:\002 $lurl ..... type --> \002\0034url - $lurl\002\003 in \0034THIS WINDOW\003 to remove a bad pass!!-- posted by $lfrom" } } } close $rlsfile } #if {$totrlsfound > $rlsmaxsearch} {puthelp "PRIVMSG $nick :There are over #if {$totrlsfound > $rlsmaxsearch} {puthelp "PRIVMSG $nick :There are over $rlsmaxsearch matches. Please be more specific"} #puthelp "PRIVMSG $nick :There was a total of $totrlsfound entries matching your query." }