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