|
| aCoustiC Nickli Üyeden Alıntı
|
acaba bu dosyadan okutma mi yoksa degiskenden okutmami
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
soru: x.txt dosyasindaki veriler kanala !kural kullaniminda yazilacaktir. |
Hocam bu şekilde olur mu acaba,başka bir tcl i değiştirerek yazdım.Deneme imkanım olmadı.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set oku "x.txt"
set kanal "#kanal"
bind pub - !kural pub:kuralmsg
proc pub:kuralmsg { nick host hand chan text} {
global oku kanal
if {[file exists $oku]} {
set kuralfile [open $oku r]
while {![eof $kuralfile]} {
catch {set kuraltext [gets $kuralfile]}
putserv "PRIVMSG $kanal :$kuraltext"
}
catch {close $kuralfile}
}
}