request of Why command tcl

[ircguru]

hello sir. i need a tcl which gives a why command to op notice when any op join the channel with different nicks .. so the bot will give onotice to channel thanQ!

[awyeah]

This script will opnotice the WHY command to the channel when a user gets opped by Chanserv (better to check on +o mode, rather than on join). Not the best of solutions, but here you go:

Code: Select all

#Set your channel services name@services here
set chanserv "chanserv@services.dal.net"

bind mode - "*" check:why:on:op
bind notc - "*" chanserv:why

proc 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)
    }
  }
}

[ircguru]

Your code is perfect but that is just showing in bot dcc not in onotice .. can u please check it !!