| View previous topic :: View next topic |
| Author |
Message |
kitsaras Voice
Joined: 02 Feb 2006 Posts: 29
|
Posted: Sat May 20, 2006 3:54 am Post subject: help wit a tcl modification ols |
|
|
i modify this tcl from bind pub to bind join and i wonder:
| Code: | bind JOIN - "*" statsu
bind raw - 242 show:statsu
set statsuc 0
proc statsu {nick uhost hand chan} {
global statsu statsuc
if {$statsuc > 0} {
puthelp "privmsg $chan :Already in progress"
return 0
}
set servers {exampe.irc.net}
foreach server $servers {
incr statsuc
if {![info exists statsu([set chan [string tolower $chan]]:$statsuc)]} {
set statsu($chan:$statsuc) 0
putserv "stats u $server"
}
}
}
proc show:statsu {from kw arg} {
global statsu statsuc
foreach {c v} [array get statsu] {
puthelp "privmsg [lindex [split $c :] 0] :$from [join [lrange [split $arg] 1 end]]"
array unset statsu $c
incr statsuc -1
break
}
} |
this bot is an ircop. can i put something like:
set channel "#chan1"
so when i join the specific channel "#chan1" shows the statsu ?
and now works fine but shows the statsu in all channel .
any help pls ?
thanks |
|
| Back to top |
|
 |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
|
| Back to top |
|
 |
kitsaras Voice
Joined: 02 Feb 2006 Posts: 29
|
Posted: Sat May 20, 2006 9:31 am Post subject: |
|
|
| Sir_Fz wrote: | | Code: | | bind JOIN - "#channel *" statsu |
|
thanks a lot Sir_Fz i try it  |
|
| Back to top |
|
 |
|