Common channels

2009-06-08T10:01:09-04:00

Thanks,that script is doing its job very good =)

Statistics: Posted by DaRkOoO — Mon Jun 08, 2009 10:01 am

Common channels

2009-06-07T17:10:57-04:00

Wow, there is no need to issue a whois to do this, nor is reading raw replies even necessary. Not to mention the huge flaw in that script's display. It won't display them all on one line as the poster suggested.
It has the putserv done incorrectly, for some reason it is within the foreach. This means it will spam so much it's likely if the poster's bot and the nickname share enough common channels the bot will be killed for issuing an excess text flood.

Just use the small script below and remember on partyline to .chanset #yourchan +common after you source it. This will work exactly as the poster has requested.

Code:

setudef flag commonbind pub - .common check:commonproc check:common {nick uhost hand chan text} {   if {![channel get $chan common]} { return }   if {![string length [set n [lindex [split $text] 0]]]} {     puthelp "Usage: .common  - please supply nickname ;P"     return   }   foreach c [channels] {      if {[onchan $n $c]} { lappend common $c }   }   if {[info exists common]} {      puthelp "privmsg $chan :My common channels with $n are: [join $common ", "]."   } else {      puthelp "privmsg $chan :I share no common channels with $n."   }}

Statistics: Posted by speechles — Sun Jun 07, 2009 5:10 pm

Common channels

2009-06-07T14:13:37-04:00

Try it

http://tclscripts.net/common.tcl

Statistics: Posted by BLaCkShaDoW — Sun Jun 07, 2009 2:13 pm

Common channels

2009-06-07T09:42:26-04:00

Hi all,

I need script which will make my bot to say common channels with some other nick.Should work like .common
Bot:My common channels with are: #chan1 #chan2 etc..

Regards,
Darko.

Statistics: Posted by DaRkOoO — Sun Jun 07, 2009 9:42 am

egghelp/eggheads community

Common channels

Common channels

Common channels

Common channels