#gerekli bindler
bind pub - !join girsin
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum :)"
}

proc girsin {n u h c a} {
  global gnick
	set gnick $n
        set kanal [lindex $a 0]
    putserv "as chan $kanal add"
    putserv "as chan $kanal set bot botnicki"
    putserv "PRIVMSG #opers : 4 $kanal Kanalına botnicki Bot Bir Kac Saniye İçinde Atılacaktır 2$gnick"
}

#gerekli bindler
bind pub - !part ciksin
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum :)"
}

proc ciksin {n u h c a} {
  global gnick
	set gnick $n
        set kanal [lindex $a 0]
    putserv "as chan $kanal del"
    putserv "PRIVMSG #opers : 4 $kanal Kanalından Botnicki Bot Bir Kac Saniye İçinde Cıkarılacaktır.  2$gnick"
}

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