# kullanımı:
# .chanset #kanalınız +duyuru .. ile ayarladığınız kanal üstünde.en az Op'lar için:
# !dyrekle <duyuru-no/duyuru-ismi> duyurunuz...
# !dyrsil <duyuru-no/duyuru-ismi>
# !dyrliste
# özelde herhangi bir botun olduğu kanalda,herhangi bir kullanıcı tarafından kullanılabilecek duyuru komutu:
# <duyuru-no/duyuru-ismi>
# kodun aktif olduğu kanaldaki kanal opları ve üstünün eklemiş olduğu duyuru/ları 
# botun özelinde duyuru-ismi yada rakkam ile eklenmişse numarasıyla okuyabilmesini sağlıyor... 
# (herhangi bir komutu yada işareti yok.sadece eklediğinizde 
# duyurunuza koyduğunuz isim yada numara ile o eklenmiş duyuruyu postalıyor.)
setudef flag duyuru
bind pubm -|- "*" duyuru:pub
bind msgm -|- "*" duyuru:duyur
proc duyuru:pub {nick uhost hand chan text} {
if {![channel get $chan duyuru] || ![isop $nick $chan]} {
    return 0
}
set dyrkmt [lindex [split $text] 0]
set dyrno [lindex [split $text] 1]
set dyrmsg [join [lrange [split $text] 2 end]]
set dzn "duyuru.txt"
    switch -- $dyrkmt {
 
        "!dyrekle" {
            if {[llength $dyrmsg] == "0"} {
                putserv "notice $nick :kullanımı !dyrekle <duyuru-no/duyuru-ismi> duyurunuz."
                return 0
            }
            set abc [open "$dzn" a+]
            puts $abc "$dyrno $dyrmsg"
            close $abc
            putserv "notice $nick :eklendi \002$dyrno:\002 $dyrmsg"
            return 0
        }
  
        "!dyrsil" {
            if {![file exists "$dzn"]} {
                putserv "notice $nick :\002$dzn\002 boş."
                return 0
            }
            if {[llength "$dyrno"] == "0"} {
                putserv "notice $nick :kullanımı !dyrsil <duyuru-no/duyuru-ismi>."
                return 0
            }
            set abc [open "$dzn"]
            set lines [split [read -nonewline $abc] "\n"]
            close $abc
            if {[llength $lines] == "0"} {
                putserv "notice $nick :\002$dzn\002 boş."
                return 0
            }
            set lines2 ""
            set say 0
            set satirno 0
            foreach line $lines {
                if {[lindex $line 0] == $dyrno} {
                  set lines2 [lreplace $lines $satirno $satirno]
                  incr say
                }
                incr satirno
            }
            if {$say == 0} {
                putserv "notice $nick :böyle bir duyuru yok: \002$dyrno\002."
                return 0
            }
            set abc [open "$dzn" w]
            puts $abc [join $lines2 "\n"]
            close $abc
            if {$say == 1} {
                set s ""
            } else {
                set s "s"
            }
            putserv "notice $nick :\002$dyrno\002 $say adet$s, duyuru silindi."
        }
  
        "!dyrliste" {
       if {![file exists "$dzn"]} {
                putserv "notice $nick :\002$dzn\002 boş"
                return 0
            }
            set dyrno 0
            set abc [open "$dzn"]
            set lines [split [read -nonewline $abc] "\n"]
            close $abc
            if {[llength $lines] == "0"} {
                putserv "notice $nick :\002$dzn\002 boş"
                return 0
            }
            foreach line $lines {
                putserv "notice $nick :\002[lindex $line 0]\002 [lrange $line 1 end]"
            }
            putserv "notice $nick :Son"
        }
        return 0
    }
}
proc duyuru:duyur {nick uhost hand text} {
    set dzn "duyuru.txt"
    if {![file exists "$dzn"]} {
        return 0
    }
    set dyrno 0
    set abc [open "$dzn"]
    set lines [split [read -nonewline $abc] "\n"]
    close $abc
    if {[llength $lines] == "0"} {
        return 0
    }
    foreach line $lines {
        if {[lindex $line 0] == $text} {
            putserv "privmsg $nick :[lrange $line 1 end]"
        }
    }
    }
putlog "burası,   kodun dibidir...."