Kod: Kodu kopyalamak için üzerine çift tıklayın!
########################################
# 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 }
}