# 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"