one command all channels

true_life · Post by **true_life** » Tue May 14, 2013 3:49 am

Hi EveryOne!!!!

i want a tcl script for my bot which can send message to every channel it is in or to specific channel on a command such as

abcdbot is on #123 #xyz #678

the main channel is #123

and when i type .all HELLO PLEASE LISTEN

so the bot messages on every channel it is.

thanks

Madalin · Post by **Madalin** » Tue May 14, 2013 4:11 am

Try this

Code: Select all

bind PUB - .all all 

proc all {nick uhost hand chan arg} { 

	if {![string match -nocase $chan "#123"]} { return }

  	foreach c [channels] { 
		if {[botonchan $c] && ($chan != $c)} {
	       	putserv "PRIVMSG $chan :$arg" 
      		}	 
   	}	 
}

Post by **caesar** » Tue May 14, 2013 4:27 am

Madalin that's not what he asked for, besides, there's no need for the lrange.

Code: Select all

bind pub * .all pub:all

proc pub:all {nick uhost hand chan text} {
	if {![string match -nocase $chan "#123"]} return
	foreach chn [channels] {
		if {![botonchan $chn]} continue
		puthelp "PRIVMSG $chn :$text"
	}
}

Since you haven't mentioned any user flags I left to be available to all (the *), so adjust it to your needs.

Edit: Typo.

Madalin · Post by **Madalin** » Tue May 14, 2013 4:39 am

I modifyed my copy now ... i read but as you saw i forgot about the main channel 'my mistake' the new version should work ok now

true_life · Post by **true_life** » Tue May 14, 2013 5:22 am

thank you both of you and it was very quick!

true_life · Post by **true_life** » Tue May 14, 2013 5:23 am

thank you both of you and it was very quick!

speechles · Post by **speechles** » Tue May 14, 2013 5:37 am

Code: Select all

set controlChan "#123"

bind pubm -|- "$controlChan .all *" pub:all

proc pub:all {nick uhost hand chan text} {
   set text [join [lrange [split $text] 1 end]]
   foreach ch [channels] {
      if {![botonchan $ch] || [string equal $ch $::controlChan} continue
      puthelp "PRIVMSG $chan :$text"
   }
}

An easier approach is using pubm style glob-masks to limit what has to be checked inside the procedure, simplifying the entire thing.

true_life · Post by **true_life** » Tue May 14, 2013 8:14 am

can you add something by which on specific members can use this command?

like people with .chattr +P will be able to use the .all command

Madalin · Post by **Madalin** » Tue May 14, 2013 8:50 am

Just change what in bold with the flag letter you want (local)

bind pubm -|here

true_life · Post by **true_life** » Tue May 14, 2013 11:12 am

[17:11:43] Tcl error [pub:all]: missing close-bracket

this is the reply im getting in party line

Post by **SpiKe^^** » Tue May 14, 2013 11:57 am

try this...

Code: Select all

set controlChan "#123" 

bind pubm -|- "$controlChan .all *" pub:all 

proc pub:all {nick uhost hand chan text} { 
   set text [join [lrange [split $text] 1 end]] 
   foreach ch [channels] { 
      if {![botonchan $ch] || [string equal -nocase $ch $::controlChan]} continue 
      puthelp "PRIVMSG $chan :$text" 
   } 
}

true_life · Post by **true_life** » Tue May 14, 2013 12:06 pm

instead of replying to other channels, it is replying to the same channel.

Madalin · Post by **Madalin** » Tue May 14, 2013 12:15 pm

Modify

Code: Select all

puthelp "PRIVMSG $chan :$text"

with

Code: Select all

puthelp "PRIVMSG $chn :$text"

true_life · Post by **true_life** » Tue May 14, 2013 12:27 pm

same! + the both lines above are same to.

true_life · Post by **true_life** » Tue May 14, 2013 12:53 pm

Tcl error [pub:all]: can't read "chn": no such variable