# txt dosyalarının bulunduğu klasor yolu"
set klasor "klasoryolu"

# Komutun kullanılacağı kanal
set kanal "#kanaladı"

bind pubm - "*%!oku*" okut

proc okut {n u h c a}  {
set readnumber [string range $a 4 end]
if {[string is digit $readnumber] & [exec ls -1 $::klasor | wc -l] >= $readnumber & [string match -nocase $c $::kanal]} {
set txt [lsort [strlwr [glob $::klasor/*.txt]]]
set x 1
foreach yazdir $txt {
if { $x eq  $readnumber}  { 
set dosya [open $yazdir r]
set oku [split [read $dosya] \n]
close $dosya
foreach dokuman $oku {
putquick "privmsg $c :$dokuman"
}
};incr x
}
} else { putquick "privmsg $c :Numara girmediniz veya yanlış numara girdiniz.."}
}