my superbitch.tcl, but i have little problem

[NoFear]

Ok,.. I started writing on my SuperBitch.tcl,.. Had little problems.. But awyeah helped me.. Ok.. Here is the code..

Code: Select all

# nofear BiTcH TcL v1.0
# Contact By E-Mail: elnofear@email.si
# Contact By IrC: #H-Town @ IRCNeT
# Enjoy..

# SeTTiNgS..

# List of chans that Bitch will work on (Leave "*" for all chans)
set chans "*"

# Flags for users that can op in channels
set allowed "bmn|m"

# Code

bind mode - "*+o*" bitch

proc bitch {nick uhost hand chan mode target} {
 global botnick chans allowed
  if {([lsearch -exact [split [string tolower $chans]] [string tolower $chan]] != -1) || ($chans == "*")} {
   if {($mode == "+o") && ($nick != $botnick) && ($target != $botnick) && ([botisop $chan]) && (![matchattr $hand $allowed])} {
    putquick "KICK $chan $nick :Permission Denied"
    putquick "KICK $chan $target :Permission Denied"
    }
  } 
}
putlog "BiTcH By nofear v1.0 Loaded"

Please.. I'm missing the part of the code.. Like this..

If an user with no flags ops me (i'm owner), we both get kicked, i don't want that.. so i don't know what to type so that users with bnmo|nm flags can be opped by users with no flags

Mybee that bot ignores users with these flags (bnmo|nm) and do nothing to both $opped and $nick ?
I don't know.. Pls Help

Owk.. it's done.. i publish the code here.. it's just simple bitch..

Code: Select all

# nofear BiTcH TcL v1.0
# Contact By E-Mail: elnofear@email.si
# Contact By IrC: #H-Town @ IRCNeT
# Enjoy..

# SeTTiNgS..

# List of chans that Bitch will work on (Leave "*" for all chans)
set chans "*"

# Flags for users that can op in channels
set allowed "bmn|m"

# Flags for users that can be opped by users with no flags
set allowedops "bomn|mn"

# Code

bind mode - "*+o*" bitch

proc bitch {nick uhost hand chan mode target} {
global botnick chans allowed allowedops 
  if {([lsearch -exact [split [string tolower $chans]] [string tolower $chan]] != -1) || ($chans == "*")} {  
   if {[matchattr $target $allowedops $chan]} { return }
   if {($mode == "+o") && ($nick != $botnick) && ($target != $botnick) && ([botisop $chan]) && (![matchattr $hand $allowed])} {  
    putquick "KICK $chan $nick :Permission Denied"  
    putquick "KICK $chan $target :Permission Denied"  
    }  
  }   
}

putlog "BiTcH By nofear v1.0 Loaded"

There you go.. c'ya all, actually this was my first script