shroudBNC Board

Full Version: highlightlog.tcl - Log highlights when you're offline
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Code:
internalbind server highlightlog

proc highlightlog {client parameters} {
    if {[lindex $parameters 1] == "PRIVMSG" &&
        [string index [lindex $parameters 2] 0] == "#" &&
        ![getbncuser $client hasclient]} {
        if {[string first $::botnick [lindex $parameters 3]] >= 0} {
            set nick [split [lindex $parameters 0] !]
            putlog "[lindex $nick 0] ([lindex $nick 1]) ([lindex $parameters 2]): [lindex $parameters 3]"
        }
    }
}
Reference URL's