Code: Select all
bind kick - * mass:ban
proc check:whogave {onickx uhost hand ochanx targ rsn} {
global ochanx onickx
if {([string tolower $targ] == [string tolower $botnick]) && ([string match -nocase $rsn "*this is a mass ban*"])} {
putquick "PRIVMSG X :access $ochanx $onickx -modif"
}
}
bind notc - "*LAST MODIFIED:*" check:adder
proc check:adder {nick uhost hand arg dest} {
global ochanx onickx
set adder [lindex [split $arg] 2] ; set host [lindex [split $arg] 3] ; set interval [join [lrange $arg 4 end]]
putserv "NOTICE $ochanx :$adder added $onickx with host : $host since : $interval"
}
Code: Select all
set adder [lindex [split $arg] 2] ; set host [lindex [split $arg] 3] ; set interval [join [lrange $arg 4 end]]
Code: Select all
set adder [lindex [split $arg] 2] ; set host [lindex [split $arg] 3] ; set interval [join [lrange [split $arg] 4 end]]
Code: Select all
##nickname of user who the bot should send the new op adder's nick
set sendwho "YourNickOnIRC"
bind kick - * mass:ban
proc check:whogave {nick uhost hand ochanx targ rsn} {
global onickx
if {([string tolower $targ] == [string tolower $botnick]) && ([string match -nocase $nick x]) && ([string match -nocase "*\\\(*\\\)*" $rsn])} {
set onickx [string trim [lindex [split $rsn "\\\("] 1] "\\\)"]
putquick "PRIVMSG X :access $ochanx $onickx -modif"
}
}
bind notc - "*LAST MODIFIED:*" check:adder
proc check:adder {nick uhost hand arg dest} {
global sendwho onickx
set adder [lindex [split $arg] 2] ; set host [lindex [split $arg] 3] ; set interval [join [lrange [split $arg] 4 end]]
putserv "PRIVMSG $sendwho :$adder added $onickx with host : $host since : $interval"
}