| Cevap: Tcl Ustadlarina Kucuk Bir Sorum Olacak..
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#Metin Okutulcak Dosya Yolu
set dosya "scripts/bilgi.txt"
bind pub - !bilgi information
#YAZIM KURALI
proc information {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
global dosya
set file [open $dosya r]
set listfile [split [subst -nocommands [read $file]] "\n"]
foreach i $listfile {
putquick "privmsg $chan $i"
}
close $file
}
putlog "Coded by CanCeL"
putlog "MSN:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
EDİT: Denedim gayet güzel çalışıyor... Açıklama: scripts/bilgi.txt içerisindeki dökümanı komutun uygulandığı odaya yazar. Komutu oda operatorleri kullanabilir... Komut: !bilgi
__________________
Eskiden buralar hep dutluktu...
Konu CanCeL tarafından (15 Aralık 2007 Saat 14:03 ) değiştirilmiştir.
|