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