Code:

proc protect::protection {nickname hostname handle channel mode victim} {   if {($nickname == "$victim") || ($nickname == "$::botnick") || ![channel get $channel "protection"]} {      return 0   }   switch -exact -- $mode {      "+o" {         if {![matchattr $handle nmAS|nmo $channel]} {            putquick "PRIVMSG [protect::service $channel] :DEOPALL $channel" -next            if {[string match -nocase $::botnick $victim]} {               set reason "op me"            } else {               set reason "op anyone"            }            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set homename *!*@[lindex [split $hostname] 1]            }            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               if {[string match -nocase $::botnick $victim]} {                  putquick "MODE $channel -o+b $nickname $hostname" -next               } else {                  putquick "MODE $channel -oo+b $nickname $victim $hostname" -next               }               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: op\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-o" {         if {![matchattr $handle nmAS|nmo $channel]} {            putquick "PRIVMSG [protect::service $channel] :DEOPALL $channel" -next            if {[string match -nocase $::botnick $victim]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel" -next               set reason "deop me"            } else {               set reason "deop anyone"            }            set kickid [expr {$::id} + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set homename *!*@[lindex [split $hostname] 1]            }            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               if {[string match -nocase $::botnick $victim]} {                  putquick "MODE $channel -o+b $nickname $hostname" -next               } else {                  putquick "MODE $channel -o+ob $nickname $victim $hostname" -next               }               putquick "KICK $channel $nickname :$kickmsg"               putlog "punished $nickname on $channel \(Reason: op\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "+v" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {[botisop $channel]} {               putquick "MODE $channel -ov $nickname $victim"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }         putlog "punished $nickname on $channel \(Reason: voice\)"      }      "-v" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {[botisop $channel]} {               putquick "MODE $channel -o+v $nickname $victim"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }         putlog "punished $nickname on $channel \(Reason: devoice\)"      }      "+b" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            if {[string match -nocase $::botname $victim]} {               if {![botisop $channel]} {                  putquick "PRIVMSG [protect::service $channel] :OP $channel" -next               }               set reason "ban me"            } else {               set reason "ban anyone"            }            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -ob+b $nickname $victim $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: ban\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-b" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel" -next            }            set reason "unban anyone"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -o+bb $nickname $hostname $victim" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: unban\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "+i" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set kickmsg $protect::kickmsg            set reason "set invite"            set kickid [expr $::id + 1]            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -oi+b $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: set invite\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-i" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "unset invite"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -o+ib $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: unset invite\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "+l" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "set +l \(limit\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -ol+b $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: set limit\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-l" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "unset +l \(limit\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -o+bl $nickname $hostname $victim" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: unset limit\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "+m" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "set +m \(moderated\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -om+b $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: set moderated\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-m" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "unset +m \(moderated\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -o+mb $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: unset moderated\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "+k" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "set +k \(key\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -ok+b $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: set key\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-k" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "unset +m \(moderated\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -o+bk $nickname $hostname $victim" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: unset key\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "+t" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "set +t \(topic\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -ot+b $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: set topic +t\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-t" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "unset +t \(topic\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -o+bt $nickname $hostname " -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: unset topic +t\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "+n" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "set +n \(no external messages\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -on+b $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: set key\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-n" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "unset +n \(no external messages\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -o+nb $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: unset key\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "+s" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "set +s \(secret\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -os+b $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: set secret\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-s" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "unset +s \(secret\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -o+sb $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: unset secret\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "+p" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "set +p \(private\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -op+b $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: set private\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }      "-p" {         if {![matchattr $handle nmAS|nmo $channel]} {            if {![botisop $channel]} {               putquick "PRIVMSG [protect::service $channel] :OP $channel"            }            if {[string match -nocase "*users.quakenet.org" $hostname]} {               set hostname "*!*@[lindex [split $hostname] 1]"            }            set reason "unset +p \(private\)"            set kickid [expr $::id + 1]            set kickmsg $protect::kickmsg            set kickmsg "[format $kickmsg $reason $channel $kickid $protect::homechan]"            newchanban $channel $hostname "$kickmsg" $protect::prot_btime            if {[botisop $channel]} {               putquick "MODE $channel -o+pb $nickname $hostname" -next               putquick "KICK $channel $nickname $kickmsg"               putlog "punished $nickname on $channel \(Reason: unset private\)"            } else {               putlog "Error: could not punished $nickname on $channel \(Reason: no op\)"            }         }      }   }}

Code:

* Bk`Tosser-- sets mode: +i* aP|Trojan sets mode: -io+b Bk`Tosser-- *!Tosser@spc1-lanc1-3-0-cust169.asfd.broadband.ntl.com* Bk`Tosser-- was kicked by aP|Trojan (6) ][ (SecureBot by #BotCentrum) ])Kickmsg should be:* Bk`Tosser-- was kicked by aP|Trojan ([ (You are not ALLOWED to set invite on #channel) ][ (ID: 6) ][ (SecureBot by #BotCentrum) ])