###############################################################
#                 Join/Part TCL v1.0                          #
#    Bu TCL ile Botunuzu Bir Kanaldan Çıkarabilir Veya        #
#      Belirttiğiniz Kanala Çekebilirsiniz.                   #
#           Kullanım !Join #Kanal !Part #Kanal                #
###############################################################
bind pub - !join kanalgir
proc kanalgir {nick uhost handle chan text} {
if {![string match -nocase "#Opers" $chan]} {return 0}
set kanal [lindex $text 0]
if {$kanal == ""} {putquick "PRIVMSG $chan :Kanal Koruma/Kontrol Botunu Belirtilen Kanala Joinlemek İçin Lütfen Kanalı Belirtiniz.";return}
channel add $kanal { chanmode "+nt" idle-kick 0 stopnethack-mode 0 flood-chan 0:0 flood-deop 0:0 flood-kick 0:0 flood-join 0:0 flood-ctcp 0:0 -enforcebans +dynamicbans +userbans +dynamicexempts +userexempts -autovoice +dynamicinvites +userinvites -autoop -bitch +protectops -seen -secret -inactive +protectfriends +dontkickops +greet +statuslog +revenge +nodesynch -shared +cycle }
putquick "PRIVMSG $chan :$nick Tarafından $kanal Kanalına Kanal Koruma/Kontrol Botu Joinlenmiştir."
}
bind pub - !part kanalpart
proc kanalpart {nick uhost handle chan text} {
if {![string match -nocase "#Opers" $chan]} {return 0}
set kanal [lindex $text 0]
if {$kanal == ""} {putquick "PRIVMSG $chan :Kanal Koruma/Kontrol Botunu Belirtilen Kanaldan Part Etmek İçin Lütfen Kanalı Belirtiniz.";return}
channel remove $kanal
putquick "PRIVMSG $chan :$nick Tarafından $kanal Kanalından Kanal Koruma/Kontrol Botu Part Edilmiştir."
}