# .chanset #kanal +komutlar
# kanal üstünde aktif eder.
setudef flag komutlar

# komutlara erişimi olacak kullanıcılar : m = bot master | n = bot sahibi
set yetkiler "mn"

# !temizle komutunda kaç satır ile temizlenmesi isteniyor.
set temizsatir "15"

bind pubm - "*" kmt_pubs

proc kmt_pubs {nick uhost hand chan text} {
   if {![channel get $chan komutlar]} { return 0 }
   if {![matchattr [nick2hand $nick] $::yetkiler $chan]} {
       puthelp "notice $nick :Komutları kullanmak için en az $::yetkiler flaglarına sahip olmalısınız..."
       return 0
    }
       set kmt [lindex [split [string tolower $text]] 0]
       set hedef [lindex [split [string tolower $text]] 1]
       set neden [join [lrange [split [string tolower $text]] 2 end]]
      
       switch -exact -- $kmt {
    !deopla { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !deopla <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] && [isop $hedef $chan] && ![isbotnick $hedef]} {
                  putserv "notice $nick :$hedef $chan kanalında deoplanıyor.."
                  pushmode $chan -o $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston bir sorunumuz var..."
                  }
            }
      !kick { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !kick <hedef-nick> <sebep>"
                  puthelp "notice $nick :Bir <sebep> belirtilmezse, öntanımlı olarak \"istek üzerine\" sebep olarak eklenecektir..."
                  return 0
                  }
              if {[llength $neden] eq 0} { set neden "istek üzerine";}
              if {[onchan $hedef $chan] && [botisop $chan] && ![isbotnick $hedef]} {
                  putserv "notice $nick :$hedef ,$chan kanalında ,$neden sebebiyle kickleniyor..."
                  putkick $chan $hedef :$neden
                  } else {
                  puthelp "notice $nick :Houston sesim geliir mü?"
                  }
            }
     !voice { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !voice <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && ![isvoice $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında voicelanıyor.."
                  pushmode $chan +v $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston nedir senden çektiğim böyle hıh?!..."
                  }
            }
     !banla { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !banla <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && ![isbotnick $hedef]} {
                  putserv "notice $nick :$hedef $chan kanalında banlanıyor.."
                  pushmode $chan +b $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston seninle benim bir sorunumuz olduğu kesin!..."
                  }
            }
   !temizle { if {[validchan $chan] && [botonchan $chan] && [botisop $chan]} {
                  putserv "notice $nick :$chan kanalı temizleniyor.."
                  putserv "privmsg $chan :$chan kanalı için temizlik vakti..."
                  set i 0; set j "\00300,04 \u262A   \003"
                  while {$i < $::temizsatir} { puthelp "privmsg $chan :$j"; incr i }
                  putserv "privmsg $chan :$chan kanalında temizlik tamamlandı..."
                  } else {
                  puthelp "notice $nick :of Houston of...işimiz var seninle..."
                  }
            }
      !opla { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !opla <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] && ![isop $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında oplanıyor.."
                  pushmode $chan +o $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston dertlerim hiç bitmiyor..."
                  }
            }
   !devoice { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !devoice <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && [isvoice $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında devoicelanıyor.."
                  pushmode $chan -v $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston bırak sen artık bu işleri..."
                  }
            }
    !halfop { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !halfop <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] && ![ishalfop $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında halfoplanıyor.."
                  pushmode $chan +h $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston olmıyacak bu iş seninle..."
                  }
            }
  !dehalfop { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !dehalfop <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] && [ishalfop $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında dehalfoplanıyor.."
                  pushmode $chan -h $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston arkası gelmez dertlerimin..."
                  }
            }
    !rehash { putquick "privmsg $chan :Yeniden yükleniyor..."
              rehash
              puthelp "privmsg $chan :Yükleme tamamlandı..."
            }
   !restart { putquick "privmsg $chan :Yeniden başlatılıyor...Dönüşüm muhteşem olacak, beni bekleyin..."
              restart
            }
      !hata { foreach hata [split $::errorInfo "\n"] { 
                 puthelp "privmsg $chan :$hata" 
                 }
            }
       !die { set mesaj [join [lrange [split $text] 1 end]]
              if {[llength $mesaj] eq 0} { set mesaj "ah! vuruldum, ölüyorum!!!..";}
              die "$mesaj"
            }
       !gir { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !gir <#hedef-kanal>"; return }
              if {![string match -nocase "#*" $hedef]} {
                  puthelp "notice $nick :Kanal adını doğru girdiğinize emin olun..."
                  return 0
                 }
                  putserv "notice $nick :$hedef kanalına giriliyor..."
                  channel add $hedef
                  puthelp "privmsg $hedef :Aleyküm Selam ağalar..."
            }
       !çık { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !çık <#hedef-kanal>"; return }
              if {[botonchan $hedef] && [validchan $hedef]} {
                  putserv "notice $nick :$hedef kanalından çıkılıyor..."
                  channel remove $hedef
                  puthelp "notice $nick :kanaldan çıkıldı..."
                 } else {
                  puthelp "notice $nick :dertlerim hiç bitmiyor houston..."
                 }
            }
     !cycle { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !cycle <#hedef-kanal>"; return }
              if {[botonchan $hedef] && [validchan $hedef] && [string match -nocase "#*" $hedef]} {
                  channel set $hedef +inactive
                  channel set $hedef -inactive
                  puthelp "notice $nick :$hedef kanalında cycle edildi..."
                 } else {
                  puthelp "notice $nick :hep dert ,hep dert houston,,,böyle olmuyor ama bak deyim sana..."
                 }
            }
    default { return }
            }
        return 0
    }
   
    putlog "ok..."