Help with tcl

[Kaarel]

I have a code

Code: Select all

bind pub - !stats stats_pub

proc stats_pub {nick host handle chan args} { 
putserv "PRIVMSG $chan :Channel $chan  stats are http://www.hot.ee/cyberstats "
} 

What I have to change in that script that this script will work only in 1 channel.[/quote]

[stdragon]

Well, the $chan variable stores the channel name. So use an 'if' statement and a command like 'string compare' to make sure it's the channel you want.

[ReaLz]

for example to what stdragon said, use this:

Code: Select all

set stats_chan "#tade"

bind pub - !stats stats_pub 

proc stats_pub {nick host handle chan args} { 
if {$chan == $::stats_chan} {
putserv "PRIVMSG $chan :$nick: you can find $chan channel's stats at http://www.hot.ee/cyberstats" 
}
}