namespace eval modecontrol { 
  variable enforceModes ""  #daima bu modlarda tutsun 
  variable restrictModes "" #asla bu modlara izin vermesin 

  proc raw:modeCheck {from key text} { 
    variable enforceModes 
    variable restrictModes 

    set from [split $from "!"] 
    set nick [lindex $from 0] 
    set handle [nick2hand $nick] 
    #Sanity check 
    if {[isbotnick $nick] || [matchattr $handle "+mnb"]} { 
      return 0 
    } 

    set items [split $text] 
    set enforce [split $enforceModes ""] 
    set restrict [split $restrictModes ""] 
    set target [lindex $items 0] 
    set add 1 
    set act 0 

    foreach mode [split [lindex $items 1] ""] { 
      switch -- $mode { 
        "+" { 
          set add 1 
        } 
        "-" { 
          set add 0 
        } 
        "I" - 
        "e" - 
        "b" { 
          set items [lreplace $items 2 2] 
        } 
        "k" { 
          if {$add} { 
            set key [lindex $items 2] 
            set items [lreplace $items 2 2] 
          } 
        } 
        "l" { 
          if {$add} { 
            set limit [lindex $items 2] 
            set items [lreplace $items 2 2] 
          } 
        } 
        default { 
          if {[lsearch $lock $enforce] >= 0 && !$add} { 
            pushmode $target "+$mode" 
            set act 1 
          } elseif {[lsearch $restrict $mode] >= 0 && $add} { 
            pushmode $target "-$mode" 
            set act 1 
          } 
        } 
      } 
      #kanal için bir limit yada key-anahtar ayarlamak için kullanın 
      #if {[info exists key]} { 
      #  pushmode $target -k $key 
      #} 
      #if {[info exists limit]} { 
      #  pushmode $target -l 
      #} 
    } 
    if {$act && [llength $from] > 1} { 
      puthelp "NOTICE $nick :izin verin size kanal mod ayarları için yardım edeyim." 
    } 
    return 0 
  } 

  bind raw - "MODE" [namespace current]::modeCheck 
}

bind mode - * chanmodes
proc chanmodes {nick uhost hand chan mode desc} {
  global botnick
  if {$mode == "+u"} {
    putquick "MODE $chan -u"
    putquick "NOTICE $nick +u kanal modunda kullanıcılar görülmediği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+A"} {
    putquick "MODE $chan -A"
    putquick "NOTICE $nick +A kanal modunda sadece adminler kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+O"} {
    putquick "MODE $chan -O"
    putquick "NOTICE $nick +O kanal modunda sadece operler kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+i"} {
    putquick "MODE $chan -i"
    putquick "NOTICE $nick +i kanal modunda sadece davetliler kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+k"} {
    putquick "MODE $chan -k $desc"
    putquick "NOTICE $nick +k kanal modunda sadece şifreyi bilenler kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+Q"} {
    putquick "MODE $chan -Q"
    putquick "NOTICE $nick +Q kanal modunda kimse atılamadığı için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+z"} {
    putquick "MODE $chan -z"
    putquick "NOTICE $nick +z kanal modunda sadece güvenli bağlantılar kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+l"} {
    putquick "MODE $chan -l"
    putquick "NOTICE $nick +l kanal modunda sadece limit sayısı kadar kullanıcı kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+R"} {
    putquick "MODE $chan -R"
    putquick "NOTICE $nick +R kanal modunda sadece kayıtlı kullanıcılar kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
}

putlog "Kanal Mod Koruma TCL v1.0 - Written By CLubber"

bind mode - * banlistchech
proc banlistchech {nick uhost hand chan mode victim} {
    global botnick bot
    if {[string match -nocase "-*n*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +n" }
    if {[string match -nocase "-*t*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +t" }
    if {[string match -nocase "-*T*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +T" }
    if {[string match -nocase "+*f*" $mode]} { putquick "OperServ raw :ChanServ mode $chan -f" }
    if {[string match -nocase "-*G*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +G" }
    if {[string match -nocase "-*j*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +j 1:15" }
    if {[string match -nocase "-*l*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +l 300" }
    if {[string match -nocase "+*L*" $mode]} { putquick "OperServ raw :ChanServ mode $chan -L" }
}