nick list through botnet

[kanibus]

hey i am running a channel relay script that works perfect. i was just wondering is there anyway to have it so that is someone types !nicks or something similar it would display the channel list for both channels?

[demond]

Code: Select all

bind pub - !nicks foo
bind bot - nickq bar
bind bot - nicka moo
proc foo {n u h c t} {
   putbot $t "nickq $n $c"
}
proc bar {f c t} {
   foreach {n c} [split $t] {break}
   putbot $f "nicka $n $c [join [chanlist $c]]"
}
proc moo {f c t} {
   foreach {n c} [split $t] {break}
   puthelp "notice $n :nicks on $f's channel $c: [join [lrange [split $t] 2 e]]"
}

[kanibus]

hey thanks for the quick response demond. i am getting 'bot not on the botnet' though, im not sure that i edited your script quite right. i changed nickq to the bot i am configuring the script on, and nicka as the bot in the other channel. thanks for your help

[demond]

no no, don't edit anything, all you need to do is to run this on both bots and type !nicks otherbot on channel, where otherbot is the nick of the bot on the other side

[kanibus]

ahhh works perfect, thanks. now if i wanted to strip Chanserv and the botnick?

[demond]

Code: Select all

proc bar {f c t} {
   foreach {n c} [split $t] {break}
   set t [chanlist $c] 
   foreach e [list $::botnick ChanServ] {
      if {[set i [lsearch -exact $t $e]] != -1} {
         set $t [lreplace $t $i $i]
      }
   }
   putbot $f "nicka $n $c [join $t]"
}