[CENTER]### Dosyanın Bulunduğu Yer###
set dcm "scripts/dosya.txt"
 

bind pub - !komut information
proc information {nick uhand host chan text} {
if {![onchan $nick $chan]} {return 0} 
global dcm
set file [open $dcm r]
set listfile [split [subst -nocommands [read $file]] "\n"]
foreach i $listfile { 
putserv "privmsg $chan $i"
} 
close $file
} 
[/CENTER]