Code: Select all
bind raw - notice shun-snotice
proc shun-snotice {from keyword arg} {
if {[string match -nocase "*shun*" $arg]} {
set shun [lrange $arg 1 end]
putserv "privmsg $::monchan :$shun"
}
}
Code: Select all
bind raw - notice shun-snotice
proc shun-snotice {from keyword arg} {
if {[string match -nocase "*shun*" $arg]} {
set shun [lrange $arg 1 end]
putserv "privmsg $::monchan :$shun"
}
}