Code:

bind pub o|o !request request:requestproc request:request {nick host handle chan text} {global req_nick req_chanset req_chan $textset req_nick $nickputquick "PRIVMSG #merc-finder :\002( #merc-finder )-(\002 Request service Inactive for 40 seconds while checking $req_chan \002)\002"channel add $req_chanbind join -|- "$req_chan $::botnick*" checks:checks}proc checks:checks {nick host handle chan} {global req_nick req_chanif {[isop $req_nick $req_chan]} { set isop 1 } { set isop 0 }putquick "PRIVMSG $req_chan : Checking for \002Q\002 or \002L\002 bot..."if {[onchan L $req_chan] || [onchan Q $req_chan]} {set QLcheck 1putquick "PRIVMSG $req_chan :\002Q or L\002 Found ! Requirement Met !"} { set QLcheck 0putquick "PRIVMSG $req_chan :No \002Q or L\002 Found ! Requirement \002NOT\002 Met !"}putquick "PRIVMSG $req_chan : Checking for\002 40 \002or More users ..."set chan_amount [llength [chanlist $req_chan]]if {$chan_amount >= 40} {set chan_amount_check 1putquick "PRIVMSG $req_chan :\002$chan_amount\002 users found ! Requirement Met !"} {set chan_amount_check 0putquick "PRIVMSG $req_chan :\002$chan_amount users found !\002 Requirement \002NOT\002 Met!"}set score [expr $isop+$chan_amount_check+$QLcheck]if {[string match 3 $score]} { putquick "PRIVMSG $req_chan :#merc-finder Requiremnets met! Bringing in a relay."channel remove $req_chanputquick "PART $req_chan :\002( #merc-finder )-( \002Requirements met for $req_chan \002)\002!"putquick "PRIVMSG #merc-finder.staff :!addrelay $req_chan"} {putquick "PRIVMSG $req_chan :#merc-finder Requiremnets NOT met!"channel remove $req_chanputquick "PART $req_chan : #merc-finder Requirements NOT met!"putquick "PRIVMSG #merc-finder :Requirements not met for $req_chan"}}

Code:

[mercfinder] [09:45] Tcl error [hnd:join]: illegal channel: #magik^[09:45] -L (TheLBot@lightweight.quakenet.org)- [#MaGiK^] [09:45] Oops. Someone made me join #magik^... leaving...