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