x.txt den okutma
Kaynak :
aCoustiC Dokumanından yararlandım.
|
| Alıntı: |
|
Asagida goreceginiz fonksiyon botunuzun belirtilen dosyayi butun satirlari ile okumak ve bu satirlardaki yazilari belirtilen yere gondermesinize olanak saglayacaktir
|
Kod: Kodu kopyalamak için üzerine çift tıklayın!
proc fread {dosya kime} {
if {![file exists $dosya]} {
putlog "$dosya adinda bir belge bulunamadi"
return
}
set cikti [open $dosya r]
set satir [split [read $cikti] \n]
catch {close $cikti}
set say 0
foreach satir $satir {
if {$satir != ""} {
puthelp "PRIVMSG $kime :$satir"
incr say
}
}
if {$say == 0} {
puthelp "PRIVMSG $kime :Mevcut dosya icinde bilgi bulunamadi"
return
} else {
puthelp "PRIVMSG $kime :Liste sonu!"
}
}
Kullanimi: fread <dizin/dosyaadi.txt> <nick|kanal>
Seklinde kullanilabilir, bir ornekte bunu aciklamak gerekirse
!kural adinda bir komut yaratarak bu komut sonrasi bilgilerin kime gonderilmesini istedigimizi secelim.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !kural kural
proc kural {nick uhost hand chan text} {
fread scripts/kural.txt $chan
}
Yukaridaki ornek botun bulundugu yerde
!kural komudu kullanimiyla
scripts/kural.txt icindeki tum bilgiler
$chan yani komudun kullanildigi kanala gonderilecektir. Bunu bir nick veya bir baska kanal olarak belirlemek mumkun $chan yerine $nick yazilarak komudu kullanan nick'e
yada
#kanal yada
aCoustiC gibi 1 seyler yazma ozelligimizin olmasini saglar
Gelistirmeniz dilegiyle....
Yazar: Adil Bülbül