set komut ".gir"

set cici {:?oyun|kelime|test|sohbet|avrupa|islamioyun|jm|ops|help|teylo|islam|siyaset|yarisma}

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

proc girpub {n u h c a} {
        regsub -all -- {\s+} [string trim $a] " " a
        set knl [lindex [split $a] 0]
        if {![string length $knl]} {
              putserv "PRIVMSG $c :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı."
              return
        }
        
        if {[string equal {#} [string index $knl 0]]} {
               set hedef [string range $knl 1 end]
        } else { 
               set hedef $knl
        }
      if {![regexp -nocase -- $hedef $::cici]} {
              putserv "PRIVMSG $c :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için help.."
              return
         } else {
         # .gir Komutunu kullananı sajoinler.
             putquick "SAJOIN $n #$hedef"
         # Botu O kanala sokar.
         # channel add #$hedef
         }
}  
proc girmsg {n u h a} {
          regsub -all -- {\s+} [string trim $a] " " a
          set knl [lindex [split $a] 0]
        if {![string length $knl]} {
              putserv "PRIVMSG $n :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı."
              return
        }
        
        if {[string equal {#} [string index $knl 0]]} {
               set hedef [string range $knl 1 end]
        } else { 
               set hedef $knl
        }
        
       
         if {![regexp -nocase -- $hedef $::cici]} {
              putserv "PRIVMSG $n :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için Jiyan.."
              return
         } else {
         # .gir Komutunu kullananı sajoinler.
             putquick "SAJOIN $n #$hedef"
         # Botu O kanala sokar.
         # channel add #$hedef
         }
}