06/02/2010, 15:25
C'est assez simple à faire:
TCL
set chan(watch) "#canal1"
set chan(say) "#canal2"
bind kick - "$chan(watch) *" kc:say
bind mode - "$chan(watch) +b" mc:say
proc kc:say {nick uhost handle chan target reason} {
putserv "PRIVMSG $::chan(say) :$target a été kické par $nick pour :$reason"
}
proc mc:say { nick uhost handle chan mode } {
putserv "PRIVMSG $::chan(say) :$mode"
}