# girişte mesaj/karşılama gönderilecek kanal/ları belirleyecek flag.
      
setudef flag gonder

# mesaj komutları tek bir kanal üstünden mi yapılsın:
# 1 = evet | 0 = hayır

     variable aga "1"

# variable agaoda "#agalar" ayarında kontrol kanalı adını girin.
# ( büyük küçük harf uyumu aranmaz )

if {$aga >= "1"} {
     variable agaoda "#agalar"
# girişte kullanıcılara mesaj atılacak kanal/ları tek odadan ayarlamak için
# tek odadan kontrol aktifse * !ayarla mesaj #kanal-adı

     bind pub - "!ayarla" [namespace current]::yetki:mesaj
}

proc gonder:mesaj {nick uhost hand chan} {
        variable deflag
   if {![channel get $chan $deflag] && $nick eq $::botnick} { return 0;}

proc gonder:mesaj {nick uhost hand chan} {
   if {![channel get $chan gonder] && $nick eq $::botnick} { return 0 }

proc ackapa:mesaj {nick uhost hand chan text} {
   # kanalda op olanların kullanabilmesi için alt satırı aktif edin
   #if {![isop $nick $chan]} { return 0;}
   # kanal op / halfop ve voice'ları için alt satırı aktif edin.
   #if {![isop $nick $chan] || ![ishalfop $nick $chan] || ![isvoice $nick $chan]} { return 0;}
        variable msjyetki
    
   if {![matchattr [nick2hand $nick] $msjyetki $chan]} { 
         puthelp "notice $nick :\00314Bu komutu kullanmaya yetkiniz yok !!!\003 \
         \00300,04 \u262A \003 \002\026\u006E\u0072\u0074 \u0028\u0053\u0061\u0079\u0057\u0068\u0061\u0074\u0029\026\002\u00A9"
         puthelp "notice $nick :\00314Sadece\003 \00312$msjyetki\003 \00314flaglarına sahip kullanıcılar tarafından kullanabilir...\003"
         return 0
      }

proc ackapa:mesaj {nick uhost hand chan text} {
           variable agaoda
    if {[string tolower $chan] ne [string tolower $agaoda]} { return 0 }
    
    # kanalda op olanların kullanabilmesi için alt satırları aktif edin
    #if {![isop $nick $agaoda]} {
    #      puthelp "notice $nick :\002$agaoda\002 kanalında Op olmanız gerekmektedir."
    #       return
    #   }
    
    # kanal op / halfop ve voice'ları için alt satırları aktif edin.    
    #if {![isop $nick $agaoda] || ![ishalfop $nick $agaoda] || ![isvoice $nick $agaoda]} {  
    #       puthelp "notice $nick :\002$agaoda\002 kanalında yetkiniz yok."
    #        return
    #    }

    # komutlara erişim belirli kullanıcı flaglarına sahip olanlarda olacaksa, alt satırları aktif edin.
    #             variable msjyetki     
    #if {![matchattr [nick2hand $nick] $msjyetki $agaoda]} { 
    #      puthelp "notice $nick :\00314Bu komutu kullanmaya yetkiniz yok !!!\003 \
    #       \00300,04 \u262A \003 \002\026\u006E\u0072\u0074 \u0028\u0053\u0061\u0079\u0057\u0068\u0061\u0074\u0029\026\002\u00A9"
    #       puthelp "notice $nick :\00314Sadece\003 \00312$msjyetki\003 \00314flaglarına sahip kullanıcılar tarafından kullanabilir...\003"
    #       return 0
    #   }

proc yetki:mesaj {nick uhost hand chan text} {
                  variable agaoda
    if {[string tolower $chan] ne [string tolower $agaoda]} { return 0 }
    
    # kanalda op olanların kullanabilmesi için alt satırları aktif edin
    #if {![isop $nick $agaoda]} {
    #      puthelp "notice $nick :\002$agaoda\002 kanalında Op olmanız gerekmektedir."
    #       return
    #   }
    
    # kanal op / halfop ve voice'ları için alt satırları aktif edin.    
    #if {![isop $nick $agaoda] || ![ishalfop $nick $agaoda] || ![isvoice $nick $agaoda]} {  
    #       puthelp "notice $nick :\002$agaoda\002 kanalında yetkiniz yok."
    #        return
    #    }

    # komutlara erişim belirli kullanıcı flaglarına sahip olanlarda olacaksa, alt satırları aktif edin.
    #            variable msjyetki
    #if {![matchattr [nick2hand $nick] $msjyetki $agaoda]} { 
    #      puthelp "notice $nick :\00314Bu komutu kullanmaya yetkiniz yok !!!\003 \
    #       \00300,04 \u262A \003 \002\026\u006E\u0072\u0074 \u0028\u0053\u0061\u0079\u0057\u0068\u0061\u0074\u0029\026\002\u00A9"
    #       puthelp "notice $nick :\00314Sadece\003 \00312$msjyetki\003 \00314flaglarına sahip kullanıcılar tarafından kullanabilir...\003"
    #       return 0
    #   }
    
         set ayar [lindex [split [string tolower $text]] 0]
         set kanal [lindex [split [string tolower $text]] 1]
        
    if {[llength $ayar] < "1" || [llength $kanal] eq "0" || $ayar ne "mesaj" || ![string match "#*" $kanal] || ![botonchan $kanal] || ![validchan $kanal]} {
           puthelp "privmsg $chan :Mesaj sisteminin aktif olacağı kanalı seçmek için : $::lastbind mesaj #kanal-adı"
           puthelp "privmsg $chan :#kanal-adı , $::botnick 'in de bulunduğu kanallardan, geçerli bir kanal adı olmalıdır."
           return 0
       }
       
          channel set $kanal +gonder
          puthelp "notice $nick :$kanal kanalında mesaj sistemi aktif edildi."
          return
}