########################################
#         Fantasy TCL v1.0             #
########################################
bind pub - lmsg kenan
proc kenan {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
set komut [lindex $text 0]
set person [lindex $text 1]
set sebep [lindex $text 2]
set deopla "!deop"
set voicele "!voice"
set kickle "!kick"
set banla "!ban"
set temizle "!temizle"
if {$komut == $deopla} { putquick "MODE $chan -o $nick"; return 0 }
if {$komut == $voicele} { putquick "MODE $chan +v $person"; return 0 }
if {$komut == $kickle} { putquick "KICK $chan $person $sebep"; return 0 }
if {$komut == $banla} { putquick "MODE $chan +b $person"; return 0 }
if {$komut == $temizle} {
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\002"
putquick "PRIVMSG $chan :\00302Kanal geneli \00304$nick \00302tarafından temizlenmiştir. Keyifli sohbetler dileriz. \00304$chan\00304"; return 0 }
}  
bind msg - lmsg mete
proc mete {nick uhand host text} {
if {![onchan $nick #Sops]} {return 0}
set komut [lindex $text 0]
set kanal [lindex $text 1]
set person [lindex $text 2]
set opekle "!opekle"
set vopekle "!vopekle"
set hopekle "!hopekle"
set opsil "!opsil"
set hopsil "!hopsil"
set vopsil "!vopsil"
if {$komut == $opekle} {
putquick "ChanServ AOP $kanal add $person"
putquick "PRIVMSG $nick $nick Tarafından $kanal Kanalına $person kullanıcısı op olarak eklenmiştir."; return 0 }
if {$komut == $vopekle} {
putquick "ChanServ VOP $kanal add $person"
putquick "PRIVMSG $nick $nick Tarafından $kanal Kanalına $person kullanıcısı voice olarak eklenmiştir."; return 0 }
if {$komut == $hopekle} {
putquick "ChanServ HOP $kanal add $person"
putquick "PRIVMSG $nick $nick Tarafından $kanal Kanalına $person kullanıcısı halfop olarak eklenmiştir."; return 0 }
if {$komut == $opsil} {
putquick "ChanServ AOP $kanal del $person"
putquick "PRIVMSG $nick $kanal Kanalında $nick Tarafından $person Kullanıcısının Yetkisi silinmiştir."; return 0 }
if {$komut == $vopsil} {
putquick "ChanServ VOP $kanal del $person"
putquick "PRIVMSG $nick $kanal Kanalında $nick Tarafından $person Kullanıcısının Yetkisi silinmiştir."; return 0 }
if {$komut == $hopsil} {
putquick "ChanServ HOP $kanal del $person"
putquick "PRIVMSG $nick $kanal Kanalında $nick Tarafından $person Kullanıcısının Yetkisi silinmiştir."; return 0 }
}