Code:

#Set your channel services name@services hereset chanserv "chanserv@services.dal.net"bind mode - "*" check:why:on:opbind notc - "*" chanserv:whyproc check:why:on:op {nick uhost hand chan mode arg} { global chanserv chanservwhy set arg [string tolower $arg] if {[string equal "+o" $mode] && [string equal "ChanServ" $nick] && [botisop $chan] && ![isbotnick $arg]} {  putserv "PRIVMSG $::chanserv :WHY $chan $arg"  set chanservwhy($arg) 1  }}proc chanserv:why {nick uhost hand text {dest ""}} { global chanservwhy  set text [stripcodes bcruag $text]  set nick [string tolower [lindex $text 0]]  if {[info exists chanservwhy($nick)]} {   if {[isbotnick $dest] && [string equal "ChanServ" $nick] && [string match "*has * access to #* *Reason:*" $text] && [string match -nocase "#*" [string trimright [lindex $text 5] .]]} {    putquick "ONOTICE [string trimright [lindex $text 5] .] :$text"    unset chanservwhy($nick)    }  }}