bot chanmode informer

[spithash]

I have a script that informs me if the bot got banned on any channel by private msging me, I got it from an other topic, I forgot which one..

The code is this:

Code: Select all

bind mode * "% +b" check:ban
proc check:ban {nick uhost handle channel change target} {
   # check if the mask matches the bot's host and return if it doesn't
   if {![string match -nocase $target $::botname]} return
   # do what action/actions you wish as the mask matches his host
   putserv "PRIVMSG spithash :Yo, I am banned on $channel !!!"
}

The question is, how can I make it inform me if it even gets voiced/devoiced and opped/deopped too?

Thank you, it will be really helpful to me and a piece of cake for you coders

[arfer]

Untested but I think it's OK

Code: Select all

bind MODE - * check:mode

proc check:mode {nick uhost handle channel change target} {
    if {[string equal -nocase $target $::botnick]} {
        switch -- $change {
            "+o" {putserv "PRIVMSG spithash :Yo, I have been oped by $nick on $channel !!!"}
            "-o" {putserv "PRIVMSG spithash :Yo, I have been deoped by $nick on $channel !!!"}
            "+v" {putserv "PRIVMSG spithash :Yo, I have been voiced by $nick on $channel !!!"}
            "-v" {putserv "PRIVMSG spithash :Yo, I have been devoiced by $nick on $channel !!!"}
            default {}
        }
    } else {
        if {([string equal $change "+b"]) && ([string match -nocase $target $::botname])} {
            putserv "PRIVMSG spithash :Yo, I have been banned by $nick on $channel !!!"
        }
    }
    return 0
} 

The one drawback, if you consider it such, is that coded in this way causes the bot to check every mode change on every channel.

[spithash]

Thanks a lot man, it works like a charm

It's really helpful/useful to me

[spithash]

hrmm, how about kick informing? That would complete it I think

[SpiKe^^]

Try adding this to your script...

Code: Select all

bind kick - *$botnick* check:kick

proc check:kick {nick uhost handle channel target reason} { 
    if {[string equal -nocase $target $::botnick]} { 
        putserv "PRIVMSG spithash :Yo, I have been kicked by $nick on $channel !!!" 
    }
}

[caesar]

How about using internal isbonick function instead of:

Code: Select all

if {[string equal -nocase $target $::botnick]} {

like this:

Code: Select all

if {[isbotnick $target]} {

that would work only if there's a single mode change per line (like -v bot), thus you would need (not tested, but in theory) to use lsearch or a foreach loop with a isbotnick check that is basically the same thing with the lsearch instead.

[spithash]

Really thank you guys, it works like a charm

caesar: works as well, thanks