|
rascoLn Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
txt uzantılı dosyaların bulunduğu klasorün ismini yaz , kanal adını gir
Kullanacağın komut : !oku(numara) Örn :!oku1 , !oku2
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
# 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.."}
}
|
Bu yukarda verdiğini yaptım ama hatalar aldım aldığım hatalar aşşağıda
Not: botu ./eggdrop -nm dosya.conf şeklinde çalıştırdım ve aşşağıdaki mesajlar çıktı.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
[19:51] Tcl error [okut]: invalid command name "strlwr"
[19:51] <iBRaHiM> !oku1
[19:51] Tcl error [okut]: invalid command name "strlwr"
[19:51] <iBRaHiM> !oku
[19:52] <iBRaHiM> !oku*
[19:52] <iBRaHiM> !oku*1
[19:52] Tcl error [okut]: invalid command name "strlwr"
[19:52] <iBRaHiM> !oku12
İlgi ve alakanıza şimdiden teşekkürler....