## Okutulacak dosya
set db "scripts/sohbet.txt"
## Dokunma.!
set wait "1"
## Başladıktan sonra kanala kaç saniye arayla yazacak?
set gecikme_zamani "15"
## Burdan sonrasına dokunma
bind pub - !sohbet sohbet:basla
proc sohbet:basla { n u h c a } {
global db wait gecikme_zamani
set file [open $db r]
set listfile [split [subst -nocommands [read $file]] "\n"]
 foreach i $listfile {
 set wait [expr $wait + $gecikme_zamani]
 utimer $wait[list putserv "privmsg $c $i"]
 }
close $file
}
putlog "Dosya yüklendi.. Coded By BuCaLI"