set komut ".gir"

set cici "#Okanal #Bukanal #Şukanal"

bind pub - $komut girpub
bind msg - $komut girmsg

proc girpub {n u h c a} {
        set knl [lindex [split $a] 0]
   if {[string length $knl] < 2} {
        putserv "PRIVMSG $c :Hatalı Kullanım. $::komut #Kanal şeklinde Olmalı."
        return
   } elseif {![string equal {#} [string index $knl 0]]} {
        putserv "PRIVMSG $c :Hatalı #Kanal adı girdiniz."
        return
   } elseif {$knl ni $::cici} {
        putserv "PRIVMSG $c :$knl Kanalı yasaklı listemde. Red edildi."
        return
   } else {
        # .gir Komutunu kullananı sajoinler.
        putquick "SAJOIN $n $knl"
        # Botu O kanala sokar.
        # channel add $knl
   }
}

proc girmsg {n u h a} {
        set knl [lindex [split $a] 0]
   if {[string length $knl] < 2} {
        putserv "PRIVMSG $n :Hatalı Kullanım. $::komut #Kanal şeklinde Olmalı."
        return
   } elseif {![string equal {#} [string index $knl 0]]} {
        putserv "PRIVMSG $n :Hatalı #Kanal adı girdiniz."
        return
   } elseif {$knl ni $::cici} {
        putserv "PRIVMSG $n :$knl Kanalı yasaklı listemde. Red edildi."
        return
   } else {
        # .gir Komutunu kullananı sajoinler.
        putquick "SAJOIN $n $knl"
        # Botu O kanala sokar.
        # channel add $knl
   }
}