set bots {bot1 bot2}
  
proc isbot {b} { 
  foreach a $::bots { 
    foreach _b $b { if {[string equal -nocase $a $_b]}  { return 1 } 
  }  
  return 0
}  
 
proc deop:channel {n u h c m v} {
        foreach nick [chanlist $c] {
				  if {[isbot $nick] && [isop $nick $c]} { lappend $ops $nick }  
        }
        putlog "$ops"
        if {![info exists $ops]} {
                putquick "MODE $c +m"
        }
}