# By The |mmortaL (asn@cdc.net)
# BITCH1.0.tcl (Redoes bitch system so it works!)
# The chan which U want bitch to work on

set bchan #Startrek_osts

bind mode - "*+o $botnick*" mode:bitchstartup
bind mode - *+o* mode:bitch


proc mode:bitchstartup {nick uhost handle chan modechg} {
 global bchan botnick
 if {[string tolower $chan] != [string tolower $bchan]} {return 0}
 foreach nick [chanlist $chan] {
   if {([isop $nick $chan] == 1) && ([string tolower $botnick] != [string tolower $nick])} {
     if {([matchchanattr [nick2hand $nick $chan] o $chan] == 0) && ([matchchanattr [nick2hand $nick $chan] m $chan] == 0) && ([matchattr [nick2hand $nick $chan] o] == 0) && ([matchattr [nick2hand $nick $chan] m] == 0)} {
       pushmode $chan -o $nick
       return 0
     }
     if {[matchchanattr [nick2hand $nick $chan] d $chan] == 1} {
       pushmode $chan -o $nick
       return 0
     }
   }
 }
}



proc mode:bitch {nick uhost handle chan modechg} {
 global botnick bchan
 if {[string tolower $chan] != [string tolower $bchan]} {return 0}
 set who [lindex $modechg 1]
 if {[string tolower $botnick] == [string tolower $who]} {return 0}
 if {([matchchanattr [nick2hand $who $chan] o $chan] == 0) && ([matchchanattr [nick2hand $who $chan] m $chan] == 0) && ([matchattr [nick2hand $who $chan] o] == 0) && ([matchattr [nick2hand $who $chan] m] == 0)} {
    if {([matchattr $handle m] == 1) || ([matchchanattr $handle m $chan] == 1)} {return 0}
    pushmode $chan -o $who
    return 0
  }
  if {[matchchanattr [nick2hand $who $chan] d $chan] == 1} {
    pushmode $chan -o $who
    return 0
  }
}

putlog "Eggdrog-grant1.1 - Bitch Mode on: $bchan, fully loaded... --The |mmortaL (asn@cdc.net)"