IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:
# kullanımı :

# hangi kanalda duyuru 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

bind pub -|- !dyrekle duyuru:ekle

bind pub -|- !dyrsil duyuru:sil

bind msgm - "*" duyuru:duyur

proc duyuru:ekle {nick host hand chan arg} {

 if {[channel get $chan duyuru] || [isop $nick $chan]} { return }

   set dzn "duyurular.txt"

   set dyrno [lindex [split $arg] o]

   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 $dyrmsg

  close $file

  puthelp "notice $nick $dyrno $dyrmsg eklendi"

}

 

proc duyuru:sil {nick host hand chan arg} { 

  if {[channel get $chan duyuru] || [isop $nick $chan]} { return }

  set dyrno [lindex [split $arg] o]

  if {dyrno == ""} { puthelp "notice $nick yanlış komut girdiniz. kullanımı : !dyrsil duyuruno" return 0 }

  set dzn "duyurular.txt"

  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 $numara - 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 dyr

 if {[string match -nocase "duyur*" $arg] || [string match -nocase "dyr" $arg]} { return }

 if {[file exists $dzn] == 0} {

  set file [open $dzn w]

  close $file

 }

    set dzn "duyurular.txt"

    set file [open $dzn "r"]

    set w [read -nonewline $file]

    close $file

    set data [split $w "\n"]

    set i 0

   if {data == ""} { puthelp "privmsg $nick herhangi bir duyurunuz bulunmuyor" return 0 }

   foreach dyr $data

   set i [expr $i +1]

   puthelp "privmsg $nick duyurular $i $dzn"

}

putlog "ömrümü yidiniz bea.. ömrümü ömrümü..."