# Kullanım : !<komut> <nick> <#kanal>

# Admin kanalının adı
set admin_kanali "#Oper"

set kmtlr "!vop !hop !op !sop !owner"

bind pub - * komutlar
proc komutlar {nick user handle chan arg} {
    global admin_kanali kmtlr
    if {![string match -nocase $chan $admin_kanali]} { return }
    set komut [lindex $arg 0]
    if {[lsearch -exact $kmtlr $komut] != -1 && [lrange $arg] == "3"} {
        set rumuz [lindex $arg 1] ; set kanal [lindex $arg 2]
        if {[string index $kanal 0] != "#"} { set kanal #$kanal }
        if {![onchan $rumuz $kanal]} {
            putquick "privmsg $chan :\002$rumuz\002 nickli kişi şuanda \002$kanal\002\
                kanalında bulunmuyor."
            return
        }
        if {$komut == "!vop"} {
            putquick "mode $kanal +v $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037voice\037 verilmiştir."
        }
        if {$komut == "!hop"} {
            putquick "mode $kanal +h $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037halfop\037 verilmiştir."
        }
        if {$komut == "!sop"} {
            putquick "mode $kanal +a $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037protect\037 verilmiştir."
        }
        if {$komut == "!op"} {
            putquick "mode $kanal +o $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037op\037 verilmiştir."
        }
        if {$komut == "!owner"} {
            putquick "mode $kanal +q $rumuz"
            putquick "privmsg $chan \002$kanal\002 kanalında \002$rumuz\002 nickine\
                \037owner\037 verilmiştir."
        }
    }
}

putlog "coded By SaW" 

# Komut.TCL
#Kullanımı :!komut #kanal nick

bind pub - !vop voice
bind pub - !hop halfop
bind pub - !op aops
bind pub - !sop superops
bind pub - !owner chaow

proc voice {n u h c a} {
if {![isop $n "#Oper"]} {return 0}
set kanal [lindex $a 0]
set nicks [lindex $a 1]
putserv "MODE $kanal +v $nicks"
putserv "PRIVMSG $c İsteğiniz Gönderildi."
} 

proc halfop {n u h c a} {
if {![isop $n "#Oper"]} {return 0}
set kanal [lindex $a 0]
set nicks [lindex $a 1]
putserv "MODE $kanal +h $nicks"
putserv "PRIVMSG $c İsteğiniz Gönderildi."
}

proc aops {n u h c a} {
if {![isop $n "#Oper"]} {return 0}
set kanal [lindex $a 0]
set nicks [lindex $a 1]
putserv "MODE $kanal +o $nicks"
putserv "PRIVMSG $c İsteğiniz Gönderildi."
}

proc superops {n u h c a} {
if {![isop $n "#Oper"]} {return 0}
set kanal [lindex $a 0]
set nicks [lindex $a 1]
putserv "MODE $kanal +a $nicks"
putserv "PRIVMSG $c İsteğiniz Gönderildi."
}

proc chaow {n u h c a} {
if {![isop $n "#Oper"]} {return 0}
set kanal [lindex $a 0]
set nicks [lindex $a 1]
putserv "MODE $kanal +q $nicks"
putserv "PRIVMSG $c İsteğiniz Gönderildi."
}
putlog "Komut.TCL Yüklendi..."