Simple Need

[Sir_Fz]

Code: Select all

set spambantime 10

bind msgm - "*" pv_kick


proc pv_kick {nick uhost hand text} {
global botnick spambantime

 if {[regexp -nocase "#" $text] || [regexp -nocase "join" $text] || [regexp -nocase "channel" $text] || [regex$
   foreach kickchan [channels] {
     if {![isop $nick $kickchan] || ![isvoice $nick $kickchan]} {
       if {[onchan $nick $kickchan]} {
          set bmask "*!*[string range $uhost [string first "@" $uhost] end]"
          if {![ischanban $bmask $kickchan] || [botisop $kickchan]} {
                set kickmsg "Private Spamming detected - Banned 10mins."
                putquick "KICK $kickchan $nick :$kickmsg"
                putquick "mode $kickchan +b $bmask $spambantime"

              }
        }
     }
}
}
}

what should i add to this script so it won't ban masters and owners on private spam ?

and does the ban-time work in this script, like will it unban the user after 10mins ?

[Moo_Moo]

Above the regexp matching, add:

Code: Select all

if {[matchattr $hand m]} { return }

This will cause the remaining code not to be executed if the user is recognized as either a global master, or a global owner.

[Moo_Moo]

As for the ban-time, lookup the newban function in tcl-commands.doc