# kullanımı :
# hangi kanalda duyru eklemek -silmek isteniyorsa ,
# telnet/dcc üzerinden bota .chanset #kanalınız +duyuru
# komutuyla kodu aktif etmelisiniz.
# belirlenen kanalda op olanlar 
# duyuru ekleyip silebilir.
# !dyrekle duyuruno duyurumsg
# !dyrsil duyuruno
# bota özelde duyur , duyuru ,dyr demeniz yeterli
# /msg botnick dyr ... gibi...
 
setudef flag duyuru
 
 set dzn "duyurular.txt"
 
bind pub -|- !dyrekle duyuru:ekle
bind pub -|- !dyrsil duyuru:sil
bind msgm - "*" duyuru:duyur
 
proc duyuru:ekle {nick host hand chan arg} {
  global dzn
  if {![channel get $chan duyuru]} {
   return
   }
  if {![isop $nick $chan]} { 
  return 
  }
   set dyrno [lindex [split $arg] 0]
   set dyrmsg [join [lrange [split $arg] 1 end]]
    if {$dyrno == ""} { 
     puthelp "notice $nick eksik komut girdiniz.kullanımı : !dyrekle duyuruno duyuru"
   return 0 
   }
    if {$dyrmsg == ""} {
     puthelp "notice $nick eksik komut girdiniz.kullanımı : !dyrekle duyuruno duyuru"
   return 0
   }
   if {[file exists $dzn] == 0} {
    set file [open $dzn w]
    close $file
  }
  set file [open $dzn a]
  puts $file $dyrno#$dyrmsg
  close $file
  puthelp "notice $nick $dyrno $dyrmsg eklendi"
}
 
proc duyuru:sil {nick host hand chan arg} { 
 global dzn
  if {![channel get $chan duyuru]} {
   return
   }
  if {![isop $nick $chan]} { 
  return 
  }
  set dyrno [lindex [split $arg] 0]
   if {$dyrno == ""} { 
    puthelp "notice $nick yanlış komut girdiniz. kullanımı : !dyrsil duyuruno"
 return 0 
 }
  if {[file exists $dzn] == 0} {
   set file [open $dzn w]
   close $file
  }
   set file [open $dzn "r"]
   set data [read -nonewline $file]
   close $file
   set lines [split $data "\n"]
   set i [expr $dyrno - 1]
   set delete [lreplace $lines $i $i]
   set files [open $dzn "w"]
   puts $files [join $delete "\n"]
   close $files
  set file [open $dzn "r"]
  set data [read -nonewline $file]
  close $file
  if {$data == ""} {
  set files [open $dzn "w"] 
  close $files
  }
  puthelp "notice $nick $dyrno silindi."
}
 proc duyuru:duyur {nick host hand arg} {
   global dzn
    if {![file exists "$dzn"]} {
    putserv "notice $nick :herhangi bir duyuru bulunamadı."
   return 0
  }
   if {![file readable "$dzn"]} {
     putserv "notice $nick :herhangi bir duyuru bulunamadı."
   return 0
 }
  if {[string match -nocase "duyur*" $arg] || [string match -nocase "dyr" $arg]} {
  set msgno 0
  set file [open "$dzn" r]
   set line [gets $file]
   incr msgno
    putserv "privmsg $nick :$line"
   } 
   if {[eof $file]} {
 close $file
 break
 }
}
 
putlog "bir kar yagar ince ince..."